if request.QueryString("ag") then
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("../skyj.mdb")
ag=request.form("ag")
amount=request.form("amount")
name2=request.form("name")
tel=request.form("tel")
email=request.form("email")
QQ=request.form("QQ")
bolg=request.form("bolg")
blank=request.form("blank")
exec="insert into 订单(订单,数量,人名,电话,Email,QQ,博客,银行卡号)values('"+ag+"','"+amount+"','"+name2+"','"+tel+"','"+email+"','"+QQ+"','"+bolg+"','"+blank+"')"
conn.execute exec
conn.close
set conn=nothing
end if
%>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
数据库教程连接,添加的asp如下(example5.asp)