?? conn.asp
字號:
<%
Dim conn,connstr
Dim DBPath
Set conn = Server.CreateObject("ADODB.Connection")
DBPath = Server.MapPath("db/data.mdb")
' 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 = " "
Else
str = Replace(str,">",">")
str = Replace(str,"<","<")
str = Replace(str,"'",""")
str = Replace(str,Chr(13),"<br>")
str = Replace(str,VBCrlf,"<br>")
str = Replace(str," "," ")
htmlEncode2 = str
End If
End Function
''====================================''
''說明 字符替換
''返回值 還原字符串
''====================================''
Function htmlEncode3(str)
str = Replace(str,""","'")
str = Replace(str,"<br>",Chr(13))
str = Replace(str," "," ")
str = Replace(str,">",">")
str = Replace(str,"<","<")
htmlEncode3 = str
End Function
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -