<!--#Include FILE="WapConfig/WapHeader.asp"-->
<%
'以下为文件正文，利用ASP函数的部分。
'显示标题
XML.WriteOut "<h2>邮编查询-城市列表</h2>"
XML.WriteOut "<ul><li>"
	TypeId=Trim(Request.QueryString("ListId"))
	BackTypePage=Request.QueryString("MyPage")
If TypeId<>"" Then
	Session("TypeId")=TypeId
	Session("BackTypePage")=BackTypePage
Else
	TypeId=Session("TypeId")
	BackTypePage=Session("BackTypePage")
End If
'以下是数据库的设置信息
XML.StrSql="Select CityDataId,CityName From CityData Where CityId='" & TypeId & "'"
'XML.EveryPageSize=10
XML.FieldShow="CityName"
XML.FieldId="CityDataID"
XML.GoFileName="CityPostShow.asp"
'XML.ErrorPagePath=""
XML.MdbList()
XML.WriteOut "</li></ul>"
'以下为返回链接等
XML.WriteOut XML.Div(,,"N")
XML.WriteRow XML.ImgA("","CityPostType.asp?Page=" & Session("BackTypePage"),"返回上级")
%>
<!--#Include FILE="WapConfig/WapFooter.asp"-->
 
