inc.asp

中国网站网贴吧程序源码（ASP+ACCESS） 实现功能： 多级分类查找,可按多级分类查找贴吧,多用户申请,任何人都可以申请自己的贴吧, 用户三种权限管理,1,普通会员,2,普通版主(只有管理自己的贴

<%
dim SystemName,SystemList,SystemUrl,SystemLogo,SystemUser,SystemQQ,SystemReg,SystemHelp,SystemPic,SystemFilter,SystemMeun,SystemTitle,SystemBody,SystemFont,SystemRefresh,SystemRefreshTime,SystemOff,SystemTxt,SystemVer,SystemNew,SystemNot,SystemVip,SystemUbb,SystemUp,SystemAd,SystemIntegral,SystemMaster,SystemCount,SystemMail,SystemCopy,SystemSmtp,SystemMailAddress,SystemSmtpAddress,SystemMailName,SystemMailPass,SystemCopyTxt,SystemCode,SystemJs
Sql="select SystemName,SystemList,SystemUrl,SystemLogo,SystemUser,SystemQQ,SystemReg,SystemHelp,SystemPic,SystemFilter,SystemMeun,SystemTitle,SystemBody,SystemFont,SystemRefresh,SystemRefreshTime,SystemOff,SystemTxt,SystemVer,SystemNew,SystemNot,SystemVip,SystemUbb,SystemUp,SystemAd,SystemIntegral,SystemMaster,SystemCount,SystemMail,SystemCopy,SystemSmtp,SystemMailAddress,SystemSmtpAddress,SystemMailName,SystemMailPass,SystemCopyTxt,SystemCode,SystemJs from QiQiBoy_System_Disp"
Set Rs=Conn.execute(Sql)
HOST_NAME=rs(0)
HOST_LIST=rs(1)
HOST_URL=rs(2)
HOST_LOGO=rs(3)
HOST_USER=rs(4)
HOST_OICQ=rs(5)
HOST_REG=rs(6)
HOST_HELP=rs(7)
HOST_PIC=rs(8)
HOST_FILTER=Split(rs(9),"|")
HOST_MEUN=rs(10)
HOST_TITLE=rs(11)
HOST_BODY=rs(12)
HOST_FONT=rs(13)
HOST_REFRESH=rs(14)
HOST_REFRESHTIME=rs(15)
HOST_OFF=rs(16)
HOST_TXT=rs(17)
HOST_VER=rs(18)
HOST_NEW=rs(19)
HOST_NOT=rs(20)
HOST_VIP=rs(21)
HOST_UBB=rs(22)
HOST_UP=rs(23)
HOST_AD=rs(24)
HOST_INTEGRAL=rs(25)
HOST_MASTER=rs(26)
HOST_COUNT=rs(27)
HOST_MAIL=rs(28)
HOST_COPY=rs(29)
HOST_SMTP=rs(30)
HOST_MAILADDRESS=rs(31)
HOST_SMTPADDRESS=rs(32)
HOST_MAILNAME=rs(33)
HOST_MAILPASS=rs(34)
HOST_COPYTXT=rs(35)
HOST_CODE=rs(36)
HOST_JS=rs(37)
%>
<%
Sub Board_Top()
	If HOST_OFF=1 and UserGroupID<3 then
		response.write "<br><br><center><table border=1 cellpadding=20 bordercolor=black bgcolor=#EEEEEE width=450>"
		response.write "<tr><td style=font:9pt Verdana>"
		response.write "<center><font face=Georgia,Tahoma size=2><u>"&HOST_TXT&"</u></font></center>"
		response.write "</td></tr></table></center>"
		Response.End
	end if
	If HOST_REFRESH=1 and UserGroupID<2 then
		if DateDiff("s",Session("RefreshTime"),Now())<Cint(HOST_REFRESHTIME) then
			response.write "<br><br><center><table border=1 cellpadding=20 bordercolor=black bgcolor=#EEEEEE width=450>"
			response.write "<tr><td style=font:9pt Verdana>"
			response.write "<center><font face=Georgia,Tahoma size=2><u>友情提示：系统已启用防刷新功能,请不要在"&HOST_REFRESHTIME&"秒内同时刷新页面...</u></font></center>"
			response.write "</td></tr></table></center>"
			Response.End
		end if
		Session("RefreshTime")=Now()
	end if
End Sub
%>

<%
Function Topic_Filter(Content)
	if not isNull(Content) then
		For x = 0 to Ubound(HOST_FILTER)
			Content=Replace(Content,HOST_FILTER(x),String(Len(HOST_FILTER(x)),"*"))
		Next
		Topic_Filter = Content
	End if
End Function
%>
<% Call Board_Top() %>