shi.asp

本代码能自动获取全国各主要省市每日天气预报.查询城市名及返回选择城市天气预报

<!--#include file="Lib/conn.asp"-->
<%
Shi=int(trim(server.htmlencode(request("Shi"))))
set shirs=server.createobject("ADODB.recordset")
shisql="select * from Part2 where part1="&Shi
shirs.open shisql,tconn,1
%>
<%Response.ContentType="text/vnd.wap.wml"%>
<?xml version="1.0" encoding="gb2312"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<card id="Shen1" title="酷游手机家园">
<p align="center">
－天气预报－<br/>
请选择下列城市
</p>
<p>
<%
do
	if shirs.eof then exit do
%>
<a href="Weather.asp?Shi=<%=shirs("value")%>"><%=shirs("name")%></a><br/>
<%
	shirs.movenext
loop until shirs.eof
%>
</p>
<p align="center">
<a href="Shen.asp">返回选择省份</a>
</p>
</card>
</wml>