新云2.1后台增加批量专题设置
-
首先打开你的admin/admin_soft.asp（记得要备份这个文件哦！）
一、找到以下代码：
Response.Write " <tr>"
Response.Write " <td class=tablerow1 align=right><b>" & sModuleName & "星级：</b></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=selSpecial value='1'></td>"
Response.Write " <td class=tablerow1>"
Response.Write " <select name=SpecialID size='1'>"
Response.Write " <option value='0'>不指定" & sModuleName & "专题</option>"
Set RsObj = Newasp.Execute("SELECT SpecialID,SpecialName FROM NC_Special WHERE ChannelID="& ChannelID &" And ChangeLink=0 ORDER BY orders")
Do While Not RsObj.EOF
Response.Write Chr(9) & Chr(9) & "<option value=""" & RsObj("SpecialID") & """"
If isEdit Then
If Rs("SpecialID") = RsObj("SpecialID") Then Response.Write " selected"
End If
Response.Write ">"
Response.Write RsObj("SpecialName")
Response.Write "</option>" & vbCrLf
RsObj.movenext
Loop
Set RsObj = Nothing
Response.Write " </select>"
Response.Write "</td>"
Response.Write " </tr>"三、找到以下代码：
If Trim(Request.Form("selUserGroup")) <> "" Then strTempValue = strTempValue & "UserGroup="& CInt(Request.Form("UserGroup")) &","
四、在下面添加一行代码：
If Trim(Request.Form("selSpecial")) <> "" Then strTempValue = strTempValue & "SpecialID="& CLng(Request.Form("SpecialID")) &","保存文件。后台选中多个软件，然后点批量设置后，里面就有批量设置专题了。
