setting.asp

正版创力4.1SQL商业版!!!ASP版。

<!--#include file="../Conn.asp"-->
<!--#include file="../Inc/Cl_Const.asp"-->
<!--#include file="../Inc/Cl_ClsUbb.asp"-->
<!--#include file="../Inc/Cl_Function_Public.asp"-->
<%
Const ChannelID		= 10
Const GuestOpenRss	= 1
Const GuestOpenWap	= 1
Const GuestBookDir	= "GuestBook"
Const GuestBookName	= "留言本"
Const GuestItemName	= "留言"
Const GuestItemUnit	= "条"
Const TemplateDir	= "Template/Aspoo4/" Rem 模版文件目录


Dim rsGuest,sqlGuest
Dim PageTitle
Dim Action,ComeUrl
Dim TemplateIndex,TemplateShow,TemplateWrite,TemplateReply
TemplateIndex	= TemplateDir & "Index.html"
TemplateShow	= TemplateDir & "Show.html"
TemplateWrite	= TemplateDir & "Write.html"
TemplateReply	= TemplateDir & "Reply.html"
Action			= LCase(Trim(request("Action")))
ComeUrl			= Trim(request("ComeUrl"))
if ComeUrl="" Then
	ComeUrl=Request.ServerVariables("HTTP_REFERER")
	if ComeUrl="" then ComeUrl="Index.asp"
End If
Select Case Action
Case "myguest"
	PageTitle="我的" & GuestItemName
Case "nopass"
	If Cl.UserGroupID<>1 Then
		Call Cl.OutErr(0,Cl.LanguageNode("//GuestNoPurview"))
	End if
	PageTitle="待审" & GuestItemName
Case Else
	PageTitle="首页"
End Select
if keyword<>"" Then
	keyword = Cl.ReplaceBadChar(keyword)
	PageTitle = "搜索含有 <font color='red'>"&keyword&"</font> 的" & GuestItemName
End if

Cl.Path		= Cl.Language.selectSingleNode("//CurrentPath").text & "<a href='" & Cl.Web_info(4) & "'>" & Cl.Web_info(0) & "</a> &gt;&gt; <a href='" & InstallDir & GuestBookDir & "'>" & GuestBookName & "</a>"' &gt;&gt; " & PageTitle
Cl.Title	= PageTitle & "[" & Cl.Web_info(1) & "]"

'标示搜索关键字(strChar)
Function KeywordReplace(strChar)
	If keyword<>"" then
		If strChar="" Then 
			KeywordReplace = ""
		Else 
			KeywordReplace = replace(strChar,""&keyword&"","<font color='red'>"&keyword&"</font>")
		End If
	End if
End Function 

