辰东完美世界有声小说,小说网,遮天辰东小说笔趣阁

復(fù)制代碼代碼如下:

強(qiáng)制刷新網(wǎng)頁
<%
　 '強(qiáng)制性刷新隨機(jī)驗(yàn)證碼
　 '讓隨機(jī)驗(yàn)證碼每次按IE的后退按鈕時(shí)，返回登錄頁面的隨即碼都自動(dòng)刷新，
　 Response.expires=-1
　 Response.AddHeader"pragma","no-cache"
　 Response.AddHeader"cache-control","no-store"
%>

　　判斷文件地址是否有效
復(fù)制代碼代碼如下:

<%
　 '原創(chuàng)作者:小藝 QQ:52093 時(shí)間:2005.6.30
　 Response.Write("<head><style></style></head>")
　 On Error Resume Next
　 Dim thisurl,thistext
　 thisurl=Request("thisurl") '定義文件地址(非Html格式文檔)!
　 if thisurl="" then
　　 Response.Write("請(qǐng)先輸入文件地址!")
　　 Response.End
　 End if
　 Function objxmlhttp(xmlurl)
　　 On Error Resume Next
　　 Set objxml = CreateObject("Microsoft.XMLHTTP")
　　 objxml.Open "get",xmlurl,false
　　 objxml.setrequestheader "content-type","application/x-www-form-urlencoded"
　　 objxml.send
　　 objxmlhttp = objxml.responsebody
　　 if Err then
　　　 Err.Clear
　　　 Response.Write("建立連接失敗,文件不存在或網(wǎng)絡(luò)有問題!;錯(cuò)誤原因:"&Err.Description&"！
")
　　　 Response.End
　　 End if
　 End Function

　 Function bytes2BSTR(vIn)
　　 strReturn = ""
　　 For i = 1 To LenB(vIn)
　　　 ThisCharCode = AscB(MidB(vIn,i,1))
　　　 If ThisCharCode < &H80 Then
　　　　 strReturn = strReturn & Chr(ThisCharCode)
　　　 Else
　　　　 NextCharCode = AscB(MidB(vIn,i+1,1))
　　　　 strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
　　　　 i = i + 1
　　　 End If
　　 Next
　　 bytes2BSTR = strReturn
　 End Function

　 thisurl2=Split(thisurl,",")
　 For Each ii In thisurl2
　　 thistext=bytes2BSTR(objxmlhttp(ii))
　　 if InStr(thistext,"<html>")<>0 then
　　　 Response.Write(""& ii &" × ")
　　 Else
　　　 Response.Write(""& ii &" √ ")
　　 End if
　 Next

上一篇：利用AdoDb.Stream對(duì)象來讀取UTF-8格式的文本文件

下一篇：asp組件編寫準(zhǔn)備工作

發(fā)表評(píng)論

共有條評(píng)論