<!--#Include FILE="WapConfig/WapHeader.asp"-->
<%
'以下为文件正文，利用ASP函数的部分。
'显示标题
XML.WriteOut "<h2>软件评论</h2>"
XML.WriteOut "<ul><li>"
Dim ListKey : ListKey=Request.QueryString("InfoID") 
Dim ModuleType : ModuleType=Request.QueryString("ModuleType")
If ModuleType<>"" Then
	Session("ModuleType")=ModuleType
	Session(" ListKey")= ListKey
Else
	ModuleType=Session("ModuleType")
	ListKey=Session(" ListKey")
End If

'以下是数据库的设置信息
XML.StrSql="Select * From SQ_Comment Where Passed=True And ModuleType=" & ModuleType & " And InfoID=" & ListKey& " Order By WriteTime Desc" 
XML.EveryPageSize=3'每页显示的记录条数。默认为10。 
XML.RsInfoPlace="top" '设置显示的数据集合信息的位置[top\bottom\none,默认是top]
XML.ErrorPagePath=""
XML.WriteOut XML.MdbMultiList("Content UserName WriteTime Score"," ","内容： 评论人： 时间： 评分：","<br/> <br/> <br/> 分<br/>")
XML.WriteRow XML.A("确定","SoftCommentAdd.asp?ModuleType=" & ModuleType & "&amp;InfoID=" & ListKey,"发表评论")
If XML.RecordCount<1 Then XML.WriteRow "评论未审核，或没有评论。"
XML.WriteOut "</li></ul>"
'以下为返回链接等
XML.WriteOut XML.Div(,,"N")
If Request.QueryString("ComeFrom")="Special" Then '从专题来的查看评论。
XML.WriteRow XML.ImgA("","SoftSpecialShow.asp?ListID=" & ListKey,"返回上级")
ElseIf Request.QueryString("ComeFrom")="Search" Then '从搜索来的查看评论。
XML.WriteRow XML.ImgA("","SoftFindShow.asp?ListID=" & ListKey,"返回上级")
Else
XML.WriteRow XML.ImgA("","SoftShow.asp?ListID=" & ListKey,"返回上级")
End If
%>
<!--#Include FILE="WapConfig/WapFooter.asp"--> 
