comment.asp

一个ＡＳＰ网站博克程序

<%

	Class Comment
		
		'添加评论界面
		Public Sub Comment(intItem)
			%><table width="580" cellpadding="0" cellspacing="0" border="0"><%
			%><caption><li type="square">添加评论</li></caption><%
			%><form name="comment" action="Comment.asp" method="post" onsubmit="return (comment.value.value!=''&&comment.label.value!='');"><%
			%><input type="hidden" name="id" value="<% = intItem %>"><%
			%><tr align="left" valign="middle"><%
			%><td width="100%" class="guider">评论内容（必填）：</td><%
			%></tr><%
			%><tr align="left" valign="middle"><%
			%><td width="100%" class="guider"><textarea name="value" rows="15" cols="45"></textarea></td><%
			%></tr><%
			%><tr align="left" valign="middle"><%
			%><td width="100%" class="guider">评论者姓名（必填）：</td><%
			%></tr><%
			%><tr align="left" valign="middle"><%
			%><td width="100%" class="guider"><input type="text" name="label" size="35" maxlength="50"></td><%
			%></tr><%
			%><tr align="left" valign="middle"><%
			%><td width="100%" class="guider">评论者电子邮件：</td><%
			%></tr><%
			%><tr align="left" valign="middle"><%
			%><td width="100%" class="guider"><input type="text" name="email" size="35" maxlength="50"></td><%
			%></tr><%
			%><tr align="left" valign="middle"><%
			%><td width="100%" class="guider"><input type="submit" value="添加评论" class="button">&nbsp; <input type="checkbox" name="hide" value="1" class="check">只有日志作者可见</td><%
			%></tr><%
			%></form><%
			%></table><%			
		End Sub
		
		'评论显示列表
		Public Sub CommentList(intItem)
			%><table width="580" cellpadding="0" cellspacing="0" border="0"><%
			%><caption><li type="square">评论列表</li></caption><%
			%><tr align="left"><%
			%><td width="580" class="ground"><%
			Set objDBMS = New LarrixDBMS
			objDBMS.Open "SELECT * FROM [Comments] WHERE [ItemID]=" & intItem & " AND [CommentHID]=0 ORDER BY [CommentID] DESC" , 1
			If objDBMS.objRSET.BOF And objDBMS.objRSET.EOF Then
				%>当前还没有任何评论！<%
			Else
				While Not objDBMS.objRSET.EOF
					%><table width="100%" cellpadding="0" cellspacing="0" border="0" class="comment"><%
					%><tr align="left" valign="middle"><%
					%><td width="100%" class="ground"><%
					%><% = Server.HTMLEncode(objDBMS.objRSET("CommentLAB")) %> 评论说：<br><% = Server.HTMLEncode(objDBMS.objRSET("CommentVAL")) %><br>电子邮件：<% = Server.HTMLEncode(objDBMS.objRSET("CommentEML")) %> &nbsp;|&nbsp; 日期时间：<% = objDBMS.objRSET("CommentDTM") %><%
					%></td><%
					%></tr><%
					%></table><%
					objDBMS.objRSET.MoveNext
				Wend
			End If
			objDBMS.Close
			Set objDBMS = Nothing
			%></td><%
			%></tr><%
			%></table><%
		End Sub
		
		'评论统计
		Public Function CommentCount(intItem)
			Dim objDBMS
			Set objDBMS = New LarrixDBMS
			objDBMS.Open "SELECT * FROM [Comments] WHERE [ItemID]=" & intItem, 1
			If objDBMS.objRSET.BOF And objDBMS.objRSET.EOF Then
				CommentCount = 0
			Else
				CommentCount = objDBMS.objRSET.RecordCount
			End If
			objDBMS.Close
			Set objDBMS = Nothing
		End Function
		
	End Class

%>