ＶＢ我一点不会用．我封装了数据库连接．但在asp里不会调用了．明白人帮我一把．谢谢
1.VB里封装成：shou.dll

Public Function DBConn()

Dim conn, connstr, db, rs, rs_s, rs_s1
Dim strSQLServerName
Dim strSQLDBUserName
Dim strSQLDBPassword
Dim strSQLDBName

strSQLServerName = "21.122.33.112 "
strSQLDBUserName = "shouji "
strSQLDBPassword = "123456 "
strSQLDBName = "shouji "

Set conn = Server.CreateObject( "ADODB.Connection ")
connstr = "Provider=SQLOLEDB.1;Persist Security Info=False;Server= " & strSQLServerName & ";User ID= " & strSQLDBUserName & ";Password= " & strSQLDBPassword & ";Database= " & strSQLDBName & "; "
conn.open connstr

DBConn = conn
End Function


2.在asp里调用．

<%
Set ObjReference = Server.CreateObject( "shouji.Class1 ")
%>

错误类型：
ADODB.Recordset (0x800A0BB9)
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。
/sj/chkuser.asp, 第 21 行


第２１行是：
rs.Open "select * from [sjuser] where username88= ' "&username88& " ' and userpassword88= ' "&userpassword88& " ' ",conn,1,3


怎么修改啊．



[解决办法]
1.VB里封装成：shou.dll

Public Function DBConn()

Dim conn, connstr, db, rs, rs_s, rs_s1
Dim strSQLServerName
Dim strSQLDBUserName
Dim strSQLDBPassword
Dim strSQLDBName

strSQLServerName = "21.122.33.112 "
strSQLDBUserName = "shouji "
strSQLDBPassword = "123456 "
strSQLDBName = "shouji "

Set conn = CreateObject( "ADODB.Connection ")
connstr = "Provider=SQLOLEDB.1;Persist Security Info=False;Server= " & strSQLServerName & ";User ID= " & strSQLDBUserName & ";Password= " & strSQLDBPassword & ";Database= " & strSQLDBName & "; "
conn.open connstr

DBConn = conn
End Function


2.在asp里调用．

<%
Set ObjReference = Server.CreateObject( "shouji.Class1 ")
%>
[解决办法]
Public Function DBConn()

Dim conn, connstr, db, rs, rs_s, rs_s1
Dim strSQLServerName
Dim strSQLDBUserName
Dim strSQLDBPassword
Dim strSQLDBName

strSQLServerName = "21.122.33.112 "
strSQLDBUserName = "shouji "
strSQLDBPassword = "123456 "
strSQLDBName = "shouji "

Set conn = CreateObject( "ADODB.Connection ")
connstr = "Provider=SQLOLEDB.1;Persist Security Info=False;Server= " & strSQLServerName & ";User ID= " & strSQLDBUserName & ";Password= " & strSQLDBPassword & ";Database= " & strSQLDBName & "; "
conn.open connstr

Set DBConn = conn
End Function


<%dim conn
Set ObjReference = Server.CreateObject( "shouji.Class1 ")
set conn=ObjReference.DBConn

用response.write conn.connectionstring //还不是一样可以找到你的连接串，有什么用

%>