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