3초기억력

set fso = Server.Createobject("Scripting.filesystemobject")result = fso.fileexists("D:\Site_Test\test.txt") if result = true then Set ofile=fso.OpenTextFile("D:\Site_Test\test.txt",8,true) ofile.Writeline "datetime=" & now() ofile.Writeline "------------" ofile.close  Set ofile=Nothingend ifSet fso=Nothing%>

'랜덤함수'4지선다 답 맞추기. 답이 맞으면 포인트부여 Randomize() answer = Int((Rnd * 4) + 1)               '최대 4, 최소 1 Randomize() answer_value = Int((Rnd * 4) + 1) Dim Get_Point(4) Get_Point(1) = 500 Get_Point(2) = 300 Get_Point(3) = 200 Get_Point(4) = 100 If answer = answer_value Then  Get_Point_Value = Get_Point(answer) Else   Get_Point_Value = Get_Point(4) End If%>

'//폰번호 11자리 중 4번째수가 0일경우 변환, 그외 에러처리 function phone_len_check(phone_num) If Len(phone_num) = 11 Then If Mid(phone_num, 4, 1) = "0" Then phone = Left(phone_num,3) & Right(phone_num, 7) Else phone = phone_num End If ElseIf Len(phone_num) > 11 Then phone = "N" Else phone = phone_num End if phone_len_check = phone end Function '//폰번호가 10자리인경우 11자리(4번째 0추가)로 강제 변환 function phones_len_check(phone_num)..

Set oDOM = Server.CreateObject("Microsoft.XMLDOM") with oDOM .async = False ' 동기식 호출 .setProperty "ServerHTTPRequest", True ' HTTP로 XML 데이터 가져옴 .Load(url) end with Set Nodes = oDOM.getElementsByTagName("result") For each SubNodes in Nodes regcnt = SubNodes.getElementsByTagName("regcnt")(0).Text Next Set Nodes = Nothing