newsedit.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 news 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.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 news where newsid="&newsid,conn,1,1%>
<table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#6699cc">
  <tr> 
    <td align="center"><font color="#FFFFFF">更改网站新闻</font></td>
  </tr>
  <tr> 
    <td height="50" valign="top" bgcolor="#FFFFFF"> 
	<form name="form1" method="post" action="newsedit.asp?action=save&id=<%=newsid%>">
        <br>
        <table width="80%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC">
          <tr bgcolor="#FFFFFF"> 
            <td width="20%">&nbsp;新闻主题：</td>
            <td width="80%">&nbsp;<input name="newsname" type="text" id="newsname" value=<%=trim(rs("newsname"))%>> 
            </td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td>发 表 人：</td>
            <td> <input name="addname" type="text" id="addname" value=<%=trim(rs("addname"))%>> 
            </td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td valign="top">新闻内容：</td>
            <td> <textarea name="newscontent" cols="36" rows="6" id="newscontent"><%=trim(rs("newscontent"))%></textarea> 
            </td>
          </tr>
          <tr bgcolor="#FFFFFF" align="center"> 
            <td height="28" colspan="2" bgcolor="#FFFFFF" style="PADDING-LEFT: 6px"> 
              <input type="submit" name="Submit" value="提交发表">
                &nbsp; <input name="html" type="checkbox" id="html" value="ubb" checked>
                HTML添加</td>
          </tr>
        </table>
      </form></td>
  </tr>
</table>
<br>
<!--#include file="footer.asp"-->