conn.asp
来自「是个不错的文件代码,希望大家好好用,」· ASP 代码 · 共 16 行
ASP
16 行
<%
dim db,conn,connstr
db="iqsun.asp"
set Conn = server.CreateObject("ADODB.Connection")
connstr="provider=microsoft.jet.oledb.4.0;data source="& server.MapPath("data/"&db&"")
conn.Open connstr
Function HtmlEncode(Content)
Content = Replace(Content, ">", ">")
Content = Replace(Content, "<", "<")
Content = Replace(Content, " ", " ")
Content = Replace(Content, "'", "")
Content = Replace(Content, CHR(10),"<BR>")
HtmlEncode = content
End Function
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?