发送文章__当百网

文章·资料	电脑软件	手机软件	网站源码
电脑·手机·网络学习话题娱乐故事文化·历史国学典籍法律法规	操作系统网络办公·文件音频视频图形图像硬件·驱动程序行业教学学习编程游戏	安卓苹果鸿蒙其他	ASP ASP.NET JSP PHP HTML·CSS·JavaScript

本站搜索

发送文章

做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>

填写邮件内容

发信地址

填写发信人的电子邮箱

邮件签名

填写邮件签名

验证码

填写验证码，单击刷新验证码

发送协议

·欢迎使用本站在线文章发送系统。
·不得使用本站在线发送邮件系统发送垃圾邮件、广告邮件。
·如果收信人地址或其服务器出现错误，可能无法成功发送。
·如果有什么问题，或者意见建议，请联系［网站管理员］。

当百网

本站使用【啊估文章软件站】网站系统〖网站管理员留言簿〗