?<!--#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: g362hao@gmail.com   	
'====================================================================
%>
<%
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
%>