<!--#Include FILE="WapConfig/WapHeader.asp"-->
<%
'以下为文件正文。
'以下是数据库的设置信息
Dim ListKey : ListKey=Request.QueryString("ListID") '可以为ADID
If ListKey="" Then ListKey= Session("FindId")
XML.StrSql="Select * From nyeee_qydata where id=" & ListKey
'显示标题
XML.WriteOut "<h2>" & XML.MdbShow("Name") & "</h2>"
XML.WriteOut "<ul><li>"

XML.WriteRow "公司名称：" & XML.MdbShow("Name")
XML.WriteRow "主营业务：" & XML.MdbShow("YeWu") 
XML.WriteRow "所属地区：" & XML.MdbShow("City") 
XML.WriteRow "行业类别：" & XML.MdbShow("Lei") 
XML.WriteRow "加入时间：" & formatdatetime(XML.MdbShow("date"),1)
XML.WriteRow "人气指数：" & XML.MdbShow("Hits") 
XML.WriteRow "联系地址：" & XML.MdbShow("Address") 
XML.WriteRow "邮政编码：" & XML.MdbShow("YouBian") 
XML.WriteRow "联 系 人：" & XML.MdbShow("FaRen") 
XML.WriteRow "联系电话：" & XML.MdbShow("Tel") 
XML.WriteRow "公司传真：" & XML.MdbShow("Fax") 
XML.WriteRow "电子邮件：" & XML.MdbShow("Mail") 
XML.WriteRow "企业网址：" & XML.MdbShow("Http")
XML.WriteRow XML.Img("Images/QYInfo.gif")
ShowContent=XML.MdbShow("JieShao")
XML.MorePage ShowContent,TextLong,True
If XML.RecordCount<1 Then XML.WriteRow "暂时没有您要找的信息。"
'更新浏览次数
XML.StrSql="Update nyeee_qydata set Hits=Hits+1 Where ADID=" & ListKey
XML.MdbDo


XML.WriteOut "</li></ul>"
'以下为返回链接等
XML.WriteOut XML.Div(,,"N")
'以下为返回链接等

XML.WriteRow XML.ImgA("Images/back.gif","QYSearchList.asp?Page=" & Session("MyPage"),"返回上级")
%>
<!--#Include FILE="WapConfig/WapFooter.asp"--> 
