求救!!! 这段程序要修改成连接SQL怎么修改呢?谁能帮帮我

来源：百度知道 编辑：UC知道 时间：2024/05/08 15:27:45
<%@ LANGUAGE = vbScript codepage="936" %>

<%
response.buffer=true
response.expiresabsolute=now() -1

response.expires=0

Response.CacheControl="no-cache"
Response.AddHeader "pragma","no-cache"
dim name,password,exp,dopoint,i,sqlstr,dbconn,rs,num,exp1,n,p,e,v1,g1,v2
name=trim(request.form("name"))
password=trim(request.form("password"))
if name="" then response.redirect "zhdl.htm"
if password="" then response.redirect "zhdl.htm"
set dbConn = Server.CreateObject("ADODB.Connection")
strDB="Data Source=chatdb;User ID=;Password=;driver=Microsoft Access Driver (*.mdb)"
dbConn.open strdb
set rs = Server.CreateObject("ADODB.RecordSet")
sqlStr = "select * from user where name='" & name & "' and passwd='" & password & "'&qu

改为
<%@ LANGUAGE = vbScript codepage="936" %>

<%
response.buffer=true
response.expiresabsolute=now() -1

response.expires=0

Response.CacheControl="no-cache"
Response.AddHeader "pragma","no-cache"
dim name,password,exp,dopoint,i,sqlstr,rs,num,exp1,n,p,e,v1,g1,v2
name=trim(request.form("name"))
password=trim(request.form("password"))
if name="" then response.redirect "zhdl.htm"
if password="" then response.redirect "zhdl.htm"

dim connuser,dbconn,strSQLServerName,strSQLDBUserName,strSQLDBPassword,usercenter
strSQLServerName = "服务器名称或地址" '服务器名称或地址
strSQLDBUserName = "sa" '数据库帐号
strSQLDBPassword = "数据库密码" '数据库密码

usercenter="数据库名称" '数据库名称

Set dbconn = Server.CreateObject("ADODB.Conne