config.asp

来自「此留言本实用Dreamweaver8开发环境 连接ACCess数据库 超级完整版」· ASP 代码 · 共 36 行

<%
on error resume next 

ck=""
set conn=server.CreateObject("adodb.connection")
DBPath = Server.MapPath("images/yesitis.asp")
conn.open "provider=microsoft.jet.oledb.4.0; data source="&DBpath
function CloseDB
Conn.Close
set Conn=Nothing
End Function
%>


<!--#include file="conn.asp"--> 
<%
starttime=timer()
set rs=conn.execute("SELECT * FROM gbinfo")
LogName=rs("logname")
LogPWD=rs("logpwd")
show_style=rs("defaultstyle")
Showlynum=rs("showlynum")
siteurl= rs("siteurl")
USRName= rs("username")
popwrite=rs("popwrite")
notice=rs("notice")
ubbcode=rs("ubbcode")
lylitmit=split(rs("lymax"),"|")
lymax=cint(lylitmit(1))
lymin=cint(lylitmit(0))
shhe=rs("shhe")
click=rs("visit")
BottomStr=rs("BottomStr")
%>