admin_config_colors.asp

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

			"                	<option value=""4""" & chkSelect(strFooterFontSize,4) & ">4 (14 pt)</option>" & vbNewLine & _
			"                	<option value=""5""" & chkSelect(strFooterFontSize,5) & ">5 (18 pt)</option>" & vbNewLine & _
			"                	<option value=""6""" & chkSelect(strFooterFontSize,6) & ">6 (24 pt)</option>" & vbNewLine & _
			"                	<option value=""7""" & chkSelect(strFooterFontSize,7) & ">7 (36 pt)</option>" & vbNewLine & _
			"                </select>" & vbNewLine & _
			"                <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=colors#fontsize')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""middle"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Base Background Color:</b>&nbsp;</font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""strPageBGColor"" size=""10"" maxLength=""20"" value=""" & chkExist(strPageBGColor) & """>" & vbNewLine & _
			"	         <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=colors#colors')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""middle"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Default Font Color:</b>&nbsp;</font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""strDefaultFontColor"" size=""10"" maxLength=""20"" value=""" & chkExist(strDefaultFontColor) & """>" & vbNewLine & _
			"	         <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=colors#colors')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""middle"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Link Color:</b>&nbsp;</font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""strLinkColor"" size=""10"" maxLength=""20"" value=""" & chkExist(strLinkColor) & """>" & vbNewLine & _
			"	         <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=colors#colors')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""middle"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Link Decoration:</b>&nbsp;</font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """>" & vbNewLine & _
			"                <select name=""strLinkTextDecoration"">" & vbNewLine & _
			"                	<option" & chkSelect(strLinkTextDecoration,"none") & ">none</option>" & vbNewLine & _
			"                	<option" & chkSelect(strLinkTextDecoration,"blink") & ">blink</option>" & vbNewLine & _
			"                	<option" & chkSelect(strLinkTextDecoration,"line-through") & ">line-through</option>" & vbNewLine & _
			"                	<option" & chkSelect(strLinkTextDecoration,"overline") & ">overline</option>" & vbNewLine & _
			"                	<option" & chkSelect(strLinkTextDecoration,"underline") & ">underline</option>" & vbNewLine & _
			"                </select>" & vbNewLine & _
			"                <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=colors#fontdecorations')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></font></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""middle"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Visited Link Color:</b>&nbsp;</font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""strVisitedLinkColor"" size=""10"" maxLength=""20"" value=""" & chkExist(strVisitedLinkColor) & """>" & vbNewLine & _
			"	         <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=colors#colors')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""middle"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Visited Link Decoration:</b>&nbsp;</font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """>" & vbNewLine & _
			"                <select name=""strVisitedTextDecoration"">" & vbNewLine & _
			"                	<option" & chkSelect(strVisitedTextDecoration,"none") & ">none</option>" & vbNewLine & _
			"                	<option" & chkSelect(strVisitedTextDecoration,"blink") & ">blink</option>" & vbNewLine & _
			"                	<option" & chkSelect(strVisitedTextDecoration,"line-through") & ">line-through</option>" & vbNewLine & _
			"                	<option" & chkSelect(strVisitedTextDecoration,"overline") & ">overline</option>" & vbNewLine & _
			"                	<option" & chkSelect(strVisitedTextDecoration,"underline") & ">underline</option>" & vbNewLine & _
			"                </select>" & vbNewLine & _
			"                <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=colors#fontdecorations')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a>" & vbNewLine & _
			"                </td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""middle"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Active Link Color:</b>&nbsp;</font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""strActiveLinkColor"" size=""10"" maxLength=""20"" value=""" & chkExist(strActiveLinkColor) & """>" & vbNewLine & _
			"	         <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=colors#colors')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""middle"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Active Link Decoration:</b>&nbsp;</font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """>" & vbNewLine & _
			"                <select name=""strActiveTextDecoration"">" & vbNewLine & _
			"                	<option" & chkSelect(strActiveTextDecoration,"none") & ">none</option>" & vbNewLine & _
			"                	<option" & chkSelect(strActiveTextDecoration,"blink") & ">blink</option>" & vbNewLine & _
			"                	<option" & chkSelect(strActiveTextDecoration,"line-through") & ">line-through</option>" & vbNewLine & _
			"                	<option" & chkSelect(strActiveTextDecoration,"overline") & ">overline</option>" & vbNewLine & _
			"                	<option" & chkSelect(strActiveTextDecoration,"underline") & ">underline</option>" & vbNewLine & _
			"                </select>" & vbNewLine & _
			"                <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=colors#fontdecorations')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a>" & vbNewLine & _
			"                </td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""middle"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Hover Link Color:</b>&nbsp;</font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""strHoverFontColor"" size=""10"" maxLength=""20"" value=""" & chkExist(strHoverFontColor) & """>" & vbNewLine & _
			"	         <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=colors#colors')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""middle"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Hover Link Decoration:</b>&nbsp;</font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """>" & vbNewLine & _
			"                <select name=""strHoverTextDecoration"">" & vbNewLine & _
			"                	<option" & chkSelect(strHoverTextDecoration,"none") & ">none</option>" & vbNewLine & _
			"                	<option" & chkSelect(strHoverTextDecoration,"blink") & ">blink</option>" & vbNewLine & _
			"                	<option" & chkSelect(strHoverTextDecoration,"line-through") & ">line-through</option>" & vbNewLine & _
			"                	<option" & chkSelect(strHoverTextDecoration,"overline") & ">overline</option>" & vbNewLine & _
			"                	<option" & chkSelect(strHoverTextDecoration,"underline") & ">underline</option>" & vbNewLine & _
			"                </select>" & vbNewLine & _
			"                <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=colors#fontdecorations')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""middle"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Header Background Color:</b>&nbsp;</font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""strHeadCellColor"" size=""10"" maxLength=""20"" value=""" & chkExist(strHeadCellColor) & """>" & vbNewLine & _
			"	         <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=colors#colors')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""middle"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Header Font Color:</b>&nbsp;</font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""strHeadFontColor"" size=""10"" maxLength=""20"" value=""" & chkExist(strHeadFontColor) & """>" & vbNewLine & _
			"	         <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=colors#colors')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""middle"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Category Background Color:</b>&nbsp;</font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""strCategoryCellColor"" size=""10"" maxLength=""20"" value=""" & chkExist(strCategoryCellColor) & """>" & vbNewLine & _
			"	         <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=colors#colors')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""middle"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Category Font Color:</b>&nbsp;</font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""strCategoryFontColor"" size=""10"" maxLength=""20"" value=""" & chkExist(strCategoryFontColor) & """>" & vbNewLine & _
			"	         <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=colors#colors')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""middle"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>First Cell Color:</b>&nbsp;</font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""strForumFirstCellColor"" size=""10"" maxLength=""20"" value=""" & chkExist(strForumFirstCellColor) & """>" & vbNewLine & _
			"	         <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=colors#colors')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""middle"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>First Alternating Cell Color:</b>&nbsp;</font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""strForumCellColor"" size=""10"" maxLength=""20"" value=""" & chkExist(strForumCellColor) & """>" & vbNewLine & _
			"	         <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=colors#colors')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""middle"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Second Alternating Cell Color:</b>&nbsp;</font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""strAltForumCellColor"" size=""10"" maxLength=""20"" value=""" & chkExist(strAltForumCellColor) & """>" & vbNewLine & _
			"	         <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=colors#colors')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""middle"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>In Forum Font Color:</b>&nbsp;</font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""strForumFontColor"" size=""10"" maxLength=""20"" value=""" & chkExist(strForumFontColor) & """>" & vbNewLine & _
			"	         <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=colors#colors')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""middle"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>In Forum Link Color:</b>&nbsp;</font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""strForumLinkColor"" size=""10"" maxLength=""20"" value=""" & chkExist(strForumLinkColor) & """>" & vbNewLine & _
			"	         <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=colors#colors')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""middle"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>In Forum Link Decoration:</b>&nbsp;</font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """>" & vbNewLine & _
			"                <select name=""strForumLinkTextDecoration"">" & vbNewLine & _
			"                	<option" & chkSelect(strForumLinkTextDecoration,"none") & ">none</option>" & vbNewLine & _