영삼넷IT 강국 = 김영삼 블로그에 오신걸 환영합니다.

<%

   Function MyRandom( couponLength )

     Dim  couponValue(35)
     couponValue(0)   = "A"
     couponValue(1)   = "B"
     couponValue(2)   = "C"
     couponValue(3)   = "D"
     couponValue(4)   = "E"
     couponValue(5)   = "F"
     couponValue(6)   = "G"
     couponValue(7)   = "H"
     couponValue(8)   = "I"
     couponValue(9)   = "J"
     couponValue(10)  = "K"
     couponValue(11)  = "L"
     couponValue(12)  = "M"
     couponValue(13)  = "N"
     couponValue(14)  = "O"
     couponValue(15)  = "P"
     couponValue(16)  = "Q"
     couponValue(17)  = "R"
     couponValue(18)  = "S"
     couponValue(19)  = "T"
     couponValue(20)  = "U"
     couponValue(21)  = "V"
     couponValue(22)  = "W"
     couponValue(23)  = "X"
     couponValue(24)  = "Y"
     couponValue(25)  = "Z"
     couponValue(26)  = "0"
     couponValue(27)  = "1"
     couponValue(28)  = "2"
     couponValue(29)  = "3"
     couponValue(30)  = "4"
     couponValue(31)  = "5"
     couponValue(32)  = "6"
     couponValue(33)  = "7"
     couponValue(34)  = "8"
     couponValue(35)  = "9"

    'ex) idvalue = Int(( 100-1+1 )*Rnd + 1 )  '1부터 100까지의 난수발생
    'ex) idvalue = Int((50-2+1 ) *Rnd+2 ) '2부터 50까지의 난수발생
    'ex) idvalue = Int((35-0+1 )*Rnd+0 ) '0부터 35까지의 난수 발생

    
    'couponLength 길이 만큼의 쿠폰번호를 만든다
     For i=1 To couponLength
     '난수 발생 초기화
      Randomize
      idvalue=Int((35- 0 + 1) * Rnd + 0)
      couponNo = couponNo & couponValue(idvalue)
     Next

     MyRandom = couponNo '리턴값

   End Function

   Response.Write MyRandom( 16 ) '16자리의 쿠폰번호를 생성한다

 %>

// 1 에서 50까지의 A개수 만큼 난수를 출력해줌

<%
Function RandomEA(EA)
Dim min, max, i

min=1 : max=50

Randomize
Response.Write min & "부터 ~" & max &  "까지 &nbsp;" & EA & "개의 난수 발생 <br><br>"
For i=1 to EA
     Response.Write Int((max-min+1) * Rnd + min) & "<br>" //난수공식
Next
end function
%>

<% if request("EA") = "" then %>
<form name = "fm" method = "post" action = "URL">
* 난수를 발생시킬 갯수 : <INPUT TYPE="text" NAME="EA"><INPUT TYPE="submit" value="전송">
</form>
<% else %>
<form name = "fm" method = "post" action = "111.html">
* 난수를 발생시킬 갯수 : <INPUT TYPE="text" NAME="EA"><INPUT TYPE="submit" value="전송">
<% RandomEA(request("EA")) %>
<% end if %>

<%

   Dim objFSO, FileName
  
   set objFSO = Server.CreateObject("scripting.FileSystemObject")
 
   '지정해 준 경로로 readme.txt 파일을 만든다. 만든 파일은 빈 파일이다.
   set FileName = objFSO.CreateTextFile("C:\readme.txt", true)
 
   'Write와 WriteLine 메서드는 모두 텍스트를 열린 파일에 추가하지만 WriteLine은 후행 줄 바꿈 문자도 추가합니다.
   FileName.WriteLine("웹마당에 카페의 멤버가 되세요!!!")
   FileName.WriteLine("언제나 환영합니다.!!")

  
   'FileName.Write ("웹마당 까페의 멤버가 되세요")

   ' Write three newline characters to the file.
  
   FileName.Close
 
%>

<%
   

    Dim objFSO, objOpenedFile, Filepath, sRead
    Const ForReading = 1, ForWriting = 2, ForAppending = 8
   

    Const FileName = "\readme.txt"

    '파일시스템 객체를 생성한다
    Set objFSO = CreateObject("Scripting.FileSystemObject")

    Filepath = Server.MapPath(Filename)

    '파일이 존재하면
    If objFSO.FileExists(Filepath) Then

      Response.Write "<pre>"

      Set objOpenedFile = objFSO.OpenTextFile(Filepath, ForReading, False, TristateUseDefault)

     '라인단위로 읽는다
     Do While Not objOpenedFile.AtEndOfStream
 
     sRead = objOpenedFile.readline
     sRead = sRead & vbCRLF
 
     Response.write sRead
     Loop
 
    Response.Write "</pre>"
    Set TextStream = nothing
   
    Else

    Response.Write "파일명 " & Filename & " 파일이 없습니다."

    End If

   Set objFSO = nothing
%>