新云2.1版后台增加批量修改软件标题颜色和字体
-
这些天一直在研究一个事儿，我站后台有很多资源需要一次性批量修改标题颜色或者标题字体。但新云
2.1版的后台批量设置里并没有相关设置。搜搜百度也不见有解决方法。于是今天狠下心研究了两个小时终于完美解决！真是自己动手，丰衣食足哈哈。
新云的人爱说话，不爱帮助人，不如动易里的人热情。但新云的速度，程序体积没的说。依然很喜爱。不过要是照这样下去，恐怕越来越多的人不会在分享什么文章了。最起码原创帮顶顶也是回事。废话不多说，下面是分享：
首先打开你的admin/admin_soft.asp（记得要备份这个文件哦！）
一、找到以下代码：
Response.Write " <tr>"
Response.Write " <td class=tablerow1 width=""15%"" align=right><b>相关" & sModuleName & "：</b></td>"
二、在 Response.Write " <tr>"Response.Write " <td class=tablerow1 align=right><b>运行环境：</b></td>"
的上面添加下面的代码：
Response.Write "<tr>"
Response.Write "<td class=tablerow1 align=right><b>颜色设置：</b></td>"
Response.Write "<td class=tablerow1 align=center><input type=checkbox name=selColorMode value='1'></td>"
Response.Write "<td class=tablerow1>"
Response.Write "<select size=1 name=ColorMode>"
Response.Write "<option value=0 selected>请选择颜色</option>"
Response.Write "<option style='COLOR: #ff0000; BACKGROUND-COLOR: #ff0000' value=1>#FF0000</option>"
Response.Write "<option style='COLOR: #0000ff; BACKGROUND-COLOR: #0000ff' value=2>#0000FF</option>"
Response.Write "<option style='COLOR: #008800; BACKGROUND-COLOR: #008800' value=3>#008800</option>"
Response.Write "<option style='COLOR: #ffff00; BACKGROUND-COLOR: #ffff00' value=4>#FFFF00</option>"
Response.Write "<option style='COLOR: #9900ff; BACKGROUND-COLOR: #9900ff' value=5>#9900FF</option>"
Response.Write "<option style='COLOR: #808080; BACKGROUND-COLOR: #808080' value=6>#808080</option>"
Response.Write "<option style='COLOR: #00ffff; BACKGROUND-COLOR: #00ffff' value=7>#00FFFF</option>"
Response.Write "<option style='COLOR: #998566; BACKGROUND-COLOR: #998566' value=8>#998566</option>"
Response.Write "<option style='COLOR: #ffcc00; BACKGROUND-COLOR: #ffcc00' value=9>#FFCC00</option>"
Response.Write "</select></td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td class=tablerow1 align=right><b>字体设置：</b></td>"
Response.Write "<td class=tablerow1 align=center><input type=checkbox name=selFontMode value='1'></td>"
Response.Write "<td class=tablerow1>"
Response.Write "<select size=1 name=FontMode>"
If isEdit Then
Response.Write "<option value=0 If Rs('FontMode') = 0 Then Response.Write ('selected') >请选择字体</option>"
Response.Write "<option value=1 If Rs('FontMode') = 1 Then Response.Write ('selected') >粗体</option>"
Response.Write "<option value=2 If Rs('FontMode') = 2 Then Response.Write ('selected') >斜体</option>"
Response.Write "<option value=3 If Rs('FontMode') = 3 Then Response.Write ('selected') >下划线</option>"
Response.Write "<option value=4 If Rs('FontMode') = 4 Then Response.Write ('selected') >粗体+斜体</option>"
Response.Write "<option value=5 If Rs('FontMode') = 5 Then Response.Write ('selected') >粗体+下划线</option>"
Response.Write "<option value=6 If Rs('FontMode') = 6 Then Response.Write ('selected') >斜体+下划线</option>"
Else
Response.Write "<option value=0>请选择字体</option>"
Response.Write "<option value=1>粗体</option>"
Response.Write "<option value=2>斜体</option>"
Response.Write "<option value=3>下划线</option>"
Response.Write "<option value=4>粗体+斜体</option>"
Response.Write "<option value=5>粗体+下划线</option>"
Response.Write "<option value=6>斜体+下划线</option>"
End If
Response.Write "</select></td>"
Response.Write "</tr>"
三、找到以下代码：
If Trim(Request.Form("selstar")) <> "" Then strTempValue = strTempValue & "star="& CInt(Request.Form("star")) &","
四、在上面添加两行代码：
If Trim(Request.Form("selColorMode")) <> "" Then strTempValue = strTempValue & "ColorMode='"& Newasp.ChkFormStr(Request.Form("ColorMode")) &"',"
If Trim(Request.Form("selFontMode")) <> "" Then strTempValue = strTempValue & "FontMode='"& Newasp.ChkFormStr(Request.Form("FontMode")) &"',"
这是相对于软件批量修改的方法。如果大家想要修改文章，可以参考上面的代码。比如selColorMode中的
ColorMode你完全可以到数据库文章表里找相关的“列”名称，然后替换，调试。多动动手，会对你有好处的，不要总等别人给现成的，要提高自己的能力。
精英组织原创作品，如需转载请注明作者“枫之精英”！本文章由组织成员“枫之精英”撰稿。
