第六章 系统功能模块的实现
6.1 系统的具体实现
1.创建一个公共数据库连接对象
<%
dim sql
dim rs,rsadd
name=request("txt1")
password=request("txt2")
set rs=server.createobject("adodb.recordset")
set rsadd=server.createobject("adodb.recordset")
conn = "DBQ=" + server.mappath("mydb.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};">
2 验证用户是否合法
<%@ Language=VBScript %>
<%
dim name,pwd,email,person
dim sql
dim rs,rsadd
name=request("txt1")
password=request("txt2")
if name="lyf" and password="2000" then
session("name")=name
Response.Redirect "main.asp"
else
set rs=server.createobject("adodb.recordset")
set rsadd=server.createobject("adodb.recordset")
conn = "DBQ=" + server.mappath("mydb.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
sql="select * from user where username='"&name&"'and password='"&password&"'"
rs.Open sql,conn,1,1
if not rs.EOF then
sql="select * from activetable where name='"&name&"'"
rsadd.Open sql,conn,1,1
if rsadd.EOF then
rsadd.Close
sql="insert into activetable(name) values('"&name&"')"
rsadd.Open sql,conn,1,1
session("name")=name
Response.Redirect "main.asp"
else
response.write "<script language=java script>" & chr(13) & "alert('此用户已经有人使用或密码不正确！用户登录失败！');" & "history.back()" & "</script>"
end if
else
response.write "<script language=java script>" & chr(13) & "alert('此用户已经有人使用或密码不正确！用户登录失败！');" & "history.back()" & "</script>"
end if
