common.asp

☆☆网吧客户留言簿☆☆ 管理用户名和密码都是:admin 演示：http://www39.websamba.com/51rose/netbarbook/

<!-- #include file="opendb.asp"-->
<!-- #include file="stat.asp"-->
<!-- #include file="ubbcode.asp" -->
<!--===== Configuration ======================================================-->
<%
	dim Char_Set
		Char_Set = "gb2312"
%>
<!--===== Configuration ======================================================-->
<%
  Dim ifNeedAuditing
  set rs=Server.CreateObject("ADODB.Recordset")
  sqlstr="select * from Config"

  rs.open sqlstr,conn,1,3
  if not rs.eof then
  GBName  = rs("GB_Name")
	GBCopy  = rs("CopyRight")
	GBLogo  = rs("Logo_IMG")
	GBENum  = rs("Guest_Num")
	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")
	If rs("ifNeedAuditing")=True Then
		ifNeedAuditing	= "YES"
	Else
		ifNeedAuditing  = "NO"
	End If
   rs.close
   set rs=nothing
	
  else
    GBName  = "☆☆ 在线网吧留言本( ZhiSi.Net ) ☆☆"
	GBCopy  = "&copy;版本所有"
	GBLogo  = "top.gif"
	GBENum  = 5
	GBSkin  = "images"
	GBNews  = 1
	GBNsLb  = "E-mail:[e-mail]  QQ:170811169"  
	Link_one 	= "<a href='http://www39.websamba.com/51rose/netbarbook/'>主页</a>"
	Link_two 	= "<a href='http://www.sotenet.com/yin/6.htm'>硬件常识</a>"
	Link_three	= "<a href='http://www39.websamba.com/51rose/netbarbook/'>在线网吧留言本</a>"
  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-----------------------
%>