<!--#Include FILE="WapConfig/WapHeader.asp"-->
<%
'以下为文件正文。
'以下是数据库的设置信息
Dim ListKey : ListKey=Request.QueryString("ListID") 
If ListKey<>"" Then Session("FindId")=ListKey Else ListKey=Session("FindId")
XML.StrSql="select Title,Content From SQ_Announce where ID=" & ListKey
'显示标题
XML.WriteOut "<h2>" & XML.MdbShow("Title") & "</h2>"
XML.WriteOut "<ul><li>"
ShowContent=XML.MdbShow("Content")
ShowContent=Replace(ShowContent,"[NextPage]","") '去掉动易的手工分页。
XML.MorePage XML.DelHtml(ShowContent),TextLong,True
If XML.RecordCount<1 Then XML.WriteRow "暂时没有您要找的信息。"
XML.WriteOut "</li></ul>"
'以下为返回链接等
XML.WriteOut XML.Div(,,"N")
XML.WriteRow XML.ImgA("","Index.asp","返回上级")
%>
<!--#Include FILE="WapConfig/WapFooter.asp"--> 
