<%
Dim conn,connstr
Dim DBPath
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("../db/#3721@#.asp")
'	conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath

''====================================''
''說明    字符替換
''返回值  被替換后的字符串                  
''====================================''
Function htmlEncode2(str)
    If IsEmpty(str) Or str = "" Then
	    htmlEncode2 = "&nbsp;"
	Else
	    str = Replace(str,">","&gt;")
		str = Replace(str,"<","&lt;")
		str = Replace(str,"'","&quot;")
		str = Replace(str,Chr(13),"<br>")
		str = Replace(str,VBCrlf,"<br>")
		str = Replace(str," ","&nbsp;")
		htmlEncode2 = str
	End If
End Function
''====================================''
''說明    字符替換
''返回值  還原字符串                  
''====================================''
Function htmlEncode3(str)
	str = Replace(str,"&quot;","'")
	str = Replace(str,"<br>",Chr(13))
	str = Replace(str,"&nbsp;"," ")
	str = Replace(str,"&gt;",">")
	str = Replace(str,"&lt;","<")
	htmlEncode3 = str
End Function
%>