ASP教程之网站友谊链接反省程序的基本完成代码

由于ASP提供的是一对多的服务，所以用户的一些特殊需求很难得到满足。查询网页的友谊链接数目和详细的链接网址,本例没有扫除二级（及以上）的域名，没有判别反复的外链,必要的能够本人增强一下.以下是ASP源代码：
<formaction="">URL:<inputname="url_"/><inputtype="submit"name="submit"value="查询"/></form>
<%
IfRequest("url_")""Then
SenFe_GetUrlRequest("url_")
EndIf
SubSenFe_GetUrl(sUrl)
DimsContent,sDomian,oTempReg,I,oMatches,cMatch,sUrl_
sUrl=LCase(sUrl)
IfLeft(sUrl,7)="http://"Then
sDomian=Mid(sUrl,8)
Else
sDomian=sUrl
sUrl="http://"&Url
EndIf
IfInStr(sDomian,"/")ThensDomian=Split(sDomian,"/")(0)
sContent=SenFe_GetData(sUrl)
SetoTempReg=NewRegExp
WithoTempReg
.IgnoreCase=True
.Global=True
.Pattern="(http:(//|\)(([w/+-~`@:%])+.)+([w/.=?+-~`@’:!%#]|(&)|&)+)"
SetoMatches=.Execute(sContent)
ForEachcMatchInoMatches
sUrl_=LCase(cMatch.Value)
IfInStr(sUrl_,sDomian)=0Then
Response.Write(sUrl_&"<br/>"&VbCrLf)
EndIf
Next
EndWith
SetoTempReg=Nothing
EndSub
FunctionSenFe_GetData(sUrl)
DimoXmlHttp:SetoXmlHttp=Server.CreateObject("Msxml2.ServerXMLHTTP")
WithoXmlHttp
.Open"GET",sUrl,False
.SetRequestHeader"Referer",sUrl
.Send
SenFe_GetData=SenFe_BytesToBstr(.ResponseBody,"GB2312")
EndWith
SetoXmlHttp=Nothing
EndFunction
FunctionSenFe_BytesToBstr(sBody,sCset)
DimoAdos:SetoAdos=Server.CreateObject("Adodb.Stream")
WithoAdos
.Type=1
.Mode=3
.Open
.WritesBody
.Position=0
.Type=2
.Charset=sCset
SenFe_BytesToBstr=.ReadText
.Close
EndWith
SetoAdos=Nothing
EndFunction
%>
大家可以自己去看一看.可以说看得想呕吐.以前有次下了个动网来看.里面连基本内置函数的保护措施(函数没防御性)都没有.难怪经常补这个补那个了.可能现在.NET版会好点吧

如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。

接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。

多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。

ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。

不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍

下面简单介绍一下我学习ASP的方法,希望对想学习ASP的朋友有所帮助...

我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。