|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
asp,jsp,php是web开发的三大技术,asp简单易用且有microsoft做靠山,jsp功能强大是因为有java支持,php则开源跨平台.在国内,asp应用范围最广,jsp发展势头最猛,php则处于劣势.这可能与公司的支持以及技术的培训有关.<%
原创作者:小艺QQ:52093
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
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
%></p>对用户来说可预见费用、节约费用,可以做到花少钱办大事。由于省去了购买软件和硬件等的前期费用,用户可以租用较高级的应用软件。ASP的收费是根据软件的类型、客制化程度、用户数量、服务期限来定的,对客户来说这笔费用是可以预见的。方便于客户应用软件的升级。 |
|