newstitle.asp

asp源码 图片ASP整站

      <td> 
        <input name="AddDate" readonly type="text" id="AddDate" style="width:74% " value="<% if IAddDate = "" then Response.Write(now()) else Response.Write(IAddDate) end if%>"> 
        &nbsp; <input type="button" name="Submit42" value="选择日期" onClick="OpenWindowAndSetValue('../../FunPages/SelectDate.asp',280,110,window,document.NewsForm.AddDate);document.NewsForm.AddDate.focus();"></td>
    </tr>
    <tr> 
      <td height="26"> 
        <div align="center">可选属性</div></td>
      <td> 
        <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr> 
            <td width="10%" height="30">
<div align="center"> 
                <input <% if IPicNewsTF = "1" then Response.Write("Checked")%> name="PicNewsTF" type="checkbox" id="PicNewsTF2" value="1" onClick="ChoosePic();">
                图片新闻</div></td>
            <td width="10%"><div align="center"> 
                <input name="MarqueeNews" type="checkbox" id="MarqueeNews" value="1" <%if IMarqueeNews = "1" then Response.Write("checked") %>>
                滚动新闻</div></td>
            <td width="14%"><div align="center"> 
                <input name="ReviewTF" type="checkbox" id="ReviewTF" value="1" onClick="ChooseRiview();" <%if IReviewTF = "1" then Response.Write("checked") %>>
                允许评论 </div></td>
            <td width="11%"><div align="center"> 
                <input name="ShowReviewTF" type="checkbox" id="ShowReviewTF" value="1" disabled <%if IShowReviewTF = "1" then Response.Write("checked") %>>
                显示评论 </div></td>
            <td width="9%"><div align="center"> 
                <input name="ProclaimNews" type="checkbox" id="ProclaimNews" value="1" <%if IProclaimNews = "1" then Response.Write("checked")%>>
                公告新闻 </div></td>
          </tr>
          <tr> 
            <td height="30">
<div align="center"> 
                <input name="RecTF" type="checkbox" id="RecTF4" value="1" <%if IRecTF = "1" then Response.Write("checked") %>>
                推荐新闻</div></td>
            <td><div align="center"> 
                <input name="AuditTF" type="checkbox" id="AuditTF3" value="1" checked <%if IAuditTF = "1" then Response.Write("checked")%>>
                通过审核 </div></td>
            <td><div align="center"> 
                <input name="SBSNews" type="checkbox" id="SBSNews3" value="1" <%if ISBSNews = "1" then Response.Write("checked")%>>
                并排新闻</div></td>
            <td><div align="center"> 
                <input name="TodayNewsTF" type="checkbox" id="TodayNewsTF" value="1" <%if ITodayNewsTF = "1" then Response.Write("checked")%>>
                今日头条</div></td>
            <td><div align="center"> 
                <input name="FilterNews" type="checkbox" disabled id="FilterNews3" value="1" <%if IFilterNews = "1" then Response.Write("checked")%>>
                幻灯新闻</div></td>
          </tr>
        </table></td>
    </tr>
</table>
</form>
</body>
</html>
<script language="javascript">
function ChooseRiview()
{
	if (document.NewsForm.ReviewTF.checked==true) document.NewsForm.ShowReviewTF.disabled=false;
	else document.NewsForm.ShowReviewTF.disabled=true;
}
	
function ChoosePic()
{
	if (document.NewsForm.PicNewsTF.checked==true)
	{
		document.NewsForm.PicChooseButton.disabled=false;
		document.NewsForm.NaviWords.disabled=false;
		document.NewsForm.FilterNews.disabled=false;
	}
	else
	{
		document.NewsForm.PicChooseButton.disabled=true;
		document.NewsForm.NaviWords.disabled=true;
		document.NewsForm.FilterNews.disabled=true;
	}
}
	
