大家帮俺看看怎么解释的,这些地方是?送最后所有100分了!(俺才学不到两个星期啊!拜托高手大哥)
<%@ 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=JavaScript>" & chr(13) & "alert('此用户已经有人使用或密码不正确!用户登录失败!');" & "history.back()" & "</script>"
end if
else
response.write "<script language=JavaScript>" & chr(13) & "alert('此用户已经有人使用或密码不正确!用户登录失败!');" & "history.back()" & "</script>"
end if
end if
%>
*************************
怎么开了两鸽数据集呢?都分别用做什么?(什么用途)
问题二:sql="select * from user where username='"&name&"'and password='"&password&"'"为什么啊?和下面有什么关系?
问题三:if not rs.EOF then
sql="select * from activetable where name='"&name&"'"
是什么意思?做什么用?
问题四:rsadd.Close
sql="insert into activetable(name) values('"&name&"')"
这里插入的数据是哪里的name啊?是name=request("txt1")还是name="lyf"呢?
问题五:else
response.write "<script language=JavaScript>" & chr(13) & "alert('此用户已经有人使用或密码不正确!用户登录失败!');" & "history.back()" & "</script>"
end if
else
response.write "<script language=JavaScript>" & chr(13) & "alert('此用户已经有人使用或密码不正确!用户登录失败!');" & "history.back()" & "</script>"
end if
怎么会有两次检测呢?