admin_config_colors.asp

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

			"                	<option" & chkSelect(strForumLinkTextDecoration,"blink") & ">blink</option>" & vbNewLine & _
			"                	<option" & chkSelect(strForumLinkTextDecoration,"line-through") & ">line-through</option>" & vbNewLine & _
			"                	<option" & chkSelect(strForumLinkTextDecoration,"overline") & ">overline</option>" & vbNewLine & _
			"                	<option" & chkSelect(strForumLinkTextDecoration,"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>In Forum Visited Link Color:</b>&nbsp;</font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""strForumVisitedLinkColor"" size=""10"" maxLength=""20"" value=""" & chkExist(strForumVisitedLinkColor) & """>" & 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 Visited Link Decoration:</b>&nbsp;</font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """>" & vbNewLine & _
			"                <select name=""strForumVisitedTextDecoration"">" & vbNewLine & _
			"                	<option" & chkSelect(strForumVisitedTextDecoration,"none") & ">none</option>" & vbNewLine & _
			"                	<option" & chkSelect(strForumVisitedTextDecoration,"blink") & ">blink</option>" & vbNewLine & _
			"                	<option" & chkSelect(strForumVisitedTextDecoration,"line-through") & ">line-through</option>" & vbNewLine & _
			"                	<option" & chkSelect(strForumVisitedTextDecoration,"overline") & ">overline</option>" & vbNewLine & _
			"                	<option" & chkSelect(strForumVisitedTextDecoration,"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>In Forum Active Link Color:</b>&nbsp;</font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""strForumActiveLinkColor"" size=""10"" maxLength=""20"" value=""" & chkExist(strForumActiveLinkColor) & """>" & 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 Active Link Decoration:</b>&nbsp;</font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """>" & vbNewLine & _
			"                <select name=""strForumActiveTextDecoration"">" & vbNewLine & _
			"                	<option" & chkSelect(strForumActiveTextDecoration,"none") & ">none</option>" & vbNewLine & _
			"                	<option" & chkSelect(strForumActiveTextDecoration,"blink") & ">blink</option>" & vbNewLine & _
			"                	<option" & chkSelect(strForumActiveTextDecoration,"line-through") & ">line-through</option>" & vbNewLine & _
			"                	<option" & chkSelect(strForumActiveTextDecoration,"overline") & ">overline</option>" & vbNewLine & _
			"                	<option" & chkSelect(strForumActiveTextDecoration,"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>In Forum Hover Link Color:</b>&nbsp;</font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""strForumHoverFontColor"" size=""10"" maxLength=""20"" value=""" & chkExist(strForumHoverFontColor) & """>" & 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 Hover Link Decoration:</b>&nbsp;</font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """>" & vbNewLine & _
			"                <select name=""strForumHoverTextDecoration"">" & vbNewLine & _
			"                	<option" & chkSelect(strForumHoverTextDecoration,"none") & ">none</option>" & vbNewLine & _
			"                	<option" & chkSelect(strForumHoverTextDecoration,"blink") & ">blink</option>" & vbNewLine & _
			"                	<option" & chkSelect(strForumHoverTextDecoration,"line-through") & ">line-through</option>" & vbNewLine & _
			"                	<option" & chkSelect(strForumHoverTextDecoration,"overline") & ">overline</option>" & vbNewLine & _
			"                	<option" & chkSelect(strForumHoverTextDecoration,"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>Table Border Color:</b>&nbsp;</font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""strTableBorderColor"" size=""10"" maxLength=""20"" value=""" & chkExist(strTableBorderColor) & """>" & 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>Pop-Up Table Color:</b>&nbsp;</font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""strPopUpTableColor"" size=""10"" maxLength=""20"" value=""" & chkExist(strPopUpTableColor) & """>" & 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>Pop-Up Table Border Color:</b>&nbsp;</font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""strPopUpBorderColor"" size=""10"" maxLength=""20"" value=""" & chkExist(strPopUpBorderColor) & """>" & 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>New Font Color:</b>&nbsp;</font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""strNewFontColor"" size=""10"" maxLength=""20"" value=""" & chkExist(strNewFontColor) & """>" & 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>HighLight Font Color:</b>&nbsp;</font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""strHiLiteFontColor"" size=""10"" maxLength=""20"" value=""" & chkExist(strHiLiteFontColor) & """>" & 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>Search HighLight Color:</b>&nbsp;</font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""strSearchHiLiteColor"" size=""10"" maxLength=""20"" value=""" & chkExist(strSearchHiLiteColor) & """>" & 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>Page Background Image URL:</b>&nbsp;</font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""strPageBGImageURL"" size=""25"" maxLength=""100"" value=""" & chkExist(strPageBGImageURL) & """>" & vbNewLine & _
			"	         <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=colors#pagebgimage')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a>&nbsp;</td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""middle"">" & vbNewLine & _
			"                <td bgcolor=""" & strHeadCellColor & """ colspan=""2""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """><b>Table Size Configuration</b></font></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""middle"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Topic Left Column Width:</b>&nbsp;</font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""strTopicWidthLeft"" size=""5"" maxLength=""4"" value=""" & chkExistElse(strTopicWidthLeft,"100") & """>" & vbNewLine & _
			"	         <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=colors#columnwidth')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""middle"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Topic NOWRAP Left:</b>&nbsp;</font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
			"                On: <input type=""radio"" class=""radio"" name=""strTopicNoWrapLeft"" value=""1""" & chkRadio(strTopicNoWrapLeft,0,false) & ">" & vbNewLine & _
			"                Off: <input type=""radio"" class=""radio"" name=""strTopicNoWrapLeft"" value=""0""" & chkRadio(strTopicNoWrapLeft,0,true) & ">" & vbNewLine & _
			"                <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=colors#nowrap')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></font></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""middle"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Topic Right Column Width:</b>&nbsp;</font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><input type=""text"" name=""strTopicWidthRight"" size=""5"" maxLength=""4"" value=""" & chkExistElse(strTopicWidthRight,"100%") & """>" & vbNewLine & _
			"	         <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=colors#columnwidth')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""middle"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ align=""right""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>Topic NOWRAP Right:</b>&nbsp;</font></td>" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & vbNewLine & _
			"                On: <input type=""radio"" class=""radio"" name=""strTopicNoWrapRight"" value=""1""" & chkRadio(strTopicNoWrapRight,0,false) & ">" & vbNewLine & _
			"                Off: <input type=""radio"" class=""radio"" name=""strTopicNoWrapRight"" value=""0""" & chkRadio(strTopicNoWrapRight,0,true) & ">" & vbNewLine & _
			"                <a href=""JavaScript:openWindow3('pop_config_help.asp?mode=colors#nowrap')"">" & getCurrentIcon(strIconSmileQuestion,"","") & "</a></font></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"              <tr valign=""middle"">" & vbNewLine & _
			"                <td bgColor=""" & strPopUpTableColor & """ colspan=""2"" align=""center""><input type=""submit"" value=""Submit New Config"" id=""submit1"" name=""submit1""> <input type=""reset"" value=""Reset Old Values"" id=""reset1"" name=""reset1""></td>" & vbNewLine & _
			"              </tr>" & vbNewLine & _
			"            </table>" & vbNewLine & _
			"          </td>" & vbNewLine & _
			"        </tr>" & vbNewLine & _
			"      </table>" & vbNewLine & _
			"    </form>" & vbNewLine
end if
WriteFooter
Response.End
%>