<!--#include file="byshop_conn.asp"-->
<!--#include file="session.asp"-->
<html>
<head>
<title>留言审核</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css/style.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#D9E6FF">
<%dim action
pinglunid=request.QueryString("id")
action=request.QueryString("action")
if action="save" then
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from pl where pinglunid="&pinglunid,conn,1,3
rs("shenghe")=int(request("shenghe"))
rs("nickName")=request("pinglunname")
rs("contact")=request("pingluntitle")
rs("open")=request("open")
rs("pingluncontent")=rs("pingluncontent")
rs.update
rs.close
set rs=nothing
response.write "<br><br><table width=96% border=0 align=center cellpadding=0 cellspacing=0><tr><td height=86 bgcolor=#F5F5F5><div align=center>"
response.write "审核已成功提交！<br><br><a href=javascript:window.close()>关闭窗口</a></div></td></tr></table>"
response.End
end if
%><%set rs=server.CreateObject("adodb.recordset")
rs.open "select * from pl where pinglunid="&pinglunid,conn,1,3
%>
<table  cellpadding="1" cellspacing="0" border="0" width="100%" class="tableBorder" align="center">
  <tr> 
    <td> 
  <table width="100%" border="1" cellpadding="0" style="border-collapse: collapse" bordercolor="#C0C0C0">
                          <tH colspan="2" height=25 bgcolor="#E8F1FF">审核评论</tH>                         <tr> 
                            <form name="pinglunform" method="post" action="review.asp?action=save&id=<%=pinglunid%>">
                            <td class="forumRowHighlight" width=50% bgcolor="#F7F7F7" >　</td>
                           
                            <td class="forumRowHighlight" bgcolor="#F7F7F7">　审核 <select name="shenghe" >
  <option value="1" <%if rs("shenghe")=1 then %>selected <%end if%> >通过</option>
   <option value="0" <%if rs("shenghe")=0    then %>selected <%end if%> >待审核</option>
    <option value="-1" <%if rs("shenghe")=-1    then %>selected <%end if%> >未通过</option>
</select></td>
                          </tr>
                          <tr> 
                           
                              <td colspan="2" class="forumRowHighlight" bgcolor="#F7F7F7"> 

                                <table width="100%" border="1" cellpadding="2" cellspacing="1" style="border-collapse: collapse" bordercolor="#FFFFFF">
                                  <tr> 
                                    <td width="30%">笔&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 名：</td>
                                    <td width="77%"> 
                                      <input name="pinglunname" type="text" id="pinglunname" size="26" value="<%=rs("nickName")%>" >
                                    </td>
                                  </tr>
                                  <tr> 
                                    <td width="30%"><span lang="zh-cn">联系方式</span>：</td>
                                    <td width="77%"> 
                                      <input name="pingluntitle" type="text" id="contact" size="26" value="<%=rs("contact")%>" >
										<br>
										<input type="radio" value="0" name="open" <%if rs("open")=0 then%> checked <%end if%> class="input1" >不对外公开 
										<input type="radio" value="1" name="open" <%if rs("open")=1 then%> checked <%end if%>   class="input1"  >对外公开）</a></td>
                                  </tr>
                                  <tr> 
                                    <td valign="top">评论内容：</td>
                                    <td> 
                                      <textarea name="pingluncontent" cols="26" rows="5" id="pingluncontent" ><%=rs("pingluncontent")%></textarea>
                                    </td>
                                  </tr>
                                  <tr> 
                                    <td colspan="2"> 
                                      <div align="center"> 
                                        <input type="submit" name="submit" value="提   交">
                                      </div>
                                    </td>
                                  </tr>
                                </table>
<%rs.close
set rs=nothing%>
                              </td>
                            </form>
                          </tr>
                        </table>
    </td>
  </tr>
</table>
</body>
</html>
<%function HTMLEncode2(fString)
	fString = Replace(fString, CHR(13), "")
	fString = Replace(fString, CHR(10) & CHR(10), "</P><P>")
	fString = Replace(fString, CHR(10), "<BR>")
	HTMLEncode2 = fString
end function%>