VBScript code:
Set http=Server.CreateObject("MSXML2.ServerXMLHTTP")
http.Open "post","http://www.yodao.com/smartresult-xml/search.s?type=ip&q=221.123.123.123",false
http.send
Set xml = Server.CreateObject("Microsoft.XMLDOM")
xml.Async = false
xml.ValidateOnParse = true
xml.setProperty "ServerHTTPRequest",true
xml.load(http.ResponseXML)
if xml.ParseError.errorCode<>0 then
Response.Write("Error: " & xml.parseError.reason & "<br>")
Response.Write("Code: 0x" & hex(xml.parseError.errorCode) & "<br>")
Response.Write("At Line: " & xml.parseError.line & "<br>")
Response.Write("At pos: " & xml.parseError.linePos & "<br>")
else
set objRootElement = xml.documentElement
Response.Write objRootElement.childnodes(0).text
end if
这段代码挺好，简单易懂。顶
太感谢2楼了
<form id="form1" runat="server">
<div>
<script type="text/javascript">
function oo(a){
document.getEleme ......
我的網頁代碼為ASP語言,驗證方式為系統自帶的WINDOW驗證模式.
現在我如果要在ASP代碼中獲取當前的登入人 ......
由于对页面使用了伪静态
并且对ID进行了加密。
主要代码如下：
httpd.ini
RewriteRule /List-([0-9,a-z]*).html /List.asp\?ComId=$1 [N,I]
程序代码
A为加密，B为解密函数
<a href=&q ......
