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