多什么在同一个页面调用不同表时会出错？？？？
'=================================================
'过程名：open_hbrand
'作 用：打开数据库1
'调用方法：rs.open sql,open_hbrand()
'=================================================
Function open_hbrand()
dim Dbpath,conn
On Error Resume Next '防止暴库处理
Dbpath=server.MapPath("db1.mdb")
set conn=server.createObject("ADODB.connection")
conn.open "data source="&dbpath&";provider=microsoft.Jet.OLEDB.4.0;"
set open_hbrand=conn
If Err Then
err.Clear
conn.close:set conn=nothing
Response.Write "对不起，数据库连接出错。"
Response.End
End If
End Function
'=================================================
'过程名：open_hask
'作 用：打开数据库2
'调用方法：rs.open sql,open_hask()
'=================================================
Function open_hask()
dim Dbpathask,connask
On Error Resume Next '防止暴库处理
Dbpathask=server.MapPath("db2.mdb")
set connask=server.createObject("ADODB.connection")
connask.open "data source="&dbpath&";provider=microsoft.Jet.OLEDB.4.0;"
set open_hask=connask
If Err Then
err.Clear
connask.close:set connask=nothing
Response.Write "对不起，数据库连接出错。"
Response.End
End If
End Function
'====================================================================================================
'作 用：数据显示showtitle(tnum,fsql,table,odby,reurl,strlong,genre,opendbtype)
' showtitle(查询条数，字段，表，条件，链接地址，截取长度，显示方式，打开数据库方式)
'====================================================================================================
Function showtitle(tnum,fsql,table,odby,reurl,strlong,genre,opendbtype)
sql = "SELECT "&fsql&" FROM "&table&" "&odby&" "
Set rs = Server.CreateObject("ADODB.Recordset")
Select case opendbtype
Case 1
rs.Open sql,open_hbrand(), 1, 1
Case 2
rs.Open sql,open_hask(), 1, 1
End Select