common.asp

很不错的文章系统,可以下载下来看看吧

<!--
############################  智思留言本 版权声明  ##############################
#####  智思留言本系统（版本：ZSBS v3.0 构建于 2005/11/01）                  #####
#####  智思网络（zhisi.net) （2004-2024）版权所有！                         #####
#####  此留言本为自由源码版，你可以自由传播和使用而不用交纳任何款项，       #####
#####  你也可以进行更改，但必须本保留版权信息！                             #####
#####  如需删除版权信息，则必须经授权，并交纳版权费，否则将会诉诸于法律！   #####
#####  电子邮箱：[e-mail]  QQ：122178250  POPO：simonda                #####
#################################################################################
#####  此版权信息不会妨碍你正常使用本留言本，我们承诺完全免费，但保留版权！ #####
################ 请访问http://www.zhisi.net 查看新版本信息 ######################
-->
<!-- #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  = "智思网络(2004-2020)&copy;版本所有"
	GBLogo  = "top.gif"
	GBENum  = 5
	GBSkin  = "images"
	GBNews  = 1
	GBNsLb  = "智思网络  E-mail:[e-mail]  QQ:122178250  QQ群:7637647"  
	Link_one 	= "<a href='http://www.zhisi.net'>智思主页</a>"
	Link_two 	= "<a href='http://www.zhisi.net/learn/'>智思技术广角</a>"
	Link_three	= "<a href='http://www.zhisi.net/zsbook/'>智思留言本</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-----------------------
%>