asp连接时的问题.紧急求救!!
来源:百度知道 编辑:UC知道 时间:2024/06/30 08:21:46
<!--#includ file="conn.asp"-->
<%@language=VBscript%>
<%set conn=server.CreateObject("adodb.connection")
conn.open "PROVIDER=SQLOLEDB;DATA SOURCE=127.0.0.1;UID=sa;PWD=123;DATABASE=ruanjian"
conn.open connstr%>
<% dim username,password
username=trim(request("username"))
password=trim(request("password"))
set rs=server.createobject("adodb.recordset")
sql="select * from admin where username='"&username&"'"
if rs.state=adstateopen then
rs.open sql,conn,1,1
if not rs.eof then rs.close
if password=rs("password") then
session("admin")=username
session("loginpwd")=username
session("loginname")=password
response.redirect"page.asp"
else
response.write "<script language='javascr
<%@language=VBscript%>
<%set conn=server.CreateObject("adodb.connection")
conn.open "PROVIDER=SQLOLEDB;DATA SOURCE=127.0.0.1;UID=sa;PWD=123;DATABASE=ruanjian"
conn.open connstr%>
<% dim username,password
username=trim(request("username"))
password=trim(request("password"))
set rs=server.createobject("adodb.recordset")
sql="select * from admin where username='"&username&"'"
if rs.state=adstateopen then
rs.open sql,conn,1,1
if not rs.eof then rs.close
if password=rs("password") then
session("admin")=username
session("loginpwd")=username
session("loginname")=password
response.redirect"page.asp"
else
response.write "<script language='javascr
if not rs.eof then rs.close '楼主这句给关闭了,已创建的记录集对象(如果资料库中有资料,就关闭)
if rs.eof then'如果资料库中无资料
<%set conn=server.CreateObject("adodb.connection")
conn.open "PROVIDER=SQLOLEDB;DATA SOURCE=127.0.0.1;UID=sa;PWD=123;DATABASE=ruanjian"
conn.open connstr%>
这里有错误,Conn连续打开了二次,第二次肯定报错,把第二个Conn.open connstr去掉.
我不会