3초기억력

socket dll 말이 필요없는 ... ASP 예제

aspexec asp 페이지에서 서버에 설치된 플그램을 실행할 수있다. 예) java로 짜여진 플그램을 asp 페이지에서 cmd 에 입력하듯이 코딩하면, 이벤트에 따라 실행시킬 수 있다.

==========---- XML 원문 ----=========== asdf qwer ==========---- XML 원문 ----=========== ==========---- asp 페이지 ----=========== 'API 호출 객체 초기화 SET oXmlDoc = Server.CreateObject("Msxml2.DOMDocument") '//oXmlDoc.setProperty "SelectionLanguage","XPath" oXmlDoc.loadXML(TX_DATA) '//oXmlDoc.preserveWhiteSpace = true Set ResponseNode_header = oXmlDoc.selectSingleNode("message/header").firstChild If Not Is..

안녕하세요. 엽우입니다. 이번에 제가 필요하여 이것 저것 참고 하여 만들어봤습니다. 에러가 없는 한글은 잘 처리되는데, 인수로 깨진 한글을 넣을 경우(한글의 처음 1바이트만 인코딩하여 넘긴 경우)는 마땅히 처리할 방법이 없으 그냥 무시하고 처리하게 했습니다. ASP는 강력하지만 VBScript 자체 만으로는 아쉬운 부분이 많네요. ^^; 그럼 소스 나갑니다. 필요한 곳에 유용하게 사용되길 바랍니다. 출처 : 태요 : 류기환

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