newstar - 2008-4-18 21:57:00
版本：FooSunV4.0 sp5
说明：此功能需修改数据库，FS_NS_News 表新增 IsClassTemplet 字段 默认值1。
\Admin\News\News_add.asp 212 行处
<input name="Submit5" type="button" id="selNewsTemplet" value="选择模板" >
<span class="tx">默认启用：</span>
<select name="IsClassTemplet" id="IsClassTemplet">
<option value="1" selected>栏目新闻模板</option>
<option value="0">新闻设定模板</option>
</select> </td>
\Admin\News\News_edit.asp 313行处
<input name="Submit5" type="button" id="selNewsTemplet" value="选择模板" >
<span class="tx">默认启用：</span>
<select name="IsClassTemplet" id="IsClassTemplet">
<option value="1" <%if str_IsClassTemplet=1 then response.Write("selected") %>>栏目新闻模板</option>
<option value="0" <%if str_IsClassTemplet=0 then response.Write("selected") %>>新闻设定模板</option>
</select> </td>
\Admin\News\News_Save.asp 33行处
Dim str_NewsProperty_Rec_1,str_NewsProperty_mar_1,str_NewsProperty_rev_1,str_NewsProperty_constr_1,str_NewsProperty_tt_1 ,str_NewsProperty_hots_1,str_NewsProperty_jc_1,str_NewsProperty_unr_1,str_NewsProperty_ann_1,str_NewsProperty_filt_1,str_NewsProperty_Remote_1,IsAdPic,AdPicWH,AdPicLink,AdPicAdress,DefaultFileExtName,str_IsClassTemplet
90行左右
str_Templet = Request.Form("Templet")
str_IsClassTemplet = Request.Form("IsClassTemplet")
440行左右
obj_Save_Rs("Templet") = str_Templet
obj_Save_Rs("IsClassTemplet") = str_IsClassTemplet
\Admin\PublicSite\Public_Function.asp 20行左右
Select Case f_Sys_ID
Case "NS"
If f_Refresh_Type = "news" then
Get_Search_Sql_Head = "Select Top 1 0 as RefreshFileSaveType,'NS_news' as PageType,A.ID as OnlyID,A.isPop as RefreshisPop,A.NewsID as RefreshID,A.Templet as RefreshTemplet,A.IsClassTemplet as IsClassTempletTF,B.NewsTemplet as RefreshTempletB,A.SaveNewsPath as
83行左右
if Not f_RS.Eof then
If IsCookies Then
Response.Cookies("COOKIES_REFRESH_FirstID") = f_RS("OnlyID")
End If
if f_RS("PageType")="NS_news" and f_RS("IsClassTempletTF") =1 then
f_Templet = f_SYS_ROOT_DIR & f_RS("RefreshTempletB")
else
f_Templet = f_SYS_ROOT_DIR & f_RS("RefreshTemplet")
end if
ttao - 2008-4-19 20:06:00
:default7: 学习