本 站 搜 索

发 送 文 章 ASP生成HTM文件方法(用于将原有ASP文件转换成对应HTM代码的新文件) 〖评论()〗〖留言〗〖收藏〗 收信地址 填写收信人的电子邮箱 邮件主题 填写邮件主题 邮件内容 asp2htm.asp文件代码%function getHTTPPage(url) dim Http set Http=server.createobject("MSXML2.XMLHTTP") Http.open "GET",url,false Http.send() if Http.readystate4 then exit function end if getHTTPPage=bytesToBSTR(Http.responseBody,"GB2312") set http=nothing if err.number0 then err.Clear end function Function BytesToBstr(body,Cset) dim objstream set objstream = Server.CreateObject("adodb.stream") objstream.Type = 1 objstream.Mode =3 objstream.Open objstream.Write body objstream.Position = 0 objstream.Type = 2 objstream.Charset = Cset BytesToBstr = objstream.ReadText objstream.Close set objstream = nothing End Function Dim Url,Html Url=request("url")filename=request("filename")Html = getHTTPPage(Url) dim filename,MDBpath,fso,fout 'filename="groupTree.htm" MDBpath="/" Set fso = Server.CreateObject("Scripting.FileSystemObject") Set fout = fso.CreateTextFile(server.mappath(""filename"")) fout.Write html fout.close set fout=nothing set fso=nothing if err then response.Write "scriptalert('生成失败!')/script"else response.Write "scriptalert('生成成功!')/script"end if % 使用方法： 有两个参数 url：为ASP文件的完整网址（例：http://127.0.0.1/user.asp）filename：为要转换成的HTM文件的文件名（需加后缀），所生成的htm文件在asp2htm.asp所在目录 例： test.htm bodya href="asp2htm.asp?url=http://127.0.0.1/user.aspfilename=userlist.htm"将用户列表生成HTML文件/a/body<br><br>文章网址：<a href="https://dangbai.cn/article.asp?ID=10002686" target="_blank">https://dangbai.cn/article.asp?ID=10002686</a> 填写邮件内容 发信地址 填写发信人的电子邮箱 邮件签名 填写邮件签名  验证码   填写验证码，单击刷新验证码    程序执行中，请稍候... 〖文章发送协议〗 ·欢迎使用本站在线文章发送系统。 ·不得使用本站在线发送邮件系统发送垃圾邮件、广告邮件。 ·如果收信人地址或其服务器出现错误，可能无法成功发送。 ·如果有什么问题，或者意见建议，请联系［网站管理员］。