简单数据库连接问题,在线等,解决立刻给分!!
一下是我的一段代码,可以正常运行
Sub dzzaddarticlep(cid)
Set conn = Server.CreateObject("ADODB.CONNECTION")
connstr = "DBQ=" + Server.MapPath("/shujuku.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
conn.open connstr
sqla = "select * From bbsClass"
Set rsa = Server.CreateObject("adodb.recordset")
rsa.open sqla, conn, 1, 1
Do While Not rsa.EOF
Response.Write "<option value='" & rsa("classid") & "'"
If cid <> "" Then
If CLng(cid) = CLng(rsa("classid")) Then
Response.Write " selected"
End If
End If
Response.Write ">" & rsa("classname") & "</option>"
rsa.movenext
Loop
rsa.Close
Set rsa = Nothing
End Sub
我怎么把这一段代码写道全局变量呢?否则每一个function都要写这个,太麻烦了!
Set conn = Server.CreateObject("ADODB.CONNECTION")
connstr = "DBQ=" + Server.MapPath("/shujuku.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
conn.open connstr
高手帮忙!!