admin_config_colors.asp

一个不错的ASP论坛源码

      <option<% if (lcase(strHoverTextDecoration)="none" or lcase(HoverTextDecoration)="none") then Response.Write(" selected") %>>无</option>
      <option<% if (lcase(strHoverTextDecoration)="blink" or lcase(HoverTextDecoration)="blink") then Response.Write(" selected") %>>闪烁</option>
      <option<% if (lcase(strHoverTextDecoration)="line-through" or lcase(HoverTextDecoration)="line-through") then Response.Write(" selected") %>>删除线</option>
      <option<% if (lcase(strHoverTextDecoration)="overline" or lcase(HoverTextDecoration)="overline") then Response.Write(" selected") %>>顶线</option>
      <option<% if (lcase(strHoverTextDecoration)="underline" or lcase(HoverTextDecoration)="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="strHeadCellColor" size="10" value="<% if strHeadCellColor <> "" then Response.Write(strHeadCellColor) 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="strHeadFontColor" size="10" value="<% if strHeadFontColor <> "" then Response.Write(strHeadFontColor) 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="strCategoryCellColor" size="10" value="<% if strCategoryCellColor <> "" then Response.Write(strCategoryCellColor) 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="strCategoryFontColor" size="10" value="<% if strCategoryFontColor <> "" then Response.Write(strCategoryFontColor) 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="strForumFirstCellColor" size="10" value="<% if strForumFirstCellColor <> "" then Response.Write(strForumFirstCellColor) 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="strForumCellColor" size="10" value="<% if strForumCellColor <> "" then Response.Write(strForumCellColor) 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="strAltForumCellColor" size="10" value="<% if strAltForumCellColor <> "" then Response.Write(strAltForumCellColor) 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="strForumFontColor" size="10" value="<% if strForumFontColor <> "" then Response.Write(strForumFontColor) 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="strForumLinkColor" size="10" value="<% if strForumLinkColor <> "" then Response.Write(strForumLinkColor) 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="strTableBorderColor" size="10" value="<% if strTableBorderColor <> "" then Response.Write(strTableBorderColor) 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="strPopUpTableColor" size="10" value="<% if strPopUpTableColor <> "" then Response.Write(strPopUpTableColor) 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="strPopUpBorderColor" size="10" value="<% if strPopUpBorderColor <> "" then Response.Write(strPopUpBorderColor) 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="strNewFontColor" size="10" value="<% if strNewFontColor <> "" then Response.Write(strNewFontColor) 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="<% =strHeadCellColor %>" colspan="2"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>" color="<% =strHeadFontColor %>"><b>表格大小控制</b></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="strTopicWidthLeft" size="5" value="<% if strTopicWidthLeft <> "" then Response.Write(strTopicWidthLeft) else Response.Write("100") %>">
    <a href="JavaScript:openWindow3('pop_config_help.asp#columnwidth')"><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 %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
    开启：<input type="radio" class="radio" name="strTopicNoWrapLeft" value="1" <% if (lcase(strTopicNoWrapLeft) <> "0" or lcase(TopicNoWrapLeft) <> "0") then Response.Write("checked")%>> 
    关闭：<input type="radio" class="radio" name="strTopicNoWrapLeft" value="0" <% if (lcase(strTopicNoWrapLeft) = "0" or lcase(TopicNoWrapLeft) = "0") then Response.Write("checked")%>>
    <a href="JavaScript:openWindow3('pop_config_help.asp#nowrap')"><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="strTopicWidthRight" size="5" value="<% if strTopicWidthRight <> "" then Response.Write(strTopicWidthRight) else Response.Write("100%") %>">
    <a href="JavaScript:openWindow3('pop_config_help.asp#columnwidth')"><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 %>"><font face="<% =strDefaultFontFace %>" size="<% =strDefaultFontSize %>">
    开启：<input type="radio" class="radio" name="strTopicNoWrapRight" value="1" <% if (lcase(strTopicNoWrapRight) = "1" or lcase(TopicNoWrapRight) = "1") then Response.Write("checked")%>> 
    关闭：<input type="radio" class="radio" name="strTopicNoWrapRight" value="0" <% if (lcase(strTopicNoWrapRight) <> "1" or lcase(TopicNoWrapRight) <> "1") then Response.Write("checked")%>>
    <a href="JavaScript:openWindow3('pop_config_help.asp#nowrap')"><img src="<%=strImageURL %>icon_smile_question.gif" border="0"></a>
    </font></td>
  </tr>
  <tr valign="top">
    <td bgColor="<% =strPopUpTableColor %>" colspan="2" align="center"><input type="submit" value="提交设定" id="submit1" name="submit1"> <input type="reset" value="重新设置" id="reset1" name="reset1"></td>
  </tr>
</table>
</form>
</font>
<%	end if %>
<!--#INCLUDE file="inc_footer.asp" -->
<% Else %>
<% Response.Redirect "admin_login.asp" %>
<% End IF %>