<!--#Include FILE="WapConfig/WapHeader.asp"-->
<%
'以下为文件正文。
XML.WriteOut "<h2>网址导航</h2>"
XML.WriteOut "<ul><li>"
'以下是数据库的设置信息
XML.WriteOut "请选择网站类别："
XML.StrSql="Select * from WapUrlType"
XML.MdbDo '执行SQL语句。
For I=0 To XML.Rs.RecordCount - 1 
	if i MOd 3=0 then '每三项换行。
	    XML.WriteRow ""
	Else
	    XML.WriteOut " | "
	end if
	    XML.WriteOut XML.A("确定","WapUrlShow.asp?TypeId=" & XML.Rs("TypeId"),XML.Rs("TypeName"))
XML.Rs.MoveNext
Next
	    XML.WriteRow ""
XML.WriteRow "网址动态排名!!"
XML.WriteOut "</li></ul>"
'以下为返回链接等
XML.WriteOut XML.Div(,,"N")
XML.WriteRow XML.ImgA("","Index.asp","返回上级")
%>
<!--#Include FILE="WapConfig/WapFooter.asp"--> 
