www.gusucode.com > ASP+Ajax无刷新验证用户名及相关注册信息 > ASP+Ajax无刷新验证用户名及相关注册信息\code\check_id.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")
	regid=request.Form("regid")
	sql="select top 1 id from reg where name='"&regid&"'"
	rs.open sql,conn,1,1
	'download:http://www.codefans.net
	if rs.eof and rs.bof then
		response.Write(1)
	else
		response.Write(0)
	end if
	rs.close
	set rs=nothing
  %>