高考问答魔兽要塞建哪些:ASP登陆页面怎么连数据库核对
来源：百度文库 编辑：高考问答 时间：2024/04/30 19:48:57
登陆页面代码
<html>
<head>
<title> 1</title>
<link rel="stylesheet" type="text/css" href="./office/css.css">
<script language="javascript">
<!--
function check_null(){
if(!document.form.username.value){
alert("用户名不能为空!");
document.form.username.focus();
return false;
}
if(!document.form.password.value){
alert("密码不能为空!");
document.form.password.focus();
return false;
}
return true;
}
//-->
</script>
</head>
<body bgColor=aliceblue >
<div align="center">
<center>
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0" height="324">
<tr><td align="center" height="200" valign="bottom"><font size="+2" color="#3366cc"><strong>11</strong></font></td></tr><tr>
<td>
<form name="form" method="post" action="checklogin.asp" onsubmit="javascript:return check_null();"><br>
<P align=center><font color="#666666">用户名:</font>
<input name="username" class="doc_txt5" size="12">
<br></p><p align="center">
<font color="#666666">密 码:</font>
<input name="password" type="password" class="doc_txt5" size="12" maxlength="16">
<br><br>
<input name="Submit" type="submit" value="登陆">
<input type="reset" name="reset" value="重填">
</form>
</td>
</tr>
</table>
</center>
</div>
</body>
</html>
核对代码
<%@ language="vbscript"%>
<!--#include file="./asp/conn.asp"-->
<!--#include file="./asp/sqlstr.asp"-->
<%
Dim name,password,strerr
name=request.form("username")
password=request.form("password")
strerr=""
if name="" or password="" then
response.redirect "../login.asp"
else
sql="select * from User_Info where user_ID="&sqlstr(name)
set rs=server.CreateObject("adodb.recordset")
rs.Open sql,conn,1,3
if rs.Eof then
response.write("<script language='javascript'>")
response.write("alert('不存在此用户!');")
response.write("history.back(-1);")
response.write("</script>")
response.End()
else
if rs("password")<>password then
response.write("<script language='javascript'>")
response.write("alert('用户名或密码有错误，请检查\n你的用户名或密码是否正确!');")
response.write("history.back(-1);")
response.write("</script>")
response.End()
else
'if rs("Islogin")="0" then
dim userid,departmentid
userid=rs("userid")
departmentid=rs("departmentid")
session("user_ID")=name
session("user_name")=rs("user_name")
session("password")=password
session("position")=rs("position")
session("Usertype")=rs("usertype")
dim persons
'Application("onlineperson")=""
persons=split(Application("onlineperson"),",")
for i=0 to ubound(persons)
if name=persons(i) then
end if
next
Application("onlineperson")=Application("onlinePerson")&name&","
Application("onlinepersonID")=Application("onlinePersonID")&userid&","
rs("islogin")="1"
rs.update
rs.close
sql="select * from department where departmentid="&departmentid
rs.open sql,conn,1,3
session("department")=rs("department")
session("departmentID")=rs("departmentID")
session("unit")=rs("unit")
rs.close
sql="select * from systemsetting where userID="&userid
rs.Open sql,conn,1,3
if rs.eof then
rs.addnew
rs("userID")=userid
rs.update
else
session("companySign")=rs("companysign")
session("bgpicture")=rs("bgpicture")
session("rightpicture")=rs("rightpicture")
session("Leftbgcolor")=rs("Leftbgcolor")
session("middlebgcolor")=rs("middlebgcolor")
session("rightbgcolor")=rs("rightbgcolor")
session("maxperpage")=rs("maxperpage")
end if
response.redirect("main.asp")
'end if
end if
rs.close
conn.close
set rs=nothing
Set conn=nothing
end if
end if
'response.write("用户:"&session("username"))
%>
连接数据库的conn.asp文件代码
<%
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
SqlDatabaseName = "数据库名"
SqlPassword = ""
SqlUsername = "sa"
SqlLocalName = "服务器名"
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
set rs=server.createObject("ADODB.Recordset")
set rs1=server.createObject("ADODB.Recordset")
%>