📄 show_user.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 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 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="100%">
<div style="PADDING-TOP: 10px">
<a name="d"><%=rs_s("NAME")%></a> ，<%=rs_s("Sex")%>，【 注册会员 】</div>
</td>
</tr>
<tr>
<td vAlign="top" align="left"></td>
</tr>
<tr>
<td align="left" width="100%" colSpan="2" style="BORDER-TOP: #788145 groove; PADDING-TOP: 5px; BORDER-BOTTOM: 000000 1px solid">
<div style="PADDING-BOTTOM: 10px; PADDING-TOP: 10px">
【会员文集】</div>
</td>
</tr>
<%
set rsbclass=server.createobject("adodb.recordset")
sqlbclass="select Ar_id,Ar_name,Ar_userid,Ar_hist,Ar_jian,Ar_class,Ar_data,Ar_size from Article where Ar_userid="&id&" and Ar_lock=0 and Ar_nolook=0 order by Ar_id desc"
rsbclass.open sqlbclass,conn,1,1
if rsbclass.eof and rsbclass.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 align="middle" height="24">
<td class="xt" Align="center" align="middle" width="10%">
<b><font color="#003399">类别</font></b></td>
<td class="xt" Align="center" align="middle" width="28%">
<b><font color="#003399">文章名称</font></b></td>
<td class="xt" Align="center" align="middle" width="12%">
<b><font color="#003399">点击</font></b></td>
<td class="xt" Align="center" align="middle" width="10%">
<b><font color="#003399">推荐</font></b></td>
<td class="xt" Align="center" align="middle" width="12%">
<b><font color="#003399">字数</font></b></td>
<td class="xt" Align="center" borderColorLight="#666666" align="middle" width="12%">
<b><font color="#003399">更新时间</font></b></td>
</tr>
<%do while not rsbclass.eof%>
<tr height="24">
<td class="xt" vAlign="top" align="middle">
<%set rs1=server.CreateObject("ADODB.recordset")
sql="select classname from Ar_class where id="&rsbclass("Ar_class")
rs1.open sql,conn,1,1
if rs1.eof and rs1.bof then
response.write "被删除"
else
%>[<a target="_blank" href="list_userbook.asp?id=<%=rsbclass("Ar_class")%>"><%=rs1("classname")%></a>]<%end if
rs1.close
set rs1=nothing
%></td>
<td class="xt" vAlign="top" align="left">
<a target="_blank" href="read_userbook.asp?id=<%=rsbclass("Ar_id")%>"><%=rsbclass("Ar_name") %></a></td>
<td class="xt" vAlign="top" align="middle">
<%=rsbclass("Ar_hist")%></td>
<td class="xt" vAlign="top" align="middle">
<%=rsbclass("Ar_jian")%></td>
<td class="xt" vAlign="top" align="middle">
<%=rsbclass("Ar_size")%></td>
<td class="xt" vAlign="top" align="middle">
<%=formatdatetime(rsbclass("Ar_data"),2)%>
</td>
</tr>
<%
rsbclass.movenext
loop
rsbclass.close
set rsbclass=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=user&id=<%=id%>">
查看会员的全部评论</a> ] [
<a target="_blank" href="goodcommentlist.asp?info=user&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=3 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=3 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=3 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=3 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=3 order by id desc limit 1"
else
sql="select top 1 txtcontent from news where Iscontent=1 and Ntype=3 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="&rs_s("id")&" and IsTop=1 and Commenttype=3 order by Commentid desc"
else
sql = "select IsGood,Content,UserName,WriteTime from Comment where type_ID="&rs_s("id")&" and IsTop=1 and Commenttype=3 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="&rs_s("id")&" and IsTop=0 and Commenttype=3 order by Commentid desc limit 10"
else
sql = "select top 10 IsGood,Content,UserName,WriteTime from Comment where type_ID="&rs_s("id")&" and IsTop=0 and Commenttype=3 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=user&id=<%=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 + -