<body>
<% xm=request.form("xm")%>
<%
db="bysqzdj.mdb"
set conn=Server.CreateObject("ADODB.Connection") '定义数据库连接组件
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
conn.open ConnStr '连接数据库
Dim rsadd
set rsadd=server.CreateObject("adodb.recordset") %>
<%rsadd.Open "select * from qzdjb where xm='"+xm+"' ",conn,1,3
%>
<%'rsadd.open "select * from qzdjb where xm='"+xm+"' " %>
<%
rsadd("xm")=request.form("xm")
rsadd("xb")=request.form("xb")
rsadd("bj")=request.form("bj")
rsadd("zy")=request.form("zy")
rsadd("sg")=request.form("sg")
rsadd("jtdz")=request.form("jtdz")
rsadd("lxdh")=request.form("lxdh")
rsadd.Update
'rsadd.Close
'set rsadd=nothing
%>
</body>