|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在3秒以内).无论是他们输入资料时,查找资料时,分析资料时.<%
Response.Write("<head><style><!--span{font-size:9pt}--></style></head>")
OnErrorResumeNext
Dimthisurl,thistext
thisurl=Request("thisurl")界说文件地点(非Html格局文档)!
ifthisurl=""then
Response.Write("<span>请先输出文件地点!</span>")
Response.End
Endif
Functionobjxmlhttp(xmlurl)
OnErrorResumeNext
Setobjxml=CreateObject("Microsoft.XMLHTTP")
objxml.Open"get",xmlurl,false
objxml.setrequestheader"content-type","application/x-www-form-urlencoded"
objxml.send
objxmlhttp=objxml.responsebody
ifErrthen
Err.Clear
Response.Write("<span>创建毗连失利,文件不存在或收集有成绩!;毛病缘故原由:"&Err.Description&"!</span>")
Response.End
Endif
EndFunction
webjx.com
Functionbytes2BSTR(vIn)
strReturn=""
Fori=1ToLenB(vIn)
ThisCharCode=AscB(MidB(vIn,i,1))
IfThisCharCode<&H80Then
strReturn=strReturn&Chr(ThisCharCode)
Else
NextCharCode=AscB(MidB(vIn,i+1,1))
strReturn=strReturn&Chr(CLng(ThisCharCode)*&H100+CInt(NextCharCode))
i=i+1
EndIf
Next
bytes2BSTR=strReturn
EndFunction
thisurl2=Split(thisurl,",")
ForEachiiInthisurl2
thistext=bytes2BSTR(objxmlhttp(ii))
ifInStr(thistext,"<html>")0then
Response.Write("<span>"&ii&"<b>×</b></span><br>")
Else
Response.Write("<span>"&ii&"<b>√</b></span><br>")
Endif
Next
ifErrthen
Err.Clear
Response.Write("<span>碰着不测!;毛病缘故原由:"&Err.Description&"!</span>")
Response.End
Endif
%>
由于ASP还是一种Script语言所没除了大量使用组件外,没有办法提高其工作效率。它必须面对即时编绎的时间考验,同时我们还不知其背后的组件会是一个什么样的状况; |
|