<!--#Include FILE="WapConfig/WapHeader.asp"-->
<%
'以下为正文
XML.WriteOut "<ul><li>"
'以下是数据库的设置信息
	ListKey=Trim(Request.QueryString("ListId"))
	BackTypePage=Request.QueryString("MyPage")
If ListKey<>"" Then
	Session("ListKey")=ListKey
	Session("BackTypePage")=BackTypePage
Else
	ListKey=Session("ListKey")
	BackTypePage=Session("BackTypePage")
End If
XML.StrSql="Select * From WapSite where ID=" & ListKey
URL=XML.MdbShow("Url")

XML.StrSql="Update WapSite set ClickTotal=ClickTotal+1 where Id=" & ListKey
XML.MdbDo
XML.Redirect URL
XML.WriteOut "</li></ul>"

If XML.RecordCount<1 Then XML.WriteRow "暂时没有您要找的信息。"
'以下为返回链接等
XML.WriteOut XML.Div(,,"N")
XML.WriteRow XML.A("","UrlList.asp?Page=" & Session("BackTypePage"),"返回上级")

%>
<!--#Include FILE="WapConfig/WapFooter.asp"--> 
 
