aa_honor.asp

台讯企业全站管理系统V2006 供下载时经过了严格的测试

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()
%>