booksave_info1.asp

asp+access开发的网上购物程序

<%@ codepage ="936" %>
<!--#include file="../../conn/dbconn2.asp"-->
<%
dim bighy
dim lithy
dim showname
dim mmfx
dim period
dim content
dim bookid
dim linkman
dim address
dim email
dim phone
dim fax
dim postcode
dim web
dim city
dim country
dim rs
dim sql 
bighy=request("bighy")
lithy=request("lithy")
showname=request("showname")
mmfx=request("type")
period=request("period")
content=request("content")
bookid=request("bookid")
linkman=request("linkman")
company=request("company")
address=request("address")
email=request("email")
phone=request("phone")
country=request("country")
if trim(request("postcode"))="" then
post="空"
else
post=request("postcode")
end if
if trim(request.form("fax"))="" then
fax="空"
else
fax=request.form("fax")
end if
if trim(request.form("web"))="" then
web="空"
else
web=request.form("web")
end if
city=request.form("city")
set rs=server.createobject("adodb.recordset")
sql="select * from book where (info_id is null)" 
rs.open sql,conn,1,3
rs.addnew
rs("sortid")=bighy
rs("typeid")=lithy
rs("showname")=showname
rs("type")=mmfx
rs("period")=period
rs("bookid")=bookid
rs("content")=content
rs("linkman")=linkman
rs("company")=company
rs("address")=address
rs("mail")=email
rs("phone")=phone
rs("fax")=fax
rs("postcode")=post
rs("country")=country
rs("web")=web
rs("city")=city
rs("gsid")=session("id")
rs("dateandtime")=date()
rs.update
rs.close
response.write"<SCRIPT language=JavaScript>alert('您的信息已经提交成功！');"
response.write"javascript:window.close();</script>"
set rs=noting
conn.close
set conn=nothing
%>