conn.asp

来自「找北文章系统」· ASP 代码 · 共 44 行

<!--#include file="admin/codeun.asp"-->
<% set conn=Createobject("ADODB.Connection")
conn.ConnectionString="DBQ="& server.mappath("admin/#sndsandbnsabd.mdb")& ";DRIVER={Microsoft Access Driver (*.mdb)};"
conn.open
%>
<%
'====================================================================
' 请你保留这段说明，这并不会影响你的速度.   交流QQ:31424717
' 程序制作：找北
' 升级时间： 2006-2-5
' E-Mail: [e-mail]   	
'====================================================================
%>
<%
On Error GoTo 0
function utf8(str)
if str="" or isnull(str) then
	tohtm=str
	exit function
end if
utf8 = replace(str,"&","&amp;")
utf8 = replace(utf8,"","&quot;")
utf8 = replace(utf8,"<","&lt;")
utf8 = replace(utf8,">","&gt;")
utf8 = replace(utf8," ","&nbsp;")
utf8 = replace(utf8,"$","$$")
utf8 = replace(utf8,"&#39;","'")
utf8 = replace(utf8,vbnewline,"<br/>")
end function
%>
<%
set rs=server.createobject("ADODB.Recordset")
Sql="select fl,sb,xb,ba,url,name,logo from site"
rs.open Sql,conn,1,1
fl=rs("fl")
sb=rs("sb")
xb=rs("xb")
ba=rs("ba")
url=rs("url")
name=rs("name")
logo=rs("logo")
rs.close
set rs=nothing
%>