📄 user_article.asp

📁 PDA,若你死昂师傅你说的附件是打开附件上课的附件四度空间就大方快速减肥
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#include file="../act_inc/ACT.User.asp"-->
<!--#include file="../ACT_inc/ACT.M.ASP"-->
<!--#include file="../ACT_inc/md5.ASP"-->
<!--#include file="../ACT_INC/cls_pageview.asp"-->
<script language="JavaScript" type="text/javascript" src="../editor/fckeditor/fckeditor.js"></script>
<script type='text/javascript' src='../ACT_INC/WebTime/WdatePicker.js'></script>

<%

Dim  UserHS,ModeID,ModeName,U_Simple,ACT_DIY,ActCMS_DIY
	ModeID=ACTCMS.ChkNumeric(request("ModeID"))
	If ModeID=0 Or ModeID="" Then ModeID=1
	ModeName= ACTCMS.ACT_C(ModeID,1) 
		Set UserHS = New ACT_User
		IF Cbool(UserHS.UserLoginChecked)=false then
		  Response.Write "<script>top.location.href ='login.asp' ;</script>"
		  Response.end
		End If
	If UserHS.G_Simple="" Then 
		U_Simple="Simple"
	Else
		U_Simple=UserHS.G_Simple
	End If 
	Set ACT_DIY = ActCMS.actexe("Select ACT_DiY from Mode_Act where ModeID="& ModeID)
    ActCMS_DIY=Split(ACT_DIY("ACT_DiY"),"§") 
	function Classmake(ModeID)
		 Dim FolderRS
		 Set FolderRS = Conn.Execute("Select ClassID,Classname,TGGroupID from Class_act where ParentID='0' And ModeID="&ModeID&" And tg=1 Order by Orderid desc,ID desc")
		 IF FolderRS.Bof And FolderRS.Eof Then
		 Response.Write("<br><li>还没有添加任何栏目!")
		 End IF
			 do while Not FolderRS.Eof
		 IF InStr(FolderRS("TGGroupID"),UserHS.GroupID)=0 Then
		 else
				Classmake=Classmake&"<option value="&FolderRS("ClassID")&" {ClassID="&FolderRS("ClassID")&"}>"& FolderRS("ClassName") & "</option>"
				 Classmake=Classmake&(GetChildClassList(FolderRS("ClassID"),""))
			 
		 End If
		  FolderRS.MoveNext
			  loop
	 end function
	 Function GetChildClassList(ClassID,Str)
	       Dim Sql,RsTempObj,TempImageStr,ImageStr,CheckStr
	        TempImageStr = "&nbsp;└"
	        Sql = "Select ClassID,Classname,TGGroupID from Class_act where ParentID='" & ClassID & "' and tg=1 And ModeID="&ModeID&"  "
	        ImageStr = Str & "&nbsp;└"
	        Set RsTempObj = Conn.Execute(Sql)
	            do while Not RsTempObj.Eof
		 IF InStr(RsTempObj("TGGroupID"),UserHS.GroupID)=0 Then
		 else
					   GetChildClassList = GetChildClassList  & "<option value="&RsTempObj("ClassID")&" {ClassID="&RsTempObj("ClassID")&"}>"& ImageStr & TempImageStr &" "& RsTempObj("ClassName")& "</option>"
					  GetChildClassList = GetChildClassList & GetChildClassList(RsTempObj("ClassID"),ImageStr)
		        
		end if
		 RsTempObj.MoveNext
	           loop
	       Set RsTempObj = Nothing
	 End Function 
 %>
 <html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="Images/css/css.css" rel="stylesheet" type="text/css">
