UC知道asp如何连接sql
来源：百度知道 编辑：UC知道 时间：2024/06/17 05:46:13
大家帮我看看，这是代码，为什么总提示密码错误
dim action
action=trim(request.QueryString("action"))
if action="chkuser" then
dim password,username
username=trim(request.form1("username"))
password=trim(request.form2("password"))
set rs=server.createObject("ADODB.RecordSet")
sql="select * from admin where Aname='"&username&"' and Apass='"&password&"'"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.Write "<script>alert(' 密码错误! \n\n 请重试! ');window.location.href='index.asp';</script>"
response.end
else
if rs("Apass")=password then
session("username")=rs("Aname")
response.Write "<script>alert(' 登录成功!
dim action
action=trim(request.QueryString("action"))
if action="chkuser" then
dim password,username
username=trim(request.form1("username"))
password=trim(request.form2("password"))
set rs=server.createObject("ADODB.RecordSet")
sql="select * from admin where Aname='"&username&"' and Apass='"&password&"'"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.Write "<script>alert(' 密码错误! \n\n 请重试! ');window.location.href='index.asp';</script>"
response.end
else
if rs("Apass")=password then
session("username")=rs("Aname")
response.Write "<script>alert(' 登录成功!
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Option Explicit
Dim startime,Conn,db
Response.Buffer = True
startime = Timer()
dim connstr
dim SQLServerName
dim SQLDBUserName
dim SQLDBPassword
dim SQLDBName
SQLServerName="(local)" '数据库服务器名或者IP，本机填“(local)”
SQLDBUserName="name" '数据库帐号
SQLDBPassword="pass" '数据库密码
SQLDBName="dataname" '数据库名称
Set conn=Server.CreateObject("ADODB.connection")
db="Provider=SQLOLEDB.1;Persist Security Info=False;Server=" & SQLServerName & ";User ID=" & SQLDBUserName & ";Password=" & SQLDBPassword & ";Database=" & SQLDBName & ";"
conn.Open db
sub CloseConn()
conn.close
set conn=nothing
end sub
%>
username=trim(request.form1("username")