admin_config_colors.asp

一个不错的ASP论坛源码

<form action="admin_config_colors.asp" method="post" id="Form1" name="Form1">
<input type="hidden" name="Method_Type" value="Write_Configuration">
<table border="0" cellspacing="1" cellpadding="4" align=center bgcolor="<% =strPopUpBorderColor %>">
<% '################################## %>
  <tr valign="top">
    <td bgcolor="<% =strHeadCellColor %>" colspan="2"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>">字型样式/表格大小/框架颜色设定</font></td>
  </tr>
  <tr valign="top">
    <td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">字体：</font></td>
    <td bgColor="<% =strPopUpTableColor %>"><input type="text" name="strDefaultFontFace" size="25" value="<% if strDefaultFontFace <> "" then Response.Write(strDefaultFontFace) else '## do nothing %>">
    <a href="JavaScript:openWindow3('pop_config_help.asp#fontfacetype')"><img src="<%=strImageURL %>icon_smile_question.gif" border="0"></a>
    </td>
  </tr>
  <tr valign="top">
    <td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">默认字体大小：</font></td>
    <td bgColor="<% =strPopUpTableColor %>">
    <select name="strDefaultFontSize">
      <option<% if (lcase(strDefaultFontSize)="1") then Response.Write(" selected") %> value="1">1 (8 pt)</option>
      <option<% if (lcase(strDefaultFontSize)="2") then Response.Write(" selected") %> value="2">2 (10 pt)</option>
      <option<% if (lcase(strDefaultFontSize)="3") then Response.Write(" selected") %> value="3">3 (12 pt)</option>
      <option<% if (lcase(strDefaultFontSize)="4") then Response.Write(" selected") %> value="4">4 (14 pt)</option>
      <option<% if (lcase(strDefaultFontSize)="5") then Response.Write(" selected") %> value="5">5 (18 pt)</option>
      <option<% if (lcase(strDefaultFontSize)="6") then Response.Write(" selected") %> value="6">6 (24 pt)</option>
      <option<% if (lcase(strDefaultFontSize)="6") then Response.Write(" selected") %> value="7">7 (36 pt)</option>
    </select>
    <a href="JavaScript:openWindow3('pop_config_help.asp#fontsize')"><img src="<%=strImageURL %>icon_smile_question.gif" border="0"></a>
    </td>
  </tr>
  <tr valign="top">
    <td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">标题字体大小：</font></td>
    <td bgColor="<% =strPopUpTableColor %>">
    <select name="strHeaderFontSize">
      <option<% if (lcase(strHeaderFontSize)="1") then Response.Write(" selected") %> value="1">1 (8 pt)</option>
      <option<% if (lcase(strHeaderFontSize)="2") then Response.Write(" selected") %> value="2">2 (10 pt)</option>
      <option<% if (lcase(strHeaderFontSize)="3") then Response.Write(" selected") %> value="3">3 (12 pt)</option>
      <option<% if (lcase(strHeaderFontSize)="4") then Response.Write(" selected") %> value="4">4 (14 pt)</option>
      <option<% if (lcase(strHeaderFontSize)="5") then Response.Write(" selected") %> value="5">5 (18 pt)</option>
      <option<% if (lcase(strHeaderFontSize)="6") then Response.Write(" selected") %> value="6">6 (24 pt)</option>
      <option<% if (lcase(strHeaderFontSize)="6") then Response.Write(" selected") %> value="7">7 (36 pt)</option>
    </select>
    <a href="JavaScript:openWindow3('pop_config_help.asp#fontsize')"><img src="<%=strImageURL %>icon_smile_question.gif" border="0"></a>
    </td>
  </tr>
  <tr valign="top">
    <td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">页眉字体大小：</font></td>
    <td bgColor="<% =strPopUpTableColor %>">
    <select name="strFooterFontSize">
      <option<% if (lcase(strFooterFontSize)="1") then Response.Write(" selected") %> value="1">1 (8 pt)</option>
      <option<% if (lcase(strFooterFontSize)="2") then Response.Write(" selected") %> value="2">2 (10 pt)</option>
      <option<% if (lcase(strFooterFontSize)="3") then Response.Write(" selected") %> value="3">3 (12 pt)</option>
      <option<% if (lcase(strFooterFontSize)="4") then Response.Write(" selected") %> value="4">4 (14 pt)</option>
      <option<% if (lcase(strFooterFontSize)="5") then Response.Write(" selected") %> value="5">5 (18 pt)</option>
      <option<% if (lcase(strFooterFontSize)="6") then Response.Write(" selected") %> value="6">6 (24 pt)</option>
      <option<% if (lcase(strFooterFontSize)="6") then Response.Write(" selected") %> value="7">7 (36 pt)</option>
    </select>
    <a href="JavaScript:openWindow3('pop_config_help.asp#fontsize')"><img src="<%=strImageURL %>icon_smile_question.gif" border="0"></a>
    </td>
  </tr>
  <tr valign="top">
    <td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">页面背景图案：</font></td>
    <td bgColor="<% =strPopUpTableColor %>"><input type="text" name="strPageBGImage" size="20" value="<% if strPageBGImage <> "" then Response.Write(strPageBGImage) else '## do nothing%>">
    </td>
  </tr>
  
  <tr valign="top">
    <td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">背景颜色：</font></td>
    <td bgColor="<% =strPopUpTableColor %>"><input type="text" name="strPageBGColor" size="10" value="<% if strPageBGColor <> "" then Response.Write(strPageBGColor) else '## do nothing%>">
    <a href="JavaScript:openWindow3('pop_config_help.asp#colors')"><img src="<%=strImageURL %>icon_smile_question.gif" border="0"></a>
    </td>
  </tr>
  <tr valign="top">
    <td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">字体颜色：</font></td>
    <td bgColor="<% =strPopUpTableColor %>"><input type="text" name="strDefaultFontColor" size="10" value="<% if strDefaultFontColor <> "" then Response.Write(strDefaultFontColor) else '## do nothing %>">
    <a href="JavaScript:openWindow3('pop_config_help.asp#colors')"><img src="<%=strImageURL %>icon_smile_question.gif" border="0"></a>
    </td>
  </tr>
  <tr valign="top">
    <td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">连接颜色：</font></td>
    <td bgColor="<% =strPopUpTableColor %>"><input type="text" name="strLinkColor" size="10" value="<% if strLinkColor <> "" then Response.Write(strLinkColor) else '## do nothing %>">
    <a href="JavaScript:openWindow3('pop_config_help.asp#colors')"><img src="<%=strImageURL %>icon_smile_question.gif" border="0"></a>
    </td>
  </tr>
  <tr valign="top">
    <td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">连接样式：</font></td>
    <td bgColor="<% =strPopUpTableColor %>">
    <select name="strLinkTextDecoration">
      <option<% if (lcase(strLinkTextDecoration)="none" or lcase(LinkTextDecoration)="none") then Response.Write(" selected") %>>无</option>
      <option<% if (lcase(strLinkTextDecoration)="blink" or lcase(LinkTextDecoration)="blink") then Response.Write(" selected") %>>闪烁</option>
      <option<% if (lcase(strLinkTextDecoration)="line-through" or lcase(LinkTextDecoration)="line-through") then Response.Write(" selected") %>>删除线</option>
      <option<% if (lcase(strLinkTextDecoration)="overline" or lcase(LinkTextDecoration)="overline") then Response.Write(" selected") %>>顶线</option>
      <option<% if (lcase(strLinkTextDecoration)="underline" or lcase(LinkTextDecoration)="underline") then Response.Write(" selected") %>>底线</option>
    </select>
    <a href="JavaScript:openWindow3('pop_config_help.asp#fontdecorations')"><img src="<%=strImageURL %>icon_smile_question.gif" border="0"></a>
    </font></td>
  </tr>
  <tr valign="top">
    <td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">已访问连接颜色：</font></td>
    <td bgColor="<% =strPopUpTableColor %>"><input type="text" name="strVisitedLinkColor" size="10" value="<% if strVisitedLinkColor <> "" then Response.Write(strVisitedLinkColor) else '## do nothing %>">
    <a href="JavaScript:openWindow3('pop_config_help.asp#colors')"><img src="<%=strImageURL %>icon_smile_question.gif" border="0"></a>
    </td>
  </tr>
  <tr valign="top">
    <td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">已访问连接样式：</font></td>
    <td bgColor="<% =strPopUpTableColor %>">
    <select name="strVisitedTextDecoration">
      <option<% if (lcase(strVisitedTextDecoration)="none" or lcase(VisitedTextDecoration)="none") then Response.Write(" selected") %>>无</option>
      <option<% if (lcase(strVisitedTextDecoration)="blink" or lcase(VisitedTextDecoration)="blink") then Response.Write(" selected") %>>闪烁</option>
      <option<% if (lcase(strVisitedTextDecoration)="line-through" or lcase(VisitedTextDecoration)="line-through") then Response.Write(" selected") %>>删除线</option>
      <option<% if (lcase(strVisitedTextDecoration)="overline" or lcase(VisitedTextDecoration)="overline") then Response.Write(" selected") %>>顶线</option>
      <option<% if (lcase(strVisitedTextDecoration)="underline" or lcase(VisitedTextDecoration)="underline") then Response.Write(" selected") %>>底线</option>
    </select>
    <a href="JavaScript:openWindow3('pop_config_help.asp#fontdecorations')"><img src="<%=strImageURL %>icon_smile_question.gif" border="0"></a>
    </td>
  </tr>
  <tr valign="top">
    <td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">鼠标停留连接上的颜色：</font></td>
    <td bgColor="<% =strPopUpTableColor %>"><input type="text" name="strActiveLinkColor" size="10" value="<% if strActiveLinkColor <> "" then Response.Write(strActiveLinkColor) else '## do nothing %>">
    <a href="JavaScript:openWindow3('pop_config_help.asp#colors')"><img src="<%=strImageURL %>icon_smile_question.gif" border="0"></a>
    </td>
  </tr>
  <tr valign="top">
    <td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">鼠标停留连接时连接颜色：</font></td>
    <td bgColor="<% =strPopUpTableColor %>"><input type="text" name="strHoverFontColor" size="10" value="<% if strHoverFontColor <> "" then Response.Write(strHoverFontColor) else '## do nothing %>">
    <a href="JavaScript:openWindow3('pop_config_help.asp#colors')"><img src="<%=strImageURL %>icon_smile_question.gif" border="0"></a>
    </td>
  </tr>
  <tr valign="top">
    <td bgColor="<% =strPopUpTableColor %>" align="right"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">鼠标停留连接时连接样式：</font></td>
    <td bgColor="<% =strPopUpTableColor %>">
    <select name="strHoverTextDecoration">