newswords.asp

asp源码 图片ASP整站

<% Option Explicit %>
<!--#include file="../../../Inc/Const.asp" -->
<!--#include file="../../../Inc/Cls_DB.asp" -->
<!--#include file="../../../Inc/Cls_User.asp" -->
<!--#include file="../../../Inc/Cls_Cache.asp" -->
<!--#include file="../../../Inc/Function.asp" -->
<!--#include file="../Refresh/Cls_Refresh.asp" -->
<!--#include file="../Refresh/Function.asp" -->
<!--#include file="../Refresh/RefreshFunction.asp" -->
<%
response.buffer=true
Dim DBC,Conn,UserConn
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
DBC.ConnStr = "DBQ=" + Server.MapPath(UserDBConnectStr) + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set UserConn = DBC.OpenConnection()
Set DBC = Nothing

%>
<!--#include file="../../../Inc/Session.asp" -->
<!--#include file="../../../Inc/CheckPopedom.asp" -->
<%
Dim sHaveValueTF
if CInt(GetConfig(20)) = 1 then
	sHaveValueTF = True
Else
	sHaveValueTF = False
End if
Dim AuixArrStr
AuixArrStr = ReadAuixInfo("FS_News")
if Not JudgePopedomTF(Session("Name"),""&Request("ClassID")&"") then Call ReturnError1()
if Request("NewsID") <> "" then
	if Not JudgePopedomTF(Session("Name"),"P010502") then Call ReturnError1()
else
	if Not JudgePopedomTF(Session("Name"),"P010501") then Call ReturnError1()
end if
Dim TempClassID,OldClassObj,OldClassEName,NewsExtFileName
Dim Action
Dim INewsID,ITitle,ISubTitle,ITitleColor,TitleBoldstr,TitleUstr,IClassID,IHeadNewsTF,IPicNewsTF,ISavePic,IClassBuildNewsTemp
Dim IContent,ITodayNewsTF,IManuTF,IFileName,IBrowPop,IFileExtName,IPath,IAddDate,IKeyWords,ITxtSource,IAuthor,ITitleSHowReview
Dim IEditer,IClickNum,IRecTF,ISpecialID,IAuditTF,IDelTF,IShowReviewTF,IReviewTF,ISBSNews,IMarqueeNews,IProclaimNews,ILinkTF,IFilterNews,INewsTemplet,iPicPath,IPicNews
Dim EditContentTF
EditContentTF = False
Action = Request("Action")
IClassID = Request.Form("ClassID")
if IClassID="" then IClassID=Request("ClassID")
INewsID = Request("NewsID")
INewsID = Replace(Replace(Replace(Replace(Replace(INewsID,"'",""),"and",""),"select",""),"or",""),"union","")
IClassID = Replace(Replace(Replace(Replace(Replace(IClassID,"'",""),"and",""),"select",""),"or",""),"union","")
if INewsID = "" then
	EditContentTF = False
else
	EditContentTF = True
end if
If IClassID <> "" then
	TempClassID = Cstr(IClassID)
	Set OldClassObj = Conn.Execute("select ClassID,ClassEName,ClassCName,NewsTemp,FileExtName from FS_NewsClass where ClassID='" & TempClassID & "'")
	if Not OldClassObj.Eof then
		NewsExtFileName=OldClassObj("FileExtName")
		OldClassEName = OldClassObj("ClassCName")
		IClassBuildNewsTemp = OldClassObj("NewsTemp")
	end if
	OldClassObj.Close
	Set OldClassObj = Nothing
else
	Response.Write("<script>alert(""参数传递错误"");history.back();</script>")
	Response.End
End If

Dim RsSelectObj,HaveValueTF
if Action = "Submit" then
	HaveValueTF = False
else
	if INewsID <> "" then
		Set RsSelectObj = Conn.Execute("Select * from FS_News where NewsID='" & INewsID & "'")
		if Not RsSelectObj.Eof then
			ITitle = RsSelectObj("Title")
			ISubTitle = RsSelectObj("SubTitle")
			ITitleColor = Left(RsSelectObj("Titlestyle"),7)
			TitleBoldstr = Mid(RsSelectObj("Titlestyle"),8,1)
			TitleUstr = Right(RsSelectObj("Titlestyle"),1)
			IHeadNewsTF = RsSelectObj("HeadNewsTF")
			IPicNewsTF = RsSelectObj("PicNewsTF")
			IContent = RsSelectObj("Content")
			ITodayNewsTF = RsSelectObj("TodayNewsTF")
			IManuTF = RsSelectObj("ManuTF")
			IFileName = RsSelectObj("FileName")
			IBrowPop = RsSelectObj("BrowPop")
			IFileExtName = RsSelectObj("FileExtName")
			IPath = RsSelectObj("Path")
			IAddDate = RsSelectObj("AddDate")
			IKeyWords = RsSelectObj("KeyWords")
			ITxtSource = RsSelectObj("TxtSource")
			IAuthor = RsSelectObj("Author")
			IEditer = RsSelectObj("Editer")
			IClickNum = RsSelectObj("ClickNum")
			IRecTF = RsSelectObj("RecTF")
			ISpecialID = RsSelectObj("SpecialID")
			IAuditTF = RsSelectObj("AuditTF")
			IDelTF = RsSelectObj("DelTF")
			IShowReviewTF = RsSelectObj("ShowReviewTF")
			IReviewTF = RsSelectObj("ReviewTF")
			ISBSNews = RsSelectObj("SBSNews")
			IMarqueeNews = RsSelectObj("MarqueeNews")
			IProclaimNews = RsSelectObj("ProclaimNews")
			ILinkTF = RsSelectObj("LinkTF")
			IFilterNews = RsSelectObj("FilterNews")
			INewsTemplet = RsSelectObj("NewsTemplet")
			ITitleSHowReview= RsSelectObj("TitleSHowReview")
			HaveValueTF = True
		else
			HaveValueTF = False
		end if
		Set RsSelectObj = Nothing
	else
		HaveValueTF = False
	end if
end if
if HaveValueTF = False then
	ITitle = NoCSSHackAdmin(Request("Title"),"标题")
	'2006-4-27
	ISubTitle = Trim(Request("SubTitle"))
	If Len(ISubTitle)>250 Then 
		Response.write "<script>alert('新闻副标题太长');history.back();</script>"
	End If 
	'=================
	ITitleColor = Request("TitleColor")
	TitleBoldstr = Request("TitleBold")
	TitleUstr = Request("Titles")
	IHeadNewsTF = Request("HeadNewsTF")
	IPicNewsTF = Request("PicNewsTF")
	ISavePic = Request("SavePic")
	Dim TempForVar
	For TempForVar = 1 To Request.Form("Content").Count
		IContent = IContent & Request.Form("Content")(TempForVar)
	Next
	ITodayNewsTF = Request("TodayNewsTF")
	IManuTF = Request("ManuTF")
	IFileName = Request("FileName")
	IBrowPop = Request("BrowPop")
	IFileExtName = Request("FileExtName")
	IPath = Request("Path")
	IAddDate = Request("AddDate")
	if IAddDate = "" then IAddDate = Now()
	IKeyWords = Request("KeyWords")
	ITxtSource = Request("TxtSource")
	IAuthor = Request("Author")
	IEditer = Request("Editer")
	IClickNum = Request("ClickNum")
	IRecTF = Request("RecTF")
	ISpecialID = Request("SpecialID")
	IAuditTF = Request("AuditTF")
	IDelTF = Request("DelTF")
	IShowReviewTF = Request("ShowReviewTF")
	IReviewTF = Request("ReviewTF")
	ISBSNews = Request("SBSNews")
	IMarqueeNews = Request("MarqueeNews")
	IProclaimNews = Request("ProclaimNews")
	ILinkTF = Request("LinkTF")
	IFilterNews = Request("FilterNews")
	INewsTemplet = Request("NewsTemplet")
	IPicNews=Request("IsPicNews")
	IPicPath=Request("PicPath")
	ITitleSHowReview=Request("TitleSHowReview")
end if
if IsNull(IContent) then
	IContent = ""
else
	IContent = Replace(Replace(IContent,"""",""),"'","")
end if
if INewsTemplet = "" OR INewsTemplet = Null then
	INewsTemplet = IClassBuildNewsTemp
end if
if IFileExtName = "" OR IFileExtName = Null then
	IFileExtName = NewsExtFileName
end if


if Action = "Submit" then
	Dim INewsAddObj,INewsAddSql,NewsFileNames
	If IPicNews="IsPicNews" then 
		If IPicPath="" then 
			response.write ("<script>alert(""请选择图片地址"");history.back();</script>")
			Response.End
		End If
	End If
	if GetStrTrueLen(Trim(ITitle)) >0 And GetStrTrueLen(Trim(ITitle))<=255  then
		ITitle = Replace(Replace(ITitle,"""",""),"'","")
	Else
		'2006-4-27
		Response.Write("<script>alert(""新闻标题长度应该大于0小于255个字符（127个汉字）"");history.back();</script>")
		Response.End
		'=================
	end if
	if IClassID <> "" then
		IClassID = Replace(Replace(IClassID,"""",""),"'","")
	else
		Response.Write("<script>alert(""栏目参数传递错误"");history.back();</script>")
		Response.End
	end if
	if INewsTemplet<>"" then
		INewsTemplet = Replace(Replace(INewsTemplet,"""",""),"'","")
	else
		Response.Write("<script>alert(""请选择新闻模板文件"");history.back();</script>")
		Response.End
	end if 
	if Isnumeric(IClickNum) then
		IClickNum = Clng(IClickNum)
	else
		Response.Write("<script>alert(""新闻初始点击次数必须为数字类型"");history.back();</script>")
		Response.End
	end if 
	if IsDate(IAddDate) then
		IAddDate = Formatdatetime(IAddDate)
	else
		Response.Write("<script>alert(""新闻添加时间类型错误,请重新输入"");history.back();</script>")
		Response.End
	end if
	if IContent = "" OR IsNull(IContent) then
		Response.Write("<script>alert(""新闻内容不能为空"");history.back();</script>")
		Response.End
		 '=============================
 '自定义字段检查（默认值，必填值）
    ' kedee 修改于 2006年7月13日16:12:02
 Call CheckAuixInfo(AuixArrStr)
 '=============================
	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  '新闻文件名
		INewsAddObj("Path") =  "/" & year(now())&"-"&month(now())&"/"&day(now())             '新闻路径 
	end if
	If IPicNews<>"" then 
		INewsAddObj("PicNewsTF")=1
		INewsAddObj("PicPath")=iPicPath
	else
		INewsAddObj("PicNewsTF") = 0
	end if
If IFileName <> "" then
INewsAddObj("FileName") = IFileName
Else
INewsAddObj("FileName") = NewsFileNames
End If	
	INewsAddObj("Title") =  ITitle
	'If ISubTitle <> "" then
		INewsAddObj("SubTitle") = 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") = 0
	Dim Content_Loop_Var,Save_Content
	For Content_Loop_Var = 1 To Request.Form("Content").Count
		Save_Content = Save_Content & Request.Form("Content")(Content_Loop_Var)
	Next
	If instr(Save_Content,"[NoPage]") then
		Save_Content=replace(replace(Save_Content,"[Page]",""),"[NoPage]","")
	Else
		Save_Content=AutoSplitPages(Save_Content)
	End If
	'============================
	'过滤脏字
	Save_Content = CutBadChar(Save_Content)
	'=============================
	If ISavePic = "1" then
		CreateDateDir(Server.MapPath(Get_RootDir&"/"&UpFiles & "/" & BeyondPicDir))
		Save_Content = ReplaceRemoteUrl(Save_Content,"/" & UpFiles & "/" & BeyondPicDir&"/"&year(Now())&"-"&month(now())&"/"&day(Now()),GetConfig(0),Get_RootDir)
	End If
	INewsAddObj("Content") = replace(Save_Content,WebDomain,"")
	If ITitleShowReview<>"" then 
		INewsAddObj("TitleShowReview")=1
	Else
		INewsAddObj("TitleShowReview")=0
	End If
	If ITodayNewsTF <> "" then
		INewsAddObj("TodayNewsTF") = 1
	Else
		INewsAddObj("TodayNewsTF") = 0
	End If
	if IManuTF = "1" then
		INewsAddObj("ManuTF") =  1
	else
		INewsAddObj("ManuTF") = 0
	end if 
	if IBrowPop <> "" then