commfunc.asp

汉化dataadmin1.1版,这是一套经过汉化的数据库管理系统软件

<%'建立数据库连接的文件
Public Sub open_data(ByRef cn, ByVal f)
' cn = connection object variable
' f  = relative path and name of .mdb file

  Dim s

  if session("DataAdmi_DSN_Less") = 1 then
    s = "driver={Microsoft Access Driver (*.mdb)};"
    s = s & "dbq=" & Server.MapPath(f)
    if session("DataAdmi_DataUsid") <> "" OR session("DataAdmin_DataPass") <> "" then
      s = s & ";"
      s = s & "uid=" & session("DataAdmi_DataUsid") & ";"
      s = s & "pwd=" & session("DataAdmi_DataPass")
    end if
  else
    s = "DSN=" & f
    if session("DataAdmi_DataUsid") <> "" OR session("DataAdmin_DataPass") <> "" then
      s = s & "; "
      s = s & "UserID=" & session("DataAdmi_DataUsid") & "; "
      s = s & "pwd=" & session("DataAdmi_DataPass")
    end if
  end if
  set cn = Server.CreateObject("ADODB.Connection")
'  response.write s
  cn.Open s
End Sub

Public Function inse_apos(ByVal s)
  if s <> "" then
    if Instr(s,"'")<>0 then
      inse_apos = Replace(s,"'","''")
    else
      inse_apos = s
    end if
  end if
End Function
%>