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('"&regname&"','"&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
  %>