主题:缺少对象的错误,请进
option explicit
dim Conn,ConnStr,Rst,i,UserName,UserPWD
UserName=request.form("UserName")
'UserPwd=request.form("UserPwd")
response.write username
Conn=server.CreateObject("ADODB.CONNECTION")
ConnStr="PROVIDER=SQLOLEDB;DATA SOURCE=127.0.0.1;UID=sa;PWD=;DATABASE=News"
Conn.open.ConnStr
dim Conn,ConnStr,Rst,i,UserName,UserPWD
UserName=request.form("UserName")
'UserPwd=request.form("UserPwd")
response.write username
Conn=server.CreateObject("ADODB.CONNECTION")
ConnStr="PROVIDER=SQLOLEDB;DATA SOURCE=127.0.0.1;UID=sa;PWD=;DATABASE=News"
Conn.open.ConnStr