信息技术课程整合 河北师范大学login.asp页代码如下
===============================================
<form name=login action="loginOK.asp">
<input type="text" name="ID">
<input type="password" name="PASS">
<input type="submit" name="submit" value="登录">
</form>
loginOK.asp页代码如下
===============================================
ID = request("ID")
PASS =request("PASS")
if ID="" then
response.write("<script>alert('用户名不能为空');history.go(-1);</script>")
response.end
elseif PASS="" then
response.write("<script>alert('密码不能为空);history.go(-1);</script>")
response.end
end if
sql = "select * from user where ID='"&ID&"' and pass='"&PASS&"'"
set rs = conn.execute(sql)
if not rs.eof then
response.write("<script>alert('登陆成功！！');location='/index.asp';</script>")
else
response.write("<script>alert('登陆失败！！请检查用户名和密码是否正确');history.go(-1);</script>")
end if
set rs = nothing
*************************************************
这里的 user 是你的数据库里面保存用户信息的数据表，楼主改称自己的表名就可以了
另外，搂住得数据库是什么的??
access 还是 sql 的？？
如果是access的
<%set conn=server.CreateObject("ADODB.connection")
conn.ConnectionString="driver={Microsoft Access Driver (*.mdb)};DBQ="&server.MapPath("数据库文件的路径")& ";uid=;PWD=;"
conn.open%>
如果是sql server的
<%
'----------------------------------------------------------
strSQLServerName = "127.0.0.1" '数据库服务器的ip
strSQLDBUserName = "sa" '用户名（一般不用变）
strSQLDBPassword = "12345456"'连接数据库的密码
strSQLDBName = "WebDB" '数据库名
'----------------------------------------------------------
Set conn = Server.CreateObject("ADODB.Connection")
connstr = "Provider=SQLOLEDB.1;Persist Security Info=False;Server=" & strSQLServerName & ";User ID=" & strSQLDBUserName & ";Password=" & strSQLDBPassword & ";Database=" & strSQLDBName & ";"
conn.Open connstr
%>
