苗景云的博客

<%@LANGUAGE="VBScript" codepage="936"%>
<!--#include file="conn.asp"-->
<%
zh=request.form("zh")
mm=request.form("mm")
ckmm=request.form("ckmm")
sqmm=request.form("sqmm")
bhm=request.form("bhm")
dj=request.form("dj")
yxq=request.form("yxq")

set rs=server.createobject("adodb.recordset")
sql="select zh,mm,ckmm,sqmm,bhm,dj,yxq from wd"
rs.open sql,conn,1,3
rs.addnew
rs("zh")=zh
rs("mm")=mm
rs("ckmm")=ckmm
rs("sqmm")=sqmm
rs("bhm")=bhm
rs("dj")=dj
rs("yxq")=yxq
rs.update
rs.close
set rs=nothing
conn.close
set rs=nothing
*********************************************************************************************

if zh = "" then
response.end
end if