conn.asp

找北文章系统

<!--#include file="codeun.asp"-->
<% set conn=Createobject("ADODB.Connection")
conn.ConnectionString="DBQ="& server.mappath("../admin/#sndsandbnsabd.mdb")& ";DRIVER={Microsoft Access Driver (*.mdb)};"
conn.open
%>
<%
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 * from site"
rs.open Sql,conn,1,2
fl=rs("fl")
sb=rs("sb")
xb=rs("xb")
ba=rs("ba")
url=rs("url")
name=rs("name")
shu=rs("sj")
fl=rs("fl")
rs.close
set rs=nothing
%>