📄 aa_news.asp

📁 强大的后台管理功能,给用户自由制定页面,新闻、产品多级分类。管理员后台站点关闭,后台管理员仍然可以登陆。页面是否允许使用右键和复制功能。自定义IE状态栏、版权等显示信息。开通会员注册和产品
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%@ LANGUAGE = VBScript CodePage = 936%>
<%
'***********************************************************************************
' 产品名称：CSYS.COM.CN企业全站管理系统（V2007简体中文版）
' 联系：QQ：61128110　Emial：61128110@163.com
' Copyright 2006 www.csys.com.cn - All Rights Reserved. 
'***********************************************************************************

PageName="Admin,0"
%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/Sysconn.asp"-->
<!--#include file="Inc/Design.asp"-->
<!--#include file="Inc/Select.inc"-->
<%
Call Page_formBody()
Call Page_Spane(5)
Dim NewsCret,NewsForm
Page_HeadName="<A HREF=Aa_News.asp?Action=Add>添加新闻</A>　|　<A HREF=Aa_News.asp?Action=Manage>新闻列表</A>　|　<A HREF=Aa_News.asp?Action=Manage&xSelect=NewsFlag>未审核新闻</A>　|　<A HREF=Aa_News.asp?Action=Manage&xSelect=NewsIndex>推荐新闻</A>　|　<A HREF=Aa_News.asp?Action=Manage&xSelect=NewsTop>热门新闻</A>"
Table_List="Tx_NeClass"
NewsForm="<OPTION VALUE=''>请选择　　　</OPTION>"
News_Form=split(News_Form,"||")
For intTemp=0 to ubound(News_Form)
NewsForm=NewsForm & "<OPTION VALUE='" & News_Form(intTemp) & "'>" & News_Form(intTemp) & "</OPTION>"
Next
Select Case Action
Case "Add"
Call Page_AdminFlag(38)
Page_BootmName="添加新闻"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
PageClass=1
ii=0
strIfa = "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
         "<Form NAME=Form method=post action=As_News.asp?Action=Add onSubmit='return checkdata()'>"&_
         "<TR>"&_
         "<TD WIDTH=20% HEIGHT=30 CLASS=Table8>新闻主题：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=News_Title TYPE=text id=News_Title size=55> <FONT COLOR=ff0000>*</FONT></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>所属类别：</TD>"&_
         "<TD CLASS=Table8><select NAME=News_ClassId id=News_ClassId><OPTION VALUE=''>请选择新闻类别　　　</OPTION>"
strIfx = "</select> <FONT COLOR=ff0000>*</FONT></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>新闻来源：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=News_Form TYPE=text id=News_Form size=25> <select NAME=NewsForm id=NewsForm onChange='(document.Form.News_Form.value=this.options[this.selectedIndex].value)'>" & NewsForm & "</select>　　<A HREF=''  onClick=" & CHR(34) & "javascript:window.open('Inc/Select.asp?Action=News_Form','News','width=380,height=260,top=200,left=310');return false;" & CHR(34) & ">点击此处<FONT COLOR=#FF0000>添加列表</FONT></A></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>新闻内容：</TD>"&_
         "<TD>"
strIfb = "</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>新闻属性：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=News_Index CLASS=radio_all TYPE=checkbox id=News_Index VALUE=1> 首页推荐新闻　<INPUT CLASS=radio_all NAME=News_Top TYPE=checkbox id=News_Top VALUE=1> 热门新闻</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>浏览次数：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=News_Count TYPE=text VALUE='0' onkeypress='event.returnValue=IsDigit();' id=News_Count size=10> 请输入数字，系统默认设置为0</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>新闻审核：</TD>"&_
         "<TD CLASS=Table8><INPUT TYPE=radio CLASS=radio_all NAME=News_Flag VALUE='1' checked> 通过审核　<INPUT CLASS=radio_all TYPE=radio NAME=News_Flag VALUE='0'>取消审核</TD>"&_
         "</TR>"&_
         "<TR ALIGN=center>"&_
         "<TD HEIGHT=35 colspan=2 CLASS=Table8>"&_
         "<INPUT NAME=Ok TYPE=submit id=Ok CLASS=submit_all VALUE='提交资料' onClick='document.Form.Content.value = frames.message.document.body.innerHTML;document.Form.PicUrl.value = frames.PicUrl.document.body.innerHTML;'> "&_
         "<INPUT TYPE=submit CLASS=submit_all NAME=Cel VALUE=重新输入 onClick=" & CHR(34) & "this.form.action='vbscript:location.reload';this.form.submit()" & CHR(34) & "> "&_
         "<INPUT TYPE=hidden NAME=Content VALUE=''>"&_
         "<INPUT TYPE=hidden NAME=PicUrl VALUE=''></TD>"&_
         "</TR>"&_
         "</form>"&_
         "</TABLE>"
Call Page_aTable(1,0)
Case "Edit"
Call Page_AdminFlag(39)
Set Rs_edit=server.Createobject("Adodb.Recordset")
Sql="Select * From Tx_News Where News_Id=" & Id
Rs_edit.open Sql,Conn,1,1
Table_List1="Tx_News"
OldId="News_Id"
OldContent="News_Content"
Page_BootmName="新闻修改 > " & Rs_edit("News_Title")
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
IF Rs_edit("News_Index")=1 THEN checked="checked"
IF Rs_edit("News_Top")=1 THEN checked3="checked"
IF Rs_edit("News_Flag")=1 THEN
checked1="checked"
else
checked2="checked"
End IF
PageClass=1
ii=0
strIfa = "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
         "<Form NAME=Form method=post action='As_News.asp?Action=Edit&Id=" & Id & "' onSubmit='return checkdata()'>"&_
         "<TR>"&_
         "<TD WIDTH=20% HEIGHT=30 CLASS=Table8>新闻主题：</TD>"&_
         "<TD CLASS=Table8><INPUT NAME=News_Title TYPE=text id=News_Title size=55 VALUE='" & Rs_edit("News_Title") & "'> <FONT COLOR=ff0000>*</FONT></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>所属类别：</TD>"&_
         "<TD colspan=3 CLASS=Table8><select NAME=News_ClassId id=News_ClassId><OPTION VALUE='" & Rs_edit("News_ClassId") & "'>不改变新闻类别　　　</OPTION>"
strIfx = "</select> <FONT COLOR=ff0000>*</FONT></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>新闻来源：</TD>"&_
         "<TD CLASS=Table8><INPUT VALUE='" & Rs_edit("News_Form") & "' NAME=News_Form TYPE=text id=News_Form size=25> <select NAME=NewsForm id=NewsForm onChange='(document.Form.News_Form.value=this.options[this.selectedIndex].value)'>" & NewsForm & "</select>　　<A HREF=''  onClick=" & CHR(34) & "javascript:window.open('Inc/Select.asp?Action=News_Form','News','width=380,height=260,top=200,left=310');return false;" & CHR(34) & ">点击此处<FONT COLOR=#FF0000>添加列表</FONT></A></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>新闻内容：<FONT COLOR=ff0000>*</FONT></TD>"&_
         "<TD colspan=3>"
strIfb = "</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>新闻属性：</TD>"&_
         "<TD colspan=3 CLASS=Table8><INPUT NAME=News_Index CLASS=radio_all TYPE=checkbox id=News_Index VALUE=1 " & checked & "> 首页推荐新闻　<INPUT CLASS=radio_all NAME=News_Top TYPE=checkbox id=News_Top VALUE=1 " & checked3 & "> 热门新闻</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>浏览次数：</TD>"&_
         "<TD colspan=3 CLASS=Table8><INPUT NAME=News_Count TYPE=text onkeypress='event.returnValue=IsDigit();' id=News_Count size=10 VALUE='" & Rs_edit("News_Count") & "'> 请输入数字，系统默认设置为0</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>添加时间：</TD>"&_
         "<TD colspan=3 CLASS=Table8><INPUT NAME='textfield' TYPE='text' VALUE='" & Rs_edit("News_Date") & "'> 现在时间为" & Now() & "，更新时间：<INPUT NAME=NewTime TYPE=checkbox id=NewTime CLASS=radio_all VALUE='1'></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30 CLASS=Table8>新闻审核：</TD>"&_
         "<TD colspan=3 CLASS=Table8><INPUT CLASS=radio_all TYPE=radio NAME=News_Flag VALUE='1' " & checked1 & "> 通过审核　<INPUT CLASS=radio_all TYPE=radio NAME=News_Flag VALUE='0' " & checked2 & ">取消审核</TD>"&_
         "</TR>"&_
         "<TR ALIGN=center>"&_
         "<TD HEIGHT=35 colspan=4 CLASS=Table8>"&_
         "<INPUT NAME=Ok TYPE=submit id=Ok VALUE='提交资料' CLASS=submit_all onClick='document.Form.Content.value = frames.message.document.body.innerHTML;document.Form.PicUrl.value = frames.PicUrl.document.body.innerHTML;'> "&_
         "<INPUT TYPE=submit NAME=Cel CLASS=submit_all VALUE=重新输入 onClick=" & CHR(34) & "this.form.action='vbscript:location.reload';this.form.submit()" & CHR(34) & "> "&_
         "<INPUT TYPE=hidden NAME=Content VALUE=''>"&_
         "<INPUT TYPE=hidden NAME=PicUrl VALUE=''></TD>"&_
         "</TR>"&_
         "</form>"&_
         "</TABLE>"
Rs_edit.Close
Set Rs_edit=Nothing
Call Page_aTable(1,0)
Case "Manage"
Call Page_AdminFlag(39)
PageClass=1
ii=0
PageClassx=PageClass
Page_BootmName="新闻列表"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
FileName="Aa_News.asp?Action=Manage&xSelect=Class"
Selectkey=request.form("Selectkey")
Set Rs_Manage=server.Createobject("Adodb.Recordset")
Select Case xSelect
Case ""
Sql="Select * from Tx_News order by News_Date desc"
Case "Class"
Set Rs_f=server.Createobject("Adodb.Recordset")
Sql="Select * from Tx_NeClass Where Class_ParentPath like '%" & Id & "%'"
Rs_f.open Sql,Conn,1,1
while not Rs_f.eof
xClassId=Rs_f("Class_Id") & "," & xClassId
Rs_f.movenext
wend
Rs_f.Close
Set Rs_f=Nothing
Sql="Select * from Tx_News Where News_ClassId in (" & xClassId & Id & ") order by News_Date desc"
Case "NewsName"
Sql="Select * from Tx_News Where News_Title like '%" & Selectkey & "%' order by News_Date desc"
12 下一页
⌨️ 快捷键说明

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