<!--#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 "字体："
XML.WriteOut XML.ImgA("Images/GreenDot.gif","FontSize.asp?FontSize=Da","大") & "　"
XML.WriteOut XML.ImgA("Images/GreenDot.gif","FontSize.asp?FontSize=Zhong","中") & "　"
XML.WriteRow XML.ImgA("Images/RedDot.gif","FontSize.asp?FontSize=Xiao","小")


'以下是数据库的设置信息
XML.EveryPageSize=16 '每页显示的记录条数。默认为10。
XML.FieldShow="Title" '要显示的记录的字段名称。
XML.FieldId="Id" '数据库中的关键字段的名称。
XML.ErrorPagePath="" '当页面发生错误，或者没有记录时，跳转到的页面。默认为站点首页。
XML.RsInfoPlace="none" '设置显示的数据集合信息的位置[top\bottom\none,默认是top]
'XML.DBListNumber=True '设置数据记录前是否显示自动编号数字。
'XML.DBOrderNumber=True '设置数据记录前是否显示自动编号数字。
'以下为本站公告显示
XML.GoFileName="AnnounceShow.asp" '连接到页面的文件的名字。
XML.StrSql="Select * From SiteAnnounce Order By DateTime Desc" '要查询数据库的SQL语句。
XML.WriteOut "<h2>本站公告</h2>"
XML.MdbList
XML.WriteOut "<h2>栏目导航</h2>"
XML.WriteOut XML.ImgA("Images/RedDot.gif","CompanyInfo.asp","公司简介") & "　"
XML.WriteRow XML.ImgA("Images/RedDot.gif","SiteNewList.asp","企业新闻")
XML.WriteOut XML.ImgA("Images/RedDot.gif","NewsType.asp","行业动态") & "　"
XML.WriteRow XML.ImgA("Images/RedDot.gif","ProductList.asp","产品展示")
XML.WriteOut XML.ImgA("Images/RedDot.gif","SiteSearch.asp","站内搜索") & "　"
XML.WriteRow XML.ImgA("Images/RedDot.gif","FindWorkList.asp","公司招聘") 
XML.WriteOut XML.ImgA("Images/RedDot.gif","AboutUs.asp","联系我们") & "　"
XML.WriteRow XML.ImgA("Images/RedDot.gif","FriendLink.asp","合作伙伴")

XML.WriteOut "<h2>行业资讯</h2>"
XML.StrSql="Select Top 4 * From NewsData Order By D_Time Desc" '要查询数据库的SQL语句。
XML.MdbDo '执行SQL语句。
For I=0 To XML.RecordCount-1
    D_ClassID1=XML.RS("D_ClassID")
    XML.StrSql="Select * From NewsClass where ClassID=" & D_ClassID1
    XML.MdbDo 1
    XML.WriteRow XML.ImgA("Images/GreenDot.gif","NewsShow.asp?ListId=" & XML.RS("D_ID"),"[" & XML.RS1("ClassName") & "]" & XML.RS("D_Title"))
    XML.Rs.MoveNext
Next

XML.WriteOut "<h2>资讯搜索</h2>"
XML.WriteOut "<form method='post' action='NewsFindList.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>产品展示</h2>"
XML.StrSql="Select Top 3 Id,Title,DateTime From ProductList order by DateTime Desc"
XML.MdbDo'执行SQL语句。
For I=0 To XML.RecordCount-1  '请确保产品数量大于几个，比如3. 
    XML.WriteRow XML.ImgA("Images/GreenDot.gif","ProductShow.asp?ListId=" & XML.RS("Id"),XML.RS("Title"))
    XML.Rs.MoveNext
Next

XML.WriteOut "<h2>其他工具</h2>"

XML.WriteOut XML.ImgA("Images/RedDot.gif","WapUrlList.asp","网站导航") & "　"
XML.WriteRow XML.ImgA("Images/RedDot.gif","CityPostType.asp","邮编查询")
XML.WriteOut XML.ImgA("Images/RedDot.gif","DownLoad.asp","图铃下载") & "　"
XML.WriteRow XML.ImgA("Images/RedDot.gif","HotEntList.asp","娱乐快递")
XML.WriteOut XML.ImgA("Images/RedDot.gif","FreeWordList.asp","自由文章") & "　"
XML.WriteRow XML.ImgA("Images/RedDot.gif","VisitCountList.asp","访问统计")
XML.WriteOut XML.ImgA("Images/RedDot.gif","MessageList.asp","信息反馈") & "　"
XML.WriteRow XML.ImgA("Images/RedDot.gif","FriendLinkNew.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.WriteOut "<h2>友情链接</h2>"
XML.StrSql="Select Top 2 F_ID,F_SiteName,F_SiteAdd,F_SiteLogo From FriendLink Where F_HeadShow=True And F_Recycle=True And F_ExamMark=True Order By F_ID Desc,F_AddTime Desc" '要查询数据库的SQL语句。
XML.MdbDo '执行SQL语句。
For I=0 To XML.RecordCount-1
    XML.WriteOut XML.A("",XML.RS("F_SiteAdd"),XML.RS("F_SiteName")) & " "
    XML.Rs.MoveNext
Next
XML.WriteRow XML.IA("Images/More.gif","FriendLink.asp")
'以下进行访问统计
XML.VisitCount "Phone"
%>
<!--#Include File="WapConfig/WapFooter.asp"--> 
