掌握中国(wap.zhangwo.cn)天气源程序


答案：<%@ Language=VBScript%>
<%Response.ContentType="text/vnd.wap.wml"%>
<?xml version="1.0" encoding="gb2312"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapfourm.org/DTD/wml_1.1.xml">
<wml>
<head>
<meta http-equiv="Cache-Control" content="must-revalidate"/>
<meta http-equiv="Cache-Control" content="no-cache"/>
<meta http-equiv="Cache-Control" content="private"/>
</head>

<card title="天气:掌握中国" >
<do type ="options" label='掌握中国'>
<go href=>http://wap.zhangwo.cn"/>
</do>
<p>
<%Response.Expires=0
dim input()
id=Request.QueryString("id")
if id=Vbempty then id=1
lyfile = server.mappath("data.asp")
Set fs = CreateObject("Scripting.FileSystemObject")
Set thisfile = fs.OpenTextFile(lyfile,1,False)
counter = 0
do while not thisfile.AtEndOfStream
thisline = thisfile.readline
Redim preserve input(counter)
input(counter) = thisline
counter = counter + 1
loop
thisfile.Close
lynumber=(counter-1)/10
Response.Write "" & input(0) & "<br/>"
%>
<br/>
</p>
<p mode="nowrap" align="left">
<a title="确定" href=>http://wap.zhangwo.cn">返回掌握中国</a>
</p>
<p align="left">
--------------<br/>
wap.zhangwo.cn<br/>
掌握中国   版权所有<br/>
客服QQ:  35733243<br/>
</p>
</card>
</wml>