aa_news.asp

强大的后台管理功能,给用户自由制定页面,新闻、产品多级分类。 管理员后台站点关闭,后台管理员仍然可以登陆。页面是否允许使用右键和复制功能。自定义IE状态栏、版权等显示信息。 开通会员注册和产品

Case "NewsFlag"
Sql="Select * from Tx_News Where News_Flag=0 order by News_Date desc"
Case "NewsIndex"
Sql="Select * from Tx_News Where News_Index=1 order by News_Date desc"
Case "NewsTop"
Sql="Select * from Tx_News Where News_Top=1 order by News_Date desc"
End Select
Rs_Manage.open Sql,Conn,1,1
strIfa = "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1><TR ALIGN=center><TD WIDTH=6% HEIGHT=23 CLASS=Table6>ID</TD><TD CLASS=Table6>新闻名称</TD><TD WIDTH=10% CLASS=Table6>推荐 热门</TD><TD WIDTH=13% CLASS=Table6>添加人</TD><TD WIDTH=17% CLASS=Table6>添加时间</TD><TD WIDTH=27% CLASS=Table6>操作</TD></TR>"
Rs_Manage.PageSize = 25
totalrec=Rs_Manage.RecordCount 
iPageSize=Rs_Manage.PageSize
currentPage=request("page")
IF currentpage="" THEN
currentpage=1
else
IF Not isChkInteger(currentPage) THEN
response.Redirect "javascript:history.go(-1);"
End IF
currentpage=clng(currentpage)
End IF
IF totalrec mod Cint(iPageSize)=0 THEN
n= totalrec \ Cint(iPageSize)
else
n= totalrec \ Cint(iPageSize)+1
End IF
IF not (Rs_Manage.bof and Rs_Manage.eof) THEN
Rs_Manage.MoveFirst
IF currentpage > n THEN currentpage = n
IF currentpage<1 THEN currentpage=1
Rs_Manage.Move (currentpage-1) * Cint(iPageSize)
While Not Rs_Manage.Eof and page_count<Cint(iPageSize)
page_count=page_count+1
IF Rs_Manage("News_Flag")=1 THEN
TitleFlag="<FONT COLOR=006600>取消</FONT>"
else
TitleFlag="<FONT COLOR=ff0000>审核</FONT>"
End IF
    Set Rs_p=server.Createobject("Adodb.Recordset")
    Sql="Select * from Tx_Cret where Cret_Class=2 And Cret_ClassId=" & Rs_Manage("News_Id")
    Rs_p.open Sql,Conn,1,1
	    IF Rs_p.RecordCount=0 THEN
		    NewsCret="<FONT COLOR=dfdfdf>评论</FONT>"
		Else
		    NewsCret="<A HREF=Aa_Cret.asp?Action=Manage&sId=2&bId=" & Rs_Manage("News_Id") & ">评论</A>"
		End IF
	Rs_p.Close
	Set Rs_p=Nothing
