opinionedit.asp

时代购物系统 4.0功能升级说明 <1>完善了3.0的VIP

<!--#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
dim newsid
newsid=request.QueryString("id")
 if request.QueryString("action")="save" then
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from notify where newsid="&newsid,conn,1,3
rs("newsname")=trim(request("newsname"))
rs("addname")=trim(request("addname"))
if request("html")="ubb" then
rs("newscontent")=trim(request("newscontent"))
else
rs("newscontent")=ubbcode(trim(request("newscontent")))
end if
rs("adddate")=now()
rs("book")=trim(request("book"))
rs("reply")=trim(request("reply"))
rs.update
rs.close
set rs=nothing
response.write "<script language=javascript>alert('更改成功！');history.go(-1);</script>"
response.End
end if
%>
<title>回复留言</title>
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select * from notify where newsid="&newsid,conn,1,1

%>
<table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#6699cc">
  <tr> 
    <td> <div align="center"><font color="#FFFFFF">回复留言</font></div></td>
  </tr>
  <tr> 
    <td height="168" valign="top" bgcolor="#FFFFFF"> 
	<form name="form1" method="post" action="opinionedit.asp?action=save&id=<%=newsid%>">
        <br>
        <table width="80%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC">
          <tr> 
            <td width="18%" bgcolor="#FFFFFF" style="PADDING-LEFT: 6px">留言主题：</td>
            <td width="82%" bgcolor="#FFFFFF" style="PADDING-LEFT: 6px"> <INPUT NAME="newsname" TYPE="text" ID="newsname" VALUE=<%=rs("newsname")%>>
              <INPUT NAME="reply" TYPE="text" ID="reply" VALUE=√ SIZE="5"> </td>
          </tr>
          <tr> 
            <td bgcolor="#FFFFFF" style="PADDING-LEFT: 6px">发 表 人：</td>
            <td bgcolor="#FFFFFF" style="PADDING-LEFT: 6px"> <input name="addname" type="text" id="addname" value=<%=trim(rs("addname"))%>> 
            </td>
          </tr>
          <tr> 
            <td valign="top" bgcolor="#FFFFFF" style="PADDING-LEFT: 6px">留言内容：</td>
            <td bgcolor="#FFFFFF" style="PADDING-LEFT: 6px"> <textarea name="newscontent" cols="36" rows="6" id="newscontent"><%=trim(rs("newscontent"))%></textarea> 
            </td>
          </tr>
          <tr> 
            <td valign="top" bgcolor="#FFFFFF" style="PADDING-LEFT: 6px">回　　复：</td>
            <td bgcolor="#FFFFFF" style="PADDING-LEFT: 6px"><TEXTAREA NAME="book" COLS="36" ROWS="6"></TEXTAREA></td>
          </tr>
          <tr> 
            <td height="28" colspan="2" bgcolor="#FFFFFF" style="PADDING-LEFT: 6px"> 
              <div align="center"> 
                <input type="submit" name="Submit" value="提交发表">
                &nbsp; 
                <input name="html" type="checkbox" id="html" value="ubb" checked>
                HTML添加</div></td>
          </tr>
        </table>
      </form></td>
  </tr>
</table>
<%
rs.close
set rs=nothing %>
<br>
 <!--#include file="footer.asp"-->