b2b_cm.asp

来自「小型网上购物网站」· ASP 代码 · 共 49 行

<!--#include file="conn.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
if session("admin")="" then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('请先登录！');history.go(-1);</script>"
response.End
else
if request.cookies("Buy2Buy")("admin")="" then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('请先登录！');history.go(-1);</script>"
response.End
end if
end if
if session("rank")>1 then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('你无权查看评论！');window.close();</script>"
response.End
end if
%>
<title>审核评论</title>
<table width="95%" border="0" cellspacing="1" cellpadding="1" bordercolor="6699cc" align="center">
  <tr> 
    <td bgcolor="#FFFFFF">
	<table border="0" cellpadding="0" cellspacing="0" width="100%">
        <tr> 
          <td> 
            <%dim reviewid
reviewid=SafeRequest("id",1)
set rs=server.CreateObject("adodb.recordset")
rs.open "select reviewcontent from review where reviewid="&reviewid,conn,1,1%>
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td><%=trim(rs("reviewcontent"))%></td>
              </tr>
              <tr> 
                <td height="16" align="center"><a href="javascript:window.close()">关闭窗口</a></td>
              </tr>
            </table></td>
        </tr>
      </table> </td>
  </tr>
</table>
<%rs.close
set rs=nothing%>