contributionbatchcheck.asp

asp源码 图片ASP整站

<% Option Explicit %>
<!--#include file="../../../Inc/Const.asp" -->
<!--#include file="../../../Inc/Cls_DB.asp" -->
<!--#include file="../../../Inc/Function.asp" -->
<!--#include file="../../../Inc/cls_User.asp" -->
<!--#include file="../Refresh/Function.asp" -->
<!--#include file="../Refresh/RefreshFunction.asp" -->
<!--#include file="../Refresh/Cls_Refresh.asp" -->
<%
'==============================================================================
'软件名称：风讯网站信息管理系统
'当前版本：Foosun Content Manager System(FoosunCMS V3.2SP1)
'最新更新：2006.5
'==============================================================================
'Copyright (C) 2002-2004 Foosun.Net  All rights reserved.
'商业注册联系：028-85098980-601,项目开发：028-85098980-606、609,客户支持：608
'产品咨询QQ：394226379,159410,125114015
'技术支持QQ：315485710,66252421 
'项目开发QQ：415637671，655071
'程序开发：四川风讯科技发展有限公司(Foosun Inc.)
'Email:[e-mail]
'MSN：[e-mail]
'论坛支持：风讯在线论坛(http://bbs.foosun.net)
'官方网站：www.Foosun.cn  演示站点：test.cooin.com 
'网站通系列(智能快速建站系列)：www.ewebs.cn
'==============================================================================
'免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接
'风讯公司保留此程序的法律追究权利
'如需进行2次开发，必须经过风讯公司书面允许。否则将追究法律责任
'==============================================================================
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" -->
<%
if Not JudgePopedomTF(Session("Name"),"P010603") then Call ReturnError1()
On Error Resume Next
Dim DummyPath_Riker
If SysRootDir<>"" then
	DummyPath_Riker = "/" & SysRootDir
Else
	DummyPath_Riker = ""
End If
Dim NewsID,TempClassID,OldClassObj,OldClassEName,RsContObj,NewsContent
NewsID = Cstr(Request("NewsID"))
NewsID = Replace(NewsID,"***","','")
Set RsContObj = server.CreateObject(G_FS_RS)
RsContObj.open "Select * from FS_Contribution where ContID in ('"&NewsID&"')",UserConn,1,1
If RsContObj.eof then
	Response.Write("<script>alert(""参数传递错误"");history.back();</script>")
	Response.End
End If
Dim ITitle,IClassID,INewsTemplet,IClickNum,IAddDate,INewsAddObj,INewsAddSql,ConCheckNewsID
Dim NewsFileNames
set INewsAddObj=server.CreateObject(G_FS_RS)
INewsAddSql="select * from FS_News where 1=2"

Do While Not RsContObj.eof
	Set OldClassObj = Conn.Execute("select NewsTemp from FS_NewsClass where ClassID='"&RsContObj("ClassID")&"'")

	NewsContent = Replace(Replace(RsContObj("Content"),"""","%22"),"'","%27")

	ITitle = RsContObj("Title")
	IClassID = RsContObj("ClassID")
	INewsTemplet = OldClassObj("NewsTemp")
	IClickNum = 0
	IAddDate = RsContObj("AddTime")
	ConCheckNewsID = GetRandomID18
	NewsFileNames = NewsFileName(GetConfig(16),IClassID,ConCheckNewsID)

	INewsAddObj.open INewsAddSql,Conn,3,3
	INewsAddObj.addnew
	INewsAddObj("Title") =  ITitle
	INewsAddObj("SubTitle") = RsContObj("SubTitle")
	INewsAddObj("ClassID") =  IClassID
	INewsAddObj("HeadNewsTF") =  "0"
	INewsAddObj("NewsID") =  ConCheckNewsID    '新闻ID
	INewsAddObj("ManuTF") =  "1"
	INewsAddObj("FileName") = NewsFileNames   '新闻文件名 
	INewsAddObj("FileExtName") = "htm"     '新闻文件扩展名
	INewsAddObj("Path") =  "/" & year(now())&"-"&month(now())&"/"&day(now())             '新闻路径 
	INewsAddObj("AddDate") =  IAddDate
	INewsAddObj("KeyWords") = RsContObj("KeyWords")
	INewsAddObj("TxtSource") = "本站会员投稿"
	INewsAddObj("Author") = RsContObj("Author")
	INewsAddObj("Editer") = ""
	INewsAddObj("ClickNum") =  IClickNum
	INewsAddObj("RecTF") =  "0"
	INewsAddObj("SpecialID") = ""
	INewsAddObj("PicNewsTF") = "0"
	INewsAddObj("PicPath") = ""
	INewsAddObj("AuditTF") =  "0"
	INewsAddObj("DelTF") =  "0"
'	INewsAddObj("BrowPop") = ""
	INewsAddObj("ShowReviewTF") =  "0"
	INewsAddObj("ReviewTF") =  "0"
	INewsAddObj("SBSNews") =  "0"
	INewsAddObj("MarqueeNews") =  "0"
	INewsAddObj("ProclaimNews") =  "0"
	INewsAddObj("LinkTF") =  "0"
	INewsAddObj("TodayNewsTF") = 0
	INewsAddObj("FilterNews") =  "0"
	INewsAddObj("NewsTemplet") =  INewsTemplet
	INewsAddObj("NaviWords") =  ""
	INewsAddObj("Content") = NewsContent   '新闻内容
	INewsAddObj.Update
	INewsAddObj.Close
	  
	Dim CreatePageObj
	Set CreatePageObj = Conn.Execute("Select * from FS_News where NewsID='"&ConCheckNewsID&"'")
	If Not CreatePageObj.eof then
		RefreshNews CreatePageObj
	End If	
	CreatePageObj.Close
	Set CreatePageObj = Nothing  
	Dim cls_UserConfig
	Set cls_UserConfig= New cls_User
	cls_UserConfig.Name = RsContObj("Author")
	cls_UserConfig.update "ConNumNews,Point","ConNumNews+1,Point+"&cls_UserConfig.GetUserConfig(20),cls_UserConfig.UserID
	cls_UserConfig.addLog "point",cls_UserConfig.point+cls_UserConfig.GetUserConfig(20),cls_UserConfig.EName,"投稿通过审核，增加一般积分点数"
	Set cls_UserConfig = Nothing
	OldClassObj.Close
	Set OldClassObj = Nothing
	RsContObj.movenext
Loop

Set INewsAddObj = Nothing
RsContObj.Close
Set RsContObj = Nothing
UserConn.Execute("Delete from FS_Contribution where ContID in ('"&NewsID&"')")
If Err Then 
	Err.clear 
	Response.write "<script>alert('操作失败！');history.back();</script>"
Else
	Response.write "<script>alert('批量审核成功！');history.back();</script>"
	Response.Redirect("ContributionList.asp?ClassID=" & IClassID)
End If 
%>