六月婷婷综合激情-六月婷婷综合-六月婷婷在线观看-六月婷婷在线-亚洲黄色在线网站-亚洲黄色在线观看网站

明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！

ASP判斷文件地址是否有效果

發表時間：2024-02-02 來源：明輝站整理相關軟件相關文章人氣：

[摘要]<%Response.Write("<head><style><!--span{ font-size: 9pt }--></style></head>")On Error Resume NextDim thisu...

<%
Response.Write("<head><style><!--span{ font-size: 9pt }--></style></head>")
On Error Resume Next
Dim thisurl,thistext
thisurl=Request("thisurl")            '定義文件地址(非Html格式文檔)!
if thisurl="" then
     Response.Write("<span>請先輸入文件地址!</span>")
     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("<span>建立連接失敗,文件不存在或網絡有問題!;錯誤原因:"&Err.Description&"！</span>")
           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("<span>"& ii &" <b>×</b></span><br>")
     Else
           Response.Write("<span>"& ii &" <b>√</b></span><br>")
     End if
Next

if Err then
     Err.Clear
     Response.Write("<span>碰到意外!;錯誤原因:"&Err.Description&"！</span>")
     Response.End
End if
%>





主站蜘蛛池模板： 天天干夜夜想 | 日本高清在线不卡 | 午夜精品久视频在线观看 | 亚洲欧洲在线观看 | 天天操天天爱天天干 | 四虎影视免费观看免费观看 | 伊人久久五月 | 青青青视频在线免费观看 | 欧美一区二区三区播放 | 亚洲乱码一二三四区麻豆 | 青青国产成人久久激情91麻豆 | 日日噜噜噜夜夜爽爽狠狠69 | 亚洲第一页中文字幕 | 天天综合网天天综合色 | 青草视频网站在线观看 | 日本高清免费在线观看 | 四虎国产永久在线精品免费观看 | 在线观看免费为成年视频 | 日韩欧美亚洲乱码中文字幕 | 午夜精品久久久久久 | 天堂一区二区三区在线观看 | 亚洲高清影院 | 青娱乐激情视频 | 亚洲成a人片在线观看中文 亚洲成a人片在线观看精品 | 亚洲日韩中文字幕一区 | 中文在线观看免费网站 | 中文在线观看免费网站 | 天堂资源地址在线 | 殴美一级 | 手机看片亚洲 | 午夜影院在线视频 | 日本免费一区视频 | 欧美特黄一级大黄录像 | 中日韩欧美风情视频 | 日韩精品亚洲一级在线观看 | 日日干干 | 日本一区免费在线 | 欧美艳星nikki办公室 | 日韩中文一区 | 午夜性色视频 | 亚洲男人的天堂网 |