user_article.asp

Art2008 CMS是一款具有强大的功能的基于ASP语言的网站管理软件

      <input <% IF sh = 0 Then Response.Write "Checked" %> type="radio" name="sh" id="sh2" value="0"><label for="sh2">草稿</label>
     &nbsp;&nbsp; <% If UserHS.G_A_SH="1" Then Response.Write "当前系统状态：<font color=red>发布文章需要管理员审核才能显示</font>" else Response.Write "当前系统状态：<font color=green>发布文章不需要管理员审核</font>" %></td>
  </tr>
  <tr class="tdbg">
    <td colspan="2" ></td></tr>

  <tr class="tdbg"> 
    <td align="right" >文章内容：</td>
    <td ><div><input type="hidden" id="content" name="content" value="<%=Content%>" style="display:none" />
	
      <IFRAME ID="eWebEditor1" SRC="../edit/ewebeditor.htm?id=content&style=<%=U_Simple%>"  frameborder="0" scrolling="no" width="651" HEIGHT="450" marginwidth="1" marginheight="1" ></IFRAME>
      </div></td>
  </tr>
  <tr class="tdbg">
    <td  height="23" align="right">图片新闻：</td>
    <td height="23"align="left"><input type="checkbox" <% if pic<>"" then Response.Write " checked "%> name="tuwen" value="1" id=tu><label for=tu class="redtext">图片新闻</label></td>
  </tr>
    <tr class="tdbg">
    <td  height="23" align="right">图片地址：</td>
    <td height="23"align="left"><input type="text" name="pic" size="59" value="<%=pic%>">    <font color=red>此地址将做为图片新闻的缩略图。</font></td>
  </tr>
  <tr class="tdbg">
    <td  height="23" align="right">内容分页方式：</td>
    <td  height="23"align="left"><select name="PaginationType" id="PaginationType">
                <option value="0" <%if PaginationType=0 then response.write " selected"%>>不分页</option>
                <option value="1" <%if PaginationType=1 then response.write " selected"%>>自动分页</option>
                <option value="2" <%if PaginationType=2 then response.write " selected"%>>手动分页</option>
              </select> &nbsp;&nbsp;【<font color=green>提示：如果长文章可以选择分页显示，手动分页符标记为：</font><%=config("nextpage")%> 】<br />
              自动分页时的每页大约字符数（包含HTML标记）：
              <input name="MaxCharPerPage" type="text" id="MaxCharPerPage" value="<%=MaxCharPerPage%>" size="8" maxlength="8">
              </strong></td>
  </tr>
   <tr class="tdbg">
    <td  height="23" align="right">图片来源：</td>
    <td height="23"align="left"><input name="piczz" type="text" id="piczz" value="<%= piczz %>"  size="50" /></td>
  </tr>
  <tr class="tdbg">
    <td colspan="2" align="center" >
	  	  <input name="ID" type="hidden" value="<%=ID%>">
		  <input name="lm1" type="hidden" value="<%=lm1%>">
          <input name="lm2" type="hidden" value="<%=lm2%>">
          <input name="lm3" type="hidden" value="<%=lm3%>">
	  <input name="Action" type="hidden" id="Action" value="Save<%=frmAction %>">
	 <input type=button onclick=CheckForm() class="Art_btn"  name=Submit1 value="  保存  " />
      &nbsp;&nbsp; <input type="reset" class="Art_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 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" method="post" name="tcjdxr" id="tcjdxr"> <tr>
    <td align="center" class="bg_tr">第一步：选 择 投 稿 栏 目</td>
  </tr>
  <tr class="tdbg">
    <td align="center" >
	温馨提示：您所在的会员组是<font color="red">
	<%= UserHS.G_Name%></font> 开放的投稿栏目如下：</td>
  </tr>
  <tr class="tdbg">
    <td align="center" >选择栏目：
      <select class="textbox" size='1' name='ClassID' style="width:180">
        <option value="0">-请选择允许投稿的栏目-</option>
