faq.asp

代码名称： Snitz Forums 2000 代码语言： 英文 代码类型： 国外代码 运行环境： ASP 授权方式： 免费代码 代码大小： 530kb 代码等级： 3 整

<%
'#################################################################################
'## Snitz Forums 2000 v3.4.05
'#################################################################################
'## Copyright (C) 2000-05 Michael Anderson, Pierre Gorissen,
'##                       Huw Reddick and Richard Kinser
'##
'## This program is free software; you can redistribute it and/or
'## modify it under the terms of the GNU General Public License
'## as published by the Free Software Foundation; either version 2
'## of the License, or (at your option) any later version.
'##
'## All copyright notices regarding Snitz Forums 2000
'## must remain intact in the scripts and in the outputted HTML
'## The "powered by" text/logo with a link back to
'## http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful,
'## but WITHOUT ANY WARRANTY; without even the implied warranty of
'## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'## GNU General Public License for more details.
'##
'## You should have received a copy of the GNU General Public License
'## along with this program; if not, write to the Free Software
'## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
'##
'## Support can be obtained from our support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## [e-mail]
'##
'#################################################################################
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<%
Response.Write	"      <table width=""100%"" border=""0"">" & vbNewLine & _
		"        <tr>" & vbNewLine & _
		"          <td><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & getCurrentIcon(strIconFolderOpen,"","") & "&nbsp;<a href=""default.asp"">All&nbsp;Forums</a><br />" & vbNewLine & _
		"          " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpen,"","") & "&nbsp;Frequently Asked Questions</font></td>" & vbNewLine & _
		"        </tr>" & vbNewLine & _
		"      </table>" & vbNewLine & _
		"      <table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
		"        <tr>" & vbNewLine & _
		"          <td bgcolor=""" & strTableBorderColor & """>" & vbNewLine & _
		"            <table border=""0"" width=""100%"" cellspacing=""1"" cellpadding=""4"">" & vbNewLine & _
		"              <tr>" & vbNewLine & _
		"                <td bgcolor=""" & strCategoryCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>FAQ Table of Contents</b></font></td>" & vbNewLine & _
		"              </tr>" & vbNewLine & _
		"              <tr>" & vbNewLine & _
		"                <td bgcolor=""" & strForumCellColor & """>" & vbNewLine & _
		"                <p><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & vbNewLine & _
		"                <ul>" & vbNewLine & _
		"                <li><span class=""spnMessageText""><a href=""#register"">Do I have to register?</a></span></li>" & vbNewLine
if (strIcons = "1") then
	Response.Write	"                <li><span class=""spnMessageText""><a href=""#smilies"">How can I use smilies and images?</a></span></li>" & vbNewLine
end if
Response.Write	"                <li><span class=""spnMessageText""><a href=""#hyperlink"">Can I add a hyperlink to my messages?</a></span></li>" & vbNewLine & _
		"                <li><span class=""spnMessageText""><a href=""#format"">Can I change the format of my text?</a></span></li>" & vbNewLine & _
		"                <li><span class=""spnMessageText""><a href=""#mods"">What are Moderators?</a></span></li>" & vbNewLine & _
		"                <li><span class=""spnMessageText""><a href=""#cookies"">Are cookies used?</a></span></li>" & vbNewLine & _
		"                <li><span class=""spnMessageText""><a href=""#activetopics"">What are active topics?</a></span></li>" & vbNewLine & _
		"                <li><span class=""spnMessageText""><a href=""#edit"">Can I edit my own posts?</a></span></li>" & vbNewLine & _
		"                <li><span class=""spnMessageText""><a href=""#attach"">Can I attach files?</a></span></li>" & vbNewLine & _
		"                <li><span class=""spnMessageText""><a href=""#search"">Can I search?</a></span></li>" & vbNewLine & _
		"                <li><span class=""spnMessageText""><a href=""#editprofile"">Can I edit my profile?</a></span></li>" & vbNewLine & _
		"                <li><span class=""spnMessageText""><a href=""#signature"">Can I attach my own signature to my posts?</a></span></li>" & vbNewLine & _
		"                <!--    <li><span class=""spnMessageText""><a href=""#announce"">What are announcements?</a></span></li> -->" & vbNewLine
if (strBadWordFilter = "1") then
	Response.Write	"                <li><span class=""spnMessageText""><a href=""#censor"">Are there any censor features?</a></span></li>" & vbNewLine
end if
if (stremail = "1") then
	Response.Write	"                <li><span class=""spnMessageText""><a href=""#pw"">What do I do if I forget my Password?</a></span></li>" & vbNewLine & _
			"                <li><span class=""spnMessageText""><a href=""#notify"">Can I be notified by e-mail when there are new posts?</a></span></li>" & vbNewLine
end if
if (strModeration = "1") then
	Response.Write	"                <li><span class=""spnMessageText""><a href=""#moderation"">What does it mean if a forum has Moderation enabled?</a></span></li>" & vbNewLine
end if
Response.Write	"                <li><span class=""spnMessageText""><a href=""#COPPA"">What is COPPA?</a></span></li>" & vbNewLine & _
		"                <li><span class=""spnMessageText""><a href=""#GetForum"">Where can I get my own copy of this Forum?</a></span></li>" & vbNewLine & _
		"                <li><span class=""spnMessageText""><a href=""mailto:" & strSender & """>Can't find your answer here? Send us an e-mail.</a></span></li>" & vbNewLine & _
		"                </ul>" & vbNewLine & _
		"                </font></p>" & vbNewLine & _
		"                </td>" & vbNewLine & _
		"              </tr>" & vbNewLine & _
		"              <tr>" & vbNewLine & _
		"                <td bgcolor=""" & strCategoryCellColor & """><a href=""#top"">" & getCurrentIcon(strIconGoUp,"Go To Top Of Page","align=""right""") & "</a><a name=""register""></a><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>Registering</b></font></td>" & vbNewLine & _
		"              </tr>" & vbNewLine & _
		"              <tr>" & vbNewLine & _
		"                <td bgcolor=""" & strForumCellColor & """>" & vbNewLine & _
		"                <p><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>"
if strProhibitNewMembers = "1" then
	Response.Write("The Administrator has turned off Registration for this forum. Only registered members are able to log in.")
elseif strRequireReg = "1" then
	Response.Write("Yes, registration is required. Registration is free and only takes a few minutes. The only required fields are your Username, which may be your real name or a nickname, a Password, and a valid e-mail address.<br /><br />")
else
	Response.Write("Registration is not required to view current topics on the Forum; however, if you wish to post a new topic or reply to an existing topic registration is required. Registration is free and only takes a few minutes. The only required fields are your Username, which may be your real name or a nickname, and a valid e-mail address.<br /><br />")
end if
if strProhibitNewMembers = "0" then
	Response.Write("The information you provide during registration is not outsourced or used for any advertising by " & strForumTitle & ".<br /><br />If you believe someone is sending you advertisements as a result of the information you provided through your registration, please notify us immediately.")
end if
Response.Write	"</font></p></td>" & vbNewLine & _
		"              </tr>" & vbNewLine
if (strIcons = "1") then
	strSmileCode = array("[:)]","[:D]","[8D]","[:I]","[:p]","[}:)]","[;)]","[:o)]","[B)]","[8]","[:(]","[8)]","[:0]","[:(!]","[xx(]","[|)]","[:X]","[^]","[V]","[?]")
	strSmileDesc = array("smile","big smile","cool","blush","tongue","evil","wink","clown","black eye","eightball","frown","shy","shocked","angry","dead","sleepy","kisses","approve","disapprove","question")
	strSmileName = array(strIconSmile,strIconSmileBig,strIconSmileCool,strIconSmileBlush,strIconSmileTongue,strIconSmileEvil,strIconSmileWink,strIconSmileClown,strIconSmileBlackeye,strIconSmile8ball,strIconSmileSad,strIconSmileShy,strIconSmileShock,strIconSmileAngry,strIconSmileDead,strIconSmileSleepy,strIconSmileKisses,strIconSmileApprove,strIconSmileDisapprove,strIconSmileQuestion)

	Response.Write	"              <tr>" & vbNewLine & _
			"                <td bgcolor=""" & strCategoryCellColor & """><a href=""#top"">" & getCurrentIcon(strIconGoUp,"Go To Top Of Page","align=""right""") & "</a><a name=""smilies""></a><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>Smilies</b></font></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr>" & vbNewLine & _
			"                <td bgcolor=""" & strForumCellColor & """>" & vbNewLine & _
			"                <p><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & vbNewLine & _
			"                You've probably seen others use smilies before in e-mail messages or other bulletin " & vbNewLine & _
			"                board posts. Smilies are keyboard characters used to convey an emotion, such as a smile " & vbNewLine & _