news_edit.asp

后台目录:qwbAdmin/Login.asp 登陆用户名:admin 登陆密码:admin

<% Option Explicit %>
<!--#include file="../../FS_Inc/Const.asp" -->
<!--#include file="lib/cls_main.asp" -->
<!--#include file="../../FS_Inc/Function.asp"-->
<!--#include file="../../FS_Inc/md5.asp" -->
<!--#include file="../../FS_InterFace/MF_Function.asp" -->
<!--#include file="../../FS_InterFace/NS_Function.asp" -->
<%'Copyright (c)2006 by Foosun Inc. Code by Simpwind.Xie
	Dim Conn,User_Conn,sRootDir,strShowErr
	MF_Default_Conn
	MF_User_Conn
	MF_GetUserGroupID
	MF_Session_TF 
	Dim Fs_news,obj_newsedit_rs,str_CurrPath,str_display
	Dim str_PopId,str_ClassID,str_NewsID,str_SpecialEName,str_NewsTitle,str_CurtTitle,str_NewsNaviContent,str_isShowReview,str_TitleColor,str_titleBorder,str_TitleItalic,str_IsURL,str_URLAddress
	Dim str_Content,str_isPicNews,str_NewsPicFile,str_NewsSmallPicFile,str_PicborderCss,str_Templet,str_GroupID,str_PointNumber,str_Money,str_Source,str_Editor,str_Keywords,str_Author
	Dim str_Hits,str_FileName,str_FileExtName,str_NewsProperty,str_DefineID,str_TodayNewsPic,str_isLock,str_isRecyle,str_addtime,str_NewsType,str_isdraft
	Dim str_UrLaddress_1,str_CurtTitle_1,str_NewsPicFile_1,str_NewsSmallPicFile_1,str_Templet_1,str_Content_1,str_PicborderCss_1,str_Author_1,str_GroupID_1,str_FileName_1,str_filt_1,IsAdPic,AdPicWH,AdPicLink,AdPicAdress
	set Fs_news = new Cls_News
	Fs_News.GetSysParam()
	If Not Fs_news.IsSelfRefer Then response.write "非法提交数据":Response.end
	if G_VIRTUAL_ROOT_DIR<>"" then sRootDir="/"+G_VIRTUAL_ROOT_DIR else sRootDir=""
	If Session("Admin_Is_Super") = 1 then
		str_CurrPath = sRootDir &"/"&G_UP_FILES_DIR
	Else
		If Session("Admin_FilesTF") = 0 Then
			str_CurrPath = Replace(sRootDir &"/"&G_UP_FILES_DIR&"/adminfiles/"&UCase(md5(Session("Admin_Name"),16)),"//","/")
		Else
			str_CurrPath = sRootDir &"/"&G_UP_FILES_DIR
		End If	
	End if
	Set obj_newsedit_rs = server.CreateObject(G_FS_RS)
	obj_newsedit_rs.Open "Select NewsID,PopId,ClassID,SpecialEName,NewsTitle,CurtTitle,NewsNaviContent,isShowReview,TitleColor,titleBorder,TitleItalic,IsURL,URLAddress,Content,isPicNews,NewsPicFile,NewsSmallPicFile,PicborderCss,Templet,isPop,Source,Editor,Keywords,Author,Hits,FileName,FileExtName,NewsProperty,TodayNewsPic,isLock,isRecyle,addtime,isdraft,IsAdPic,AdPicWH,AdPicLink,AdPicAdress from FS_NS_News where ClassID='"& NoSqlHack(Request.QueryString("ClassID")) &"' and NewsID='"& NoSqlHack(Request.QueryString("NewsID")) &"'",Conn,1,3
	If obj_newsedit_rs.eof then 
		strShowErr = "<li>非法参数,找不到数据库记录</li>"
		Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
		Response.end
	Else
		str_NewsID = obj_newsedit_rs("NewsID")
		Dim obj_tmppop_rs
		set obj_tmppop_rs = Conn.execute("select GroupName,PointNumber,FS_Money,InfoID,PopType,isClass From FS_MF_POP where InfoID='"& str_NewsID &"' and isClass=0 and PopType='NS'")
		if obj_tmppop_rs.eof then
				str_GroupID = ""
				str_PointNumber=""
				str_Money = ""
				obj_tmppop_rs.close:set obj_tmppop_rs = nothing
		Else
				str_GroupID = obj_tmppop_rs("GroupName")
				if obj_tmppop_rs("PointNumber") = 0 or isnull(trim(obj_tmppop_rs("PointNumber"))) then:str_PointNumber="" else:str_PointNumber=obj_tmppop_rs("PointNumber"):end if
				if obj_tmppop_rs("FS_Money") = 0 or isnull(trim(obj_tmppop_rs("FS_Money"))) then:str_Money="" else:str_Money=obj_tmppop_rs("FS_Money"):end if
				obj_tmppop_rs.close:set obj_tmppop_rs = nothing
		End if
		str_PopId = obj_newsedit_rs("PopId")
		str_ClassID = obj_newsedit_rs("ClassID")
		if not Get_SubPop_TF(str_ClassID,"NS002","NS","news") then Err_Show
		str_SpecialEName = obj_newsedit_rs("SpecialEName")
		str_NewsTitle = obj_newsedit_rs("NewsTitle")
		str_isdraft = obj_newsedit_rs("isdraft")
		str_CurtTitle = obj_newsedit_rs("CurtTitle")
		str_NewsNaviContent = obj_newsedit_rs("NewsNaviContent")
		if obj_newsedit_rs("isShowReview") = 1 then:str_isShowReview = 1:Else:str_isShowReview = 0:End if
		str_TitleColor = obj_newsedit_rs("TitleColor")
		str_titleBorder = obj_newsedit_rs("titleBorder")
		str_TitleItalic = obj_newsedit_rs("TitleItalic")
		if obj_newsedit_rs("IsURL") = 1 then:str_IsURL = 1:else:str_IsURL = 0:end if
		str_URLAddress = obj_newsedit_rs("URLAddress")
		str_Content = obj_newsedit_rs("Content")
		if obj_newsedit_rs("isPicNews") then:str_isPicNews =1:else:str_isPicNews = 0:end if
		str_NewsPicFile = obj_newsedit_rs("NewsPicFile")
		str_NewsSmallPicFile = obj_newsedit_rs("NewsSmallPicFile")
		str_PicborderCss = obj_newsedit_rs("PicborderCss")
		str_Templet =  obj_newsedit_rs("Templet")
		str_Source = obj_newsedit_rs("Source")
		str_Editor = obj_newsedit_rs("Editor")
		str_Keywords = obj_newsedit_rs("Keywords")
		str_Author = obj_newsedit_rs("Author")
		if obj_newsedit_rs("Hits") ="" then:str_Hits=0:else:str_Hits = obj_newsedit_rs("Hits"):end if
		str_FileName = obj_newsedit_rs("FileName")
		str_FileExtName = obj_newsedit_rs("FileExtName")
		str_NewsProperty = obj_newsedit_rs("NewsProperty")
		str_TodayNewsPic = obj_newsedit_rs("TodayNewsPic")
		
		IsAdPic = obj_newsedit_rs("IsAdPic")
		AdPicWH = obj_newsedit_rs("AdPicWH")
		AdPicLink = obj_newsedit_rs("AdPicLink")
		AdPicAdress = obj_newsedit_rs("AdPicAdress")
				
		if obj_newsedit_rs("isLock") = 1 then:str_islock=1:else:str_isLock = obj_newsedit_rs("isLock"):end if
		if obj_newsedit_rs("isRecyle") = 1 then:str_isRecyle=1:else:str_isRecyle = obj_newsedit_rs("isRecyle"):end if
		if trim(obj_newsedit_rs("addtime"))="" then:str_addtime=now:else:str_addtime = obj_newsedit_rs("addtime"):end if
		if obj_newsedit_rs("isRecyle") = 1 then
			strShowErr = "<li>在回收站中的"& Fs_news.allInfotitle&"不能编辑</li>"
			Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
			Response.end
		End if
	End if

	'获得显示层参数
	if str_IsURL = 1 then
		str_NewsType = "TitleNews"
		str_UrLaddress_1 = ""
		str_CurtTitle_1="none"
		str_NewsPicFile_1=""
		str_NewsSmallPicFile_1=""
		str_Templet_1="none"
		str_Content_1 ="none"
		str_PicborderCss_1="none"
		str_Author_1="none"
		str_GroupID_1="none"
		str_FileName_1="none"
		str_filt_1="none"
	Elseif str_isPicNews = 1 then
		str_NewsType = "PicNews"
		str_UrLaddress_1 = "none"
		str_CurtTitle_1=""
		str_NewsPicFile_1=""
		str_NewsSmallPicFile_1=""
		str_Templet_1=""
		str_Content_1 =""
		str_PicborderCss_1=""
		str_Author_1=""
		str_GroupID_1=""
		str_FileName_1=""
		str_filt_1=""
	Else
		str_NewsType = "TextNews"
		str_UrLaddress_1 = "none"
		str_CurtTitle_1=""
		str_NewsPicFile_1="none"
		str_NewsSmallPicFile_1="none"
		str_Templet_1=""
		str_Content_1 =""
		str_PicborderCss_1=""
		str_Author_1=""
		str_GroupID_1=""
		str_FileName_1=""
		str_filt_1=""
	End if
	'On Error Resume Next
	'获取辅助字段信息,保存到数组CustColumnArr中
	'(c)2002-2006 版权所有：Foosun Inc. 不得进行任何性质的程序拷贝、传播。By Foosun__Simpwind.Xie 
	dim c_rs,tmp_defineid,i
	Set c_rs = Conn.execute("select DefineID from FS_NS_NewsClass where Classid='"& str_ClassID &"'")
	tmp_defineid = c_rs(0)
	c_rs.close:set c_rs=nothing
	if not isnull(trim(tmp_defineid)) or trim(tmp_defineid)>0 then
		Dim CustColumnRs,CustSql,CustColumnArr
		CustSql="select DefineID,ClassID,D_Name,D_Coul,D_Type,D_isNull,D_Value,D_Content,D_SubType from [FS_MF_DefineTable] Where D_SubType='NS' and  Classid="& tmp_defineid &""
		Set CustColumnRs=CreateObject(G_FS_RS)
		CustColumnRs.Open CustSql,Conn,1,3
		If Not CustColumnRs.Eof Then
			CustColumnArr=CustColumnRs.GetRows()
		End If
		CustColumnRs.close:Set CustColumnRs = Nothing
	end if
	'=====================================
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>管理___Powered by foosun Inc.</title>
<link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
</head>
<body>
<script language="JavaScript" src="js/Public.js"></script>
<script language="JavaScript" src="../../FS_Inc/CheckJs.js"></script>
<script language="JavaScript" src="../../FS_Inc/Prototype.js"></script>
<script language="JavaScript" src="../../FS_Inc/PublicJS.js"></script>
<script language="JavaScript" type="text/javascript" src="../../FS_Inc/Get_Domain.asp"></script>
<script language="JavaScript" type="text/javascript" src="../../Editor/FS_scripts/editor.js"></script>
<iframe width="260" height="165" id="colorPalette" src="lib/selcolor.htm" style="visibility:hidden; position: absolute;border:1px gray solid" frameborder="0" scrolling="no" ></iframe>
<table width="98%" border="0" cellspacing="0" cellpadding="0">
	<tr>
		<td height="1"></td>
	</tr>