IF Rs_Manage("News_Index")=1 THEN
TitleIndex="<FONT COLOR=ff0000><B>×</B></FONT>"
else
TitleIndex="<FONT COLOR=006600><B>√</B></FONT>"
End IF
IF Rs_Manage("News_Top")=1 THEN
TitleTop="<FONT COLOR=ff0000><B>×</B></FONT>"
else
TitleTop="<FONT COLOR=006600><B>√</B></FONT>"
End IF
strIfa = strIfa & "<Form NAME=inbox method=post action='As_News.asp?Action=Delall'>"&_
                  "<TR CLASS=Table8 onmouseout=" & CHR(34) & "this.style.backgroundColor=''" & CHR(34) & " onmouseover=" & CHR(34) & "this.style.backgroundColor='#799ae1'" & CHR(34) & ">"&_
                  "<TD HEIGHT=25 ALIGN=center>" & Rs_Manage("News_Id") & "</TD>"&_
                  "<TD><A HREF=Aa_News.asp?Action=S&Id=" & Rs_Manage("News_Id") & ">" & Rs_Manage("News_Title") & "</A></TD>"&_
                  "<TD ALIGN=center><A HREF=As_News.asp?Action=News_Index&Id=" & Rs_Manage("News_Id") & ">" & TitleIndex & "</A> | <A HREF=As_News.asp?Action=News_Top&Id=" & Rs_Manage("News_Id") & ">" & TitleTop & "</A></TD>"&_
                  "<TD>" & Rs_Manage("News_Add") & "</TD>"&_
                  "<TD>" & Rs_Manage("News_Date") & "</TD>"&_
				  "<TD ALIGN=center>"&_
                  "<A HREF=Aa_News.asp?Action=Edit&Id=" & Rs_Manage("News_Id") & ">修改</A> | "&_
                  "<A HREF=As_News.asp?Action=Flag&Id=" & Rs_Manage("News_Id") & ">" & TitleFlag & "</A> | "&_
                  "" & NewsCret & " | "&_
                  "<A HREF=As_News.asp?Action=Del&Id=" & Rs_Manage("News_Id") & " onclick='{if(confirm(" & CHR(34) & "删除后将无法恢复，您真的要删除么？" & CHR(34) & ")){return true;}return false;}'>删除</A> | "&_
                  "<INPUT TYPE=checkbox CLASS=radio_all NAME=Id VALUE=" & Rs_Manage("News_Id") & ">"&_
                  "</TD>"&_
                  "</TR>"
Rs_Manage.movenext
wend 
End IF
Rs_Manage.Close
Set Rs_Manage=Nothing
strIfa = strIfa & "<TR>"&_
                  "<TD HEIGHT=30 colspan=6 ALIGN=center CLASS=Table9><INPUT TYPE=checkbox CLASS=radio_all NAME=chkall VALUE=on onclick=CheckAll(this.form)>"&_
                  " 选择全部　"&_
                  "<INPUT TYPE=submit NAME=Submit CLASS=submit_all VALUE=' 删除 ' onclick='{if(confirm(" & CHR(34) & "删除后将无法恢复，您真的要删除么？" & CHR(34) & ")){return true;}return false;}'> "&_
                  "<INPUT TYPE=submit NAME=FlagOk CLASS=submit_all VALUE=通过审核 onClick=" & CHR(34) & "this.form.action='As_News.asp?Action=FlagallOk';this.form.submit()" & CHR(34) & "> "&_
                  "<INPUT TYPE=submit NAME=FlagNo CLASS=submit_all VALUE=取消审核 onClick=" & CHR(34) & "this.form.action='As_News.asp?Action=FlagallNo';this.form.submit()" & CHR(34) & "> "&_
				  "<INPUT TYPE=submit NAME=To CLASS=submit_all VALUE='将新闻移动到' onClick=" & CHR(34) & "this.form.action='As_News.asp?Action=EditClass';this.form.submit()" & CHR(34) & "> <select NAME=NewClassId id=NewClassId><OPTION VALUE='' selected>请选择分类</OPTION>"
strIfx = "</select></TD></TR>"&_
         "</form>"&_
         "<TR>"&_
         "<TD HEIGHT=25 colspan=6 ALIGN=center CLASS=Table8>"
strIfb = "</TD></TR>"&_
         "<form NAME=Search method=post action='Aa_News.asp?Action=Manage&xSelect=NewsName'><TR>"&_
         "<TD HEIGHT=35 colspan=6 ALIGN=center CLASS=Table8>查询新闻：<INPUT NAME=Selectkey TYPE=text id=Selectkey> <INPUT TYPE=submit NAME=SearchOk CLASS=submit_all VALUE=' 查讯 '></TD></TR></form>"&_
         "</TABLE>"
