<!--#Include FILE="WapConfig/WapHeader.asp"-->
<%
'以下为文件正文。
'以下是数据库的设置信息
Dim ListKey : ListKey=Request.QueryString("ListID") '可以为ADID
If ListKey="" Then ListKey= Session("FindId")
XML.StrSql="select * from nyeee_data where adid=" & ListKey
'显示标题
XML.WriteOut "<h2>" & XML.MdbShow("Title") & "</h2>"
XML.WriteOut "<ul><li>"
if XML.MdbShow("pic")<>"" then
XML.WriteRow XML.Img(XML.BuildSmallPic("../adpic/" & XML.MdbShow("pic"),"../adpic/",170,170),"服务器不支持ASPJPEG组件。")
Else
XML.WriteRow "暂无图片"
End If
GQType=XML.MdbShow("Type")
XML.WriteRow "信息类别：" & XML.MdbShow("Type")
XML.WriteRow "联系人：" & XML.MdbShow("username")
XML.WriteRow "Email：" & XML.MdbShow("Email")
XML.WriteRow "联系电话：" & XML.MdbShow("Tel")
XML.WriteRow "QQ：" & XML.MdbShow("QQ")
XML.WriteRow "发布时间：" & XML.MdbShow("Date")
if XML.MdbShow("top")="1" then
XML.WriteRow "固顶广告 有效期还有" & datediff("d",date(),XML.MdbShow("stop")) & "天"
else
if XML.MdbShow("money")<>"0" then
XML.WriteRow "竞价广告 有效期还有" & datediff("d",date(),XML.MdbShow("stop")) & "天"
else
XML.WriteRow "↑有效期还有" & datediff("d",date(),XML.MdbShow("stop")) & "天↑"
end if
end if
ShowContent=XML.MdbShow("Text")
XML.MorePage ShowContent,TextLong,True
If XML.RecordCount<1 Then XML.WriteRow "暂时没有您要找的信息。"

'以下关于上一条、下一条记录
XML.RsInfoPlace="None"
XML.ErrorPagePath=""
XML.FieldId="ADID"
XML.FieldShow="Title"
XML.GoFileName="GQShow.asp"
If Session("ListOrder")="" Or Lcase(Session("ListOrder"))="desc" Then
	XML.WriteOut "下："
	XML.StrSql="Select Top 1 * from nyeee_data where ADID<" & ListKey & "And mark='yes' and stop >= date() And Type='" & Session("D_ListID") & "' Order By ADID Desc"
	XML.MdbList : If XML.RecordCount<1 Then XML.WriteRow "无"
	XML.WriteOut "上："
	XML.StrSql="Select Top 1 * from nyeee_data where ADID>" & ListKey & "And mark='yes' and stop >= date() And Type='" & Session("D_ListID") & "' Order By ADID Asc"
	XML.MdbList : If XML.RecordCount<1 Then XML.WriteRow "无"
Else
	XML.WriteOut "下："
	XML.StrSql="Select Top 1 * from nyeee_data where ADID>" & ListKey & "And mark='yes' and stop >= date() And Type='" & Session("D_ListID") & "' Order By ADID Desc"
	XML.MdbList : If XML.RecordCount<1 Then XML.WriteRow "无"
	XML.WriteOut "上："
	XML.StrSql="Select Top 1 * from nyeee_data where ADID<" & ListKey & "And mark='yes' and stop >= date() And Type='" & Session("D_ListID") & "' Order By ADID Asc"
	XML.MdbList : If XML.RecordCount<1 Then XML.WriteRow "无"
End If

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

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