<%
						User_lmid=UserHS.lmid  
					   if right(User_lmid,1)="," then User_lmid=left(User_lmid,len(User_lmid)-1) 
					   array_User_lmid=split(User_lmid,",") 
					   For i=0 to ubound(array_User_lmid)
					        aaa=array_User_lmid(i)  

							lm_1_sql = "select * from lm where id="&aaa
							Set lm_1_rs = Server.CreateObject("ADODB.RecordSet")
							lm_1_rs.Open lm_1_sql,conn,1,1

							while not lm_1_rs.eof
							  if lm_1_rs("lm")<>"" then
							%>
							   <option value='<%=lm_1_rs("id")%>|0|0' <% if clng(lm1id)=lm_1_rs("id") then response.write " selected" %>><%=lm_1_rs("lm")%>(1级)							   </option>
							<%
							  ElseIf lm_1_rs("lm2")<>"" then
							%>
							   <option value='<%=lm_1_rs("lmid")%>|<%=lm_1_rs("id")%>|0' <% if clng(lm2id)=lm_1_rs("id")  then response.write " selected" %>>　├ <%=lm_1_rs("lm2")%>(2级)</option>
							<%
							       Elseif lm_1_rs("lm3")<>"" then
							       get_1_id_sql="select lmid from [lm] where id="&clng(lm_1_rs("lmid"))
								   set  get_1_id_rs = Server.CreateObject("ADODB.RecordSet")
							       get_1_id_rs.Open get_1_id_sql,conn,1,1
								   lmid31=get_1_id_rs("lmid")
								   get_1_id_rs.close
								   set get_1_id_rs=nothing
							%>
								<option value='<%=lmid31%>|<%=lm_1_rs("lmid")%>|<%=lm_1_rs("id")%>' <% if clng(lm3id)=lm_1_rs("id") then response.write " selected" %>>　　├ <%=lm_1_rs("lm3")%>(3级)</option>
							<%
                              end if 
							     lm_1_rs.movenext
							wend
							lm_1_rs.close
							set lm_1_rs=nothing
						next
				       
					%>
					
      </select></td>
  </tr>
  <tr class="tdbg">
    <td align="center" >
	 <input type=button onclick=CheckForm() class="Art_btn"  name=Submit1 value="  下一步  " />
      &nbsp;&nbsp; <input type="reset" class="Art_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 = 15
	
	Dim arrRecordInfo, i
	Dim sql, sqlCount,Sqls,pages
	pages = "Status="&Request("Status")&"&page"
	Select Case Request.QueryString("Status")
		Case "ListisAccept"
			Sqls = "  where sh=1  and  userid<>0  and adduser='"& UserHS.UserName &"'"
		Case "ListNoAccept"
			Sqls = "  where sh=2  and  userid<>0  and adduser='"& UserHS.UserName &"'"
		Case "Listcg"
			Sqls = "  where sh=0  and  userid<>0  and adduser='"& UserHS.UserName &"'"
		Case "Listtg"
			Sqls = "  where sh=4  and  userid<>0  and adduser='"& UserHS.UserName &"'"
		Case Else
			Sqls = " where  userid<>0  and adduser='"& UserHS.UserName &"'"
			pages = "page"
	End Select
	sql = "SELECT id,title,adduser,lm,lm2,lm3,time,pic,sh,userid,file_name" & _
		" FROM news" &Sqls& _
		"ORDER BY [id] DESC"
	sqlCount = "SELECT Count([id])" & _
			" FROM news"&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 class="tdbg">
      <td width="30" align="center" class="bg_tr">选中 </td>
      <td width="255" align="center" class="bg_tr">简短标题</td>
	   <td width="100" align="center" class="bg_tr">栏目</td>
       <td width="105" align="center" class="bg_tr">加入时间</td>
	   <td width="60" align="center" class="bg_tr">录入者</td> 
	 <td width="55" align="center" class="bg_tr">审核状态</td>
	    <td width="45" align="center" class="bg_tr">已生成</td>
	  
      <td width="80" 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"
			
			
		  ClassLm=trim(arrRecordInfo(5,i))
			    if ClassLm="0" or ClassLm="" then ClassLm=trim(arrRecordInfo(4,i))
			    if ClassLm="0" or ClassLm="" then ClassLm=trim(arrRecordInfo(3,i))
			    if ClassLm="" then ClassLm=0
				if (not isNumeric(ClassLm)) then 
			    	ClassLm=0
			    end if
		   Set rss = Server.CreateObject("ADODB.RecordSet")
		    Rss.OPen "Select * from lm  where id = "&ClassLm&" ",Conn,1,1
		     IF Not Rss.eof Then
			 LmName =rss("lm")&rss("lm2")&rss("lm3")
		     End IF
				%>
    <tr onMouseOver=overColor(this) onMouseOut=outColor(this) class="tdbg">
      <td align="center"  >
	  <input type="checkbox" name="ID" value="<%= arrRecordInfo(0,i) %>">	  </td>
      <td  ><%if arrRecordInfo(8,i)=1 then%><a target="_blank" href=<%=fun_html_url(arrRecordInfo(0,i))%>><%= arrRecordInfo(1,i) %></a><%else%><%= arrRecordInfo(1,i) %><%end if%><font color=green><%if trim(arrRecordInfo(7,i))<>"" then Response.Write "[图]"%></td>
	  <td align="center"  ><%= LmName %></td>
      <td align="center"  ><%= arrRecordInfo(6,i)%></td>
	  <td align="center"  ><%= arrRecordInfo(2,i) %></td>
      <td align="center" ><% '0审核通过  1草稿  2待审核 3退稿
	  
	   Select Case(arrRecordInfo(8,i))
	  			Case 1
					Response.Write "审核通过"	
				Case 0
					Response.Write "<font color=red>草稿</font>"
				Case 2
					Response.Write "<font color=red>待审核</font>"	
				Case 4
					Response.Write "<font color=red>退稿</font>"
		 End Select	
	   %></td>
      <td align="center" >
	<%IF arrRecordInfo(10,i)<> "" Then 
	  Response.Write "<font color=red  title='此新闻已经生成HTML'><b>√</b></font>"
	  Else
	  Response.Write "<font color=red><b>×</b></font>"
	  End If %>
	  </td>
      <td colspan="2" align="center" >
	 <%if arrRecordInfo(8,i)<>1 then%>  <a href="?Action=edit&ID=<%= arrRecordInfo(0,i) %>">修改</a>
	  <a href="?Action=del&ID=<%= arrRecordInfo(0,i) %>" onClick="return confirm('确认删除此文章吗?此操作将不能恢复!')">删除</a><%else%>----<%end if%></td>
    </tr>
	<% 
	Next
	End If
	%>
    <tr class="tdbg">
      <td height="30" colspan="11" >
<input name="ChkAll" type="checkbox" id="ChkAll" onClick="CheckAll(this.form)" value="checkbox">
		<label for="chkAll">&nbsp;选中本页显示的所有文章</label>
	  <input type="button" class="act_btn" name="Submit" value="批量删除"  onClick="delpost()"></td>
    </tr>
    <tr class="tdbg">
      <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('确认要删除选中的文章吗?')){
	this.document.Article.submit();
	return true;}return false;
}
	}
</script>

<% end sub %>
<% Set UserHS = Nothing:call CloseConn() %>