<%
  Option Explicit	'要求變量聲明，這樣所有包含此文件的都需要聲明變量

  dim conn		  '數據庫連接
  dim connstr		'連接字符串
  dim db			  '數據庫文件路徑

  db = "Database/trfhandset.mdb"	'演示時用ACCESS數據庫
  connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
  '連接 SQL Server時使用下面的連接字符串
  'connstr = "Provider=SQLOLEDB; User ID=sa; Password=; Initial Catalog=trfhandset; Data Source=localhost"
  Set conn  =  Server.CreateObject("ADODB.Connection")
  if err Then
	  err.clear
  end if

  conn.Open connstr

  '關閉數據庫連接，在每頁中調用此函數，將連接放入連接池
  sub CloseConn()
	  conn.Close()
	  Set conn  =  Nothing
  end sub

  '替換單引號，向數據庫中寫入數據時用
  function RealString(strSrc)
	  RealString  =  Replace(Trim(strSrc), "'", "’")
  end function

  '替換單引號并進行HTML編碼，向網頁輸出數據庫內容時用
  function Convert(strSrc)
	  Convert  =  Server.HTMLEncode(Replace(Trim(strSrc), "'", "’"))
	  '此句用于將字符串中的回車符轉換為HTML中的換行標記
	  Convert  =  Replace(Convert, chr(13), "<br>")
  end function

%>