faq.asp

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

			"                " & getCurrentIcon(strIconSmile,"","hspace=""10"" align=""absmiddle""") & " or a frown " & vbNewLine & _
			"                " & getCurrentIcon(strIconSmileSad,"","hspace=""10"" align=""absmiddle""") & ". This bulletin board " & vbNewLine & _
			"                automatically converts certain text to a graphical representation when it is " & vbNewLine & _
			"                inserted between brackets [].  Here are the smilies that are currently " & vbNewLine & _
			"                supported by " & strForumTitle & ":<br />" & vbNewLine & _
			"                  <table border=""0"" align=""center"" cellpadding=""5"">" & vbNewLine & _
			"                    <tr valign=""top"">" & vbNewLine & _
			"                      <td>" & vbNewLine & _
			"                        <table border=""0"" align=""center"">" & vbNewLine
	for sm = 0 to 9
		Response.Write	"                          <tr>" & vbNewLine & _
				"                            <td bgcolor=""" & strForumCellColor & """>" & getCurrentIcon(strSmileName(sm),"","hspace=""10"" align=""absmiddle""") & "</td>" & vbNewLine & _
				"                            <td bgcolor=""" & strForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & strSmileDesc(sm) & "</font></td>" & vbNewLine & _
				"                            <td bgcolor=""" & strForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & strSmileCode(sm) & "</font></td>" & vbNewLine & _
				"                          </tr>" & vbNewLine
	next
	Response.Write	"                        </table>" & vbNewLine & _
			"                      </td>" & vbNewLine & _
			"                      <td>" & vbNewLine & _
			"                        <table border=""0"" align=""center"">" & vbNewLine
	for sm = 10 to 19
		Response.Write	"                          <tr>" & vbNewLine & _
				"                            <td bgcolor=""" & strForumCellColor & """>" & getCurrentIcon(strSmileName(sm),"","hspace=""10"" align=""absmiddle""") & "</td>" & vbNewLine & _
				"                            <td bgcolor=""" & strForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & strSmileDesc(sm) & "</font></td>" & vbNewLine & _
				"                            <td bgcolor=""" & strForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & strSmileCode(sm) & "</font></td>" & vbNewLine & _
				"                          </tr>" & vbNewLine
	next
	Response.Write	"                        </table>" & vbNewLine & _
			"                      </td>" & vbNewLine & _
			"                    </tr>" & vbNewLine & _
			"                  </table></font></p>" & vbNewLine & _
			"                </td>" & vbNewLine & _
			"              </tr>" & vbNewLine
end if
Response.Write	"              <tr>" & vbNewLine & _
		"                <td bgcolor=""" & strCategoryCellColor & """><a href=""#top"">" & getCurrentIcon(strIconGoUp,"Go To Top Of Page","align=""right""") & "</a><a name=""hyperlink""></a><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>Creating a Hyperlink in your message</b></font></td>" & vbNewLine & _
		"              </tr>" & vbNewLine & _
		"              <tr>" & vbNewLine & _
		"                <td bgcolor=""" & strForumCellColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & vbNewLine & _
		"                <p>You can easily add a hyperlink to your message.</p><br />" & vbNewLine & _
		"                <p>All that you need to do is type the URL (" & strForumURL & "), and it will automatically be converted to a URL (<span class=""spnMessageText""><a href=""" & strForumURL & """ target=""_blank"">" & strForumURL & "</a></span>)!</p><br />" & vbNewLine & _
		"                <p>The trick here is to make sure you prefix your URL with the <b>http://</b>, <b>https://</b> or <b>file://</b></p><br />" & vbNewLine & _
		"                <p>You can also add a mailto link to your message by typing in your e-mail address.<br />" & vbNewLine & _
		"                <blockquote>" & vbNewLine & _
		"                       <i>This Example:</i><br />" & vbNewLine & _
		"                       <b>" & strSender & "</b><br />" & vbNewLine & _
		"                       <i>Outputs this:</i><br />" & vbNewLine & _
		"                       <span class=""spnMessageText""><a href=""mailto:" & strSender & """>" & strSender & "</a></span></p>" & vbNewLine & _
		"                </blockquote><br />" & vbNewLine & _
		"                <p>Another way to add hyperlinks is to use the <b>[url]</b>linkto<b>[/url]</b> tags</p>" & vbNewLine & _
		"                <blockquote>" & vbNewLine & _
		"                       <i>This Example:</i><br />" & vbNewLine & _
		"                       <b>[url]</b>" & strForumURL & "<b>[/url]</b> takes you home!<br />" & vbNewLine & _
		"                       <i>Outputs This:</i><br />" & vbNewLine & _
		"                       <span class=""spnMessageText""><a href=""" & strForumURL & """>" & strForumURL & "</a></span> takes you home!" & vbNewLine & _
		"                </blockquote></p>" & vbNewLine & _
		"                <p>" & vbNewLine & _
		"                <p>If you use this tag: <b>[url=&quot;</b>linkto<b>&quot;]</b>description<b>[/url]</b> you can add a description to the link.</p>" & vbNewLine & _
		"                <blockquote>" & vbNewLine & _
		"                       <i>This Example:</i><br />" & vbNewLine & _
		"                       Take me to <b>[url=&quot;" & strForumURL & "&quot;]</b>" & strForumTitle & "<b>[/url]</b><br />" & vbNewLine & _
		"                       <i>Outputs This:</i><br />" & vbNewLine & _
		"                       Take me to <span class=""spnMessageText""><a href=""" & strForumURL & """>" & strForumTitle & "</a></span>" & vbNewLine & _
		"                </blockquote>" & vbNewLine & _
		"                <blockquote>" & vbNewLine & _
		"                       <i>This Example:</i><br />" & vbNewLine & _
		"                       If you have a question <b>[url=&quot;" & strSender & "&quot;]</b>E-Mail Me<b>[/url]</b><br />" & vbNewLine & _
		"                       <i>Outputs This:</i><br />" & vbNewLine & _
		"                       If you have a question <span class=""spnMessageText""><a href=""mailto:" & strSender & """>E-Mail Me</a></span>" & vbNewLine & _
		"                </blockquote>" & vbNewLine & _
		"                <br />" & vbNewLine
