showauthor_review.asp

本源代码为终点小说连载系统 v1.15 Build 0430 SQL清风修改版,欢迎大家下载,学习与交流

<%
dim UserID,UserName,id
UserID=session("UserID")
UserName=session("UserName")
id=CheckSql(request("id"))
CheckSqlnum(id)
if id="" then
response.Redirect "index.asp"
response.End
end if
id=int(id)
set rs_s=server.createobject("adodb.recordset")
sql="select author_name,author_lock from author where author_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("author_lock") = 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("author_name")%>》的全部评论</font>
				<hr size="3"></td>
			</tr>
			<tr>
				<td><% 	Dim rsp
	Set rsp = Server.CreateObject("ADODB.Recordset")
	sql = "select * from [author_Comment] where author_ID="&id&" and IsTop=1 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 [author_Comment] where author_ID="&id&" and IsTop=0 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="author_CommentSave.asp?act=add&id=<%=id%>" method="post" name="bookup">
				<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; 
					*</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"></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最多允许240字。&quot;);">
					<input title="严禁使用任何html、javascript脚本或其他非法性字符，请少于240字！" type="submit" value="发送书评" class="stbtm" name="sendup" onclick="bookupsubmit();">&nbsp; 
					严禁使用任何html、javascript脚本或其他非法性字符&nbsp;&nbsp;&nbsp;&nbsp; </td>
				</tr>
			</form>
		</table>