📄 aa_honor.asp
字号:
<%@ 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"-->
<%
Call Page_formBody()
Call Page_Spane(5)
Page_HeadName="<A HREF=Aa_Honor.asp?Action=Add>添加企业荣誉</A> | <A HREF=Aa_Honor.asp?Action=Manage>企业荣誉列表</A>"
Select Case Action
Case "Add"
Call Page_AdminFlag(25)
Page_BootmName="添加企业荣誉"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
strIfa = "<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
"<Form NAME=Form method=post action=Aa_Honor.asp?Action=sAdd>"&_
"<TR>"&_
"<TD WIDTH=20% HEIGHT=30 CLASS=Table8>企业荣誉名称：</TD>"&_
"<TD CLASS=Table8><INPUT NAME=Honor_Name TYPE=text id=Honor_Name size=55> <FONT COLOR=ff0000>*</FONT></TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 CLASS=Table8>证书图片：</TD>"&_
"<TD CLASS=Table8><INPUT NAME=Honor_Pic TYPE=text id=Honor_Pic size=40> "&_
"<INPUT TYPE=button NAME=SPic CLASS=submit_all VALUE=' 上传 ' onClick=" & CHR(34) & "window.open('Inc/PicLoad.asp?Formname=Form&Editname=Honor_Pic&FileName=Upload/Pic','','status=no,scrollbars=no,scroll=no,top=300,left=310,width=390,height=80')" & CHR(34) & "> 证书图片的长高比例为：3:2</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=190 CLASS=Table8>企业荣誉介绍：</TD>"&_
"<TD CLASS=Table8><TEXTAREA NAME=Honor_Content cols=55 rows=12 id=Honor_Content></TEXTAREA> 200个字以内，HTML禁用</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 CLASS=Table8>企业荣誉审核：</TD>"&_
"<TD CLASS=Table8><INPUT TYPE=radio NAME=Honor_Flag VALUE='1' CLASS=radio_all checked> 通过审核 <INPUT CLASS=radio_all TYPE=radio NAME=Honor_Flag VALUE='0'>取消审核</TD>"&_
"</TR>"&_
"<TR ALIGN=center>"&_
"<TD HEIGHT=35 colspan=2 CLASS=Table8>"&_
"<INPUT NAME=Ok TYPE=submit CLASS=submit_all id=Ok VALUE='提交资料' > "&_
"<INPUT TYPE=reset NAME=Cel CLASS=submit_all VALUE=重新输入> "&_
"</TR>"&_
"</form>"&_
"</TABLE>"
Call Page_aTable(0,0)
Case "Edit"
Call Page_AdminFlag(26)
Set Rs_edit=server.Createobject("Adodb.Recordset")
Sql="Select * From Tx_Honor Where Honor_Id=" & Id
Rs_edit.open Sql,Conn,1,1
Page_BootmName="企业荣誉修改 > " & Rs_edit("Honor_Title")
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
IF Rs_edit("Honor_Index")=1 THEN checked="checked"
IF Rs_edit("Honor_Flag")=1 THEN
checked1="checked"
Else
checked2="checked"
End IF
strIfa = "<TABLE WIDTH=100% BORDER=0 CELLPADDING=0 CELLSPACING=1>"&_
"<Form NAME=Form method=post action=Aa_Honor.asp?Action=sEdit&Id=" & Id & ">"&_
"<TR>"&_
"<TD WIDTH=20% HEIGHT=30 CLASS=Table8>企业荣誉名称：</TD>"&_
"<TD CLASS=Table8><INPUT NAME=Honor_Name TYPE=text id=Honor_Name size=40 VALUE='" & Rs_edit("Honor_Title") & "'> <FONT COLOR=ff0000>*</FONT></TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 CLASS=Table8>证书图片：</TD>"&_
"<TD CLASS=Table8><INPUT NAME=Honor_Pic VALUE='" & Rs_edit("Honor_Pic") & "' TYPE=text id=Honor_Pic size=40> "&_
"<INPUT TYPE=button NAME=SPic CLASS=submit_all VALUE=' 上传 ' onClick=" & CHR(34) & "window.open('Inc/PicLoad.asp?Formname=Form&Editname=Honor_Pic&FileName=Upload/Pic','','status=no,scrollbars=no,scroll=no,top=300,left=310,width=390,height=80')" & CHR(34) & "> 证书图片的长高比例为：3:2</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=190 CLASS=Table8>企业荣誉介绍：</TD>"&_
"<TD CLASS=Table8><TEXTAREA NAME=Honor_Content cols=55 rows=12 id=Honor_Content>" & Rs_edit("Honor_Content") & "</TEXTAREA> 200个字以内，HTML禁用</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD WIDTH=22% HEIGHT=30 CLASS=Table8>修改添加时间：</TD>"&_
"<TD CLASS=Table8><INPUT NAME='textfield' TYPE='text' VALUE='" & Rs_edit("Honor_Date") & "'> 现在时间为" & Now() & "，更新时间：<INPUT NAME=NewTime CLASS=radio_all TYPE=checkbox id=NewTime VALUE='1'></TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30 CLASS=Table8>企业荣誉审核：</TD>"&_
"<TD CLASS=Table8><INPUT TYPE=radio CLASS=radio_all NAME=Honor_Flag VALUE='1' " & checked1 & "> 通过审核 <INPUT CLASS=radio_all TYPE=radio NAME=Honor_Flag VALUE='0' " & checked2 & ">取消审核</TD>"&_
"</TR>"&_
"<TR ALIGN=center>"&_
"<TD HEIGHT=35 colspan=2 CLASS=Table8>"&_
"<INPUT NAME=Ok TYPE=submit CLASS=submit_all id=Ok VALUE='提交资料' > "&_
"<INPUT TYPE=reset NAME=Cel CLASS=submit_all VALUE=重新输入> "&_
"</TR>"&_
"</form>"&_
"</TABLE>"
Call Page_aTable(0,0)
Rs_edit.Close
set Rs_edit=Nothing
Case "Manage"
Call Page_AdminFlag(26)
Page_BootmName="企业荣誉列表"
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
Set Rs_Manage=server.Createobject("Adodb.Recordset")
Sql="Select * From Tx_Honor order by Honor_Id desc"
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=15% CLASS=Table6>添加人</TD><TD WIDTH=17% CLASS=Table6>添加时间</TD><TD WIDTH=22% 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("Honor_Flag")=1 THEN
TitleFlag="<FONT COLOR=006600>取消</FONT>"
Else
TitleFlag="<FONT COLOR=ff0000>审核</FONT>"
End IF
strIfa = strIfa & "<Form NAME=inbox method=post action='Aa_Honor.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("Honor_Id") & "</TD>"&_
"<TD><A HREF=Aa_Honor.asp?Action=S&Id=" & Rs_Manage("Honor_Id") & ">" & Rs_Manage("Honor_Title") & "</A></TD>"&_
"<TD>" & Rs_Manage("Honor_Add") & "</TD>"&_
"<TD>" & Rs_Manage("Honor_Date") & "</TD>"&_
"<TD ALIGN=center>"&_
"<A HREF=Aa_Honor.asp?Action=Edit&Id=" & Rs_Manage("Honor_Id") & ">修改</A> | "&_
"<A HREF=Aa_Honor.asp?Action=Flag&Id=" & Rs_Manage("Honor_Id") & ">" & TitleFlag & "</A> | "&_
"<A HREF=Aa_Honor.asp?Action=Del&Id=" & Rs_Manage("Honor_Id") & " onclick='{if(confirm(" & CHR(34) & "删除后将无法恢复，您真的要删除么？" & CHR(34) & ")){return true;}return false;}'>删除</A> | "&_
"<INPUT CLASS=radio_all TYPE=checkbox NAME=Id VALUE=" & Rs_Manage("Honor_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='Aa_Honor.asp?Action=FlagallOk';this.form.submit()" & CHR(34) & "> "&_
"<INPUT TYPE=submit NAME=FlagNo CLASS=submit_all VALUE=取消审核 onClick=" & CHR(34) & "this.form.action='Aa_Honor.asp?Action=FlagallNo';this.form.submit()" & CHR(34) & "></TD>"&_
"</TR>"&_
"</form>"&_
"<TR>"&_
"<TD HEIGHT=25 colspan=6 ALIGN=center CLASS=Table8>"
strIfb = "</TD></TR>"&_
"</TABLE>"
Call Page_aTable(0,1)
Case "S"
Set Rs_edit=server.Createobject("Adodb.Recordset")
Sql="Select * from Tx_Honor Where Honor_Id=" & Id
Rs_edit.open Sql,Conn,1,1
Page_BootmName="查看企业荣誉 > " & Rs_edit("Honor_Title")
Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
IF Rs_edit("Honor_Flag")=1 THEN
TitleFlag="<FONT COLOR=006600>取消审核</FONT>"
Else
TitleFlag="<FONT COLOR=ff0000>通过审核</FONT>"
End IF
IF Rs_edit("Honor_Index")=1 THEN TitleIndex="<FONT COLOR=006600>在首页显示</FONT>"
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("Honor_Title") & "</B></TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=1 background=Skins/Blue/Ar2.gif></TD>"&_
"</TR>"&_
"<TR>"&_
"<TD CLASS=Table15><IMG SRC=" & Rs_edit("Honor_Pic") & "></TD>"&_
"</TR>"&_
"<TR>"&_
"<TD CLASS=Table15>" & Rs_edit("Honor_Content") & "</TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=1 background=Skins/Blue/Ar2.gif></TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=30>添加人：" & Rs_edit("Honor_Add") & " 添加时间：" & Rs_edit("Honor_Date") & "</TD>"&_
"</TR>"&_
"</TABLE></TD>"&_
"</TR>"&_
"<TR>"&_
"<TD HEIGHT=25 ALIGN=center CLASS=Table8>『 <A HREF=Aa_Honor.asp?Action=Add>添加企业荣誉</A> 』『 <A HREF=Aa_Honor.asp?Action=Edit&Id=" & Rs_edit("Honor_Id") & ">修改</A> 』『 <A HREF=Aa_Honor.asp?Action=Flag&Id=" & Rs_edit("Honor_Id") & ">" & TitleFlag & "</A> 』『 <a onclick='{if(confirm(" & CHR(34) & "删除后将无法恢复，您真的要删除么？" & CHR(34) & ")){return true;}return false;}' href=Aa_Honor.asp?Action=Del&Id=" & Rs_edit("Honor_Id") & ">删除</A> 』『 <A HREF=Aa_Honor.asp?Action=Manage>企业荣誉列表</A> 』</TD>"&_
"</TR>"&_
"</TABLE>"
Rs_edit.Close
set Rs_edit=Nothing
Call Page_aTable(0,0)
Case "sAdd"
IF Request.form("Honor_Name")="" THEN
Errorst="请输入企业荣誉名称！"
founderr=True
ElseIF Request.form("Honor_Pic")="" THEN
Errorst="请选输入证书图片！"
founderr=True
ElseIF Request.form("Honor_Content")="" THEN
Errorst="请选输入企业荣誉内容！"
founderr=True
End IF
IF founderr=True THEN
Call Form_Error()
Else
Set Rs=server.createobject("adodb.recordset")
Sql="Select * From Tx_Honor"
Rs.open Sql,Conn,1,3
Rs.addnew
Rs("Honor_Title")=Request.form("Honor_Name")
Rs("Honor_Content")=nohtml(request.form("Honor_Content"))
Rs("Honor_Pic")=request.form("Honor_Pic")
Rs("Honor_Flag")=request.form("Honor_Flag")
Rs("Honor_Date")=Now()
Rs("Honor_Add")=session("Loginadmin")
Rs.update
ToHistory="Aa_Honor.asp?Action=S&Id=" & Rs("Honor_Id")
Rs.Close
set Rs=Nothing
saveok="企业荣誉：[ " & Request.form("Honor_Name") & " ] 添加成功！"
Call Form_Saveok()
End IF
Case "sEdit"
IF Request.form("Honor_Name")="" THEN
Errorst="请输入荣誉名称！"
founderr=True
ElseIF Request.form("Honor_Pic")="" THEN
Errorst="请选输入证书图片！"
founderr=True
ElseIF Request.form("Honor_Content")="" THEN
Errorst="请选输入荣誉内容！"
founderr=True
End IF
IF founderr=True THEN
Call Form_Error()
Else
Set Rs=server.createobject("adodb.recordset")
Sql="Select * From Tx_Honor where Honor_Id=" & Id
Rs.open Sql,Conn,1,3
Rs("Honor_Title")=Request.form("Honor_Name")
Rs("Honor_Content")=nohtml(request.form("Honor_Content"))
Rs("Honor_Pic")=request.form("Honor_Pic")
Rs("Honor_Flag")=request.form("Honor_Flag")
IF Request.form("NewTime")=1 THEN
Rs("Honor_Date")=Now()
End IF
Rs.update
Rs.Close
set Rs=Nothing
ToHistory="Aa_Honor.asp?Action=Edit&Id=" & Id
saveok="企业荣誉：[ " & Request.form("Honor_Name") & " ] 修改成功！"
Call Form_Saveok()
End IF
Case "Del"
Conn.Execute "Delete From Tx_Honor Where Honor_Id=" & Id
ToHistory="Aa_Honor.asp?Action=Manage"
saveok="删除成功！"
Call Form_Saveok()
Case "Flag"
Set Rs=server.createobject("adodb.recordset")
Sql="Select * From Tx_Honor where Honor_Id=" & Id
Rs.open Sql,Conn,1,3
IF Rs("Honor_Flag")=1 THEN
Rs("Honor_Flag")=0
saveok="企业荣誉：[ " & Rs("Honor_Title") & " ] 已取消审核！"
Else
Rs("Honor_Flag")=1
saveok="企业荣誉：[ " & Rs("Honor_Title") & " ] 已通过审核！"
End IF
Rs.update
Rs.Close
set Rs=Nothing
ToHistory=VisitorsForm
Call Form_Saveok()
Case "Delall"
IF Request.form("Id")="" THEN
Errorst="请选择要删除的对象！"
founderr=True
End IF
IF founderr=True THEN
Call Form_Error()
Else
Conn.Execute "Delete From Tx_Honor Where Honor_Id in (" & Request.form("Id") & ")"
ToHistory=VisitorsForm
saveok="删除成功！"
Call Form_Saveok()
End IF
Case "FlagallOk"
IF Request.form("Id")="" THEN
Errorst="请选择要审核的对象！"
founderr=True
End IF
IF founderr=True THEN
Call Form_Error()
Else
Conn.Execute "upDate Tx_Honor set Honor_Flag=1 Where Honor_Id in (" & Request.form("Id") & ")"
ToHistory=VisitorsForm
saveok="已通过审核！"
Call Form_Saveok()
End IF
Case "FlagallNo"
IF Request.form("Id")="" THEN
Errorst="请选择要取消审核的对象！"
founderr=True
End IF
IF founderr=True THEN
Call Form_Error()
Else
Conn.Execute "upDate Tx_Honor set Honor_Flag=0 Where Honor_Id in (" & Request.form("Id") & ")"
ToHistory=VisitorsForm
saveok="已取消审核！"
Call Form_Saveok()
End IF
End Select
Call Page_Spane(5)
Call CloseConn()
Call Page_endBody()
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -