📄 aa_pay.asp

📁 台讯企业精美版.适合企事业单位用.方便易学.不会做网站也能建网站.
💻 ASP
字号:
 <%@ LANGUAGE = VBScript CodePage = 936%>
<%
'***********************************************************************************' 产品名称：台讯企业全站管理系统（V2006简体中文版）' 程序开发：HECHENn（QQ：34103037　Emial：hechenn@126.com）' Copyright 2006 txcodes.com - All Rights Reserved. '***********************************************************************************
PageName="Admin,0"
%>
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/System.asp"-->

<%
Call Page_formBody()
Call Page_Spane(5)
Page_HeadName="<A HREF=Aa_Pay.asp?Action=Pay>支付方式</A>　|　<A HREF=Aa_Pay.asp?Action=Give>送货方式</A>"
Select Case Action
    Case "Pay"
Call Page_AdminFlag(35)
        Page_BootmName="添加支付方式"
        Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
        strIfa = "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1><TR ALIGN=center><TD WIDTH=78% HEIGHT=23 CLASS=Table6>支付方式</TD><TD CLASS=Table6>操作</TD></TR>"
        Set Rs=Server.createobject("adodb.recordset")
        Sql="Select * from Tx_Give where Pay_Name<>''"
        Rs.Open Sql,Conn,1,1
            While Not Rs.Eof
                strIfa = strIfa & "<form NAME=form method=post action='Aa_Pay.asp?Action=Payedit&Id=" & Rs("Give_Id") & "'><TR><TD HEIGHT=25 CLASS=Table8><INPUT NAME=PayName TYPE=text id=PayName VALUE='" & Rs("Pay_Name") & "' size=30></TD><TD ALIGN=center CLASS=Table8><INPUT TYPE=submit NAME=Submit CLASS=submit_all VALUE= 修改 > | <a onclick='{if(confirm(" & CHR(34) & "删除后将无法恢复，您真的要删除么？" & CHR(34) & ")){return true;}return false;}' href='Aa_Pay.asp?Action=Paydel&Id=" & Rs("Give_Id") & "'><FONT COLOR=ff0000>删除</FONT></A></TD></TR></form>"
            Rs.MoveNext
            Wend
        Rs.Close
        Set Rs=Nothing
        strIfa = strIfa & "<TR><TD HEIGHT=25 colspan=2 CLASS=Table8>&nbsp;</TD></TR><Form NAME=form method=post action=Aa_Pay.asp?Action=Payadd><TR><TD HEIGHT=30 CLASS=Table8><INPUT NAME=PayName TYPE=text id=PayName size=30></TD><TD ALIGN=center CLASS=Table8><INPUT TYPE=submit CLASS=submit_all NAME=Submit VALUE=' 添加 '></TD></TR></form></TABLE>"
    Call Page_aTable(0,0)
    Case "Give"
