下面一段是写入数据库的,能写~~不过就相当写得慢~~每次都会把网页弄死掉了~~谁能帮帮我
<%
h=session("user")
c=Date()
bianhao=request.form("aa")
mingcheng=request.form("ss")
guige=request.form("dd")
danwei=request.form("ff")
beizhu=request.form("gg")
if request("ii")<>""then
Set rs1= Server.CreateObject ("ADODB.Recordset")
set rs1=conn.execute("SELECT * FROM 成品清单 where 产品编号='"&bianhao&"'")
if not rs1.eof and not rs1.bof then
response.write"<font color=blue>已有编号,不能选择!</font>"
rs1.close
else
if len(request.form("aa"))>0 and len(request.form("ss"))>0 and len(request.form("dd"))>0 and len(request.form("ff"))>0 and len(request.form("gg"))>0 then
conn.execute("INSERT INTO 成品清单(产品编号,产品名称,规格,单位,备注,录入时间,录入文员) VALUES ('"&bianhao&"','"&mingcheng&"','"&guige&"','"&danwei&"','"&beizhu&"','"&c&"','"&h&"')")
response.redirect("chengpin.asp")
else
response.write"<font color=blue>内容不完整!</font>"
end if
end if
end if
'response.write err.description &" "
%>