ASP判断文件地址是否有效- ASP - 软晨网（RuanChen.com）

当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP判断文件地址是否有效

ASP: ASP中数据库调用中常见错误的现象和解决方法; ASP取出HTML里面的图片地址的函数; 关于分页查询和性能问题; 利用Asp生成整站静态; 用ASP+XMLHTTP编写一个天气预报程序; 轻松检测浏览器是否接受Cookies信息; 净化网络环境：ASP程序实现过滤脏话; 入门：防范SQL注入攻击的新办法; 如何对ASP.NET进行性能优化; ASP无法更新ACCESS数据库解决方法; ASP：利用ASP把图片上传到数据库; ASP：用ASP编程实现网络内容快速查找; ASP:用ASP打造一个小型的网页BBS系统; ASP:用Asp编程实现QQ的在线情况查询; 通过表单创建word的一个例子; 在ASP中轻松实现记录集分页显示; ASP中实现小偷程序的原理和简单示例; ASP：6行代码实现无组件上传; 实用篇:用asp实现QQ在线查询; 如何轻松打造ASP计数器

No. « 1 2 3 4 › »

技术文章搜索

关键字

ASP判断文件地址是否有效

出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 35 ::

收藏到网摘: n/a

在Asp中使用存储过程 ASP+SMTP完成邮件群发功能

<%
Response.Write("<head><style></style></head>")
On Error Resume Next
Dim thisurl,thistext
thisurl=Request("thisurl") '定义文件地址(非Html格式文档)!
if thisurl="" then
Response.Write("请先输入文件地址!")
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("建立连接失败,文件不存在或网络有问题!;错误原因:"&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

if Err then
Err.Clear
Response.Write("碰到意外!;错误原因:"&Err.Description&"！")
Response.End
End if
%>

在Asp中使用存储过程 ASP+SMTP完成邮件群发功能

ASP判断文件地址是否有效

评论 (0) All