📄 infocom.asp
字号:
<%@ codepage ="936" %>
<%
if Request.Cookies("globalec")("globalecmaster")="" or Request.Cookies("globalec")("masterflag")="" then
response.write "<script language='javascript'>"
response.write"this.location.href='../login.asp';</SCRIPT>"
response.end
end if
if instr(Request.Cookies("globalec")("masterflag"),"73")=0 then
response.redirect "../err.asp"
response.end
end if
%>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
<HTML><HEAD><TITLE>意见与建议</TITLE>
<META content=zh-cn http-equiv=Content-Language>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<LINK href="../css/style.css" rel=stylesheet type=text/css>
</HEAD>
<BODY>
<table width="98%" border="0" cellspacing="0" cellpadding="0" align=center class="tableBorder">
<tr>
<th class="tableHeaderText" colspan=2 height=25>会员评价管理</th>
</tr>
<tr>
<td class="forumRowHighlight" colspan=2><p><B>注意</B>：<BR><font color=blue>①点击审核即为通过，点吉已审核既为不通过。</font><BR>
</td>
</tr>
<tr>
<td width="12%" height=25 class="forumRowHighlight">
<B>管理操作选项</B></td>
<td width="88%" class=forumRowHighlight><a href="infocom.asp?pass=0">待审会员评价</a> | <a href="infocom.asp?pass=1">已审会员评价</a> | [<a href="javascript:location.reload()">刷新页面</a>]</td>
</tr>
</table>
<br>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" class="tableBorder">
<tr>
<th class="tableHeaderText" height=25>会员评价管理</th>
<tr>
<td>
<%
if Chkrequest(request("pass")) then
pass=replace_text(request("pass"))
else
Response.Redirect ("/login/chklogin.asp?login=4")
end if
sql="select * from infocom"
if pass>"" then sql=sql&" where pass="&pass&""
sql=sql&" order by com_ID desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1
msg_per_page=10 '定义每页显示记录条数
%>
<!--#include file="../../inc/headpage.asp"-->
<%
if rs.eof then
response.write"<br><br><div align=center>暂无数据信息</div><br><br>"
else
do while not rs.eof
%>
<table width="100%" border="0" cellspacing="1" cellpadding="3" align="center" style="word-wrap: break-word; word-break: break-all;">
<tr>
<td width="86%" height="20" valign="top" class=forumRowHighlight> <font color="#CC3300"><b>评价人:</b></font>
<% =rs("pjrname") %> <font color="#CC3300"><b>Email:</b></font><a href="mailto:<% =rs("pjremail")%>"><% =rs("pjremail")%></a>
</td>
<td width="14%" valign="top" class=forumRowHighlight><%if rs("pass")=0 then%><a href="pass1.asp?com_id=<%=rs("com_id")%>">审核</a><%else%><a href="pass.asp?com_id=<%=rs("com_id")%>">已审核</a><%end if%> <a href="del.asp?com_id=<%=rs("com_id")%>&pass=<%=rs("pass")%>">删除</a></td>
</tr>
<tr>
<td height="35" colspan="2" valign="top" class="forumRow"> <font color="#333333"> 标题：<% =rs("pj_name")%></font><br><br>
内容：<br>
<% =rs("pj_count")%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="73%" align="right"><font color="#CC3300"><b>被评咨讯:</b></font> <%
sql1="select newsid,title from news where newsid="&rs("bpjid")&""
set rs1=conn.execute(sql1)
response.write"<a href=""/info/shownews.asp?newsid="&rs1("newsid")&""" target=""_blank"">"&rs1("title")&"</a>"
%></td>
</tr>
</table></td>
</tr>
</table>
<hr>
<%
rs.movenext
loop
end if
%>
<table width="100%" border="0" cellspacing="2" cellpadding="2" align="center">
<tr>
<td width="6%" valign="top" align="center" class=forumrowHighLight>
<b><%=listPages("infocom.asp?pass="&pass&"&hf="&request("hf")&"")%></b>
</td>
</tr>
</table>
</td>
</tr>
</table>
</BODY>
</HTML>
<br>
<!--#include file="../copy.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -