28,390
社区成员
发帖
与我相关
我的任务
分享
function OpenData()
db = "db.mdb"
Set Conn = Server.CreateObject("Adodb.Connection")
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
Conn.Open ConnStr
End function
call OpenData()
set rs=conn.execute("select * from [db]")
function OpenData(conn)
db = "db.mdb"
Set Conn = Server.CreateObject("Adodb.Connection")
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
Conn.Open ConnStr
End function
call OpenData(conn)
set rs=conn.execute("select * from [db]")
这样是正确的function OpenData(ByRef Conn)
db = "db.mdb"
Set Conn = Server.CreateObject("Adodb.Connection")
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
Conn.Open ConnStr
OpenData=conn
End function
function OpenData()
db = "db1.mdb"
Set Conn = Server.CreateObject("Adodb.Connection")
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
Conn.Open ConnStr
Set OpenData=conn
End function
set rs=OpenData.execute("select * from [A]")
function OpenData()
db = "db1.mdb"
Set Conn = Server.CreateObject("Adodb.Connection")
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
Conn.Open ConnStr
OpenData=conn
End function
OpenData()
response.Write OpenData
Sub OpenData()
db = "db.mdb"
Set Conn = Server.CreateObject("Adodb.Connection")
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
Conn.Open ConnStr
End Sub
call OpenData
set rs=conn.execute("select * from [db]")