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

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

ASP: 深入研究“用ASP上载文件”(一); 深入研究“用ASP上载文件”(二); 一个投票系统的源程序(coveryourasp.com); 一些 ASP 小源程序; 用ASP制作个性化的调查板（附源程序）; 一些源程序 - 获得文件大小和字符串处理; 用ASP创建日志文件（附源程序）; 在一个ASP页面停留的多少时间的程序; 用VB6做一个简单的文件上传组件(一); 用VB6做一个简单的文件上传组件(二); 构建你的网站新闻自动发布系统之七; 实现滚动新闻; 网上“店铺”DIY(1); 网上“店铺”DIY(2); 网上“店铺”DIY(3); 负载平衡环境下的ASP会话管理(1); 负载平衡环境下的ASP会话管理(2); FrontPage创建HTML／ASP混合页面Ⅰ; FrontPage创建HTML／ASP混合页面Ⅱ; 在ASP应用中验证用户身份(1)

No. « ‹ 213 214 215 216 › »

技术文章搜索

关键字

ASP判断文件地址是否有效

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

收藏到网摘: 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