<!--#Include File="WapConfig/WapHeader.asp"-->
<%
'以下为文件正文。
XML.WriteRow XML.Img(XML.SiteLogo)
XML.WriteOut "<h1>::: 欢迎您的光临！:::</h1>"
XML.WriteOut "<ul><li>"
'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/book.gif") & " 栏目导航</h2>"
XML.WriteOut XML.ImgA("Images/RedDot.gif","QYType.asp","企业黄页") & "　"
XML.WriteRow XML.ImgA("Images/GreenDot.gif","FB.asp","发布信息")
XML.WriteOut XML.ImgA("Images/GreenDot.gif","GBookList.asp","留言反馈") & "　"
XML.WriteRow XML.ImgA("Images/RedDot.gif","AboutUS.asp","关于我们") 

XML.WriteOut "<h2>" & XML.Img("Images/book.gif") & " 信息搜索</h2>"
XML.WriteOut "<form method='post' action='SearchList.asp'>"
XML.WriteOut "关键词:"
XML.WriteOut "<input type='text' name='PostFindText' maxlength='16' size='10' value=''/>"
XML.WriteOut "<input type='submit' value='提交'/>"
XML.WriteOut "</form>"

'以下是数据库的设置信息

XML.WriteOut "<h2>" & XML.Img("Images/book.gif") & " 分类信息</h2>"
XML.GoFileName="AnnounceShow.asp" '连接到页面的文件的名字。
XML.StrSql="Select * From nyeee_type" '要查询数据库的SQL语句。
XML.MdbDo'执行SQL语句。
For I=0 To XML.Rs.RecordCount-1
    XML.WriteOut XML.ImgA("","GQList.asp?ListId=" & XML.UrlEncode(XML.RS("Name"),0),XML.RS("Name"))    
    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 Or I=23 Or I=27 Or I=31 Or I=35 Then XML.WriteRow "" Else XML.WriteOut " | "
    End If
Next

XML.WriteOut "<h2>" & XML.Img("Images/book.gif") & " 最新信息</h2>"
XML.StrSql="select Top 6 * from nyeee_data where mark='yes' and stop >= date() order by top desc,money desc,ADID desc"
XML.MdbDo'执行SQL语句。
For I=0 To XML.Rs.RecordCount-1
    XML.WriteRow XML.ImgA("Images/GreenDot.gif","GQShow.asp?ListId=" & XML.RS("ADId"),XML.RS("Title"))    
    XML.Rs.MoveNext
Next

XML.WriteOut "<h2>" & XML.Img("Images/book.gif") & " 企业黄页</h2>"
XML.StrSql="select Top 6 Id,Name from nyeee_qydata where mark='1' order by id desc"
XML.MdbDo'执行SQL语句。
For I=0 To XML.Rs.RecordCount-1
    XML.WriteRow XML.ImgA("Images/RedDot.gif","QYShow.asp?ListId=" & XML.RS("Id"),XML.RS("Name"))    
    XML.Rs.MoveNext
Next

XML.WriteOut "<h2>" & XML.Img("Images/book.gif") & " 企业搜索</h2>"
XML.WriteOut "<form method='post' action='QYSearchList.asp'>"
XML.WriteOut "关键词:"
XML.WriteOut "<input type='text' name='PostFindText' maxlength='16' size='10' value=''/>"
XML.WriteOut "<input type='submit' value='提交'/>"
XML.WriteOut "</form>"

XML.WriteOut "<h2>" & XML.Img("Images/book.gif") & " 留言反馈</h2>"
XML.StrSql="select Top 3 * from nyeee_words where view=1 order by id desc"
XML.MdbDo'执行SQL语句。
For I=0 To XML.Rs.RecordCount-1
    XML.WriteRow XML.ImgA("Images/GreenDot.gif","GBookShow.asp?ListId=" & XML.RS("Id"),Trim(Left(XML.RS("Words"),16) & "..."))  
    XML.Rs.MoveNext
Next

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