conn.asp

使用说明： --- --- --- --- --- --- --- --- --- --- --- --- ---- 1：这是本人最早用过的

<%
Set Conn = Server.CreateObject("ADODB.Connection")
conn = "DBQ=" + server.mappath("91#www.9y.com.cn.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
'-----------------------------------------------安全转换--------------------------------------------------
function HTMLEncode(fString)
fString=replace(fString,";","&#59;")
fString=replace(fString,"<","&lt;")
fString=replace(fString,">","&gt;")
fString=replace(fString,"\","&#92;")
fString=replace(fString,"--","&#45;&#45;")
fString=replace(fString,"'","&#39;")
fString=replace(fString,CHR(34),"&quot;")
fString=replace(fString,vbCrlf,"<br>")
HTMLEncode=fString
end function
'-----------------------------------------------定义--------------------------------------------------
title_name="9亿网"
%>