function SubmitFun()
{
	document.NewsForm.submit();
}
function SelectClass()
{
	var ReturnValue='',TempArray=new Array();
	ReturnValue = OpenWindow('../../FunPages/SelectClassFrame.asp',400,300,window);
	if (ReturnValue.indexOf('***')!=-1)
	{
		TempArray = ReturnValue.split('***');
		document.all.ClassID.value=TempArray[0]
		document.all.ClassCNameShow.value=TempArray[1]
	}
}
ChooseRiview();
ChoosePic();
</script>
<%
if Action = "Submit" then
	Dim INewsAddObj,INewsAddSql,NewsFileNames
	if Trim(ITitle) <> "" then
		ITitle = Replace(Replace(ITitle,"""",""),"'","")
	else
		Response.Write("<script>alert('请输入新闻标题');</script>")
		Response.End
	end if
	if IClassID <> "" then
		IClassID = Replace(Replace(IClassID,"""",""),"'","")
	else
		Response.Write("<script>alert('栏目参数传递错误');</script>")
		Response.End
	end if
	if IsDate(IAddDate) then
		IAddDate = Formatdatetime(IAddDate)
	else
		Response.Write("<script>alert('新闻添加时间类型错误,请重新输入');</script>")
		Response.End
	end if
	if LCase(IHeadNewsPath) = "http://" then
		Response.Write("<script>alert('新闻链接地址不能为空');</script>")
		Response.End
	end if
	if INewsID <> "" then
		Set INewsAddObj = Server.CreateObject(G_FS_RS)
		INewsAddSql = "select * from FS_News where NewsID='" & INewsID & "'"
		INewsAddObj.open INewsAddSql,Conn,3,3
	else
		INewsID = GetRandomID18()
		Set INewsAddObj = Server.CreateObject(G_FS_RS)
		INewsAddSql = "select * from FS_News where 1=0"
		INewsAddObj.open INewsAddSql,Conn,3,3
		INewsAddObj.AddNew
		INewsAddObj("NewsID") = INewsID    '新闻ID
		NewsFileNames = NewsFileName(GetConfig(16),IClassID,INewsID)
		INewsAddObj("FileName") = NewsFileNames   '新闻文件名 
	end if
	INewsAddObj("Title") =  ITitle
	If ISubTitle <> "" then
		INewsAddObj("SubTitle") = Replace(Replace(ISubTitle,"""",""),"'","")
	end if
	If TitleBoldstr <> "" then
		TitleBoldstr = "1"		
	else
		TitleBoldstr = "0"		
	end if
	If TitleUstr <> "" then
		TitleUstr = "1"		
	else
		TitleUstr = "0"		
	end if
	INewsAddObj("Titlestyle") =  ITitleColor & TitleBoldstr & TitleUstr
	INewsAddObj("ClassID") =  IClassID
	INewsAddObj("HeadNewsTF") = 1
	if ITodayNewsTF <> "" then
		INewsAddObj("TodayNewsTF") = 1
	else
		INewsAddObj("TodayNewsTF") = 0
	end if
	INewsAddObj("FileExtName") = "html"     '新闻文件扩展名
	INewsAddObj("Path") =  "/" & year(now())&"-"&month(now())&"/"&day(now())             '新闻路径 
	INewsAddObj("AddDate") =  IAddDate
	if IRecTF = "1" then
		INewsAddObj("RecTF") = 1
	else
		INewsAddObj("RecTF") = 0
	end if
	if IAuditTF = "1" then
		INewsAddObj("AuditTF") = 1
	else
		INewsAddObj("AuditTF") = 0
	end if
	INewsAddObj("DelTF") =  "0"
	if IShowReviewTF = "1" then
		INewsAddObj("ShowReviewTF") = 1
	else
		INewsAddObj("ShowReviewTF") = 0
	end if
	if IReviewTF = "1" then
		INewsAddObj("ReviewTF") = 1
	else
		INewsAddObj("ReviewTF") = 0
	end if
	if ISBSNews = "1" then
		INewsAddObj("SBSNews") = 1
	else
		INewsAddObj("SBSNews") = 0
	end if
	if IMarqueeNews = "1" then
		INewsAddObj("MarqueeNews") = 1
	else
		INewsAddObj("MarqueeNews") = 0
	end if
	if IProclaimNews = "1" then
		INewsAddObj("ProclaimNews") = 1
	else
		INewsAddObj("ProclaimNews") = 0
	end if
	if ILinkTF = "1" then
		INewsAddObj("LinkTF") = 1
	else
		INewsAddObj("LinkTF") = 0
	end if
	if IFilterNews = "1" then
		INewsAddObj("FilterNews") = 1
	else
		INewsAddObj("FilterNews") = 0
	end if
	if IPicNewsTF = "1" then
		INewsAddObj("PicNewsTF") = 1
	else
		INewsAddObj("PicNewsTF") = 0
	end if
	INewsAddObj("HeadNewsPath") =  IHeadNewsPath
	INewsAddObj("NaviWords") =  GotTopic(INaviWords,100)
	INewsAddObj("PicPath") =  IPicPath
	INewsAddObj.Update
	INewsAddObj.Close
	Set INewsAddObj = Nothing
	if EditContentTF = True then
		Response.Redirect("NewsList.asp?ClassID=" & IClassID)
	else
		If GetConfig(12)="1" and GetConfig(15)="1" then
			Response.Write("<script>if (confirm(""标题新闻添加成功,是否生成此栏目和首页?"")==true) {window.location='../refresh/refreshauto.asp?ClassID=" & IClassID & "&AutoClass="&GetConfig(12)&"&AutoIndex="&GetConfig(15)&"';} else {window.location=""?ClassID="&IClassID&""";} </script>")
		ElseIf GetConfig(12)="1" then
			Response.Write("<script>if (confirm(""标题新闻添加成功,是否生成此栏目?"")==true) {window.location='../refresh/refreshauto.asp?ClassID=" & IClassID & "&AutoClass="&GetConfig(12)&"&AutoIndex="&GetConfig(15)&"';} else {window.location=""?ClassID="&IClassID&""";} </script>")
		ElseIf GetConfig(15)="1" then
			Response.Write("<script>if (confirm(""标题新闻添加成功,是否生成首页?"")==true) {window.location='../refresh/refreshauto.asp?ClassID=" & IClassID & "&AutoClass="&GetConfig(12)&"&AutoIndex="&GetConfig(15)&"';} else {window.location=""?ClassID="&IClassID&""";} </script>")
		Else
			Response.Write("<script>if (confirm(""标题新闻添加成功,是否继续添加?"")==false) {window.location='NewsList.asp?ClassID=" & IClassID & "';} else {window.location=""?ClassID="&IClassID&""";} </script>")
		End If
	end if
	Response.End
end if
%>