newsedit.asp

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

<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<%
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.form("newsname"))
rs("addname")=trim(request.form("addname"))
if request.form("html")="ubb" then
rs("newscontent")=trim(request.form("newscontent"))
else
rs("newscontent")=ubbcode(trim(request.form("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><%=webname%>--新闻快讯</title>
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select * from news where newsid="&newsid,conn,1,1%> 
<TABLE WIDTH="90%" BORDER="0" ALIGN="center" CELLPADDING="1" CELLSPACING="1" BGCOLOR=<%=bgclr1%>> 
<TR><TD ALIGN="center" colspan="2"><FONT COLOR="#FFFFFF"><%=webname%>--新闻快讯</FONT></TD></TR> 
<TR> 
<TD WIDTH="18%" BGCOLOR=<%=bgclr4%> STYLE="PADDING-LEFT: 6px">新闻主题：</TD>
<TD WIDTH="82%" BGCOLOR=<%=bgclr4%> STYLE="PADDING-LEFT: 6px"> <%=trim(rs("newsname"))%> </TD>
</TR> <TR>
 <TD BGCOLOR=<%=bgclr4%> STYLE="PADDING-LEFT: 6px">发 表 人：</TD>
 <TD BGCOLOR=<%=bgclr4%> STYLE="PADDING-LEFT: 6px"> <%=trim(rs("addname"))%></TD>
 </TR> 
<TR> 
<TD BGCOLOR=<%=bgclr4%> STYLE="PADDING-LEFT: 6px" valign="top">新闻内容：</TD>
<TD BGCOLOR=<%=bgclr4%> STYLE="PADDING-LEFT: 6px"><%=trim(rs("newscontent"))%> 
</TD></TR> </TABLE>