本 站 搜 索

发 送 文 章 做ASP小偷时.经常需要用到的函数 〖评论()〗〖留言〗〖收藏〗 收信地址 填写收信人的电子邮箱 邮件主题 填写邮件主题 邮件内容 采集页面: Function GetPage(url) dim SendData,Retrieval Set Retrieval = CreateObject(Microsoft.XMLHTTP) With Retrieval .Open post, url, False .setRequestHeader Content-Type, application/x-www-form-urlencoded .setRequestHeader User-agent, Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0; .NET CLR 1.1.4322) .Send() GetPage = BytesToBstr(.ResponseBody) End With Set Retrieval = Nothing End Function 转换乱码: Function BytesToBstr(body) 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 = GB2312 BytesToBstr = objstream.ReadText objstream.Close set objstream = nothing End Function 获取指定的内容 Function GetContent(str,start,last,n) If Instr(lcase(str),lcase(start))0 then select case n case 0 ’左右都截取（都取前面）（去处关键字） GetContent=Right(str,Len(str)-Instr(lcase(str),lcase(start))-Len(start)+1) GetContent=Left(GetContent,Instr(lcase(GetContent),lcase(last))-1) case 1 ’左右都截取（都取前面）（保留关键字） GetContent=Right(str,Len(str)-Instr(lcase(str),lcase(start))+1) GetContent=Left(GetContent,Instr(lcase(GetContent),lcase(last))+Len(last)-1) case 2 ’只往右截取（取前面的）（去除关键字） GetContent=Right(str,Len(str)-Instr(lcase(str),lcase(start))-Len(start)+1) end select Else GetC End if end function 删除HTML标签: function DelHtml(htmlCode) dim iStart,iEnd dim sTemp sTemp=htmlCode iStart=instr(sTemp,) iEnd=instr(sTemp,) do while iStart0 and iEnd0 and iEnd-iStart0 sTemp=replace(sTemp,mid(sTemp,iStart,iEnd-iStart+1),) iStart=instr(sTemp,) iEnd=instr(sTemp,) loop DelHtml=sTemp end function<br><br>文章网址：<a href="https://dangbai.cn/article.asp?ID=10002781" target="_blank">https://dangbai.cn/article.asp?ID=10002781</a> 填写邮件内容 发信地址 填写发信人的电子邮箱 邮件签名 填写邮件签名  验证码   填写验证码，单击刷新验证码    程序执行中，请稍候... 〖文章发送协议〗 ·欢迎使用本站在线文章发送系统。 ·不得使用本站在线发送邮件系统发送垃圾邮件、广告邮件。 ·如果收信人地址或其服务器出现错误，可能无法成功发送。 ·如果有什么问题，或者意见建议，请联系［网站管理员］。