📄 view.asp
字号:
</tr>
<%end if%></table></td>
</tr>
<% if session("zdqx")="admin" or session("zdqx")="alladmin" then %>
<tr bordercolor="#0099CC" >
<td height="19" colspan="2" align="right" class="biaogebiankuang">
<% if rsi("m_sh")="false" then response.Write("| <a href='admin_edit.asp?act=sh&id="&rsi("m_id")&" '>通过审核</a>")
if rsi("m_sh")="true" then response.Write("| <a href='admin_edit.asp?act=qxsh&id="&rsi("m_id")&"' >取消审核</a>")
%>
| <a href="edit.asp?id=<%=rsi("m_id")%>"> 编辑</a> |
<% if rsi("m_pb")="false" then
response.Write("<a href='admin_edit.asp?act=pb&id="&rsi("m_id")&" '>屏蔽</a>")
elseif rsi("m_pb")="true" then
response.Write("<a href='admin_edit.asp?act=qxpb&id="&rsi("m_id")&"' >取消屏蔽</a>")
end if%> | <% if rsi("m_jh")="false" then
response.Write("<a href='admin_edit.asp?act=jh&id="&rsi("m_id")&" '>精华</a>")
else
response.Write("<a href='admin_edit.asp?act=qxjh&id="&rsi("m_id")&"' >取消精华</a>")end if%> | <% if rsi("m_ding")="false" then
response.Write("<a href='admin_edit.asp?act=ding&id="&rsi("m_id")&" '>置定</a>")
else
response.Write("<a href='admin_edit.asp?act=qxding&id="&rsi("m_id")&"'>取消置定</a>")end if%>
| <a href="admin_edit.asp?act=del&id=<%=rsi("m_id")%>">删除</a> | IP:<%=rsi("m_ip")%></td>
</tr> <%end if%>
</table>
<%
end if
exec2="select * from zdi where m_con="&request.QueryString("id")&" order by m_time"
set rs2=server.createobject("adodb.recordset")
rs2.open exec2,conn,1,1
zdlou=1
if not rsi.bof and not rsi.eof then
dim page
if request("page")="" then
page=1
else
page=cint(request("page"))
end if
rs2.pagesize=webrenum '每页显示N条记录
rs2.absolutepage=page
dim i
i=rs2.pagesize
end if
do while not rs2.eof and i>0
i=i-1
if rs2("m_user")<>"游客" then
set rs3=server.createobject("adodb.recordset")
exec5="select * from zdu where u_name='"&rs2("m_user")&"'"
rs3.open exec5,conn,1,1
end if
%>
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="0">
<tr>
<td height="15" colspan="3" align="right"> </td>
</tr>
<tr bordercolor="#0099CC" bgcolor="#0099CC">
<td colspan="3" align="left" bgcolor="#0099CC" >
<table width="100%" border="0">
<tr class="dhzi">
<td width="92%" >
<%if rs2("m_bt")="" then
response.Write("RE:"&rsi("m_bt"))
else
response.Write(rs2("m_bt"))
end if%></td>
<td width="8%" align="right">#<%=zdlou%></td>
</tr>
</table></td>
</tr>
<tr bordercolor="#0099CC" >
<td rowspan="3" align="center" valign="top" bordercolor="#0099CC" class="biaogebiankuang"><table width="100%" height="89" border="0">
<tr>
<td align="center"><%=rs2("m_user")%></td>
</tr>
<tr>
<td align="center"><img src="<%if rs2("m_user")="游客" then response.Write("images/face/2.gif") else response.Write(rs3("u_face")) end if%>" border="0" /></td>
</tr>
<tr>
<td align="center">
等级：<font color="#FF0000">
<%ZDdj=rs3("u_qx")
if rs2("m_user")="游客" then
response.Write("游客")
else
select case zddj
case "user"
response.Write("会员")
case "admin"
response.Write("管理员")
case "alladmin"
response.Write("超级管理员")
end select
end if%>
</font></td>
</tr>
</table> </td>
<td width="34%" align="left" class="biaogebiankuang" >发表与：<%=rs2("m_time")%></td>
<td width="49%" align="left" class="biaogebiankuang">
<%if rs2("m_user")<>"游客" then
if not rs3("u_qq")="" then %>
<a href="http://wpa.qq.com/msgrd?V=1&Uin=<%=rs3("u_qq")%>&Site=紫蝶轩留言本&Menu=yes" target="_blank" title="<%=rsu("u_qq")%>">QQ</a> |
<% END IF
if not rs3("u_mail")="" then response.Write("<a href=mailto:"&rs3("u_mail")&">mail</a> | ")
if not rs3("u_home")="" then response.Write("<a href='"&rs3("u_home")&"'target='_blank'>Home</a> |")
end if%> </td>
</tr>
<tr>
<td height="67" colspan="2" align="left" valign="top" class="biaogebiankuang">
<table width="100%" height="100%" border="0" >
<tr>
<td align="left" valign="top" class="A1">
<%if session("zdqx")="admin" or session("zdqx")="alladmin" then
if rs2("m_sh")="false" then
response.Write("<font color='#FF0000'>请等待管理员审核</font><BR>--------------------------------------<BR>")
response.Write(ubbcode(rs2("m_message")))
elseif rs2("m_pb")="true" then
response.Write(" <font color='#FF0000'>以下内容已被管理员屏蔽</font><BR>--------------------------------------<BR>")
response.Write(ubbcode(rs2("m_message")))
else
response.Write(ubbcode(rs2("m_message")))
end if
else
if rs2("m_sh")="false" then
response.Write(" <font color='#FF0000'>请等待管理员审核</font>")
elseif rs2("m_sh")="true" then
if rs2("m_pb")="true" then
response.Write(" <font color='#FF0000'>以下内容已被管理员屏蔽</font>")
elseif rs2("m_pb")="false" then
response.Write(ubbcode(rs2("m_message")))
end if
end if
end if%></td></tr>
<%if rs2("m_user")<>"游客" then%>
<tr>
<td align="right" valign="bottom">
<hr width="30%" align="right" />
<%=ubbcode(rs3("u_qm"))%></td>
</tr><%end if%> </table></td>
</tr>
<% if session("zdqx")="admin" or session("zdqx")="alladmin" then %> <tr bordercolor="#0099CC" >
<td height="19" colspan="2" align="right" class="biaogebiankuang">
<% if rs2("m_sh")="false" then
response.Write("<a href='admin_edit.asp?act=sh&id="&rs2("m_id")&" '>通过审核</a>")
elseif rs2("m_sh")="true" then
response.Write("<a href='admin_edit.asp?act=qxsh&id="&rs2("m_id")&"' >取消审核</a>")
end if%>
| <a href="edit.asp?id=<%=rs2("m_id")%>">编辑</a> |
<% if rs2("m_pb")="false" then
response.Write("<a href='admin_edit.asp?act=pb&id="&rs2("m_id")&" '>屏蔽</a>")
elseif rs2("m_pb")="true" then
response.Write("<a href='admin_edit.asp?act=qxpb&id="&rs2("m_id")&"' >取消屏蔽</a>")
end if%>
| <a href="admin_edit.asp?act=delre&id=<%=rs2("m_id")%>">删除</a> | IP：<%=rs2("m_ip") %> </td></tr>
<%end if%>
</table>
<%
zdlou=zdlou+1
rs2.movenext
loop
%>
</table>
<table width="100%" border="0">
<tr>
<td height="18" align="left" valign="middle" bgcolor="#FFCC99" class="putongziti"><p><a href="view.asp?page=1<%if request.QueryString("id")<>"" then response.Write("&id="&request.QueryString("id"))%>">[第一页]</a>
<%if not page="1" then%>
<a href="view.asp?page=<%=page-1%><%if request.QueryString("id")<>"" then response.Write("&id="&request.QueryString("id"))%>">[上一页]</a>
<%else response.Write("[上一页]") end if%>
<% if rs2.pagecount=0 then
response.Write("[下一页]")
else%>
<%if page<>rs2.pagecount then %>
<a href="view.asp?page=<%=page+1%><%if request.QueryString("id")<>"" then response.Write("&id="&request.QueryString("id"))%>">[下一页]</a>
<% else response.Write("[下一页]")
end if
end if%>
<a href="view.asp?page=<%=rs2.pagecount%><%if request.QueryString("id")<>"" then response.Write("&id="&request.QueryString("id"))%>">[末页]</a> <font color="#FF0000"><%=page%></font>/<%=rs2.pagecount%></p> </td>
</tr>
<% rs2.close
set rs2=nothing
%>
<tr>
<td> </td>
</tr>
</table>
<table width="100%" border="0">
<tr>
<td><%call ksmyre%>
<a name="#re"></a></td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<!--版权-->
<tr>
<td width="100%" height="50" > <%call ksmyboot%></td>
</tr>
</table>
<%rsi.close
set rsi=nothing
rs3.close
set rs3=nothing
rsu.close
set rsu=nothing%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -