⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 news-manage.asp

📁 asp功能增强函数 本函数库是为了广大ASP后台开发人员而设计 本程序内不带任何广告代码 弥补了ASP相对与PHP的功能缺陷
💻 ASP
字号:
🔍 
<!--#include File="conn.asp"-->
<!--#include File="FunCtion/FunCtion.Asp"-->
<!--#include File="FunCtion/Sub.Asp"-->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>YU LIN WOEK ROOM CMS News Manager</title>
<meta http-equiv="content-type" content="text/html; charset=gb2312" />
<meta http-equiv="content-language" content="zh-cn" />
<meta name="robots" content="all" />
<meta name="author" content="ALIQJ | ALIQJ.COM" />
<meta name="copyright" content="Copyright 2007 - 2010 ALIQJ.COM" />
<meta name="description" content="这一套功能全面的产品销售管理系列化统，销售OA系统，本系统由雨淋工作室自主开发。雨淋工作室是一支技术领先的网络程序开发队伍，专业制做行业网站，大中小企网站，B2B网络电子商城系统，CMS建站系统，企业OA办公管理系统和网站关键词优化百度谷歌推广等" />
<meta name="keywords" content="产品销售管理系统，销售OA系统，行业网站建设，企业网站建设，B2B网络电子商城专卖，CMS建站系统专卖，网站关键词优化，企业OA办公管理系统定做，成都网站建设，成都网站优化" />
<link rel="stylesheet" href="admin/style/admin.css" type="text/css" />
</head>
<script type="text/JavaScript">
function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
</script>
<body class="rightbody"<%If Request.QueryString("RevisionType") <> "" Then Response.Write(" onLoad='IframeID.document.body.innerHTML=document.all.NewsContent.value;'") End If%>>
<br><br>
<table width="96%" border="1" cellpadding="0" cellspacing="0" bordercolor="#FFFFFF" bgcolor="#F1F1F1">
  <tr>
    <td background="../admin/images/right-lanmu.gif" height="22" colspan="9"><div align="center" class="txt12ff">雨淋工作室网站管理系统 -  新闻管理</div></td>
  </tr>
<%
If Request.QueryString("RevisionType")="Delete" Then
	Response.Write(DeleteDate("News_Info",Request.QueryString("ID")))
	Response.Redirect("?Type="&Request.QueryString("Type")&"&PageNo="&Request.QueryString("PageNo")&"&Types="&Request.QueryString("Types"))
%>
<%
ElseIf Request.QueryString("RevisionType")="CoopDate" Then
	Response.Write(CoopDate("News_Info",Request.QueryString("ID")))
	Response.Redirect("?Type="&Request.QueryString("Type")&"&PageNo="&Request.QueryString("PageNo"))
%>
<%
ElseIf Request.QueryString("RevisionType")="Revision" Then
	Response.Write(RevisionTrueFalse("News_Info",Request.QueryString("ID"),"Top"))
	Response.Redirect("?Type="&Request.QueryString("Type")&"&PageNo="&Request.QueryString("PageNo"))
%>
<%ElseIf Request.QueryString("RevisionType") = "Add" Then%>
<%
If Request.Form.Count>0 Then
	Response.Write(AddDate("News_Info"))
	Response.Redirect("?Type="&Request.QueryString("Type")&"&PageNo="&Request.QueryString("PageNo")&"&Types="&Request.QueryString("Types"))
End If
%>
<form name="myform1" method="post" action="" onSubmit="return myCheck();">
<input type="text" name="NewsNumber" value="0" style="display:none;">
<input type="text" name="NewsTime" value="<%=UserTime()%>" style="display:none;">
<input type="text" name="Goes" value="0" style="display:none;">
<input type="text" name="NewsIss" value="<%=Request.Cookies("Admin")("Real")%>" style="display:none;">
 <tr>
    <td height="22" colspan="9"><div align="left">新闻标题：<input name="NewsTitle" type="text" style="width:260px;">
    </div></td>
  </tr>
  <tr>
    <td height="22" colspan="9"><div align="left" style="float:left;">新闻分类：<div id="NewsTypes" style="position:absolute; width:238px; z-index:999999; margin:20px 0px 0px 0px; display:none; border:1px solid #CCCCCC; background-color:#FFFFFF;">
		<%
		Texts = FieldCategories("News_Info","NewsType")
		For i = 1 To TraveRsingTxts(1,Texts,",")
		Textss = TraveRsingTxt(TraveRsingTxtNumber,Texts,",")
		Response.Write("<div><a href=""javascript:Parameters('NewsType','"&Textss&"');"">"&Textss&"</a></div>")
		Next
		%>
		</div>
		<input style="width:238px;" onClick="Hidden('NewsType');" name="NewsType" type="text" /></div>
		<div style="float:left;"><a href="javascript:Choices('NewsType');"><img src="../admin/images/cmbarrow.gif" /></a></div></td></tr>
  <tr>
    <td height="22" colspan="9"><div align="left">是否推荐：<input name="Goes" type="radio" value="1">是<input name="Goes" type="radio" value="0" checked>否</div></td></tr>
   <tr>
    <td height="22" colspan="9"><div align="left">查看权限：<input name="Authority" type="radio" value="0" checked>网站访客
		<input name="Authority" type="radio" value="1">普通会员
		<input name="Authority" type="radio" value="2">VIP 会员
    </div></td></tr>
 <tr>
    <td height="22" colspan="9"><div align="left">新闻图片：<input type="text" name="ImageUrl" style="width:260px;">
      <a href="javascript:MM_openBrWindow('upload.asp','上传','width=380,height=66,scrollbars=yes');">上传</a></div></td></tr>
 <tr>
    <td height="22" colspan="9">
<!--#include Virtual="eyeEditor/eyeEditor.Asp"-->
<textarea name="NewsContent" id="NewsContent" style="display:none"></textarea></td>
  </tr>
 <tr>
   <td height="22" colspan="9"><input type="submit" class="put" name="PreservationFile" value="保存(S)">
	  <input class="put" type="button" name="Submit" value="取消(C)" onClick="javascript:history.back(-1);"></td>
 </tr>
  </form>
<script language="javascript">
function Parameters(id,Value){
	eval("window.document.all." + id + "").value = Value;
	eval("window.document.all." + id + "s").style.display = 'none';
}
function Hidden(id)
{
	eval("window.document.all." + id + "s").style.display = 'none';
}
function Choices(id)
{
	if(eval("window.document.all." + id + "s").style.display == 'block')
	{
		eval("window.document.all." + id + "s").style.display = 'none';
	}else{
	eval("window.document.all." + id + "s").style.display = 'block';
	}
}
</script>
<script language="javascript">
function myCheck()
{
  document.all.NewsContent.value=IframeID.document.body.innerHTML;
   if(document.all.NewsTitle.value=="")
   {
	   alert("标题不能为空!");
	   return false;
   }
   if(document.all.NewsType.value=="")
   {
	   alert("分类不能为空!");
	   return false;
   }
   if(document.all.NewsContent.value=="")
   {
	   alert("内容不能为空!");
	   return false;
   }
   return true;
}
</script>
<%ElseIf Request.QueryString("RevisionType") = "RevisionData" Then%>
<%
If Request.Form.Count>0 Then
	Response.Write(RevisionData("News_Info",Request.QueryString("ID")))
	Response.Redirect("?Type="&Request.QueryString("Type"))
End If
Set Rss = Server.CreateObject("Adodb.RecordSet")
Sqls = "Select * From News_Info Where ID="&Request.QueryString("ID")
Rss.Open Sqls,Conn,1,1
%>
<form name="myform1" method="post" action="" onSubmit="return myCheck();">
  <tr>
    <td height="22" colspan="9"><div align="left">新闻标题：<input name="NewsTitle" value="<%=Rss("NewsTitle")%>" type="text" style="width:260px;">
    </div></td>
  </tr>
  <tr>
    <td height="22" colspan="9"><div align="left" style="float:left;">新闻分类：<div id="NewsTypes" style="position:absolute; width:238px; z-index:999999; margin:20px 0px 0px 0px; display:none; border:1px solid #CCCCCC; background-color:#FFFFFF;">
		<%
		Texts = FieldCategories("News_Info","NewsType")
		For i = 1 To TraveRsingTxts(1,Texts,",")
		Textss = TraveRsingTxt(TraveRsingTxtNumber,Texts,",")
		Response.Write("<div><a href=""javascript:Parameters('NewsType','"&Textss&"');"">"&Textss&"</a></div>")
		Next
		%>
		</div>
		<input style="width:238px;" onClick="Hidden('NewsType');" name="NewsType" value="<%=Rss("NewsType")%>" type="text" /></div>
		<div style="float:left;"><a href="javascript:Choices('NewsType');"><img src="../admin/images/cmbarrow.gif" /></a></div></td></tr>
  <tr>
    <td height="22" colspan="9"><div align="left">发布作者：<input name="NewsIss" value="<%=Rss("NewsIss")%>" type="text" style="width:260px;">
    </div></td>
  </tr>
  <tr>
    <td height="22" colspan="9"><div align="left">发布时间：<input name="NewsTime" value="<%=Rss("NewsTime")%>" type="text" style="width:260px;">
    </div></td>
  </tr>
  <tr>
    <td height="22" colspan="9"><div align="left">浏览次数：<input name="NewsNumber" value="<%=Rss("NewsNumber")%>" type="text" style="width:260px;">
    </div></td>
  </tr>
  <tr>
    <td height="22" colspan="9"><div align="left">是否推荐：<input name="Top" type="radio" value="True"<%If Rss("Top") = True Then Response.Write(" checked") End If%>>是<input name="Top" type="radio" value="False"<%If Rss("Top") = False Then Response.Write(" checked") End If%>>否</div></td></tr>
   <tr>
    <td height="22" colspan="9"><div align="left">查看权限：<input name="Authority" type="radio" value="0"<%If Rss("Authority") = 0 Then Response.Write(" checked") End If%>>网站访客
		<input name="Authority" type="radio" value="1"<%If Rss("Authority") = 1 Then Response.Write(" checked") End If%>>普通会员
		<input name="Authority" type="radio" value="2"<%If Rss("Authority") = 2 Then Response.Write(" checked") End If%>>VIP 会员
    </div></td></tr>
  <tr>
    <td height="22" colspan="9"><div align="left">排位参数：<input name="Goes" value="<%=Rss("Goes")%>" type="text" style="width:260px;">
    </div></td>
  </tr>
 <tr>
    <td height="22" colspan="9"><div align="left">新闻图片：<input type="text" value="<%=Rss("ImageUrl")%>" name="ImageUrl" style="width:260px;">
      <a href="javascript:MM_openBrWindow('upload.asp','上传','width=380,height=66,scrollbars=yes');">上传</a></div></td></tr>
 <tr>
    <td height="22" colspan="9">
<!--#include Virtual="/eyeEditor/eyeEditor.Asp"-->
<textarea name="NewsContent" id="NewsContent" style="display:none"><%=Rss("NewsContent")%></textarea></td>
  </tr>
 <tr>
   <td height="22" colspan="9"><input type="submit" class="put" name="PreservationFile" value="保存(S)">
	  <input class="put" type="button" name="Submit" value="取消(C)" onClick="javascript:history.back(-1);"></td>
 </tr>
  </form>
<script language="javascript">
function Parameters(id,Value){
	eval("window.document.all." + id + "").value = Value;
	eval("window.document.all." + id + "s").style.display = 'none';
}
function Hidden(id)
{
	eval("window.document.all." + id + "s").style.display = 'none';
}
function Choices(id)
{
	if(eval("window.document.all." + id + "s").style.display == 'block')
	{
		eval("window.document.all." + id + "s").style.display = 'none';
	}else{
	eval("window.document.all." + id + "s").style.display = 'block';
	}
}
</script>
<script language="javascript">
function myCheck()
{
  document.all.NewsContent.value=IframeID.document.body.innerHTML;
   if(document.all.NewsTitle.value=="")
   {
	   alert("标题不能为空!");
	   return false;
   }
   if(document.all.NewsType.value=="")
   {
	   alert("分类不能为空!");
	   return false;
   }
   if(document.all.NewsContent.value=="")
   {
	   alert("内容不能为空!");
	   return false;
   }
   return true;
}
</script>
<%Rss.Close%>
<%Else%>
  <tr>
    <td height="15" align="center">新闻标题</td>
    <td align="center">新闻分类</td>
    <td align="center">新闻时间</td>
    <td align="center">新闻作者</td>
    <td align="center">缩略图</td>
    <td align="center">位数</td>
    <td align="center">推介</td>
    <td align="center">新闻内容</td>
    <td align="center">管理</td>
  </tr>
<%
Set Rs=Server.CreateObject("Adodb.RecordSet")
If Request.QueryString("Types")<>"" Then
Sql = "Select * From News_Info Where NewsType='"&Request.QueryString("Types")&"' Order By NewsTime Desc"
Else
Sql = "Select * From News_Info Order By NewsTime Desc"
End If
Rs.Open Sql,Conn,1,1
If Request("PageNo") = "" Then
PageNO = 1
Else
PageNo = Cint(Request("PageNO"))
End If
If Rs.RecordCount>0 Then
Rs.PageSize = 20
If PageNo<1 Then
PageNo = 1
End If
If PageNo>Rs.PageCount Then
PageNo = Rs.PageCount
End If
Rs.AbsolutePage = PageNo
i = 0
Do While Not Rs.Eof And i<Rs.PageSize
%>
  <tr>
    <td height="15" align="left"><%=Mid(Rs("NewsTitle"),1,8)%></td>
    <td align="left"><%=Rs("NewsType")%></td>
    <td align="left"><%=Rs("NewsTime")%></td>
    <td align="left"><%=Rs("NewsIss")%></td>
    <td align="left"><a href="<%=Rs("ImageUrl")%>" target="_blank"><%If Rs("ImageUrl")<>"" Then Response.Write(Mid(Rs("ImageUrl"),Instrrev(Rs("ImageUrl"),"/")+1)) End If%></a></td>
    <td align="left"><%=Rs("Goes")%></td>
    <td align="left"><%= RevisionShow(Rs("Top"),"?RevisionType=Revision&PageNo="&PageNo&"&id="&Rs("ID"))%></td>
    <td align="left"><%If Rs("NewsContent")<>"" Then Response.Write(Mid(ReplaceTags(Rs("NewsContent")),1,8)) End If%>..</td>
    <td align="center"><%=Manage(PageNo,Rs("ID"),False)%></td>
  </tr>
<%
Rs.MoveNext
i = i + 1
Loop
End If
%>
  <tr>
    <td colspan="9" align="right"><%=NumberMinutePage(Rs.PageSize,Rs.RecordCount,"?Type="&Request.QueryString("Type")&"&Types="&Request.QueryString("Types")&"&PageNo=",PageNo,Rs.PageCount," ",False)%></td>
  </tr>
<%Rs.Close%>
<%End If%>
</table>
<br><br>
</body>
</html>

⌨️ 快捷键说明

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