ASP 连接数据库写法 求教!

AcSqlData = rs("AcSqlData")
AcSqlName = rs("AcSqlName")
AcSqlPass = rs("AcSqlPass")
AcSqlIp = rs("AcSqlIp")
end if
connStr1 = "Provider = Sqloledb; User ID = " & AcSqlName & "; Password = " & AcSqlPass & "; Initial Catalog = " & AcSqlData & "; Data Source = " & AcSqlIp & ";"
sql="select * from Sp_GameList where id="&session("ServerCode")
set rs = lib.execute(sql,false)
if not rs.eof then
AcSqlData = rs("AcSqlData")
AcSqlName = rs("AcSqlName")
AcSqlPass = rs("AcSqlPass")
AcSqlIp = rs("AcSqlIp")
end if
connStr2 = "Provider = Sqloledb; User ID = " & AcSqlName & "; Password = " & AcSqlPass & "; Initial Catalog = " & AcSqlData & "; Data Source = " & AcSqlIp & ";"
if myLib.TranExec(connStr1, sqls1, connStr2, sqls2) then
%>


这个应该是连接CONN1 跟CONN2的
但是 if myLib.TranExec(connStr1, sqls1, connStr2, sqls2) then 
这句因为把语句封在DLL了.小弟想知道.
直接改成其他要怎么改呢??




小弟按这样改.但是不行.

connStr2 = "Provider = Sqloledb; User ID = " & AcSqlName & "; Password = " & AcSqlPass & "; Initial Catalog = " & AcSqlData & "; Data Source = " & AcSqlIp & ";"
Set gconn = Server.CreateObject("ADODB.Connection")
gconn.open ConnStr2
If Err Then
err.Clear
Set gConn = Nothing
Response.Write "转换从区数据库连接出错，请检查连接字串。"'注释，需要把这几个字翻译成英文。
Response.End
End If

<%
'--------------连接Access数据库db1.mdb------------------
AccessDbUrl="/Db/" 'Access数据库地址
Set Conn=Server.CreateObject("ADODB.Connection")
'conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath(AccessDbUrl)&"db1.mdb"
'----------------------------------------------------

Set rs=conn.Execute("SELECT * FROM table1") '返回数据表table1中的所有记录

'-------列出表中所有记录--------
Do While Not rs.Eof '当数据表连接不为空时执行循环
 Response.Write(rs("字段名一")&" "rs("字段名二")) '输出当前记录的所有字段，中间用空格隔开，多个字段请自行添写
 rs.Novenext '将指针移动到下一条记录
Loop '结束循环
'-------------------------------

'-------关闭数据表连接-------
rs.Close
Set rs=Nothing
'-----------------------------

'----------关闭数据库连接------
conn.Close
Set conn=Nothing
'------------------------------
%>
<%
'--------------连接SQL Server数据库database1------------------
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={SQL Server};Description=sqldemo;SERVER=CDHC10;UID=SQL登陆用户;Password=SQL登陆密码;DATABASE=database1"
'----------------------------------------------------

Set rs=conn.Execute("SELECT * FROM table2") '返回数据表table2中的所有记录

'-------列出表中所有记录--------
Do While Not rs.Eof '当数据表连接不为空时执行循环
 Response.Write(rs("字段名一")&" "rs("字段名二")) '输出当前记录的所有字段，中间用空格隔开，多个字段请自行添写
 rs.Novenext '将指针移动到下一条记录
Loop '结束循环
'-------------------------------

'-------关闭数据表连接-------
rs.Close
Set rs=Nothing
'-----------------------------

'----------关闭数据库连接------
conn.Close
Set conn=Nothing
'-----------------------------
%>

把链接串显示出来看看。然后google一下。看看是否有问题。