config.asp

功能:同前置顶. 置底. 搜索. 审核. 编辑. 悄悄话. 系统发信通知站长. 滚动公告或不用公告. 冷色暖色. 直接上传. UBB.在线设置 ... 管理用户：admin 密码：admin 本文来

<%
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")


if Request("name")<>"" Then
dim server_v1,server_v2,server_v3
server_v1=Request.ServerVariables("SERVER_NAME")
server_v2=rs("siteurl")
server_v3="http://"&server_v1&""
if server_v2<>server_v3 then
Response.Write"进入本站再留言"
Response.End
end if
end if



%>