Call Page_AdminFlag(36)
        Page_BootmName="添加送货方式"
        Page_BootName="您现在的位置：<A HREF=A_Right.asp>管理首页</A> >> " & Page_BootmName
        strIfa = "<TABLE WIDTH=100%  BORDER=0 CELLPADDING=0 CELLSPACING=1><TR ALIGN=center><TD WIDTH=50% HEIGHT=23 CLASS=Table6>送货方式</TD><TD WIDTH=28% HEIGHT=23 CLASS=Table6>送货费用</TD><TD CLASS=Table6>操作</TD></TR>"
        Set Rs=Server.createobject("adodb.recordset")
        Sql="Select * from Tx_Give where Give_Name<>''"
        Rs.Open Sql,Conn,1,1
            While Not Rs.Eof
                strIfa = strIfa & "<form NAME=form method=post action='Aa_Pay.asp?Action=Giveedit&Id=" & Rs("Give_Id") & "'><TR><TD HEIGHT=25 CLASS=Table8><INPUT NAME=GiveName TYPE=text id=GiveName VALUE='" & Rs("Give_Name") & "' size=30></TD><TD HEIGHT=25 CLASS=Table8><INPUT NAME=GiveMoney TYPE=text id=GiveMoney VALUE='" & Rs("Give_Money") & "' size=20></TD><TD ALIGN=center CLASS=Table8><INPUT TYPE=submit CLASS=submit_all NAME=Submit VALUE= 修改 > | <a onclick='{if(confirm(" & CHR(34) & "删除后将无法恢复，您真的要删除么？" & CHR(34) & ")){return true;}return false;}' href='Aa_Pay.asp?Action=Givedel&Id=" & Rs("Give_Id") & "'><FONT COLOR=ff0000>删除</FONT></A></TD></TR></form>"
            Rs.moveNext
            Wend
        Rs.close
        Set Rs=Nothing
        strIfa = strIfa & "<TR><TD HEIGHT=25 colspan=3 CLASS=Table8>&nbsp;</TD></TR><Form NAME=form method=post action=Aa_Pay.asp?Action=Giveadd><TR><TD HEIGHT=30 CLASS=Table8><INPUT NAME=GiveName TYPE=text id=GiveName size=30></TD><TD HEIGHT=30 CLASS=Table8><INPUT NAME=GiveMoney TYPE=text id=GiveMoney size=20></TD><TD ALIGN=center CLASS=Table8><INPUT CLASS=submit_all TYPE=submit NAME=Submit VALUE=' 添加 '></TD></TR></form></TABLE>"
    Call Page_aTable(0,0)
    Case "Payadd"
        IF Request.form("PayName")="" Then
            Errorst="请输入支付方式！"
            founderr=True
        End IF
        IF founderr=True Then
	        Call Form_Error()
        Else
	        Set Rs=Server.createobject("adodb.recordset")
            Sql="Select * From Tx_Give"
            Rs.open Sql,Conn,1,3
		    Rs.addnew
		        Rs("Pay_Name")=Request.form("PayName")
		    Rs.update
		    Rs.close
		    Set Rs=Nothing
		    ToHistory="Aa_Pay.asp?Action=Pay"
		    saveok="支付方式：[ " & Request.form("PayName") & " ] 添加成功！"
	        Call Form_Saveok()
        End IF
    Case "Payedit"
        IF Request.form("PayName")="" Then
            Errorst="请输入支付方式！"
            founderr=True
        End IF
        IF founderr=True Then
	        Call Form_Error()
        Else
	        Set Rs=Server.createobject("adodb.recordset")
            Sql="Select * From Tx_Give where Give_Id=" & Id
            Rs.open Sql,Conn,1,3
		        Rs("Pay_Name")=Request.form("PayName")
		    Rs.update
		    Rs.close
		    Set Rs=Nothing
		    ToHistory="Aa_Pay.asp?Action=Pay"
		    saveok="支付方式：[ " & Request.form("PayName") & " ] 修改成功！"
	        Call Form_Saveok()
        End IF
    Case "Giveadd"
        IF Request.form("GiveName")="" Then
            Errorst="请输入送货方式！"
            founderr=True
        ElseIF Request.form("GiveMoney")="" Then
            Errorst="请输入送货费用！"
            founderr=True
        ElseIF not isnumeric(Request.form("GiveMoney")) Then
            Errorst="错误的参数（送货费用请输入数字）！"
            founderr=True
        End IF
        IF founderr=True Then
	        Call Form_Error()
        Else
	        Set Rs=Server.createobject("adodb.recordset")
            Sql="Select * From Tx_Give"
            Rs.open Sql,Conn,1,3
		    Rs.addnew
		        Rs("Give_Name")=Request.form("GiveName")
		        Rs("Give_Money")=Request.form("GiveMoney")
		    Rs.update
		    Rs.close
		    Set Rs=Nothing
		    ToHistory="Aa_Pay.asp?Action=Give"
		    saveok="送货方式：[ " & Request.form("GiveName") & " ] 添加成功！"
	        Call Form_Saveok()
        End IF
    Case "Giveedit"
        IF Request.form("GiveName")="" Then
            Errorst="请输入送货方式！"
            founderr=True
        ElseIF Request.form("GiveMoney")="" Then
            Errorst="请输入送货费用！"
            founderr=True
        ElseIF not isnumeric(Request.form("GiveMoney")) Then
            Errorst="错误的参数（送货费用请输入数字）！"
            founderr=True
        End IF
        IF founderr=True Then
	        Call Form_Error()
        Else
	        Set Rs=Server.createobject("adodb.recordset")
            Sql="Select * From Tx_Give where Give_Id=" & Id
            Rs.open Sql,Conn,1,3
		        Rs("Give_Name")=Request.form("GiveName")
		        Rs("Give_Money")=Request.form("GiveMoney")
		    Rs.UpDate
		    Rs.Close
		    Set Rs=Nothing
		    ToHistory="Aa_Pay.asp?Action=Give"
		    saveok="送货方式：[ " & Request.form("GiveName") & " ] 修改成功！"
	        Call Form_Saveok()
        End IF
    Case "Paydel"
        Conn.Execute "Delete From Tx_Give Where Give_Id=" & Id
        ToHistory="Aa_Pay.asp?Action=Pay"
        saveok="删除成功！"
        Call Form_Saveok()
    Case "Givedel"
        Conn.Execute "Delete From Tx_Give Where Give_Id=" & Id
        ToHistory="Aa_Pay.asp?Action=Give"
        saveok="删除成功！"
        Call Form_Saveok()
End Select
Call Page_Spane(5)
Call CloseConn()
Call Page_endBody()
%>
⌨️ 快捷键说明

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