<title>添加内容_By actcms.com</title>
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
  <tr>
    <td colspan="2" class="bg_tr">当前操作：网站首页 &gt;&gt; 会员中心 &gt;&gt; 添加/修改</td>
  </tr>
  <tr>
    <td > 我发布的<%=ModeName%></td>
    <td align="right" >·<a href="?action=add&ModeID=<%=request("ModeID")%>"><font color="red">发表<%=ModeName%></font></a>  ·<a href="User_Article.asp?Status=Listcg">草 稿[
	<%=conn.execute("select count(id) from "&ACTCMS.ACT_C(ModeID,2)&" where isAccept=1 and articleinput='"& UserHS.UserName &"'")(0)%></a>]  &nbsp;·<a href="User_Article.asp?Status=ListNoAccept">待审核[<%=conn.execute("select count(id) from "&ACTCMS.ACT_C(ModeID,2)&" where isAccept=2 and articleinput='"& UserHS.UserName &"'")(0)%>]</a>&nbsp;&nbsp;·<a href="User_Article.asp?Status=ListisAccept">&nbsp;已审核[<%=conn.execute("select count(id) from "&ACTCMS.ACT_C(ModeID,2)&" where isAccept=0 and articleinput='"& UserHS.UserName &"'")(0)%>]</a>&nbsp;&nbsp;·<a href="User_Article.asp?Status=Listtg">被退稿[<%=conn.execute("select count(id) from "&ACTCMS.ACT_C(ModeID,2)&" where isAccept=3 and articleinput='"& UserHS.UserName &"'")(0)%></a></td>
  </tr>
</table><% 
	dim frmAction,ClassID,rs,ClassName,Title,Keywords,author,CopyFrom,Content,id,PicUrl,isAccept,action
	 action=request("action")
	 select case action
	 	case "add"
			call add()
		case "adds","edit"
			call adds()
		case "Saveadd"
			call Saveadd()
		case "Saveedit"
			call Saveedit()
		case "del"
			call del()
		case else
			call main()
	end select
	
	
  Sub del()
	Dim ID:ID=ACTCMS.S("ID")
	If ID="" Then Call ACTCMS.Alert("你没有选中要删除的"&ModeNam&"!",""):Response.End
	Conn.Execute("Delete From "&ACTCMS.ACT_C(ModeID,2)&" Where isAccept<>0 and articleinput='"& UserHS.UserName &"' and ID In(" & ID & ")")
	Response.Redirect "user_article.asp"
  End Sub

	sub Saveedit()
	dim Save_SQL,IF_NULL,i
		 Title=Trim(ACTCMS.S("Title"))
		 Keywords=Trim(ACTCMS.S("Keywords"))
		 CopyFrom=Trim(ACTCMS.S("CopyFrom"))
		 Content=server.htmlencode(ACTCMS.S("Content"))
		 PicUrl=ACTCMS.S("PicUrl")
		 isAccept=ACTCMS.S("isAccept")
		 author=ACTCMS.S("author")
		 IF_NULL=ACTCMS.Act_MX_Arr(ModeID)
		 If IsArray(IF_NULL) Then
			For I=0 To Ubound(IF_NULL,2)
			 If IF_NULL(2,I)=0 And Trim(ACTCMS.S(IF_NULL(0,I)))="" Then  Call  ACTCMS.ALERT(IF_NULL(1,I)&"不能为空","")
			Next
		 End If
				 If UserHS.G_A_SH="0" And isAccept=0 Then 
				 	isAccept=0 
				 elseIf isAccept=1 Then 
					isAccept=1
				else
					isAccept=2
				end if
			If UserHS.G_A_SH="1" Then isAccept=2:Else:isAccept=0 
				
				  If Title="" Then
					Call ACTCMS.alert("请输入简短标题","")
				    Exit Sub
				  End IF
				  If Content="" Then
					Call ACTCMS.alert("请输入"&ModeNam&"内容","")
				    Exit Sub
				  End IF
		Set Save_SQL=Server.CreateObject("Adodb.Recordset")		  
		Save_SQL.Open "Select * From "&ACTCMS.ACT_C(ModeID,2)&"  Where userid<>1 and articleinput='"& UserHS.UserName &"' and ID=" & ACTCMS.ChkNumeric(ACTCMS.S("ID")),Conn,1,3
		Save_SQL("Title") = Title'简短标题
		Save_SQL("isAccept") = isAccept
		Save_SQL("Content") = Content'内容
		Save_SQL("CopyFrom") = CopyFrom'来源
		Save_SQL("Keywords") = Keywords'关键字
		Save_SQL("UpdateTime")=now
		Save_SQL("ArticleInput") = UserHS.UserName
		Save_SQL("author") = author'作者
		If isAccept=0 Then  Conn.Execute("Update "&UserHS.TableName(UserHS.UModeID)&" Set ArticleNum=ArticleNum+1 Where UserName='" & UserHS.UserName & "'")'暂放

		If IsArray(IF_NULL) Then
			For I=0 To Ubound(IF_NULL,2)
				If IF_NULL(3,I)="NumberType" Then 
				   Save_SQL("" & IF_NULL(0,I) & "" )= ACTCMS.ChkNumeric(ACTCMS.S(IF_NULL(0,I)))
				ElseIf IF_NULL(3,I)="DateType" Then 
					If IsDate(ACTCMS.S(IF_NULL(0,I)))=False Then 
						Save_SQL("" & IF_NULL(0,I) & "")= Now()
					Else 
						Save_SQL("" & IF_NULL(0,I) & "")=server.htmlencode(ACTCMS.S(IF_NULL(0,I)))
					End If 
				Else 
					Save_SQL("" & IF_NULL(0,I) & "")=server.htmlencode(ACTCMS.S(IF_NULL(0,I)))
				End If 
			Next
		End If
	  Save_SQL("PicUrl")=PicUrl
	  if PicUrl<>"" Then 
	   Save_SQL("ArticlePic")=1
	  Else
	   Save_SQL("ArticlePic")=0
	  End if
		Save_SQL.update
	    Save_SQL.Close:Set Save_SQL=Nothing
		call ACTCMS.alert(""&ModeName&"修改成功!","User_Article.asp?ModeID="&ModeID&"")
				
	end sub
	sub Saveadd()
	dim TGGroupID,NewsID,Save_SQL
		 ClassID=ACTCMS.S("ClassID")
		 Title=Trim(ACTCMS.S("Title"))
		 Keywords=Trim(ACTCMS.S("Keywords"))
		 CopyFrom=Trim(ACTCMS.S("CopyFrom"))
		 Content=server.htmlencode(ACTCMS.S("Content"))
		 PicUrl=ACTCMS.S("PicUrl")
		 isAccept=ACTCMS.S("isAccept")
		 author=ACTCMS.S("author")
		 TGGroupID=Conn.Execute("Select TGGroupID From Class_Act Where ClassID='" & ClassID &"'")(0)
		IF InStr(TGGroupID,UserHS.GroupID)=0 Then		
			call ACTCMS.alert("该栏目禁止投稿或您没有这个权限,请不要从外部提交数据!","")
			Exit Sub
		End IF	

				If isAccept="1" Then 
					isAccept=1
				elseif UserHS.G_A_SH="0" And isAccept=0 Then 
				 	isAccept=0 
					Call ACTCMS.isAcceptOK(ModeID,UserHs.GroupID,UserHS.UserName,Title)
				else
					isAccept=2
				end If
				  if ClassID="" Then ClassID=0
				  If ClassID=0 Then
					Call ACTCMS.alert("请选择"&ModeName&"栏目","")
				    Exit Sub
				  End IF
				  If Title="" Then
					Call ACTCMS.alert("请输入简短标题","")
				    Exit Sub
				  End IF
				  If Content="" Then
					Call ACTCMS.alert("请输入"&ModeName&"内容","")
				    Exit Sub
				  End IF
		Dim ChkFileName,strFileName,IF_NULL,i

		IF_NULL=ACTCMS.Act_MX_Arr(ModeID)
		If IsArray(IF_NULL) Then
			For I=0 To Ubound(IF_NULL,2)
			 If IF_NULL(2,I)=0 And Trim(ACTCMS.S(IF_NULL(0,I)))="" Then  Call  ACTCMS.ALERT(IF_NULL(1,I)&"不能为空","")
			Next
		End If

		strFileName=ACTCMS.ACT_C(ModeID,10)
		If Instr(strFileName,"{y}") > 0 Then strFileName = Replace(strFileName,"{y}",Right("0" & Year(Now), 2))
		If Instr(strFileName,"{yy}") > 0 Then strFileName = Replace(strFileName,"{yy}", Year(Now))
		If Instr(strFileName,"{m}") > 0 Then strFileName = Replace(strFileName,"{m}",Right("0" & Month(Now), 2))
		If Instr(strFileName,"{d}") > 0 Then strFileName = Replace(strFileName,"{d}",Right("0" & Day(Now), 2))
		If Instr(strFileName,"{date}") > 0 Then strFileName = Replace(strFileName,"{date}",Year(Now) & "-" & Month(Now) & "-" & Day(Now))
		If Instr(strFileName,"{enname}") > 0 Then strFileName = Replace(strFileName,"{enname}",Actcms.ACT_L(classid,1))
		If Instr(strFileName,"{md5}") > 0 Then strFileName = Replace(strFileName,"{md5}",MD5(Now))
		If Instr(strFileName,"{rnd}") > 0 Then strFileName = Replace(strFileName,"{rnd}",ACTCMS.GetRandomize(10))
		If Instr(strFileName,"{pinyin}") > 0 Then strFileName = Replace(strFileName,"{pinyin}",ACTCMS.GetEn(ACTCMS.PinYin(ACTCMS.CloseHtml(Title))))

		If Instr(strFileName,".")>0 Then '截取扩展名
			Dim Tmps,TmpUs : Tmps = Split(strFileName,".") : TmpUs = Tmps(Ubound(Tmps)-1)
			strFileName=TmpUs
		End If 
		If Right(strFileName,1)="/" Then 
			strFileName=Left(strFileName, Len(strFileName) - 1)
		End If 


		set ChkFileName = actcms.actexe("select ID From "&ACTCMS.ACT_C(ModeID,2)&" where ClassID ='"& ClassID &"' and FileName='"& strFileName &"' order by ID desc")
		if Not ChkFileName.eof then
			Call ACTCMS.alert("文件名重复","")
			Response.end
		End If
		Set Save_SQL = server.CreateObject("adodb.recordset")
		Save_SQL.Open "Select * from "&ACTCMS.ACT_C(ModeID,2)&" where 1=0",Conn,1,3
		
		Save_SQL.AddNew
		Save_SQL("ClassID") = ClassID
		Save_SQL("Title") = Title'简短标题
		Save_SQL("isAccept") = isAccept
		Save_SQL("TemplateUrl") = ACTCMS.ACT_L(ClassID,5)
		Save_SQL("Content") = Content'内容
		Save_SQL("CopyFrom") = CopyFrom'
		Save_SQL("Keywords") = Keywords'关键字
		Save_SQL("UpdateTime")=now
		Save_SQL("ArticleInput") = UserHS.UserName
		Save_SQL("author") = author'作者
		Save_SQL("userid") = UserHS.GroupID'作者

		If IsArray(IF_NULL) Then
			For I=0 To Ubound(IF_NULL,2)
				If IF_NULL(3,I)="NumberType" Then 
				   Save_SQL("" & IF_NULL(0,I) & "" )= ACTCMS.ChkNumeric(ACTCMS.S(IF_NULL(0,I)))
				ElseIf IF_NULL(3,I)="DateType" Then 
					If IsDate(ACTCMS.S(IF_NULL(0,I)))=False Then 
						Save_SQL("" & IF_NULL(0,I) & "")= Now()
					Else 
						Save_SQL("" & IF_NULL(0,I) & "")=server.htmlencode(ACTCMS.S(IF_NULL(0,I)))
					End If 
				Else 
					Save_SQL("" & IF_NULL(0,I) & "")=server.htmlencode(ACTCMS.S(IF_NULL(0,I)))
				End If 
			Next
		End If


	  If Instr(strFileName,"{id}") > 0 Then strFileName = Replace(strFileName,"{id}",Save_SQL("id"))
	  Save_SQL("FileName") = strFileName'文件名
	  Save_SQL("PicUrl")=PicUrl
	  if PicUrl<>"" Then 
	   Save_SQL("ArticlePic")=1
	  Else
	   Save_SQL("ArticlePic")=0
	  End if
		Save_SQL.update
	    Save_SQL.Close:Set Save_SQL=Nothing
	    Response.Write "<script>if (confirm('"&ModeName&"添加成功，继续添加吗?')){location.href='User_Article.asp?action=add&ModeID="&ModeID&"&ClassID=" & ClassID &"';}else{location.href='User_Article.asp?ModeID="&ModeID&"';}</script>"
		
	end sub
	sub adds()
	Dim KeywordArr,I
	Set Rs=server.CreateObject("adodb.recordset") 
	KeywordArr=Split(ActCMS_DIY(4), "-")

	IF Action = "edit" Then
	id=Actcms.ChkNumeric(Actcms.S("ID"))
	Rs.Open "Select * From "&ACTCMS.ACT_C(ModeID,2)&"  Where articleinput='"& UserHS.UserName &"' and ID=" & id,Conn,1,3
		IF Rs.eof Then 
			call Actcms.alert("非法提交数据,试图更改其他用户"&ModeName&"!","User_Article.asp?ModeID="&ModeID&"")
			Response.End
		Else
			Title=RS("Title")
			ClassID=RS("ClassID")
			If RS("Content") <> "" Then Content=Server.HTMLEncode(RS("Content"))
			Keywords=RS("Keywords")
			author=RS("author")
			CopyFrom=RS("CopyFrom")
			isAccept=RS("isAccept")
			PicUrl=RS("PicUrl")
			Rs.close
			frmAction="edit"
	End IF
	else
		frmAction="add"
		ClassID=request("ClassID")
		author=UserHS.UserName
		CopyFrom=ActCMS_DIY(8)
	   If UBound(KeywordArr)=>0 Then Keywords=KeywordArr(0)
	end if
		Rs.OPen "Select * from class_Act  where ClassID = '"& ClassID &"'",Conn,1,1
		IF Not Rs.eof Then
			ClassID = Rs("ClassID"):ClassName = Rs("ClassName")
		End IF
	%>	
  
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
  <form  action="?ModeID=<%=ModeID%>" method="post" name="tcjdxr" id="tcjdxr"> <tr>
    <td width="17%" align="center" class="bg_tr">发布<%=ModeName%></td>
    <td width="83%" align="center" class="bg_tr">&nbsp;</td>
  </tr>
  <tr>
    <td align="right" >所属分类：</td>
    <td ><%= ClassName %></td>
  </tr>
  <tr>
    <td align="right" >简短标题：</td>
    <td ><input name="Title" type="text" id="Title" value="<%= Title %>" size="50" /></td>
  </tr>


	<%  
	If ActCMS_DIY(5)="0" Then
%>
	<tr>
12 下一页
⌨️ 快捷键说明

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