Call Page_aTable(0,1)
Case "S"
Set Rs_edit=server.Createobject("Adodb.Recordset")
Sql="Select * from Tx_News Where News_Id=" & Id
Rs_edit.open Sql,Conn,1,1
IF Rs_edit("News_Flag")=1 THEN
TitleFlag="<FONT COLOR=006600>取消审核</FONT>"
else
TitleFlag="<FONT COLOR=ff0000>通过审核</FONT>"
End IF
    Set Rs_p=server.Createobject("Adodb.Recordset")
    Sql="Select * from Tx_Cret where Cret_Class=2 And Cret_ClassId=" & Rs_edit("News_Id")
    Rs_p.open Sql,Conn,1,1
	    IF Rs_p.RecordCount=0 THEN
		    NewsCret="<FONT COLOR=dfdfdf>评论</FONT>"
		Else
		    NewsCret="<A HREF=Aa_Cret.asp?Action=Manage&sId=2&bId=" & Rs_edit("News_Id") & ">评论</A>"
		End IF
	Rs_p.Close
	Set Rs_p=Nothing
IF Rs_edit("News_Index")=1 THEN TitleIndex="<FONT COLOR=006600>推荐新闻</FONT>"
IF Rs_edit("News_Top")=1 THEN TitleTop="<FONT COLOR=006600>　热门新闻</FONT>"
Set Rs=server.createobject("adodb.recordset")
Sql="Select * from Tx_NeClass Where Class_Id=" & Rs_edit("News_ClassId")
Rs.open Sql,Conn,1,1
IF Rs("Class_ParentPath")<>"0" Then
arrClassId=split(Rs("Class_ParentPath"),"|")
For intTemp=0 to ubound(arrClassId)
Set Rs_n=server.createobject("adodb.recordset")
Sql="Select * From Tx_NeClass Where Class_Id=" & arrClassId(intTemp)
Rs_n.open Sql,Conn,1,1
Class_Name=Class_Name & Rs_n("Class_Name") & " > " 
Rs_n.Close
Set Rs_n=Nothing
Next
End IF
Class_Name=Class_Name & Rs("Class_Name")
Rs.Close
Set Rs=Nothing
Page_BootmName="查看新闻 > " & Class_Name & " > " & Rs_edit("News_Title")
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
strIfa = "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
         "<TR>"&_
         "<TD ALIGN=center CLASS=Table8>"&_
         "<TABLE WIDTH=570  BORDER=0 CELLPADDING=0 CELLSPACING=0>"&_
         "<TR>"&_
         "<TD ALIGN=center CLASS=Table15><B>" & Rs_edit("News_Title") & "</B></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=1 background=Skins/Blue/Ar2.gif></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD CLASS=Table15>" & Rs_edit("News_Content") & "</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=1 background=Skins/Blue/Ar2.gif></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30>添加人：" & Rs_edit("News_Add") & "　添加时间：" & Rs_edit("News_Date") & "　浏览次数：" & Rs_edit("News_Count") & "　属性：" & TitleIndex & TitleTop & "</TD>"&_
         "</TR>"&_
         "</TABLE></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=25 ALIGN=center CLASS=Table8>『 <A HREF=Aa_News.asp?Action=Add>添加新闻</A> 』『 <A HREF=Aa_News.asp?Action=Edit&Id=" & Rs_edit("News_Id") & ">修改</A> 』『 <A HREF=As_News.asp?Action=Flag&Id=" & Rs_edit("News_Id") & ">" & TitleFlag & "</A> 』『 " & NewsCret & " 』『 <a onclick='{if(confirm(" & CHR(34) & "删除后将无法恢复，您真的要删除么？" & CHR(34) & ")){return true;}return false;}' href=As_News.asp?Action=Del&Id=" & Rs_edit("News_Id") & ">删除</A> 』『 <A HREF=Aa_News.asp?Action=Manage>新闻列表</A> 』</TD>"&_
         "</TR>"&_
         "</TABLE>"
Rs_edit.Close
Set Rs_edit=Nothing
Call Page_aTable(0,0)
End Select
Call Page_Spane(5)
Call CloseConn()
Call Page_endBody()
%>