<!--#Include FILE="WapConfig/WapHeader.asp"-->
<%
'以下为文件正文。
XML.WriteOut "<h2>网址导航</h2>"
XML.WriteOut "<ul><li>"
Id=Request("Id") '主要用于接收本页自己传给自己的参数。
If Request("Id")<>"" Then '接收Id，并转向，
XML.StrSql="Select * From WapUrlList Where Id=" & Id
GoUrl=XML.MdbShow("WapUrl")
XML.StrSql="Update WapUrlLIst Set hits=Hits+1 Where Id=" & Id '更新点击次数。
XML.MdbDo
Response.Redirect GoUrl


End If
'以下是数据库的设置信息
TypeId=Request("TypeId")

XML.StrSql="Select * from WapUrlList Where TypeId=" & TypeId & " Order by [hits] desc"
XML.EveryPageSize=10 '每页显示的记录条数。默认为10。
XML.FieldShow="SiteName" '要显示的记录的字段名称。
'XML.FieldHeader="Id" '数据列表的前缀字段的名字
XML.FieldFooter="Hits" '数据列表的后缀字段的名字
XML.FieldId="Id" '数据库中的关键字段的名称。
XML.GoFileName=XML.ThisFileName '连接到页面的文件的名字。
XML.ErrorPagePath="" '当页面发生错误，或者没有记录时，跳转到的页面。默认为站点首页。
'XML.RsInfoPlace="top" '设置显示的数据集合信息的位置[top\bottom\none,默认是top]
'XML.DBListSymbol="◆" '设置数据记录显示前的符号，默认为空。[新增较V1.5]
XML.DBListNumber=True '设置数据记录前是否显示自动编号数字。[新增较V1.5]
XML.MdbListPagesTwo
If XML.RecordCount=0 then XML.WriteRow "数据库暂无记录。"
XML.WriteRow "网址动态排名!!"
XML.WriteOut "</li></ul>"
'以下为返回链接等
XML.WriteOut XML.Div(,,"N")
XML.WriteRow XML.ImgA("","WapUrlList.asp","返回上级")
%>
<!--#Include FILE="WapConfig/WapFooter.asp"--> 
