chkcomment.asp

来自「一个电子商务网站完整代码,在.net平台下开发」· ASP 代码 · 共 38 行

<!--#include file="conn.asp"-->
<%
if session("admin")="" then
response.Write "<script language='javascript'>alert('请先登录！');history.go(-1);</script>"
response.End
else
if session("rank")>1 then
response.Write "<div align=center><font size=5 color=red><b>你的权限不够！</b></font></div>"
response.End
end if
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=request.QueryString("id")
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%>