📄 aa_work.asp

📁 台讯企业全站管理系统V2006 供下载时经过了严格的测试
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
         "<TD CLASS=Table15>" & Rs_edit("Work_Content") & "</TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=1 background=Skins/Blue/Ar2.gif></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=30>添加人：" & Rs_edit("Work_Add") & "　添加时间：" & Rs_edit("Work_Date") & "　浏览次数：" & Rs_edit("Work_Count") & "　属性：" & TitleIndex & "</TD>"&_
         "</TR>"&_
         "</TABLE></TD>"&_
         "</TR>"&_
         "<TR>"&_
         "<TD HEIGHT=25 ALIGN=center CLASS=Table8>『 <A HREF=Aa_Work.asp?Action=Add>添加工程案例</A> 』『 <A HREF=Aa_Work.asp?Action=Edit&Id=" & Rs_edit("Work_Id") & ">修改</A> 』『 <A HREF=Aa_Work.asp?Action=Flag&Id=" & Rs_edit("Work_Id") & ">" & TitleFlag & "</A> 』『 <a onclick='{if(confirm(" & CHR(34) & "删除后将无法恢复，您真的要删除么？" & CHR(34) & ")){return true;}return false;}' href=Aa_Work.asp?Action=Del&Id=" & Rs_edit("Work_Id") & ">删除</A> 』『 <A HREF=Aa_Work.asp?Action=Manage>工程案例列表</A> 』</TD>"&_
         "</TR>"&_
         "</TABLE>"
Rs_edit.Close
set Rs_edit=Nothing
Call Page_aTable(0,0)
Case "sAdd"
IF Request.form("Work_Name")="" THEN
Errorst="请输入工程案例名称！"
founderr=True
ElseIF Request.form("Content")="" THEN
Errorst="请选输入工程案例内容！"
founderr=True
ElseIF Request.form("Work_Count")="" THEN
Errorst="请选输入浏览次数！"
founderr=True
ElseIF not isnumeric(Request.form("Work_Count")) THEN
Errorst="错误的参数（浏览次数请输入数字）！"
founderr=True
End IF
    IF founderr=True THEN
	    Call Form_Error()
    Else
	ContentFile=Replace(Request.form("PicUrl"),"../","")
	ContentFile=split(ContentFile,"|")
	For intTemp=0 to ubound(ContentFile)
        IF instr(Request.form("Content"),ContentFile(intTemp)) and ContentFile(intTemp)<>"" THEN
			UploadFile=ContentFile(intTemp) & "|" & UploadFile
        End IF
	next
	Set Rs=server.createobject("adodb.recordset")
        Sql="Select * From Tx_Work"
        Rs.open Sql,Conn,1,3
		Rs.addnew
		Rs("Work_Title")=Request.form("Work_Name")
		Rs("Work_Content")=replace(Request.form("Content"),replace(ToHistorys,"Aa_Work.asp",""),"")
		Rs("Work_Count")=Request.form("Work_Count")
		Rs("Work_Flag")=Request.form("Work_Flag")
		Rs("UploadFiles")=UploadFile
		IF Request.form("Work_Index")=1 THEN
		    Rs("Work_Index")=1
		Else
		    Rs("Work_Index")=0
		End IF
		Rs("Work_Date")=Now()
		Rs("Work_Add")=session("Loginadmin")
		Rs.update
		session("Content")=""
		ToHistory="Aa_Work.asp?Action=S&Id=" & Rs("Work_Id")
		Rs.Close
		set Rs=Nothing
		saveok="工程案例：[ " & Request.form("Work_Name") & " ] 添加成功！"
	    Call Form_Saveok()