if (strIMGInPosts = "1") then
	Response.Write	"                You can make clickable images by combining the <b>[url=""</b>linkto<b>""]</b>description<b>[/url]</b> and <b>[img]</b>image_url<b>[/img]</b> tags<br />" & vbNewLine & _
			"                <blockquote>" & vbNewLine & _
			"                       <i>This Example:</i><br />" & vbNewLine & _
			"                       <b>[url=&quot;" & strForumURL & "&quot;][img]</b>" & strTitleImage & "<b>[/img][/url]</b><br />" & vbNewLine & _
			"                       <i>Outputs This:</i><br />" & vbNewLine & _
			"                       <a href=""" & strForumURL & """ target=""_blank"">" & getCurrentIcon(strTitleImage & "||","","") & "</a>" & vbNewLine & _
			"                </blockquote>" & vbNewLine & _
			"                </p>" & vbNewLine
end if
Response.Write	"                </font></td>" & vbNewLine & _
		"              </tr>" & vbNewLine
if strAllowForumCode = "1" then
	Response.Write	"              <tr>" & vbNewLine & _
			"                <td bgcolor=""" & strCategoryCellColor & """><a href=""#top"">" & getCurrentIcon(strIconGoUp,"Go To Top Of Page","align=""right""") & "</a><a name=""format""></a><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """><b>How to format text with Bold, Italic, Quote, etc...</b></font></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr>" & vbNewLine & _
			"                <td bgcolor=""" & strForumCellColor & """>" & vbNewLine & _
			"                <p><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strForumFontColor & """>" & vbNewLine & _
			"                There are several Forum Codes you may use to change the appearance " & vbNewLine & _
			"                of your text.&nbsp; Following is the list of codes currently available:</p>" & vbNewLine & _
			"                <blockquote>" & vbNewLine & _
			"                <p><b>Bold:</b> Enclose your text with [b] and [/b] .&nbsp; <i>Example:</i> This is <b>[b]</b>bold<b>[/b]</b> text. = This is <b>bold</b> text.</p>" & vbNewLine & _
			"                <p><i>Italic:</i> Enclose your text with [i] and [/i] .&nbsp; <i>Example:</i> This is <b>[i]</b>italic<b>[/i]</b> text. = This is <i>italic</i> text.</p>" & vbNewLine & _
			"                <p><u>Underline:</u> Enclose your text with [u] and [/u]. <i>Example:</i> This is <b>[u]</b>underline<b>[/u]</b> text. =  This is <u>underline</u> text.</p>" & vbNewLine & _
			"                <p><b>Aligning Text Left:</b> Enclose your text with [left] and [/left]" & vbNewLine & _
			"                </p>" & vbNewLine & _
			"                <p><b>Aligning Text Center:</b> Enclose your text with [center] and [/center]" & vbNewLine & _
			"                </p>" & vbNewLine & _
			"                <p><b>Aligning Text Right:</b> Enclose your text with [right] and [/right]" & vbNewLine & _
			"                </p>" & vbNewLine & _
			"                <p><b>Striking Text:</b> Enclose your text with [s] and [/s]<br />" & vbNewLine & _
			"                Example: <b>[s]</b>mistake<b>[/s]</b> = <s>mistake</s>" & vbNewLine & _
			"                </p>" & vbNewLine & _
			"                <p><b>Horizontal Rule:</b> Place a horizontal line in your post with [hr]<br />" & vbNewLine & _
			"                Example: <b>[hr]</b> = <hr noshade size=""1"">" & vbNewLine & _
			"                </p>" & vbNewLine & _
			"                <p>&nbsp; </p>" & vbNewLine & _
			"                <p><b>Font Colors:</b><br />" & vbNewLine & _
			"                Enclose your text with [<i>fontcolor</i>] and [/<i>fontcolor</i>] <br />" & vbNewLine & _
			"                <i>Example:</i> <b>[red]</b>Text<b>[/red]</b> = <font color=""red"">Text</font id=""red""><br />" & vbNewLine & _
			"                <i>Example:</i> <b>[blue]</b>Text<b>[/blue]</b> = <font color=""blue"">Text</font id=""blue""><br />" & vbNewLine & _
			"                <i>Example:</i> <b>[pink]</b>Text<b>[/pink]</b> = <font color=""pink"">Text</font id=""pink""><br />" & vbNewLine & _
			"                <i>Example:</i> <b>[brown]</b>Text<b>[/brown]</b> = <font color=""brown"">Text</font id=""brown""><br />" & vbNewLine & _
			"                <i>Example:</i> <b>[black]</b>Text<b>[/black]</b> = <font color=""black"">Text</font id=""black""><br />" & vbNewLine & _
			"                <i>Example:</i> <b>[orange]</b>Text<b>[/orange]</b> = <font color=""orange"">Text</font id=""orange""><br />" & vbNewLine & _
			"                <i>Example:</i> <b>[violet]</b>Text<b>[/violet]</b> = <font color=""violet"">Text</font id=""violet""><br />" & vbNewLine & _
			"                <i>Example:</i> <b>[yellow]</b>Text<b>[/yellow]</b> = <font color=""yellow"">Text</font id=""yellow""><br />" & vbNewLine & _