The ASP determines whether the user registers the code

code is as follows

copy code

<% Dim Conn,rs Dim ConnStr Dim SqlCmd Dim UserName ' Get user name query string username=request.querystring (' UserName ") ' Creates a database connection object and opens the set Conn=server.createobject (" Adodb.connection ") connstr= provider= Microsoft.jet.oledb.4.0;data source= "& Server.MapPath (" Data.mdb ") Conn.Open connstr Create DataSet Object Set Rs=server.createobject ("Adodb.recordset") Queries the record with a user name equal to the specified value sqlcmd= select id from user where username= ' " & UserName & "' Rs=conn.execute (SQLCMD) //define variable to indicate if user name exists Dim exist //////////////////////////// If Rs.eof then exist=1 else exist=0 //Close database connection Rs.close Conn.close Set rs=nothing Set conn=nothing //return result to Response.Write ( exist) %>