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