user_article.asp

PDA,若你死昂师傅你说的附件是打开附件上课的附件四度空间就大方快速减肥

    <td height="23" align="right">关键字：</td>
    <td height="23" colspan="2" align="left">
	<input name="Keywords" type="text"  size="50" maxlength="255" id="Keywords" value="<%= Keywords %>">
	<input id=Tags type="checkbox" name="Tags" value="1"><label for=Tags>写入Tags</label>
	<%
		  For I = 0 To UBound(KeywordArr)
			response.Write  "<a href=""javascript:SetValue('add','Keywords','"&","&KeywordArr(I) &"')"">【<font color=""blue"">" & KeywordArr(I) & "</font>】</a>"
		  Next
	%>
	</td>
  </tr>
  <%Else
		response.write "<input type=""hidden"" id=""Keywords"" name=""Keywords"" value="""&Keywords&""">"
	End If 


	If ActCMS_DIY(7)="0" Then  %>
  <tr>
    <td align="right" ><%=ModeName%>作者：</td>
    <td ><input name="author" type="text" id="author" value="<%= author %>"  size="50" /></td>
  </tr>
  <%
  
  Else
		response.write "<input type=""hidden"" id=""author"" name=""author"" value="""&author&""">"
	End If 

	If ActCMS_DIY(9)="0" Then 
  %>
  <tr>
    <td align="right" ><%=ModeName%>来源：</td>
    <td ><input name="CopyFrom" type="text" id="CopyFrom" value="<%= CopyFrom %>"  size="50" /></td>
  </tr>
   <%
   Else
		response.write "<input type=""hidden"" id=""CopyFrom"" name=""CopyFrom"" value="""&CopyFrom&""">"
	End If    
   If Action="edit" Then Call M.ACT_MXEdit(ModeID,ID) Else Call M.ACT_MXList(ModeID) %>
  <tr>
    <td align="right" ><%=ModeName%>状态：</td>
    <td >
	<input <% IF isAccept = 0 Then Response.Write "Checked" %> name="isAccept" id="IsAcceptTF1" type="radio" value="0" checked><label for="IsAcceptTF1">投搞</label>
      <input <% IF isAccept = 1 Then Response.Write "Checked" %> type="radio" name="isAccept" id="IsAcceptTF2" value="1"><label for="IsAcceptTF2">草稿</label>
     &nbsp;&nbsp; <% If UserHS.G_A_SH="1" Then Response.Write "当前系统状态：<font color=red>发布"&ModeName&"需要管理员审核才能显示</font>" else Response.Write "当前系统状态：<font color=green>发布"&ModeName&"不需要管理员审核</font>" %></td>
  </tr>
  <tr>
    <td colspan="2" ><%=ModeName%>内容??<font color="#ff0000">如果<%=ModeName%>较长可以使用分页标签：</font>
  <input name="button"  type="button"  class="ACT_btn" style="cursor:hand;" onClick="insertHTMLToEditor('[NextPage]');" value="[NextPage]">
点击插入，注意大小写</td></tr>
<!--   <tr>
    <td colspan="2" ></td>
    </tr>
  <tr> -->
    <td align="right" ><%=ModeName%>内容</td>
    <td ><div><input type="hidden" id="content" name="content" value="<%=Content%>" style="display:none" />
	  <input name="hidden" type="hidden" id="cont___Config" style="display:none" value="" />
	  <iframe id="cont___Frame" src="../editor/fckeditor/editor/fckeditor.html?InstanceName=content&amp;Toolbar=<%=U_Simple%>" width="690" height="480" frameborder="0" scrolling="no"> </iframe>
      </div></td>
  </tr><%
   If UserHS.G_UserUpFilesTF="1" Then

 %>
  <tr>
    <td align="center" >图片地址：</td>
    <td ><input name="PicUrl" type="text" id="PicUrl" value="<%= PicUrl %>" size="60"></td>
  </tr>
  <tr>
    <td align="center" >上传图片：</td>
    <td align="center" >
	<iframe name="image" frameborder="0" width='100%' height="25" scrolling="no" src="Upload_user.asp?ModeID=1&instr=1&instrname=PicUrl&YNContent=1&instrct=content"></iframe></td>
  </tr><% End if %>
  <tr>
    <td colspan="2" align="center" >
	  	  <input name="ID" type="hidden" value="<%=ID%>">
		  <input name="ClassID" type="hidden" value="<%=ClassID%>">
	  <input name="Action" type="hidden" id="Action" value="Save<%=frmAction %>">
	 <input type=button onclick=CheckForm() class="ACT_btn"  name=Submit1 value="  保存  " />
      &nbsp;&nbsp; <input type="reset" class="ACT_btn" name="Submit2" value="  取消  " onClick="javascript:history.back()"></td>
  </tr></form>
</table>
<script language="JavaScript" type="text/javascript">

function OpenWindowAndSetValue(Url,Width,Height,WindowObj,SetObj)
{
	var ReturnStr=showModalDialog(Url,WindowObj,'dialogWidth:'+Width+'pt;dialogHeight:'+Height+'pt;status:yes;help:no;scroll:yes;');
	if (ReturnStr!='') SetObj.value=ReturnStr;
	return ReturnStr;
}	
function insertHTMLToEditor(codeStr){
  var oEditor = FCKeditorAPI.GetInstance("content");
  if (oEditor.EditMode==FCK_EDITMODE_WYSIWYG){
    oEditor.InsertHtml(codeStr);
  }else{
    return false;
  }
}	
function SetValue(type,objname,strvalue)
{ 
	var obj=document.getElementById(objname)
	if (type=="add"){
		obj.value=',,,'+obj.value
		obj.value=obj.value.replace(strvalue,'');
		obj.value=obj.value+strvalue;
		obj.value=obj.value.replace(',,,','');
		obj.value=obj.value.replace(',,','');
		}
	else if (type=="+"){obj.value=parseInt(obj.value)+parseInt(strvalue);}
	else{obj.value=strvalue;}
	obj.focus(); 
 return; 
}	
function CheckForm()
{ var form=document.tcjdxr;
  
	 if (form.Title.value=='')
    { alert("请填写标题!");   
	  form.Title.focus();    
	   return false;
    }

	    form.Submit1.value="正在提交数据,请稍等...";
		form.Submit1.disabled=true;	
		form.Submit2.disabled=true;	
	    form.submit();
        return true;
	}
</script>  
<%end sub
sub add() %>
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
  <form  action="User_Article.asp?action=adds&ModeID=<%=ModeID%>" method="post" name="tcjdxr" id="tcjdxr"> <tr>
    <td align="center" class="bg_tr">第一步：选 择 投 稿 栏 目</td>
  </tr>
  <tr>
    <td align="center" >
	温馨提示：您所在的会员组是<font color="red">
	<%= UserHS.G_Name%></font> 开放的投稿栏目如下：</td>
  </tr>
  <tr>
    <td align="center" >选择栏目：
      <select class="textbox" size='1' name='ClassID' style="width:250">
        <option value="0">-请选择允许投稿的栏目-</option>
        <%=Classmake(ModeID)%>
      </select></td>
  </tr>
  <tr>
    <td align="center" >
	 <input type=button onclick=CheckForm() class="ACT_btn"  name=Submit1 value="  下一步  " />
      &nbsp;&nbsp; <input type="reset" class="ACT_btn" name="Submit2" value="  取消  " onClick="javascript:history.back()"></td>
  </tr></form>
</table>
<script language="JavaScript" type="text/javascript">
function CheckForm()
{ var form=document.tcjdxr;
  
	 if (form.ClassID.value=='0')
    { alert("请选择投稿栏目!");   
	  form.ClassID.focus();    
	   return false;
    }

	    form.Submit1.value="正在提交数据,请稍等...";
		form.Submit1.disabled=true;	
		form.Submit2.disabled=true;	
	    form.submit();
        return true;
	}
</script>
<%  end sub


sub main()

	Dim strLocalUrl
	strLocalUrl = request.ServerVariables("SCRIPT_NAME")
	
	Dim intPageNow
	intPageNow = request.QueryString("page")
	
	Dim intPageSize, strPageInfo
	intPageSize = 20
	
	Dim arrRecordInfo, i
	Dim sql, sqlCount,Sqls,pages
	pages = "action="&Request("action")&"&page"
	Select Case Request.QueryString("Status")
		Case "ListisAccept"
			Sqls = "  where isAccept=0 and delif=0 and  userid<>0  and ArticleInput='"& UserHS.UserName &"'"
		Case "ListNoAccept"
			Sqls = "  where isAccept=2 and delif=0 and  userid<>0  and ArticleInput='"& UserHS.UserName &"'"
		Case "Listcg"
			Sqls = "  where isAccept=1 and delif=0 and  userid<>0  and ArticleInput='"& UserHS.UserName &"'"
		Case "Listtg"
			Sqls = "  where isAccept=3 and delif=0 and  userid<>0  and ArticleInput='"& UserHS.UserName &"'"
		Case Else
			Sqls = " where delif=0 and  userid<>0  and ArticleInput='"& UserHS.UserName &"'"
			pages = "page"
	End Select
	sql = "SELECT [ID], [Title], [ArticleInput], [Hits], [isAccept], [IsTop],  [ClassID], [FileName],[ChangesLink],[Ismake],[GroupID_ACT],[Score_ACT]" & _
		" FROM ["&ACTCMS.ACT_C(ModeID,2)&"]" &Sqls& _
		"ORDER BY [ID] DESC"
	sqlCount = "SELECT Count([ID])" & _
			" FROM ["&ACTCMS.ACT_C(ModeID,2)&"]"&Sqls
		Dim clsRecordInfo
		Set clsRecordInfo = New Cls_PageView
			clsRecordInfo.intRecordCount = 2816
			clsRecordInfo.strSqlCount = sqlCount
			clsRecordInfo.strSql = sql
			clsRecordInfo.intPageSize = intPageSize
			clsRecordInfo.intPageNow = intPageNow
			clsRecordInfo.strPageUrl = strLocalUrl
			clsRecordInfo.strPageVar = pages
		clsRecordInfo.objConn = Conn		
		arrRecordInfo = clsRecordInfo.arrRecordInfo
		strPageInfo = clsRecordInfo.strPageInfo
		Set clsRecordInfo = nothing

	 %>
  <table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
    <form name="Article" method="post" action="?Action=">
    <tr>
      <td width="30" align="center" class="bg_tr">选中 </td>
      <td width="300" align="center" class="bg_tr">简短标题</td>
	   <td width="100" align="center" class="bg_tr">栏目</td>
	   <td width="60" align="center" class="bg_tr">录入者</td> 
	 <td width="60" align="center" class="bg_tr">审核状态</td>
	    <td width="50" align="center" class="bg_tr">已生成</td>
	  
      <td width="120" colspan="2" align="center" class="bg_tr">管理操作</td>
    </tr>
	 <%
		Dim bgColor
		If IsArray(arrRecordInfo) Then
			For i = 0 to UBound(arrRecordInfo, 2)
			bgColor="#FFFFFF"
			if i mod 2=0 then bgColor="#DFEFFF"
			Dim Rs ,ClassName,ClasseName
			  Set Rs = server.CreateObject("adodb.recordset")
					Rs.Open "select ClassName,ClasseName from Class_Act where ClassID='"& arrRecordInfo(6,i) &"'",Conn,1,1
					if  Not Rs.bof then
							ClassName =Rs("ClassName")
							ClasseName =Rs("ClasseName")
					Else
							ClassName ="<font color=red>程序出现错误</font>"
							ClasseName ="<font color=red>意外错误</font>"
					End if 
	%>
    <tr onMouseOver=overColor(this) onMouseOut=outColor(this)>
      <td align="center"  >
	  <input type="checkbox" name="ID" value="<%= arrRecordInfo(0,i) %>">	  </td>
      <td  ><a target="_blank" href="<%
	  If arrRecordInfo(8,i) = 1 Then
		response.write arrRecordInfo(7,i)
		Else
	 response.write  ACTCMS.ActCMSDM&"Article/TypeArticle.asp?ID="&arrRecordInfo(0,i)&"&ModeID="&ModeID
	  End if%>"><%= arrRecordInfo(1,i) %></a></td>
	  <td align="center"  ><%= classname %></td>
	  <td align="center"  ><%= arrRecordInfo(2,i) %></td>
      <td align="center" ><% '0审核通过  1草稿  2待审核 3退稿
	  
	   Select Case(arrRecordInfo(4,i))
	  			Case 0
					Response.Write "审核通过"	
				Case 1
					Response.Write "<font color=red>草稿</font>"
				Case 2
					Response.Write "<font color=red>待审核</font>"	
				Case 3
					Response.Write "<font color=red>退稿</font>"
		 End Select	
	   %></td>
      <td align="center" >
	<%IF arrRecordInfo(9,i) = 1 Then 
	  Response.Write "<font color=red><b>√</b></font>"
	  ElseIf arrRecordInfo(10,i) <> "" Or arrRecordInfo(11,i) > "0" Then 
	  Response.Write "<font color=#008000 title='因为设置了阅读权限,所以不用生成HTML'><b>¤</b></font>"
	  Else
	  Response.Write "<font color=red><b>×</b></font>"
	  End If %>
	  </td>
      <td colspan="2" align="center" >
	  <a href="?Action=edit&ModeID=<%=ModeID%>&ID=<%= arrRecordInfo(0,i) %>">修改</a>
	  <a href="?Action=del&ModeID=<%=ModeID%>&ID=<%= arrRecordInfo(0,i) %>" onClick="return confirm('确认删除此<%=ModeName%>吗?删除后您可以从回收站还原!')">删除</a>	  </td>
    </tr>
	<% 
	Next
	End If
	%>
    <tr >
      <td height="30" colspan="11" >
<input name="ChkAll" type="checkbox" id="ChkAll" onClick="CheckAll(this.form)" value="checkbox">
		<label for="chkAll">&nbsp;选中本页显示的所有<%=ModeName%></label>
	  <input type="button" class="act_btn" name="Submit" value="批量删除"  onClick="delpost()"></td>
    </tr>
    <tr >
      <td height="25" colspan="11" align="center" ><%= strPageInfo%></td>
    </tr>
</form>  </table>

<script language="JavaScript" type="text/javascript">
function overColor(Obj)
{
	var elements=Obj.childNodes;
	for(var i=0;i<elements.length;i++)
	{
		elements[i].className="tdbg1"
		Obj.bgColor="";
	}
	
}
function outColor(Obj)
{
	var elements=Obj.childNodes;
	for(var i=0;i<elements.length;i++)
	{
		elements[i].className="tdbg";
		Obj.bgColor="";
	}
}
function CheckAll(form)
		  {  
		 for (var i=0;i<form.elements.length;i++)  
			{  
			   var e = Article.elements[i];  
			   if (e.name != 'ChkAll'&&e.type=="checkbox")  
			   e.checked = Article.ChkAll.checked;  
		   }  
	  }
	  function delpost(){
    document.Article.method="post";
    document.Article.action="?Action=del";
{
	if(confirm('确认要删除选中的<%=ModeName%>吗?')){
	this.document.Article.submit();
	return true;}return false;
}
	}
</script>

<% end sub %>