📄 show_author.asp
字号:
<%
dim UserID,UserName,id
UserID=request.cookies("CnEndWeb_User")("log_UserID")
UserName=request.cookies("CnEndWeb_User")("log_UserName")
id=CheckSql(request("id"))
CheckSqlnum(id)
id=int(id)
set rs_s=server.createobject("adodb.recordset")
sql="select * 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") = true then
response.write "<script language=javascript>alert('对不起,您要查看的作家已经被锁定! ');history.back(-1);</script>"
response.end
end if
%>
<table cellSpacing="0" cellPadding="0" width="100%" border="0" valign="top" bgcolor="#FFFFFF">
<tr>
<td vAlign="top" align="middle">
<div style="PADDING-BOTTOM: 10px; PADDING-TOP: 10px">
<table cellSpacing="0" cellPadding="0" width="100%" border="0" valign="top">
<tr>
<td vAlign="top" align="left" width="60" rowSpan="2">
<div style="PADDING-RIGHT: 20px; PADDING-LEFT: 10px; PADDING-BOTTOM: 10px">
<img src="authorface/<%=rs_s("author_face")%>.gif"></div>
</td>
<td vAlign="top" align="left" width="100%">
<div style="PADDING-TOP: 10px">
<a name="d"><%=rs_s("author_name")%></a> ，<%=rs_s("author_sex")%>，【 驻站作家 】</div>
</td>
</tr>
<tr>
<td vAlign="top" align="left" width="65%"> </td>
</tr>
<tr>
<td style="BORDER-TOP: #788145 groove; PADDING-TOP: 5px; BORDER-BOTTOM: 000000 1px solid" vAlign="top" align="left" width="100%" colSpan="2">
【作家介绍】<br>
<div style="PADDING-BOTTOM: 5px; PADDING-TOP: 5px">
<%=rs_s("author_resume")%></div>
</td>
</tr>
<tr>
<td align="left" width="100%" colSpan="2" style="BORDER-BOTTOM: 000000 1px solid">
<div style="PADDING-BOTTOM: 10px; PADDING-TOP: 10px">
【作家作品】</div>
</td>
</tr>
<%
set rsab=server.createobject("adodb.recordset")
sqlab="select id,list_name,newviewname,newviewid,list_gxdate,list_hit,list_jian,list_lei from list_book where list_Adminid="&ID&" order by id desc"
rsab.open sqlab,conn,1,1
if rsab.eof and rsab.bof then
%><tr align="center" valign="middle">
<td height=24 colspan="6" class="style1"><b>没有发表任何作品</b></td>
</tr>
<%else%>
<tr>
<td vAlign="top" align="middle" width="100%" colSpan="2">
<table width="98%" align="center" border="1" valign="top" cellspacing="0" cellpadding="0" bordercolordark="#0D2A32" bordercolorlight="#0D2A32" bordercolor="#EBC77D">
<tr>
<td vAlign="top" align="middle" width="10%" height="24">
<b>类别</b></td>
<td vAlign="top" align="left" width="18%">
<b>书名</b></td>
<td vAlign="top" align="left" width="36%">
<b>当前章节</b></td>
<td vAlign="top" align="middle" width="15%">
<b>更新时间</b>
</td>
<td vAlign="top" align="middle" width="7%">
<b>点击</b>
</td>
<td vAlign="top" align="middle" width="7%">
<b>推荐</b></td>
</tr>
<%do while not rsab.eof%>
<tr>
<td style="BORDER-TOP: #eeeeee 1px solid" vAlign="top" align="middle" height="24">
<%
dim list_lei
list_lei=rsab("list_lei")
set rsabc=server.createobject("adodb.recordset")
sqlabc="select list_classname from list_class where list_classID="&list_lei&""
rsabc.open sqlabc,conn,1,1
if rsabc.eof and rsabc.bof then
else%>[<%=rsabc("list_classname")%>]
<%
end if
rsabc.close
set rsabc=nothing
%></td>
<td vAlign="top" align="left">
<a href="look_book.asp?id=<%=rsab("id")%>">
<%=rsab("list_name")%></a></td>
<td vAlign="top" align="left">
<a target="_blank" href="view_book.asp?id=<%=rsab("newviewid")%>">
<font color=#5d5d5d><%if rsab("newviewname")<>"" then%><%=rsab("newviewname")%><%else%>暂无更新<%end if%></font></a></td>
<td vAlign="top" align="middle">
<%=rsab("list_gxdate")%></td>
<td vAlign="top" align="middle">
<%=rsab("list_hit")%></td>
<td vAlign="top" align="middle">
<%=rsab("list_jian")%></td>
</tr>
<%
rsab.movenext
loop
rsab.close
set rsab=nothing
end if%>
</table>
</td>
</tr>
</table>
<br>
<table cellSpacing="0" cellPadding="0" width="100%" border="0" valign="top">
<tr>
<td style="BORDER-TOP: #000000 1px solid; PADDING-BOTTOM: 10px; LINE-HEIGHT: 160%; PADDING-TOP: 10px" vAlign="top" align="left" colSpan="2">
[ 重要提示 ]<br>
<div style="PADDING-RIGHT: 5px; PADDING-LEFT: 10px; PADDING-TOP: 3px">
作者留言区请不要发表人身攻击作者或者催稿的言辞，如发现一律删除，并且罚扣相应的积分。如果对作品浏览、或对作品的内容、版权或其他方面有质疑，或对本站有意见或建议请到<a target="_blank" href="kfindex.asp"><font color="blue">客服中心</font></a>发帖或查看<a target="_blank" href="readme.asp"><font color="blue">在线帮助</font></a>，感谢您的合作与支持</div>
</td>
</tr>
<tr>
<td align="middle" colSpan="2">
<table style="BORDER-TOP: #000000 1px solid" cellSpacing="0" cellPadding="0" width="100%" border="0" valign="top">
<tr height="23">
<td align="middle" width="100%"> [ 书友最新十条评论 ]</a> [
<a target="_blank" href="commentlist.asp?info=author&id=<%=id%>">
查看作者的全部评论</a> ] [
<a target="_blank" href="goodcommentlist.asp?info=author&id=<%=id%>">
查看作者的精华评论</a> ]</td>
</tr>
<tr bgColor="#ffffff">
<td style="LINE-HEIGHT: 200%" vAlign="top" align="left">
<%
pencat="<table width=98% border=0 align=center cellpadding=0 cellspacing=0>"
set rs=server.CreateObject("adodb.recordset")
if IsSqlDataBase = 2 then
sql="select id,txttitle,txttime,username,Islink,hits from news where Istop = 1 and Iscontent = 0 and Ntype=2 order by id desc limit 2"
else
sql="select top 2 id,txttitle,txttime,username,Islink,hits from news where Istop = 1 and Iscontent = 0 and Ntype=2 order by id desc"
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
else
do while not rs.eof
if rs("Islink")=1 then
pencat=pencat&"<tr><td style='PADDING-BOTTOM: 3px;PADDING-top: 5px;line-height:150%;'>※ <font color=#FF0000>[置顶]</font> <font color=#FF0000>[公告]</font> <a href="&SiteSystemPath&"gonggaodisp.asp?id="&rs("txtcontent")&">"&rs("txttitle")&"</a></td>"
pencat=pencat&"<td align=right width=130>"&rs("UserName")&"〈"&formatdatetime(rs("txttime"),2)&"〉</td></tr><tr><td colspan=2 bgcolor=#666666 align=center height=1></td></tr>"
else
pencat=pencat&"<tr><td style='PADDING-BOTTOM: 3px;PADDING-top: 5px;line-height:150%;'>※ <font color=#FF0000>[置顶]</font> <font color=#FF0000>[公告]</font> <a href="&SiteSystemPath&"gonggaodisp.asp?id="&rs("id")&">"&rs("txttitle")&"</a></td>"
pencat=pencat&"<td align=right width=130>"&rs("UserName")&"〈"&formatdatetime(rs("txttime"),2)&"〉</td></tr><tr><td colspan=2 bgcolor=#666666 align=center height=1></td></tr>"
end if
rs.movenext
loop
end if
rs.close
set rs=nothing
set rs=server.CreateObject("adodb.recordset")
if IsSqlDataBase = 2 then
sql="select id,txttitle,txtcontent,txttime,username,Islink,hits from news where Istop = 0 and Iscontent = 0 and Ntype=2 order by id desc limit 2"
else
sql="select top 2 id,txttitle,txtcontent,txttime,username,Islink,hits from news where Istop = 0 and Iscontent = 0 and Ntype=2 order by id desc"
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
else
do while not rs.eof
if rs("Islink")=1 then
pencat=pencat&"<tr><td style='PADDING-BOTTOM: 3px;PADDING-top: 5px;line-height:150%;'>※ <font color=#FF0000>[公告]</font> <a href="&rs("txtcontent")&">"&rs("txttitle")&"</a></td>"
pencat=pencat&"<td align=right width=130>"&rs("UserName")&"〈"&formatdatetime(rs("txttime"),2)&"〉</td></tr><tr><td colspan=2 bgcolor=#666666 align=center height=1></td></tr>"
else
pencat=pencat&"<tr><td style='PADDING-BOTTOM: 3px;PADDING-top: 5px;line-height:150%;'>※ <font color=#FF0000>[公告]</font> <a href="&SiteSystemPath&"gonggaodisp.asp?id="&rs("id")&">"&rs("txttitle")&"</a></td>"
pencat=pencat&"<td align=right width=130>"&rs("UserName")&"〈"&formatdatetime(rs("txttime"),2)&"〉</td></tr><tr><td colspan=2 bgcolor=#666666 align=center height=1></td></tr>"
end if
rs.movenext
loop
end if
rs.close
set rs=nothing
set rs=server.CreateObject("adodb.recordset")
if IsSqlDataBase = 2 then
sql="select txtcontent from news where Iscontent=1 and Ntype=2 order by id desc limit 1"
else
sql="select top 1 txtcontent from news where Iscontent=1 and Ntype=2 order by id desc"
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
else
do while not rs.eof
pencat=pencat&"<tr><td colspan=2 style='PADDING-BOTTOM: 3px;PADDING-top: 5px;line-height:150%;'>※ <font color=#FF0000>[公告]</font> "&rs("txtcontent")&"</td></tr>"
pencat=pencat&"<tr><td colspan=2 bgcolor=#666666 align=center height=1></td></tr>"
rs.movenext
loop
end if
rs.close
set rs=nothing
response.write pencat&"</table>"
response.write "<table width=98% border=0 align=center cellpadding=0 cellspacing=0>"
Set rsp1 = Server.CreateObject("ADODB.Recordset")
if IsSqlDataBase = 2 then
sql = "select IsGood,Content,UserName,WriteTime from Comment where type_ID="&id&" and IsTop=1 and Commenttype=2 order by Commentid desc"
else
sql = "select IsGood,Content,UserName,WriteTime from Comment where type_ID="&id&" and IsTop=1 and Commenttype=2 order by Commentid desc"
end if
rsp1.open sql, conn, 1, 1
if rsp1.eof and rsp1.bof then
else
do while not rsp1.eof
response.write "<tr><td style='PADDING-BOTTOM: 3px;PADDING-top: 5px;line-height:150%;'>※ <font color=#FF0000>[置顶]</font>"
if rsp1("IsGood")=1 then
response.write " <font color=#FF0000>[精华]</font> "
end if
response.write rsp1("Content")&"</td><td align=right width=130>"&rsp1("UserName")&"〈"&formatdatetime(rsp1("WriteTime"),2)&"〉</td></tr>"
response.write "<tr><td colspan=2 bgcolor=#666666 align=center height=1></td></tr>"
rsp1.movenext
loop
end if
rsp1.close
set rsp1=nothing
Set rsp = Server.CreateObject("ADODB.Recordset")
if IsSqlDataBase = 2 then
sql = "select IsGood,Content,UserName,WriteTime from Comment where type_ID="&id&" and IsTop=0 and Commenttype=2 order by Commentid desc limit 10"
else
sql = "select top 10 IsGood,Content,UserName,WriteTime from Comment where type_ID="&id&" and IsTop=0 and Commenttype=2 order by Commentid desc"
end if
rsp.open sql, conn, 1, 1
if rsp.eof and rsp.bof then
response.write "<tr><td colspan=2 align=center class=font>没有数据可查询</td></tr>"
else
do while not rsp.eof
response.write "<tr><td style='PADDING-BOTTOM: 3px;PADDING-top: 5px;line-height:150%;'>※"
if rsp("IsGood")=1 then
response.write " <font color=#FF0000>[精华]</font> "
end if
response.write rsp("Content")&"</td><td align=right width=130>"&rsp("UserName")&"〈"&formatdatetime(rsp("WriteTime"),2)&"〉</td></tr>"
response.write "<tr><td colspan=2 bgcolor=#666666 align=center height=1></td></tr>"
rsp.movenext
loop
response.write "</table>"
end if
rsp.close
set rsp=nothing%>
</td>
</tr>
</table>
<table border="0" cellspacing="0" cellpadding="0" width="97%" align="left" valign="top">
<form action="CommentSave.asp?act=author&id=<%=rs_s("author_id")%>" method="post" name="bookup">
<tr>
<td width="100%" valign="top" class="font">
<input type="text" name="001" <%if username="" or isnull(userid) then response.write("value='您没有登陆,注册用户发表评论可得积分!'") else response.write("value='您已经登陆,请发表对本作者的评论!'")%> disabled size="38">
*<%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'> <b>"&randm&"</b></span>"
end if%></td>
</tr>
<tr>
<td align="left" width="100%" valign="top" class="font">
<textarea rows="6" cols="100" name="Content" maxlength="230" class="think" style="width: 600; height: 100"></textarea><br>
<input type="button" value="计算字数" class="stbtm" onclick="javascript:alert("帖子内容长度: "+document.bookup.Content.value.length+" 个字，\n最多允许<%=CommentSize%>字。");">
<input title="严禁使用任何html、javascript脚本或其他非法性字符，请少于<%=CommentSize%>字！" type="submit" value="发送书评" class="stbtm" name="sendup" onclick="bookupsubmit();">
严禁使用任何html、javascript脚本或其他非法性字符
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>
</div>
</td>
</tr>
</table>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -