conn.asp

个性网名转换-繁体字转换-qq强制聊天-qq秀查看-空间留言代码编辑器-等其他常用工具

<!-- #include file="../config.asp"-->
<%
dim logintext
If Session("username")="" Then
logintext="<a href=""../accounts/login.asp"">登录</a>"
Else
logintext="<a href=""../accounts/logout/"">退出</a>"
End If
on error resume next
set conn=Server.CreateObject("ADODB.Connection")
conn.open "DRIVER=Driver do Microsoft Access (*.mdb);UID=admin;PWD=;DBQ="&Server.MapPath("../"&mdbpath&"")
set rs12=Server.CreateObject("ADODB.RecordSet")
sql="select * from admin"
rs12.open sql,conn,1,1
sitetitle=rs12("sitetitle")
sitemeta=rs12("sitemeta")
sitekey=rs12("sitekey")
sitehead=rs12("sitehead")
sitefoot=rs12("sitefoot")
rs12.close
set rs12=nothing
%>