求asp+access用户登陆代码 跟数据库交互

Question

如题所述

Answer 1

index.asp

<% If Session("UserName")="" Then %><table width="100%" border="0" cellspacing="0" cellpadding="0">
<form action='UserLogin.asp' method='post' name='UserLogin' onSubmit='CheckForm();'> <tr>
<td class=r><div align="center">用户名:</div></td>
<td> <input name="username" type="text" class="box" id="textfield" size="16"></td>
<td class=r><div align="center">密码:</div></td>
<td><input name="userpassword" type="password" class="box" id="textfield2" size="16"></td>
<td><input name='Login' type='submit' id='Login' value=' 登录 '> <input name='Reset' type='reset' id='Reset' value=' 清除 '></td>
<td> </td>
<td ><div align="center"></div></td>
</tr></form>
</table><%
Else response.write " 欢迎您！" & Session("UserName")
response.write "<a href='UserLogout.asp'>退出</a>"
end if
%>

UserLogin.asp

<!--#include file="conn.asp"-->
<%
dim sql
dim rs
dim username
dim userpassword
username=trim(request("username"))
userpassword=trim(Request("userpassword"))

set rs=server.createobject("adodb.recordset")
sql="select * from User where username='" & username & "' and userpassword='" & userpassword &"'"
rs.open sql,conn,1,3
if not(rs.bof and rs.eof) then
if userpassword=rs("userpassword") then
session("UserName")=rs("username")
Response.Redirect "login.asp"
end if
end if
Response.Write("<script language=""JavaScript"">alert(""用户名或密码错误！！"");history.go(-1);</script>")
rs.close
conn.close
set rs=nothing
set conn=nothing

%>

login.asp

<!--#include file="conn.asp"-->
<%
UserName=session("UserName")
set rs=server.createobject("adodb.recordset")
sqltext="select * from xinxi where user='"& UserName &"'"
rs.open sqltext,conn,1,1
%>
<%= rs("xinxi") %>

conn.asp
<%
dim conn,db
dim connstr
db="Databases/date.mdb" '数据库文件位置
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if
sub CloseConn()
conn.close
set conn=nothing
end sub
%>

还有个推出的

UserLogout.asp

<%
session("UserName")=""
Response.Redirect "index.asp"
%>追问

能留个QQ或HI吗？