reg.asp文件
<%
username=request.Form("username")
password=request.Form("password")
sql="select * from puser where y_username='"&username&"'"
rs.open sql,conn,1,1
If Not rs.eof Then
response.write "no"
response.end
End If
rs.close
sql="insert into puser(y_username,y_password) values('"&username&"','"&password&"')"
rs.open sql,conn,1,3
response.write "yes"
%>
adoconn.asp文件代码
<%
set rs=server.CreateObject("adodb.recordset")
db="./username.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr
%>
检测用户是否存在
<%
username=Replace(request.querystring("username"),"'","")
sql="select * from puser where y_username='"&username&"'"
rs.open sql,conn,1,1
if rs.eof then
response.write "no"
else
response.write "yes"
end if
rs.close
%>
mdb.数据表
y_id 自动编号
y_username text
y_password text