<!--#Include FILE="WapConfig/WapHeader.asp"-->
<%
'以下为文件正文。
'以下是数据库的设置信息
Dim ListKey : ListKey=Request.QueryString("ListId")
If ListKey="" Then ListKey= Session("FindId")
Wap.StrSql="Select PersonName,Content,DateTime,Title From FreeWord Where Id=" & ListKey
ShowContent=Wap.MdbShow("Content")
ShowContent="标题:" & Wap.MdbShow("Title") & "<br/>" & "发表人:" & Wap.MdbShow("PersonName") & "<br/>" & ShowContent
Wap.MorePage ShowContent,TextLong
'以下为返回链接等
Wap.WriteRow Wap.ImgA("","FreeWord_FindText.asp","文章搜索")
'以下为关于评论的信息
Wap.StrSql="Select * From FreeWordReply Where FreeWordId=" & ListKey
Wap.MdbDo
Wap.WriteRow Wap.ImgA("","FreeWord_ReplyList.asp?FreeWordId=" & ListKey,"发表评论[" & Wap.RecordCount & "条]")
'以下关于上一条、下一条记录
Wap.RsInfoPlace="None"
Wap.ErrorPagePath=""
Wap.DBIsShowImage=False
Wap.GoFileName="FreeWordShow.asp"
If Session("ListOrder")="" Or Lcase(Session("ListOrder"))="desc" Then
	Wap.WriteOut "下："
	Wap.StrSql="Select Top 1 * from FreeWord Where Id<" & ListKey & " Order By Id Desc"
	Wap.MdbList : If Wap.RecordCount<1 Then Wap.WriteRow "无"
	Wap.WriteOut "上："
	Wap.StrSql="Select Top 1 * from FreeWord Where Id>" & ListKey & " Order By Id Asc"
	Wap.MdbList : If Wap.RecordCount<1 Then Wap.WriteOut "无"
Else
	Wap.WriteOut "下："
	Wap.StrSql="Select Top 1 * from FreeWord Where Id>" & ListKey & " Order By Id Desc"
	Wap.MdbList : If Wap.RecordCount<1 Then Wap.WriteRow "无"
	Wap.WriteOut "上："
	Wap.StrSql="Select Top 1 * from FreeWord Where Id<" & ListKey & " Order By Id Asc"
	Wap.MdbList : If Wap.RecordCount<1 Then Wap.WriteOut "无"
End If
Wap.WriteRow ""
Wap.WriteRow Wap.ImgA("","FreeWordList.asp?Page=" & Session("MyPage"),"返回上级")
%>
<!--#Include FILE="WapConfig/WapFooter.asp"--> 
