<!--#Include File="WapConfig/WapHeader.asp"-->
<%
'以下为文件正文。
XML.WriteRow XML.Img(XML.SiteLogo)
XML.WriteOut "<h1>::: 欢迎您的光临！:::</h1>"

'XML.WriteOut "<h2>语言选择</h2>"
'设置简体繁体。
XML.WriteOut XML.ImgA("Images/RedDot.gif","FontType.asp?FontType=Simple","简体中文") & "　"
XML.WriteRow XML.ImgA("Images/GreenDot.gif","FontType.asp?FontType=Complex","繁體中文")

XML.WriteOut "<h2>" & XML.Img("Images/Poss.gif") & " 随机推荐</h2>"

XML.StrSql="Select * From WapSite"
XML.MdbDo
ZongShu=XML.RecordCount : ZongShu=XML.RndNumber(ZongShu)
XML.StrSql="Select * From WapSite Where Id=" & ZongShu
XML.WriteRow XML.ImgA("Images/arrow.gif","UrlShow.asp?ListId=" & ZongShu,XML.MdbShow("Title"))

XML.WriteOut "<h2>" & XML.Img("Images/Poss.gif") & " 栏目导航</h2>"

XML.StrSql="Select * From Class Where ParentID=0 Order By ListId Asc"
XML.MdbDo'执行SQL语句。
For I=0 To XML.Rs.RecordCount-1
    XML.WriteOut XML.ImgA("","UrlType.asp?ListId=" & XML.RS("Id"),XML.RS("ClassName"))    
    XML.Rs.MoveNext
    If I<XML.Rs.RecordCount-1 Then	
	If I=3 Or I=7 Or I=11 Or I=15 Or I=19 Then XML.WriteRow "" Else XML.WriteOut " | "
    End If
Next

XML.WriteOut "<h2>" & XML.Img("Images/book.gif") & " 点击排行</h2>"

XML.StrSql="Select top 6 * From WapSite Where State=True Order By ID Asc"
XML.EveryPageSize=10
XML.FieldShow="Title"
XML.FieldId="ID"
XML.FieldFooter="ClickTotal"
XML.GoFileName="UrlShow.asp"
XML.ErrorPagePath=""
XML.RsInfoPlace="none"
XML.DbListTypeMode=9 '当为9时，可以设置DbListImgPath的属性值。
XML.DbListImgPath="Images/Dot.gif"
XML.MdbList

XML.WriteOut "<h2>" & XML.Img("Images/book.gif") & " 其他工具</h2>"
XML.WriteOut XML.ImgA("Images/RedDot.gif","VisitCountList.asp","访问统计") & "　"
XML.WriteRow XML.ImgA("Images/RedDot.gif","CityPostType.asp","邮编查询")
XML.WriteOut XML.ImgA("Images/RedDot.gif","WeekQuery.asp","星期查询") & "　"
XML.WriteRow XML.ImgA("Images/RedDot.gif","CallPhone.asp","在线呼叫")
XML.WriteOut XML.ImgA("Images/RedDot.gif","GoUrl.asp","转到网址") & "　"
XML.WriteRow XML.ImgA("Images/RedDot.gif","SendMail.asp","发送邮件")

'以下进行访问统计
XML.MdbPath="MyDataBase/#Company.mdb"
XML.VisitCount "Phone"
%>
<!--#Include File="WapConfig/WapFooter.asp"--> 
