adda.asp

一个不完整的硬件报价管理系统

<% Response.Buffer=True %>
<% Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("jobs.mdb") %>
<%yingpan=request("yingpan")
cpu=request("cpu")
xianka=request("xianka")
shenka=request("shenka")
zhuban=request("zhuban")
xianshi=request("xianshi")
neicun=request("neicun")
yin=request("yin")
jiansu=request("jiansu")
qita=request("qita")
wangka=request("wangka")
guangqu=request("guangqu")
yingpanj=request("yingpanj")
cpuj=request("cpuj")
xiankaj=request("xiankaj")
shenkaj=request("shenkaj")
zhubanj=request("zhubanj")
xianshij=request("xianshij")
neicunj=request("neicunj")
yinj=request("yinj")
jiansuj=request("jiansuj")
qitaj=request("qitaj")
wangkaj=request("wangkaj")
guangquj=request("guangquj")
pinjia=request("pinjia")
zjia=request("zjia")
set rs=server.createobject("adodb.recordset")
sql="select * from jingji"
rs.open sql,conn,3,2
rs("yingpan")=yingpan
rs("cpu")=cpu
rs("xianka")=xianka
rs("shenka")=shenka
rs("zhuban")=zhuban
rs("xianshi")=xianshi
rs("neicun")=neicun
rs("yin")=yin
rs("jiansu")=jiansu
rs("qita")=qita
rs("wangka")=wangka
rs("guangqu")=guangqu
rs("yingpanj")=yingpanj
rs("cpuj")=cpuj
rs("xiankaj")=xiankaj
rs("shenkaj")=shenkaj
rs("zhubanj")=zhubanj
rs("xianshij")=xianshij
rs("neicunj")=neicunj
rs("jiansuj")=jiansuj
rs("yinj")=yinj
rs("qitaj")=qitaj
rs("zjia")=zjia
rs("guangquj")=guangquj
rs("wangkaj")=wangkaj
rs.update
rs.close
set rs=nothing
Response.Redirect ("admin.asp")%>