<!--
############################  智思留言本 版权声明  ##############################
#####  智思留言本系统（版本：ZSBS v3.1 构建于 2006/09/25）                  #####
#####  智思网络（zhisi.net) （2004-2024）版权所有！                         #####
#####  此留言本为自由源码版，你可以自由传播和使用而不用交纳任何款项，       #####
#####  你也可以进行更改，但必须本保留版权信息！                             #####
#####  如需删除版权信息，则必须经授权，并交纳版权费，否则将会诉诸于法律！   #####
#####  电子邮箱：zhisi@126.com  QQ：122178250  POPO：simonda                #####
#################################################################################
#####  此版权信息不会妨碍你正常使用本留言本，我们承诺完全免费，但保留版权！ #####
################ 请访问http://www.zhisi.net 查看新版本信息 ######################
-->
<!-- #include file="opendb.asp"-->
<!-- #include file="stat.asp"-->
<!-- #include file="ubbcode.asp" -->
<!-- #include file="pagination.asp" -->
<!-- #include file="zsbs_cls.asp" -->
<!-- #include file="commarea.asp" -->
<!-- #include file="GuestArea.asp" -->
<!-- #include file="ReplyArea.asp" -->
<!--===== Configuration ======================================================-->
<%
	dim Char_Set
		Char_Set = "gb2312"
		
	Dim zsbsObj
	Set zsbsObj = New zsbsClass
%>
<!--===== Configuration ======================================================-->
<%
  Dim ifNeedAuditing
  set rs=Server.CreateObject("ADODB.Recordset")
  sqlstr="select ID,GB_Name,Logo_IMG,CopyRight,Guest_Num,News_View,News_Label,SkinName,SkinStr,AlterSkin,Link_one,Link_two,Link_three,accessCount,ifNeedAuditing,IfRepNeedAud,FilterKeyWord,Guest_Ver,RepListNum,RepEnabled,GAreaWidth,UnViewZSNews from Config"

  On Error Resume Next
  rs.open sqlstr,conn,1,3
  If Err.Number = 0 Then
  	'--
  Else
    'Response.Write(Err.Description)
	'Response.End()
  	Response.Redirect("CheckSysVersion.asp")
  End If
  if not rs.eof then
    GBName  = rs("GB_Name")
    GBVer	= rs("Guest_Ver")
		GBCopy  = rs("CopyRight")
		GBLogo  = rs("Logo_IMG")
		GBENum  = rs("Guest_Num")
		GBVType = rs("Guest_VType")
		RepListNum = rs("RepListNum")
		RepEnabled = rs("RepEnabled")
		FilterKeyWord = rs("FilterKeyWord")
		GAreaWidth = rs("GAreaWidth")
		UnViewZSNews = rs("UnViewZSNews")
	
	if rs("AlterSkin") = False or Trim(Request.cookies("GBSkin"))=empty then
	  GBSkin  = rs("SkinStr")
	  Response.Cookies("GBSkin")  = GBSkin
	else
	  GBSkin = Trim(Request.Cookies("GBSkin"))
	  if GBSkin = "red" then
	    GBSkin  = "green" 
	  elseif GBSkin = "green" then
	    GBSkin  = "blue"
	  elseif GBSkin = "blue" then
	    GBSkin  = "red"
	  end if 
	  Response.Cookies("GBSkin")    = GBSkin
	  GBSkin = Trim(Request.Cookies("GBSkin"))
	end if
	
	GBSkin  = "skin/" + GBSkin
	GBCss	= GBSkin
	if rs("News_View")=True then
	  GBNews = 1
	else
	  GBNews = 0
	end if
	GBNsLb  = rs("News_Label")
	
	Link_one 		= rs("Link_one")
	Link_two 		= rs("Link_two")
	Link_three		= rs("Link_three")
	IfNeedAuditing  = rs("ifNeedAuditing")
	IfRepNeedAud = rs("IfRepNeedAud")

   rs.close
   set rs=nothing
	
  else
    GBName  = "网吧留言本"
	GBCopy  = "网吧留言本(2012-2015)&copy;版本所有"
	GBLogo  = "top.gif"
	GBENum  = 5
	GBSkin  = "images"
	GBNews  = 1
	GBNsLb  = "网吧留言本  E-mail:******@qq.com"  
  end if
%>
<!--=================↓ Common Function ======================================-->
<%
'------------------- v 1.4 解决留言不会换行的Bug-----------------------
function HTMLEncode(fString)
	if not isnull(fString) then
		fString = replace(fString, ">", "&gt;")
		fString = replace(fString, "<", "&lt;")
		
		fString = Replace(fString, CHR(32), "&nbsp;")
		fString = Replace(fString, CHR(9), "&nbsp;")
		fString = Replace(fString, CHR(34), "&quot;")
		fString = Replace(fString, CHR(39), "&#39;")
		fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
		fString = Replace(fString, CHR(10), "<BR> ")
		HTMLEncode = fString
	end if
end function
'------------------- v 1.4 解决留言不会换行的Bug-----------------------
%>
<%
'-------------------------- v 3.0 Security ----------------------------
function SecEncode(fString)
	if not isnull(fString) then
		fString = replace(fString, "javascript", "java-script")
		SecEncode = fString
	end if
end function
'-------------------------- v 3.0 Security -----------------------
%>
<%
'------------------- v 1.4 解决留言不会换行的Bug-----------------------
function HEncode(fString)
if not isnull(fString) then
	fString = replace(fString, "&gt;", ">")
	fString = replace(fString, "&lt;", "<")
	
	fString = Replace(fString, "&nbsp;", CHR(32))
	fString = Replace(fString, "&nbsp;", CHR(9))
	fString = Replace(fString, "&quot;", CHR(34))
	fString = Replace(fString, "&#39;", CHR(39))
	fString = Replace(fString, "</P><P> ", CHR(10) & CHR(10))
	fString = Replace(fString, "</p><p> ", CHR(10) & CHR(10))
	fString = Replace(fString, "<BR> ", CHR(10))
	fString = Replace(fString, "<br> ", CHR(10))
	HEncode = fString
end if
end function
'------------------- v 1.4 解决留言不会换行的Bug-----------------------
%>