shen.asp

来自「天气预报的一个简单wap程序」· ASP 代码 · 共 51 行

<!--#include file="Lib/conn.asp"-->
<%
set shenrs=server.createobject("ADODB.recordset")
shensql="select * from Part1"
shenrs.open shensql,tconn,1
shens=0
%>
<%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 shenrs.eof then exit do
	Response.Write ("<a href='Shi.asp?Shi="&shenrs("id")&"'>"&shenrs("name")&"</a><br/>")
	shenrs.movenext
	shens=shens+1
loop until shenrs.eof or shens=15
%>
</p>
<p align="center">
<a href="#Shen2">下一页</a>
</p>
</card>

<card id="Shen2" title="酷游手机家园">
<p align="center">
－天气预报－<br/>
请选择下列省份
</p>
<p>
<%
do
	if shenrs.eof then exit do
	Response.Write ("<a href='Shi.asp?Shi="&shenrs("id")&"'>"&shenrs("name")&"</a><br/>")
	shenrs.movenext
loop until shenrs.eof
%>
</p>
<p align="center">
<a href="#Shen1">上一页</a>
</p>
</card>
</wml>