UC知道关于ASP开发的 登陆验证功能的代码问题
来源：百度知道 编辑：UC知道 时间：2024/05/21 09:10:40
本人刚开始学ASP 在写登陆验证的过程中遇到问题
conn.asp
<%
strconn = "Driver={SQL Server};Description=sqldemo;SERVER=127.0.0.1;" _
&"UID=sa;Password=sa;DATABASE=HR"
set conn = server.createobject("adodb.connection")
conn.open strconn
%>
login.asp ---登陆验证代码
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<HTML>
<!--#include file="conn.asp" -->
<%
dim UserRId ,UserPwd,access
UserId=trim(Request.Form("UserId"))
UserPwd=trim(Request.Form("UserPwd"))
access=request("access")
set rs=server.createobject("adodb.recordset")
sql="select * from Login where UserId='" &UserId& "' and UserPwd='"&UserPwd&"'"
rs.open sql,conn,3,1
if UserId="" or UserPwd="" then
response.write "<script language=Java
conn.asp
<%
strconn = "Driver={SQL Server};Description=sqldemo;SERVER=127.0.0.1;" _
&"UID=sa;Password=sa;DATABASE=HR"
set conn = server.createobject("adodb.connection")
conn.open strconn
%>
login.asp ---登陆验证代码
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<HTML>
<!--#include file="conn.asp" -->
<%
dim UserRId ,UserPwd,access
UserId=trim(Request.Form("UserId"))
UserPwd=trim(Request.Form("UserPwd"))
access=request("access")
set rs=server.createobject("adodb.recordset")
sql="select * from Login where UserId='" &UserId& "' and UserPwd='"&UserPwd&"'"
rs.open sql,conn,3,1
if UserId="" or UserPwd="" then
response.write "<script language=Java
1.if session("userId")=rs("userId") and session("UserPwd")=rs("UserPwd") and access="amdin" then
&是连接符，and（or)是布尔运算符，下面的自己改
2.strconn = "Driver={SQL Server};Description=sqldemo;SERVER=127.0.0.1;" _
&"UID=sa;Password=sa;DATABASE=HR"
127.0.0.1是IP地址，这里需要服务器名称，就是你的计算机名称