commfunc.asp

来自「这是一个图片管理工具」· ASP 代码 · 共 16 行

<%
Public Sub open_data(ByRef cn, ByVal f)
' cn = connection object variable
' f  = relative path and name of .mdb file

  Dim s

  s = "driver={Microsoft Access Driver (*.mdb)};"
  s = s & "dbq=" & Server.MapPath(f) & ";"
  s = s & "uid=" & DataUserIden & ";"
  s = s & "pwd=" & DataPassWord
  set cn = Server.CreateObject("ADODB.Connection")
  cn.Open s
End Sub
%>