求教,表单无法写入access数据库 if ac="adduser" then
set rsc=server.createobject("adodb.recordset")
sql="select * from info where username='"&request.Form("username")&"'"
rsc.open sql,conn,1,1
ck=rsc("username")
set rsc=nothing
if ck<>"" then
msg=msg&"<br>"&"用户名已被注册."
response.Redirect("reg.asp?msg="&msg)
end if
dsql="select * from info where id is null"
set rs=server.createobject("adodb.recordset")
rs.open dsql,conn,1,3
rs.addnew
rs("username")=request.Form("username")/*姓名
rs("num")=request.Form("num")/*编号
rs("idcard")=request.Form("idcard")
rs("tel")=request.Form("tel")
rs("mail")=request.Form("mail")
rs("add")=request.Form("add")
rs("zip")=request.Form("zip")/*邮编
rs("quest")=request.Form("quest")
rs("getpassword")=request.Form("getpassword")
rs("ntime")=now
rs.update
set rs=nothing
session("admin")=request.Form("username")