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


End If
'以下是数据库的设置信息
'Wap.MdbPath="MyDataBase/#WapUrl.mdb"
TypeId=Request("TypeId")
Wap.WriteOut Wap.P("left","nowrap")

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