Web Program159 URLDecode 함수 Function URLDecode(Expression) Dim strSource, strTemp, strResult, strchr Dim lngPos, AddNum, IFKor strSource = Replace(Expression, "+", " ") For lngPos = 1 To Len(strSource) AddNum = 2 strTemp = Mid(strSource, lngPos, 1) If strTemp = "%" Then If lngPos + AddNum 130 Then AddNum = 5 IFKor = Mid(strSource.. 2008. 9. 8. 쿠키 공유, 헤제 사이트가 3개가 있습니다. a.test.com b.test.com c.test.com 쿠키를 이용해서 회원 정보를 공유하고 헤제하기 로그인 부분은 2008. 9. 8. URLEncode(URLStr)와 URLDecode(URLStr) URLEncode(URLStr)와 URLDecode(URLStr)를 해보세요.. ^^ ----- Example ----- ----- Function ----- 2008. 9. 8. xml 데이타 읽기 ServerURL = "http://211.41.84.92/test/news_xml.xml"Set objXMLDOM = Server.Createobject("Microsoft.XMLDOM")objXMLDOM.async = falseobjXMLDOM.setProperty "ServerHTTPRequest", trueobjXMLDOM.Load ServerURLSet NodeList = objXMLDOM.SelectNodes("/news/news_body/news_data") For i = 0 To NodeList.Length-1 Set objNode = NodeList.Item(i) Set objSingleNode = objNode.selectSingleNode("/news/news_.. 2008. 9. 8. 이전 1 ··· 17 18 19 20 21 22 23 ··· 40 다음