www.gusucode.com > ASP+Ajax无刷新验证用户名及相关注册信息 > ASP+Ajax无刷新验证用户名及相关注册信息\code\reg.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% dim dbdriver,dbpath,conn,rs,sql dbdriver="microsoft.jet.oledb.4.0" dbpath=server.mappath("reg.mdb") set conn=server.CreateObject("adodb.connection") conn.provider=dbdriver conn.open dbpath set rs=server.CreateObject("adodb.recordset") regname=request.Form("regname") pwd=request.Form("pwd") email=request.Form("email") sql="insert into reg(name,passwd,email) values('"®name&"','"&pwd&"','"&email&"')" 'on err resume next 'download:http://www.codefans.net conn.execute(sql) if err then response.Write(0) else response.Write(1) end if %>