'显示Ubb标签
Function ShowUbb()
	Dim sTemp
	sTemp = "<script type=""text/javascript"" src=""" & Cl.WebDir & "Inc/js/Ubb.js""></script>"
	sTemp = sTemp & "字体："
	sTemp = sTemp & "<select onchange=""showfont(this.options[this.selectedIndex].value)"" name=""font"">"
	sTemp = sTemp & "<option value=""宋体"" selected>宋体</option>"
	sTemp = sTemp & "<option value=""楷体_GB2312"">楷体</option>"
	sTemp = sTemp & "<option value=""新宋体"">新宋体</option>"
	sTemp = sTemp & "<option value=""黑体"">黑体</option>"
	sTemp = sTemp & "<option value=""隶书"">隶书</option>"
	sTemp = sTemp & "<option value=""Andale Mono"">Andale Mono</option>"
	sTemp = sTemp & "<option value=""Arial"">Arial</option>"
	sTemp = sTemp & "<option value=""Arial Black"">Arial Black</option>"
	sTemp = sTemp & "<option value=""Book Antiqua"">Book Antiqua</option>"
	sTemp = sTemp & "<option value=""Century Gothic"">Century Gothic</option>"
	sTemp = sTemp & "<option value=""Comic Sans MS"">Comic Sans MS</option>"
	sTemp = sTemp & "<option value=""Courier New"">Courier New</option>"
	sTemp = sTemp & "<option value=""Georgia"">Georgia</option>"
	sTemp = sTemp & "<option value=""Impact"">Impact</option>"
	sTemp = sTemp & "<option value=""Tahoma"">Tahoma</option>"
	sTemp = sTemp & "<option value=""Times New Roman"" >Times New Roman</option>"
	sTemp = sTemp & "<option value=""Trebuchet MS"">Trebuchet MS</option>"
	sTemp = sTemp & "<option value=""Script MT Bold"">Script MT Bold</option>"
	sTemp = sTemp & "<option value=""Stencil"">Stencil</option>"
	sTemp = sTemp & "<option value=""Verdana"">Verdana</option>"
	sTemp = sTemp & "<option value=""Lucida Console"">Lucida Console</option>"
	sTemp = sTemp & "</select>&nbsp;"
	sTemp = sTemp & "大小："
	sTemp = sTemp & "<select name=""size"" onChange=""showsize(this.options[this.selectedIndex].value)"">"
	sTemp = sTemp & "<option value=""1"">1</option>"
	sTemp = sTemp & "<option value=""2"">2</option>"
	sTemp = sTemp & "<option value=""3"" selected>3</option>"
	sTemp = sTemp & "<option value=""4"">4</option>"
	sTemp = sTemp & "</select>&nbsp;"
	sTemp = sTemp & "颜色：<a href=""javascript:fontColor('FontColor')""><img src=""" & Cl.WebDir & "images/fgcolor.gif"" alt=""字体颜色"" border=""0"" align=""absmiddle""></a>"
	sTemp = sTemp & "&nbsp;"
	'sTemp = sTemp & "<IMG align=absmiddle onclick=openemot() src=""" & Cl.WebDir & "images/Ubb/emot.gif"" border=0 alt=选择心情图标 style=""cursor:hand"">"
	sTemp = sTemp & "<br />"
	sTemp = sTemp & "<img onclick=bold() align=absmiddle src=""" & Cl.WebDir & "images/Ubb/Ubb_bold.gif"" width=""22"" height=""22"" alt=""粗体"" border=""0"">"
	sTemp = sTemp & "<img onclick=italicize() align=absmiddle src=""" & Cl.WebDir & "images/Ubb/Ubb_italicize.gif"" width=""23"" height=""22"" alt=""斜体"" border=""0"">"
	sTemp = sTemp & "<img onclick=underline() align=absmiddle src=""" & Cl.WebDir & "images/Ubb/Ubb_underline.gif"" width=""23"" height=""22"" alt=""下划线"" border=""0"">"
	sTemp = sTemp & "<img onclick=center() align=absmiddle src=""" & Cl.WebDir & "images/Ubb/Ubb_center.gif"" width=""22"" height=""22"" alt=""居中"" border=""0"">"
	sTemp = sTemp & "<img onclick=hyperlink() align=absmiddle src=""" & Cl.WebDir & "images/Ubb/Ubb_url.gif"" width=""22"" height=""22"" alt=""超级链接"" border=""0"">"
	sTemp = sTemp & "<img onclick=emails() align=absmiddle src=""" & Cl.WebDir & "images/Ubb/Ubb_email.gif"" width=""23"" height=""22"" alt=""Email链接"" border=""0"">"
	sTemp = sTemp & "<img onclick=image() align=absmiddle src=""" & Cl.WebDir & "images/Ubb/Ubb_image.gif"" width=""23"" height=""22"" alt=""图片"" border=""0"">"
	sTemp = sTemp & "<img onclick=flash() align=absmiddle src=""" & Cl.WebDir & "images/Ubb/Ubb_swf.gif"" width=""23"" height=""22"" alt=""Flash图片"" border=""0"">"
	sTemp = sTemp & "<img onclick=Cdir() align=absmiddle src=""" & Cl.WebDir & "images/Ubb/Ubb_Shockwave.gif"" width=""23"" height=""22"" alt=""Shockwave文件"" border=""0"">"
	sTemp = sTemp & "<img onclick=Crm() align=absmiddle src=""" & Cl.WebDir & "images/Ubb/Ubb_rm.gif"" width=""23"" height=""22"" alt=""realplay视频文件"" border=""0"">"
	sTemp = sTemp & "<img onclick=Cwmv() align=absmiddle src=""" & Cl.WebDir & "images/Ubb/Ubb_mp.gif"" width=""23"" height=""22"" alt=""Media Player视频文件"" border=""0"">"
	sTemp = sTemp & "<img onclick=Cmov() align=absmiddle src=""" & Cl.WebDir & "images/Ubb/Ubb_qt.gif"" width=""23"" height=""22"" alt=""QuickTime视频文件"" border=""0"">"
	sTemp = sTemp & "<img onclick=showcode() align=absmiddle src=""" & Cl.WebDir & "images/Ubb/Ubb_code.gif"" width=""22"" height=""22"" alt=""代码"" border=""0"">"
	sTemp = sTemp & "<img onclick=quote() align=absmiddle src=""" & Cl.WebDir & "images/Ubb/Ubb_quote.gif"" width=""23"" height=""22"" alt=""引用"" border=""0"">"
	sTemp = sTemp & "<img onclick=setfly() align=absmiddle height=""22"" alt=""飞行字"" src=""" & Cl.WebDir & "images/Ubb/Ubb_fly.gif"" width=""23"" border=""0"">"
	sTemp = sTemp & "<img onclick=move() align=absmiddle height=""22"" alt=""移动字"" src=""" & Cl.WebDir & "images/Ubb/Ubb_move.gif"" width=""23"" border=""0"">"
	sTemp = sTemp & "<img onclick=glow() align=absmiddle height=""22"" alt=""发光字"" src=""" & Cl.WebDir & "images/Ubb/Ubb_glow.gif"" width=""23"" border=""0"">"
	sTemp = sTemp & "<img onclick=shadow() align=absmiddle height=""22"" alt=""阴影字"" src=""" & Cl.WebDir & "images/Ubb/Ubb_shadow.gif"" width=""23"" border=""0"">"
	sTemp = sTemp & "<img onclick=openhelp() align=absmiddle src=""" & Cl.WebDir & "images/Ubb/Ubb_Help.gif"" width=""23"" height=""22"" alt=""帮助"" border=""0"">"
	ShowUbb = sTemp
End Function

Function GetGuestTopicNum()
	Dim Rs
	Set Rs = Cl.Execute("select count(*) from Cl_Guest")
	GetGuestTopicNum = Rs(0)
	Set Rs = Nothing
End Function

Function GetGuestReplyNum()
	Dim Rs
	Set Rs = Cl.Execute("select Sum(ReplyCount) from Cl_Guest")
	GetGuestReplyNum = Rs(0)
	Set Rs = Nothing
End Function

Function GetGuestNoPassNum()
	Dim Rs
	Set Rs = Cl.Execute("select count(*) from Cl_Guest where Status=0")
	GetGuestNoPassNum = Rs(0)
	Set Rs = Nothing
End Function

%>