浏览者可以通过点击“注册”进入注册页面。
注册页面是sign1.htm 执行页面sing1.asp
下面是sing1.asp
<%option explicit%>
<%
If request.form("user_name")<>""and request.form("password")<>""then
dim db,rs
set db=server.createobject("ADODB.connection")
db.open "dbq="&server.mappath("userinfo.mdb")&";driver={microsoft access driver (*.mdb)};"
dim strsql,user_name ,Password,name
name=request.form("user_name")
strSql="select * from user Where user_name='" & Request.Form("user_name") & "'"
Set rs=db.Execute(strSql)
If not rs.eof then
Response.Write "对不起,用户名已被注册,请<a href='sign1.htm'>重新注册</a>"
rs.close
else
user_name=request.form("user_name")
Password=request.form("Password")
strsql="insert into user(user_name ,Password)values('"&user_name&"','"&Password&"')"
db.execute(strsql)
response.redirect "cg.htm"
end if