</table>
<table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" class="table">
	<form action="News_Save.asp" name="NewsForm" method="post" onSubmit="return CheckForm(this);">
		<tr class="xingmu">
			<td colspan="4" class="xingmu">编辑/修改
				<% = Fs_news.allInfotitle %>
				<a href="../../help?Lable=NS_News_add" target="_blank" style="cursor:help;'" class="sd"><img src="../Images/_help.gif" border="0"></a></td>
		</tr>
		<tr >
			<td class="hback">
				<div align="right">
					<table width="95" border="0" cellspacing="0" cellpadding="0">
						<tr>
							<td height="1"></td>
						</tr>
					</table>
					<% = Fs_news.allInfotitle %>
					类型 </div>
			</td>
			<td colspan="3" class="hback">
				<input name=NewsType type=radio id="NewsType" onClick="SwitchNewsType('TextNews');" value="TextNews" <%If str_NewsType = "TextNews" then Response.Write("checked")%>>
				普通
				<input name=NewsType type=radio id="NewsType" onClick="SwitchNewsType('PicNews');" value="PicNews" <%If str_NewsType = "PicNews" then Response.Write("checked")%>>
				图片
				<input name=NewsType type=radio id="NewsType" onClick="SwitchNewsType('TitleNews');" value="TitleNews" <%If str_NewsType = "TitleNews" then Response.Write("checked")%>>
				标题 　&nbsp;&nbsp;
				<%if  str_isdraft = 1 then%>
				<input name="isdraft" type="checkbox" id="isdraft" value="1" <%if str_isdraft = 1 then response.Write("checked")%>>
				存到草稿箱中
				<%end if%>
			</td>
		</tr>
		<tr >
			<td width="12%" class="hback">
				<div align="right">
					<% = Fs_news.allInfotitle %>
					标题</div>
			</td>
			<td colspan="3" class="hback">
				<input name="NewsTitle" type="text" id="NewsTitle" size="40"  value="<%=str_NewsTitle%>" maxlength="255" onFocus="Do.these('NewsTitle',function(){return isEmpty('NewsTitle','span_NewsTitle')})" onKeyUp="Do.these('NewsTitle',function(){return isEmpty('NewsTitle','span_NewsTitle')})" style="background-image:url(../Images/bg.gif);">
				<span id="span_NewsTitle"></span>
				<input name="TitleColor" id="TitleColor" type="hidden" value="<% = str_TitleColor %>">
				
				<img src="images/rect<%if str_TitleColor="" Then Response.write("NoColor")%>.gif" id="TitleColorShow" style="cursor:pointer;background-color:<%=str_TitleColor%>;" title="选取颜色!" onClick="GetColor(document.getElementById('TitleColorShow'),'TitleColor');">
				<input name="titleBorder" type="checkbox" id="titleBorder" value="1"  <%if str_titleBorder=1 then response.Write("checked") %>>
				粗体
				<input name="TitleItalic" type="checkbox" id="TitleItalic" value="1"  <%if str_TitleItalic=1 then response.Write("checked") %>>
				斜体
				<input name="isShowReview" type="checkbox" id="isShowReview" value="1"<%if str_isShowReview=1 then response.Write("checked") %>>
				评论连接　　权重
				<select name="PopID" id="PopID">
					<option value="5" <%if str_PopID=5 then response.Write("selected") %>>总置顶</option>
					<option value="4" <%if str_PopID=4 then response.Write("selected") %>>栏目置顶</option>
					<option value="0" <%if str_PopID=0 then response.Write("selected") %>>一般</option>
				</select>
			</td>
		</tr>
		<tr >
			<td class="hback">
				<div align="right">选择栏目</div>
			</td>
			<td colspan="3" class="hback">
				<input name="ClassName" type="text" id="ClassName5" style="width:45%" value="<%=Fs_News.GetAdd_ClassName(str_ClassID)%>" readonly>
				<input name="ClassID" type="hidden" id="ClassID" value="<% = str_ClassID %>">
				<input type="button" name="Submit" value="选择栏目"   onClick="SelectClass();">
				<input type="button" name="Submit2" value="添加栏目" onClick="window.location.href='Class_add.asp?ClassID=<%=str_ClassID %>&Action=add'">
			</td>
		</tr>
		<tr >
			<td class="hback">
				<div align="right">选择专题</div>
			</td>
			<%
		  if str_SpecialEName<>"" then
			  dim sp_rs,sp_array,sp_i,sp_char
			  sp_char=""