仓酷云

标题: ASP网页设计抓取动网论坛Email地点的一段代码 [打印本页]

作者: 仓酷云 时间: 2015-1-16 22:36
标题: ASP网页设计抓取动网论坛Email地点的一段代码
专业性的服务。有的ASP商提供垂直型的应用服务，针对某一特定行业提供应用服务。抓取动网论坛Email地点的一段代码
/**
慈勤强
Email:cqq1978@gmail.com
http://blog.csdn.net/cqq
**/

比来，一向想着怎样宣扬我们的新网站，http://www.up114.com。
seo天然是首选，但是也不克不及放过邮件群发，固然邮件群发被人所不齿，
不外，只需选定了群发的工具，少发点，应当没甚么吧，：=――。

以是就找了一些相干主题的论坛，很多多少都是动网的论坛，如今就是必要把论坛用户的Email地点
搜集上去，网上也有卖专门的工具，不外明天我们就本人写个小工具，一样可以到达效果。

代码以下，用记事本等文本编纂工具，保留成dv.vbs
在利用之前，必要你先到谁人论坛，注册个用户然后上岸出来

利用办法：c:cscriptdv.vbs就能够了。

汇集的email地点的保留地位
strFile="d:email.txt"
srtUrl="http://bbs.aaa.com"
iStart=1用户ID最小值
iEnd=1000用户ID最年夜值
Fori=iStarttoiEnd

strUrl1=strUrl&"/dispuser.asp?id="&cstr(i)
strRet=OpenUrl(strurl1)

strRet=getMid(strRet,"mailto:",">")这个中央大概必要天真做一些改动
Ifimod100=0then
callWriteToFile(strFile,strA)
strA=""
else
ifstrRet""thenstrA=strA&strRet&vbCrLf
endif

Wscript.Echoi&vbTab&strRet
Next

SubWriteToFile(strFile,str)
Dimfso,f
Setfso=CreateObject("Scripting.FileSystemObject")
Setf=fso.OpenTextFile(strfile,8,True)
f.Writestr
setf=nothing
setfso=nothing
EndSub

Functionbytes2BSTR(vIn)
Dimi
strReturn=""
Fori=1ToLenB(vIn)
ThisCharCode=AscB(MidB(vIn,i,1))
IfThisCharCode<&H80Then
strReturn=strReturn&Chr(ThisCharCode)
Else
NextCharCode=AscB(MidB(vIn,i+1,1))
strReturn=strReturn&Chr(CLng(ThisCharCode)*&H100+CInt(NextCharCode))
i=i+1
EndIf
Next
bytes2BSTR=strReturn
EndFunction

FunctionOpenUrl(strUrl)

onErrorResumeNext
Setxmlhttp=CreateObject("Microsoft.XMLHTTP")
xmlhttp.open"GET",(strUrl),false
xmlhttp.send
OpenUrl=bytes2BSTR(xmlhttp.ResponseBody)

Setxmlhttp=Nothing
EndFunction
FunctiongetMid(str,str1,str2)
Dimi
Dimj
str11=""
i=InStr(str,str1)
Ifi>0Then
j=InStr(i,str,str2)
Ifj>0Then
str11=Mid(str,i+Len(str1),j-i-Len(str1))
EndIf
EndIf
getMid=str11
EndFunction
ASP由于使用了COM组件所以它会变的十分强大，但是这样的强大由于WindowsNT系统最初的设计问题而会引发大量的安全问题。只要在这样的组件或是操作中一不注意，哪么外部攻击就可以取得相当高的权限而导致网站瘫痪或者数据丢失；

作者: 因胸联盟 时间: 2015-1-18 18:15
跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组

作者: 谁可相欹 时间: 2015-1-22 20:30
Session:这个存储跟客户端会话过程的数据，默认20分钟失效

作者: 只想知道 时间: 2015-1-31 11:25
不能只是将它停留在纸上谈兵的程度上。

作者: 不帅 时间: 2015-2-6 19:11
运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。

作者: 深爱那片海 时间: 2015-2-18 08:59
以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。

作者: 小妖女 时间: 2015-3-6 03:21
Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名")

作者: 老尸 时间: 2015-3-12 19:27
跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组

作者: admin 时间: 2015-3-20 02:10
从事这个行业，那么你可以学ASP语言，简单快速上手，熟练dreamweav排版，写asp代码，熟练photoshop处理图片，打好基础就行了

欢迎光临仓酷云 (http://ckuyun.com/)