End IF
Case "sEdit"
IF Request.form("Work_Name")="" THEN
Errorst="请输入案例名称！"
founderr=True
ElseIF Request.form("Content")="" THEN
Errorst="请选输入案例内容！"
founderr=True
ElseIF Request.form("Work_Count")="" THEN
Errorst="请选输入浏览次数！"
founderr=True
ElseIF not isnumeric(Request.form("Work_Count")) THEN
Errorst="错误的参数（浏览次数请输入数字）！"
founderr=True
End IF
    IF founderr=True THEN
	    Call Form_Error()
    Else
		Set Rs=server.createobject("adodb.recordset")
			Sql="Select * From Tx_Work Where Work_Id=" & Id
	        Rs.open Sql,Conn,1,1
			ContentFile=Rs("UploadFiles")
		Rs.Close
		set Rs=Nothing
	    ContentFile=Replace(Request.form("PicUrl"),"../","") & ContentFile
		ContentFile=split(ContentFile,"|")
		For intTemp=0 to ubound(ContentFile)
            IF instr(Request.form("Content"),ContentFile(intTemp)) and ContentFile(intTemp)<>"" THEN
			    UploadFile=ContentFile(intTemp) & "|" & UploadFile
            End IF
		Next
	Set Rs=server.createobject("adodb.recordset")
        Sql="Select * From Tx_Work where Work_Id=" & Id
        Rs.open Sql,Conn,1,3
		Rs("Work_Title")=Request.form("Work_Name")
		Rs("Work_Content")=replace(Request.form("Content"),replace(ToHistorys,"Aa_Work.asp",""),"")
		Rs("Work_Count")=Request.form("Work_Count")
		Rs("Work_Flag")=Request.form("Work_Flag")
		Rs("UploadFiles")=UploadFile
		IF Request.form("Work_Index")=1 THEN
		    Rs("Work_Index")=1
		Else
		    Rs("Work_Index")=0
		End IF
		IF Request.form("NewTime")=1 THEN
		    Rs("Work_Date")=Now()
		End IF
		Rs.update
		session("Content")=""
		Rs.Close
		set Rs=Nothing
		ToHistory="Aa_Work.asp?Action=Edit&Id=" & Id
		saveok="工程案例：[ " & Request.form("Work_Name") & " ] 修改成功！"
	    Call Form_Saveok()
End IF
Case "Del"
    Conn.Execute "Delete From Tx_Work Where Work_Id=" & Id
    ToHistory="Aa_Work.asp?Action=Manage"
    saveok="删除成功！"
    Call Form_Saveok()
Case "Flag"
	Set Rs=server.createobject("adodb.recordset")
        Sql="Select * From Tx_Work where Work_Id=" & Id
        Rs.open Sql,Conn,1,3
		IF Rs("Work_Flag")=1 THEN
		    Rs("Work_Flag")=0
		saveok="工程案例：[ " & Rs("Work_Title") & " ] 已取消审核！"
		Else
		    Rs("Work_Flag")=1
		saveok="工程案例：[ " & Rs("Work_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_Work Where Work_Id in (" & Request.form("Id") & ")"
    ToHistory=VisitorsForm
    saveok="删除成功！"
    Call Form_Saveok()
End IF
Case "Work_Index"

    Set Rs=server.Createobject("Adodb.Recordset")
        Sql="Select * From Tx_Work Where Work_Id=" & Id
        Rs.open Sql,Conn,1,3
        IF Rs("Work_Index")=1 Then
            Rs("Work_Index")=0
			saveok="工程案例：" & Rs("Work_Title") & " 已取消在首页显示！"
        Else
            Rs("Work_Index")=1
			saveok="工程案例：" & Rs("Work_Title") & " 已在首页显示！"
        End IF
        Rs.upDate
    Rs.Close
	set Rs=Nothing
    ToHistory=VisitorsForm
    Call Form_Saveok()
Case "FlagallOk"
IF Request.form("Id")="" THEN
Errorst="请选择要审核的对象！"
founderr=True
End IF
    IF founderr=True THEN
	    Call Form_Error()
    Else	
    Conn.Execute "upDate Tx_Work set Work_Flag=1 Where Work_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_Work set Work_Flag=0 Where Work_Id in (" & Request.form("Id") & ")"
		ToHistory=VisitorsForm
    saveok="已取消审核！"
    Call Form_Saveok()
End IF
End Select
Call Page_Spane(5)
Call CloseConn()
Call Page_endBody()
%>
上一页 12
⌨️ 快捷键说明

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