changexi_ok.asp

来自「这是一套集“新闻、产品、订购、招聘、下载、留言”为一体的企业型后台管理系统 」· ASP 代码 · 共 39 行

<%
if session("admin_name")="" then response.end
%>
<!--#include file="../inc/adconn.asp"--> 
<!--#include file="../css.asp"-->
<%
'for i=1 to request("msg").count
'shw_msg=s msg&request("msg")(i)
'next
'msg=request("msg")
if request("action")="save" then
dim id,am_uid,title,msg
id=request("id")
title=request.form("title")
    am_uid=request.form("am_uid")
    msg=request.form("msg")
	'data=request.form("date")
	'time=request.form("time")
   dim rs,sql
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from xinxi where id="&id
rs.open sql,conn,1,3
 rs("title")=title
if msg="" then 
rs("msg")="暂且没有商品简介……"
else 
rs("msg")=msg
end if 
	   rs("date")=date()
	   rs("time")=time()
	   'rs("isbn")=isbn
rs.Update
end if
'conn.close
'set conn=nothing
'rs.close
'set rs=noting
response.redirect "xinxi.asp"
%>