goodcommentlist.asp

功能介绍： 一、会员功能模块 1、站内短信发布(设计中) 2、书架收藏夹 3、发表评论(功能不完善) 4、申请作家(与添书员整合) 5、申请添书员(与作家整合) 6、申请更新员

					<tr>
						<td colspan="2" bgcolor="#666666" align="center" height="1">
						</td>
					</tr><%
rsp.movenext
loop
%>
					</tr>
				</table>
<%end if
rsp.close
set rsp=nothing
	Set rsp1 = Server.CreateObject("ADODB.Recordset")
	sql = "select * from [Comment] where type_ID="&id&" and IsTop=0 and IsGood=1 and Commenttype=2 order by Commentid desc"
	rsp1.open sql, conn, 1, 1
	if rsp1.eof and rsp1.bof then%>
						<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
							<tr>
								<td align="center" class="font">没有数据可查询</td>
							</tr>
						</table>
				<%else%>
				<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
					<%do while not rsp1.eof%>
					<tr>
						<td style="PADDING-BOTTOM: 3px;PADDING-top: 5px;line-height:150%;">
						※ <%if rsp1("IsGood")=1 then response.write "<font color=#FF0000>[精华]</font> " end if%><%=rsp1("Content")%></td>
						<td align="right" width="130"><%=rsp1("UserName")%>〈<%=formatdatetime(rsp1("WriteTime"),2)%>〉</td>
					</tr>
					<tr>
						<td colspan="2" bgcolor="#666666" align="center" height="1">
						</td>
					</tr><%
rsp1.movenext
loop
%>
					</tr>
				</table>
<%end if
rsp1.close
set rsp1=nothing
rs_s.close
set rs_s=nothing%> </td>
			</tr>
		</table>
		<br>
		<table border="0" cellspacing="0" cellpadding="0" width="100%" align="left" valign="top">
			<form action="CommentSave.asp?act=author&id=<%=id%>" method="post" name="authorup">
				<tr>
					<td width="100%" valign="top" class="font">&nbsp;&nbsp;&nbsp;
									<input type="text" name="001" <%if username="" or isnull(userid) then response.write("value='您没有登陆,注册用户发表评论可得积分!'") else response.write("value='您已经登陆,请发表对本作家的评论!'")%> disabled size="38">&nbsp; 
									*<%if WebpinglunLOCKNum=1 then
randomize
randm=Int((900000*rnd)+100000)
response.write "验证码：<input name=randm1 type=text class=form size=10 maxlength=20><input type=hidden name=randm2 value="&randm&">"
response.write "<span style='font-family: Georgia;border: 1 solid #808080;background-color: #e8e8e8'>&nbsp;<b>"&randm&"</b></span>"
end if%></td>
				</tr>
				<tr>
					<td align="left" width="100%" valign="top" class="font">&nbsp;&nbsp;&nbsp;
					<textarea rows="6" cols="100" name="Content" maxlength="230" class="think" style="width: 600; height: 100"></textarea><br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
					<input type="button" value="计算字数" class="stbtm" onclick="javascript:alert(&quot;帖子内容长度: &quot;+document.bookup.Content.value.length+&quot; 个字，\n最多允许<%=CommentSize%>字。&quot;);">
					<input title="严禁使用任何html、javascript脚本或其他非法性字符，请少于<%=CommentSize%>字！" type="submit" value="发送书评" class="stbtm" name="sendup" onclick="bookupsubmit();">&nbsp; 
					严禁使用任何html、javascript脚本或其他非法性字符&nbsp;&nbsp;&nbsp;&nbsp; </td>
				</tr>
			</form>
		</table>
<%end sub%>

<%Sub user()
set rs_s=server.createobject("adodb.recordset")
sql="select NAME,LockUser from userinfo where id="&id&""
rs_s.open sql,conn,1,1
if not(rs_s.bof and rs_s.eof) then
	else
	response.write "<script language=javascript>alert('对不起,您要查看的会员不存在或已经被删除! ');history.back(-1);</script>"
	response.end 
end if
if rs_s("LockUser") = 1 then
	response.write "<script language=javascript>alert('对不起,您要查看的会员已经被锁定! ');history.back(-1);</script>"
	response.end 
