gg2.asp

网络购物

<%
'=========================================
'
'         凡人网络购物系统V4.0免费版
'    FreeDown.Net [e-mail] 
'            www.freedown.net
'     版权所有·免费版仅供研究测试只用
'            商业使用请购买正版
'
'=========================================
%>
<%
if session("admin_name")="" then
    response.redirect "login.asp"
end if
%>
<!--#include file="conn.asp"-->
<%
title=Request.form("title")
msg=Request.form("msg")
%>
<%
dim rs,sql
set rs=Server.CreateObject("Adodb.Recordset")
sql="select * from pub where (id is null)"
rs.open sql,conn,1,3
rs.addnew
rs("am_uID")=am_uID
rs("title")=title
rs("msg")=msg
rs("date")=date()
rs("time")=time()
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
Response.redirect "gg.asp"
%>