<!--#Include FILE="WapConfig/WapHeader.asp"-->
<%
'以下可以写文件正文 
Dim FreeWordId : FreeWordId=Request("FreeWordId")
If FreeWordId<>"" Then 
	Session("FreeWordId")=FreeWordId
Else 
	FreeWordId=Session("FreeWordId")
End If
XML.StrSql="Select FreeWordId,Id,Title,Content,DateTime,PersonName From FreeWordReply Where FreeWordId = " & FreeWordId & " order by DateTime Desc" '要查询数据库的SQL语句。
XML.EveryPageSize=17 '每页显示的记录条数。默认为10。
XML.RsInfoPlace="None"
XML.FieldShow="Title"
XML.FieldHeader="PersonName"
XML.FieldFooter="DateTime"
XML.FieldId="Id"
XML.GoFileName="FreeWord_ReplyShow.asp"
XML.ErrorPagePath=XML.WapPath & "FreeWord_ReplyNew.asp?WhatToDo=YouAreFirst&amp;FreeWordId=" & FreeWordId '当无评论时，跳到发表评论页面
'显示标题
XML.WriteOut "<h2>请勿发表不良言论。</h2>"
XML.WriteOut "<ul><li>"
XML.MdbList()
XML.WriteOut "</li></ul>"
'以下为返回链接等
XML.WriteOut XML.Div(,,"N")
XML.WriteRow XML.A("","FreeWord_ReplyNew.asp?FreeWordId=" & FreeWordId,"发表评论")
XML.WriteRow XML.A("","FreeWordShow.asp?Id=" & FreeWordId & "&amp;ListId=" & FreeWordId,"返回文章")
%>
<!--#Include FILE="WapConfig/WapFooter.asp"--> 
