求高手做个登陆页面代码

求高手做个登陆页面代码

下面的内容是我按你说的调试通过的,你照着贴下去就行了!

============== 下面是index.asp的内容==============






用户登录

---

用户:
密码:

---

==================上面的内容结束================
================下面的是login.asp的内容==========================
<%
if request("user")<>"" or request("password")<>"" then
user = request("user")
password = request("password")
On Error Resume Next
'数据库连接设置--------------------------------------------------
dim conn,connstr,db,dbpath
db="db2.mdb" '系统数据库，如果你修改了默认数据库名称，需要修改此处
dbpath=webdir&db
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&dbpath&"")
'较老版本Access驱动，请用下面连接方法
connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(""&dbpath&"")
conn.Open connstr
If Err Then
err.Clear
conn.close
set conn=nothing
Response.Write("网站数据库连接出错!")
response.End()
End If
sub closedb()
conn.close
set conn=nothing
end sub
'数据库连接设置完毕---------------------------------------------
set rs = server.createobject("adodb.recordset")
sql = "select * from where data where user='"&user&"' and password='"&password&"'"
rs.open sql,conn,1,3
if not rs.eof then
response.write ""
else
response.write ""
end if
else
response.write ""
end if

%>
==================上面的内容结束=================

*erro.asp和index1.asp的内容你自己定
数据库名 db2.mdb 表名 data 字段user和password的内容都是 11

*数据库和这几个文件放在一起,要是不放一起得改下login.asp里面的数据库路径

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息