?? conn.asp
字號:
?<!--#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,"&","&")
utf8 = replace(utf8,"",""")
utf8 = replace(utf8,"<","<")
utf8 = replace(utf8,">",">")
utf8 = replace(utf8," "," ")
utf8 = replace(utf8,"$","$$")
utf8 = replace(utf8,"'","'")
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
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -