📄 constr_action.asp

📁 后台目录:qwbAdmin/Login.asp 登陆用户名:admin 登陆密码:admin
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<% Option Explicit %>
<!--#include file="../../FS_Inc/Const.asp" -->
<!--#include file="../../FS_InterFace/MF_Function.asp" -->
<!--#include file="../../FS_InterFace/ns_Function.asp" -->
<!--#include file="../../FS_Inc/Function.asp" -->
<!--#include file="../../FS_Inc/Func_page.asp" -->
<!--#include file="lib/cls_main.asp" -->
<!--#include file="../../FS_InterFace/NS_Public.asp" -->
<!--#include file="../../FS_InterFace/MS_Public.asp" -->
<!--#include file="../../FS_InterFace/DS_Public.asp" -->
<!--#include file="../../FS_InterFace/ME_Public.asp" -->
<!--#include file="../../FS_InterFace/MF_Public.asp" -->
<!--#include file="../../FS_InterFace/SD_Public.asp" -->
<!--#include file="../../FS_InterFace/HS_Public.asp" -->
<!--#include file="../../FS_InterFace/AP_Public.asp" -->
<!--#include file="../../FS_InterFace/Other_Public.asp" -->
<!--#include file="../PublicSite/Public_Function.asp" -->
<%'Copyright (c) 2006 Foosun Inc. Code by Einstein.Liu
Dim Conn,User_Conn,FS_News,values,action,info_Rs,news_Rs,sql_cmd,sql_news_cmd,str_FileName
Dim contrPoint,contrMoney,contrAuditPoint,contrAuditMoney,Rs,MainID
Dim HaveNewsIDTF,ChedkNewsIDObj,Temp_NewsID_Str,TempNewsID
'Admin_Login_State'判断是否登陆
MF_User_Conn
MF_Default_Conn
MF_Session_TF
if not MF_Check_Pop_TF("NS_Constr") then Err_Show
Set info_Rs=Server.CreateObject(G_FS_RS)
Set news_Rs=Server.CreateObject(G_FS_RS)
Set FS_News=New Cls_News
FS_News.GetSysParam()
values=NoSqlHack(request.QueryString("values"))
values=DelHeadAndEndDot(values)'去处首尾逗号
action=NoSqlHack(request.QueryString("act"))
Set Rs=User_Conn.execute("Select top 1 contrPoint,contrMoney,contrAuditPoint,contrAuditMoney from FS_ME_SysPara")
if Rs.eof then
	Response.Redirect("../error.asp?ErrCodes=<li>请先设置会员参数</li>&ErrorUrl=")
ELse
	contrPoint=Rs("contrPoint")
	if not isnumeric(contrPoint) then contrPoint=0
	contrMoney=Rs("contrMoney")
	if not isnumeric(contrMoney) then contrMoney=0
	contrAuditPoint=Rs("contrAuditPoint")
	if not isnumeric(contrAuditPoint) then contrAuditPoint=0
	contrAuditMoney=Rs("contrAuditMoney")
	if not isnumeric(contrAuditMoney) then contrAuditMoney=0
End if
Rs.close
Set Rs=nothing
'审核
if action="audit" then
	if not MF_Check_Pop_TF("NS030") then Err_Show
	sql_news_cmd="select id,NewsID,NewsTitle,CurtTitle,Content,Keywords,Editor,isPicNews,Author,classID,Templet,NewsPicFile,SaveNewsPath,FileName,FileExtName,addtime,NewsProperty from FS_NS_News"
	if instr(values,",")=0 then
		sql_cmd="select AuditTF,ContTitle,SubTitle,ContContent,KeyWords,UserNumber,MainID,PicFile,NewsID from FS_ME_InfoContribution where contid="&values
		info_Rs.open sql_cmd,User_Conn,1,3
		news_Rs.open sql_news_cmd ,Conn,1,3
		news_Rs.addNew
		if not info_Rs.eof then
			news_Rs("NewsTitle")=info_Rs("ContTitle")
			news_Rs("CurtTitle")=info_Rs("SubTitle")
			news_Rs("Keywords")=info_Rs("KeyWords")
			If Fs_News.CopyFileTF = 1 Then
				news_Rs("Content")=GetFilePicPath(info_Rs("ContContent"),"Con")
				if trim(info_Rs("PicFile"))<>"" then
					news_Rs("NewsPicFile")=GetFilePicPath(info_Rs("PicFile"),"only")
					news_Rs("isPicNews")=1
				ENd if
			Else
				news_Rs("Content")=info_Rs("ContContent")
				if trim(info_Rs("PicFile"))<>"" then
					news_Rs("NewsPicFile")=info_Rs("PicFile")
					news_Rs("isPicNews")=1
				ENd if
			End If	
			news_Rs("Author")=FS_News.GetUserName(info_Rs("userNumber"))
			news_Rs("Editor")=session("Admin_Name")
			if not isnull(info_Rs("MainID")) and not info_Rs("MainID")="" then
				Set Rs= Conn.execute("select Classid from FS_NS_NewsClass where id="&info_Rs("MainID"))
				if not Rs.eof then
					MainID=Rs("Classid")
				Else
					MainID="0"
				End if
			Else
				MainID="0"
			End If
			If MainID="0" Then
				Response.Redirect("lib/error.asp?ErrCodes=<li>请选择栏目n</li>")
				Response.End()
			End if
			news_Rs("classID")=MainID
			'============================================================
			HaveNewsIDTF = False
			Do While Not HaveNewsIDTF
				Temp_NewsID_Str = FS_News.getRamCode(15)
				Set ChedkNewsIDObj = Conn.ExeCute("Select NewsID From FS_NS_News Where NewsID = '" & Temp_NewsID_Str & "'")
				If ChedkNewsIDObj.Eof Then
					TempNewsID = Temp_NewsID_Str
					HaveNewsIDTF = True
					Exit Do
				End IF
				ChedkNewsIDObj.Close : Set ChedkNewsIDObj = NOthing	
			Loop
			'===========================================================
			news_Rs("NewsID")=TempNewsID
			news_Rs("SaveNewsPath") = Fs_news.SaveNewsPath(Fs_news.fileDirRule)
			news_Rs("FileName")=Fs_news.strFileNameRule(Fs_news.fileNameRule,0,0)
			news_Rs("NewsProperty")="0,1,1,1,0,0,0,0,1,0,0"
			if trim(request.Form("NewsTemplet"))<>"" then
				news_Rs("Templet")=request.Form("NewsTemplet")
			Else
				news_Rs("Templet")=Replace("/"& G_TEMPLETS_DIR &"/NewsClass/news.htm","//","/")
			ENd if
			Dim fileExtName
			Select Case Fs_news.fileExtName
				Case 1 fileExtName="htm"
				Case 2 fileExtName="shtml"
				Case 3 fileExtName="shtml"
				Case 4 fileExtName="shtm"
				Case Else fileExtName="html"
			End Select
			news_Rs("FileExtName")=fileExtName
			news_Rs("addtime")=Now()
			news_Rs.update
			If G_IS_SQL_DB = 0 Then
				newsID = news_Rs("ID")
			Else
				newsID = Conn.execute("select ident_current('FS_NS_News')")(0)
			End if
			str_FileName=news_Rs("FileName")
			Dim TempRsObj
			If Instr(str_FileName,"自动编号ID") Then
				str_FileName = Replace(str_FileName,"自动编号ID",newsID)
				Set TempRsObj=server.CreateObject(G_FS_RS)
				TempRsObj.open "select FileName From [Fs_NS_News] where NewsID='"&news_Rs("NewsID")&"' and ID="&Clng(newsID)&"",Conn,1,3
				if not TempRsObj.eof Then
					TempRsObj("FileName") = Replace(TempRsObj("FileName"),"自动编号ID",newsID)
					TempRsObj.update
				End If
				TempRsObj.Close
			End IF
			Dim TempRsObj_1
			If Instr(str_FileName,"唯一NewsID") Then
				str_FileName = Replace(str_FileName,"唯一NewsID",news_Rs("NewsID"))
				Set TempRsObj_1=server.CreateObject(G_FS_RS)
				TempRsObj_1.open "select FileName From [Fs_NS_News] where NewsID='"&news_Rs("NewsID")&"'",Conn,1,3
				if not TempRsObj_1.eof Then
					TempRsObj_1("FileName") = str_FileName
					TempRsObj_1.update
				End If
				TempRsObj_1.Close
			End IF
			Call Refresh("NS_news",newsID)

			User_Conn.execute("Update FS_ME_InfoContribution set NewsID="&newsID&" where ContID="&values)
			User_Conn.execute("Update FS_ME_Users set Integral=Integral+"&(contrAuditPoint)&" , FS_Money=FS_Money+"&(contrAuditMoney)&",ConNumberNews=ConNumberNews+1 where usernumber='"&info_Rs("UserNumber")&"'")
		Else
			Response.Redirect("lib/error.asp?ErrCodes=<li>投稿数据异常</li>")
			Response.End()
		End if
		news_Rs.close
		info_Rs.close
	else
		if not MF_Check_Pop_TF("NS030") then Err_Show
		Dim i,contID_Array'稿件id数组,
		contID_Array=split(values,",")
		for i =0 to Ubound(contID_Array)
			sql_cmd="select AuditTF,ContTitle,SubTitle,ContContent,KeyWords,UserNumber,MainID,PicFile from FS_ME_InfoContribution where contid="&contID_Array(i)
			info_Rs.open sql_cmd,User_Conn,1,3
			if not info_Rs.eof then
				news_Rs.open sql_news_cmd,Conn,1,3
				news_Rs.addNew
				news_Rs("NewsTitle")=info_Rs("ContTitle")
				news_Rs("CurtTitle")=info_Rs("SubTitle")
				news_Rs("Keywords")=info_Rs("KeyWords")
				If Fs_News.CopyFileTF = 1 Then
					news_Rs("Content")=GetFilePicPath(info_Rs("ContContent"),"Con")
					if trim(info_Rs("PicFile"))<>"" then
						news_Rs("NewsPicFile")=GetFilePicPath(info_Rs("PicFile"),"only")
						news_Rs("isPicNews")=1
					ENd if
				Else
					news_Rs("Content")=info_Rs("ContContent")
					if trim(info_Rs("PicFile"))<>"" then
						news_Rs("NewsPicFile")=info_Rs("PicFile")
						news_Rs("isPicNews")=1
					ENd if
				End If
				news_Rs("Author")=FS_News.GetUserName(info_Rs("UserNumber"))
				news_Rs("Editor")=session("Admin_Name")
				if not isnull(info_Rs("MainID")) and not info_Rs("MainID")="" then
				Set Rs= Conn.execute("select Classid from FS_NS_NewsClass where id="&info_Rs("MainID"))
					if not Rs.eof then
						MainID=Rs("Classid")
					Else
						MainID="0"
					End if
				Else
					MainID="0"
				End If
				If MainID="0" Then
					Response.Redirect("lib/error.asp?ErrCodes=<li>请选择栏目a</li>")
					Response.End()
				End if
				news_Rs("classID")=MainID
				'============================================================
				HaveNewsIDTF = False
				Do While Not HaveNewsIDTF
					Temp_NewsID_Str = FS_News.getRamCode(15)
					Set ChedkNewsIDObj = Conn.ExeCute("Select NewsID From FS_NS_News Where NewsID = '" & Temp_NewsID_Str & "'")
					If ChedkNewsIDObj.Eof Then
						TempNewsID = Temp_NewsID_Str
						HaveNewsIDTF = True
						Exit Do
					End IF
					ChedkNewsIDObj.Close : Set ChedkNewsIDObj = NOthing	
				Loop
				'===========================================================
				news_Rs("NewsID")=TempNewsID
				news_Rs("SaveNewsPath") = Fs_news.SaveNewsPath(Fs_news.fileDirRule)
				news_Rs("FileName")=Fs_news.strFileNameRule(Fs_news.fileNameRule,0,0)
				news_Rs("NewsProperty")="0,1,1,1,0,0,0,0,1,0,0"
				if trim(request.Form("NewsTemplet"))<>"" then
					news_Rs("Templet")=request.Form("NewsTemplet")
				Else
					news_Rs("Templet")=Replace("/"& G_TEMPLETS_DIR &"/NewsClass/news.htm","//","/")
				ENd if
				select case Fs_news.fileExtName
					case 1 fileExtName="htm"
					case 2 fileExtName="shtml"
					case 3 fileExtName="shtml"
					case 4 fileExtName="shtm"
					case else fileExtName="html"
				End select
				news_Rs("FileExtName")=fileExtName
				news_Rs("addtime")=Now()
				news_Rs.update
				if G_IS_SQL_DB = 0 then'是否是sqlserver
					newsID = news_Rs("ID")
				Else
					newsID = Conn.execute("select ident_current('FS_NS_News')")(0)
				End if
				User_Conn.execute("Update FS_ME_InfoContribution set NewsID="&newsID&" where ContID="&contID_Array(i))
				str_FileName=news_Rs("FileName")
				If Instr(str_FileName,"自动编号ID") Then
					str_FileName = Replace(str_FileName,"自动编号ID",newsID)
					Set TempRsObj=server.CreateObject(G_FS_RS)
					TempRsObj.open "select FileName From [Fs_NS_News] where NewsID='"&news_Rs("NewsID")&"' and ID="&Clng(newsID)&"",Conn,1,3
					if not TempRsObj.eof Then
						TempRsObj("FileName") =str_FileName
						TempRsObj.update
					End If
					TempRsObj.Close
				End IF
				If Instr(str_FileName,"唯一NewsID") Then
					str_FileName = Replace(str_FileName,"唯一NewsID",news_Rs("NewsID"))
					Set TempRsObj_1=server.CreateObject(G_FS_RS)
					TempRsObj_1.open "select FileName From [Fs_NS_News] where NewsID='"&news_Rs("NewsID")&"'",Conn,1,3
					if not TempRsObj_1.eof Then
						TempRsObj_1("FileName") =str_FileName
						TempRsObj_1.update
					End If
					TempRsObj_1.Close
				End if
				Call Refresh("NS_news",newsID)
				User_Conn.execute("Update FS_ME_InfoContribution set NewsID="&newsID&" WHERE ContID = "&contID_Array(i))
				User_Conn.execute("Update FS_ME_Users set Integral=Integral+"&Clng(contrAuditPoint)&" , FS_Money=FS_Money+"&Clng(contrAuditMoney)&",ConNumberNews=ConNumberNews+1 where usernumber='"&info_Rs("UserNumber")&"'")
			Else
				Response.Redirect("lib/error.asp?ErrCodes=<li>投稿数据异常</li>")
				Response.End()
			ENd if
			info_Rs.close
			news_Rs.close
		next
	End if
	User_Conn.execute("Update FS_ME_InfoContribution set audittf=1 where ContID in("&values&")")
'撤消审核
elseif action="recall" then
	if not MF_Check_Pop_TF("NS030") then Err_Show
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -