ASP网页编程之asp制造的天色预告小偷程序

减少客户内IT专业人才缺乏带来的影响。ASP的客户员工利用浏览器进入相关的应用软件，简单易用，无需专业技术支持。程序|天色预告|小偷程序|天色预告|小偷程序利用申明:
提交乡村名参数便可:weather.asp?city=北京
以下是weather.asp源代码：
<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%>
<%
onerrorresumenext
dimfcity
fcity=trim(request("city"))
iffcity=""then
fcity=server.urlencode("北京")
endif
FunctionGetURL(url)
SetRetrieval=CreateObject("Microsoft.XMLHTTP")
WithRetrieval
.Open"GET",url,False
.Send
GetURL=bytes2bstr(.responsebody)
iflen(.responsebody)<100then
response.write"猎取天色<ahref="&url&"target=_blank>"&url&"</a>失利。"
response.end
endif
EndWith
SetRetrieval=Nothing
EndFunction
functionbytes2bstr(vin)
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
FunctionReadTextarea(HTMLstr)
Setra=NewRegExp
ra.IgnoreCase=True
ra.Global=True
ra.Pattern=".{0,}<TEXTAREA[^>]+>([.
s        ]+?)</TEXTAREA>.{0,}"
ReadTextarea=ra.replace(HTMLstr,"&#36;1")
ENDFunction
FunctionGetKey(HTML,Start,Last)
filearray=split(HTML,Start)
filearray2=split(filearray(1),Last)
GetKey=filearray2(0)
EndFunction
dimhtmlstr
dimw_date,w_pic1,w_pic2,w_m1,w_m2,w_m3
htmlstr=GetURL("http://weather.tq121.com.cn/mapanel/index1.php?city="&fcity&"")
w_date=GetKey(htmlstr,"<spanclass=""big-cn"">","</span>")
w_pic1=GetKey(htmlstr,"<tdwidth=""70""valign=""top"">","</td>")
w_m2=GetKey(htmlstr,"<tdwidth=""160""align=""center""valign=""top""class=""weatheren"">","</td>")
w_m3=GetKey(htmlstr,"<tdwidth=""153""valign=""top""><spanclass=""big-cn"">","</span>")
Response.CharSet="GB2312"
Response.Write"<tablewidth=""100%""border=""0""cellspacing=""0""cellpadding=""0"">"
Response.Write"<tr>"
Response.Write"<tdwidth=""45%""style=""text-align:center;""></span>
<p>
<scriptsrc="weather.js"language="javascript"></script>
</p>
<formname="form1"id="form1">
<selectname="menu1">
<optionvalue="">请选择乡村</option>
<optionvalue="北京">北京</option>
<optionvalue="上海">上海</option>
<optionvalue="南宁">南宁</option>
</select>
<div>天色预告小偷程序示例</div>
</form>
</body>
</html>
假如必要现成的示例程序,请点击以下链接在本站下载栏面前目今载:
http://www.alixixi.com/down/Search.asp?wd=%CC%EC%C6%F8%D4%A4%B1%A8%BD%D3%BF%DA
asp可以使用微软的activeX使得网页功能无比强大，不过安全性也较差，而且是基于的windows服务器，所以性能稳定性也一般

代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。

ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。　　因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。

我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。

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

哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的?

以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。

用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。

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