g.asp

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

<% Response.Buffer=True %>
<% Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("jobs.mdb") %>
<%pp1=request("pp1")
pp2=request("pp2")
pp3=request("pp3")
pp4=request("pp4")
pp5=request("pp5")
pp6=request("pp6")
pp7=request("pp7")
pp8=request("pp8")
pp9=request("pp9")
pp10=request("pp10")
xh1=request("xh1")
xh2=request("xh2")
xh3=request("xh3")
xh4=request("xh4")
xh5=request("xh5")
xh6=request("xh6")
xh7=request("xh7")
xh8=request("xh8")
xh9=request("xh9")
xh10=request("xh10")
jg1=request("jg1")
jg2=request("jg2")
jg3=request("jg3")
jg4=request("jg4")
jg5=request("jg5")
jg6=request("jg6")
jg7=request("jg7")
jg8=request("jg8")
jg9=request("jg9")
jg10=request("jg10")
set rs=server.createobject("adodb.recordset")
sql="select * from xianshi"
rs.open sql,conn,3,2
rs.addnew
rs("pp1")=pp1
rs("pp2")=pp2
rs("pp3")=pp3
rs("pp4")=pp4
rs("pp5")=pp5
rs("pp6")=pp6
rs("pp7")=pp7
rs("pp8")=pp8
rs("pp9")=pp9
rs("pp10")=pp10
rs("xh1")=xh1
rs("xh2")=xh2
rs("xh3")=xh3
rs("xh4")=xh4
rs("xh5")=xh5
rs("xh6")=xh6
rs("xh7")=xh7
rs("xh8")=xh8
rs("xh9")=xh9
rs("xh10")=xh10
rs("jg1")=jg1
rs("jg2")=jg2
rs("jg3")=jg3
rs("jg4")=jg4
rs("jg5")=jg5
rs("jg6")=jg6
rs("jg7")=jg7
rs("jg8")=jg8
rs("jg9")=jg9
rs("jg10")=jg10
rs.update
rs.close
set rs=nothing
Response.Redirect ("admin.asp")%>