end if
%>
		<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
			<tr>
				<td height="30" align="center" class="font"><br>
				<font face="隶书" size="4" color="#800000">《<%=rs_s("NAME")%>》的全部评论</font>
				<hr size="3"></td>
			</tr>
			<tr>
				<td><% 	Dim rsp
	Set rsp = Server.CreateObject("ADODB.Recordset")
	sql = "select * from [Comment] where type_ID="&id&" and IsTop=1 and IsGood=1 and Commenttype=3 order by Commentid desc"
	rsp.open sql, conn, 1, 1
	if rsp.eof and rsp.bof then%>
				<%else%>
				<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
					<%do while not rsp.eof%>
					<tr>
						<td style="PADDING-BOTTOM: 3px;PADDING-top: 5px;line-height:150%;">
						※ <font color=#FF0000>[置顶]</font><%if rsp("IsGood")=1 then response.write " <font color=#FF0000>[精华]</font>" end if%> <%=rsp("Content")%></td>
						<td align="right" width="130"><%=rsp("UserName")%>〈<%=formatdatetime(rsp("WriteTime"),2)%>〉</td>
					</tr>
					<tr>
						<td colspan="2" bgcolor="#666666" align="center" height="1">
						</td>
					</tr><%
rsp.movenext
loop
%>
					</tr>
				</table>
<%end if
rsp.close
set rsp=nothing
	Set rsp1 = Server.CreateObject("ADODB.Recordset")
	sql = "select * from [Comment] where type_ID="&id&" and IsTop=0 and IsGood=1 and Commenttype=3 order by Commentid desc"
	rsp1.open sql, conn, 1, 1
	if rsp1.eof and rsp1.bof then%>
						<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
							<tr>
								<td align="center" class="font">没有数据可查询</td>
							</tr>
						</table>
				<%else%>
				<table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
					<%do while not rsp1.eof%>
					<tr>
						<td style="PADDING-BOTTOM: 3px;PADDING-top: 5px;line-height:150%;">
						※ <%if rsp1("IsGood")=1 then response.write "<font color=#FF0000>[精华]</font> " end if%><%=rsp1("Content")%></td>
						<td align="right" width="130"><%=rsp1("UserName")%>〈<%=formatdatetime(rsp1("WriteTime"),2)%>〉</td>
					</tr>
					<tr>
						<td colspan="2" bgcolor="#666666" align="center" height="1">
						</td>
					</tr><%
rsp1.movenext
loop
%>
					</tr>
				</table>
<%end if
rsp1.close
set rsp1=nothing
rs_s.close
set rs_s=nothing%> </td>
			</tr>
		</table>
		<br>
		<table border="0" cellspacing="0" cellpadding="0" width="100%" align="left" valign="top">
			<form action="CommentSave.asp?act=user&id=<%=id%>" method="post" name="userup">
				<tr>
					<td width="100%" valign="top" class="font">&nbsp;&nbsp;&nbsp;
									<input type="text" name="001" <%if username="" or isnull(userid) then response.write("value='您没有登陆,注册用户发表评论可得积分!'") else response.write("value='您已经登陆,请发表对本会员的评论!'")%> disabled size="38">&nbsp; 
									*<%if WebpinglunLOCKNum=1 then
randomize
randm=Int((900000*rnd)+100000)
response.write "验证码：<input name=randm1 type=text class=form size=10 maxlength=20><input type=hidden name=randm2 value="&randm&">"
response.write "<span style='font-family: Georgia;border: 1 solid #808080;background-color: #e8e8e8'>&nbsp;<b>"&randm&"</b></span>"
end if%></td>
				</tr>
				<tr>
					<td align="left" width="100%" valign="top" class="font">&nbsp;&nbsp;&nbsp;
					<textarea rows="6" cols="100" name="Content" maxlength="230" class="think" style="width: 600; height: 100"></textarea><br>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
					<input type="button" value="计算字数" class="stbtm" onclick="javascript:alert(&quot;帖子内容长度: &quot;+document.bookup.Content.value.length+&quot; 个字，\n最多允许<%=CommentSize%>字。&quot;);">
					<input title="严禁使用任何html、javascript脚本或其他非法性字符，请少于<%=CommentSize%>字！" type="submit" value="发送书评" class="stbtm" name="sendup" onclick="bookupsubmit();">&nbsp; 
					严禁使用任何html、javascript脚本或其他非法性字符&nbsp;&nbsp;&nbsp;&nbsp; </td>
				</tr>
			</form>
		</table>
<%end sub%>