accounttypedo.asp

蓝芒3.0A最新所有功能完整破解版

<% ModuleCode="M0210" %>
<!--#include file="../../Include/connect.asp"-->
<!--#include file="../../Include/Security.asp"-->
<%
TypeCode = Request("TypeCode")
act = Request("act")
Select Case act
	Case "0"
		actname="增加"
		strSQL="Select * from T_DNS_AccountType where TypeCode='" & TypeCode & "'"
		Set Rs= Server.CreateObject("ADODB.Recordset")
		Rs.open strSQL,Cn,1,1
		If Not Rs.Eof Then
			Response.Redirect "../../Include/ErrBox.asp?Msg=错误! 该代号已经存在!"
			Response.End
		end if
		Rs.Close
		strSQL="Insert into T_DNS_AccountType (TypeCode,TypeName,UserAM,CorpAM) values ('" & +_
		TypeCode & "','" & Request.Form("TypeName") & "','" & +_
		Request.Form("UserAM") & "','" & Request.Form("CorpAM") & "')"
		Cn.Execute(strSQL)
	Case "1"
		actname="修改"
		strSQL="Update T_DNS_AccountType Set TypeName='" & Request.Form("TypeName") & +_
		"',UserAM='" & Request.Form("UserAM") & "',CorpAM='" & Request.Form("CorpAM") & +_
		"' Where TypeCode='" & TypeCode & "'"
		Cn.Execute(strSQL)
	Case "2"
		actname="删除"
		strSQL="Delete T_DNS_AccountType Where TypeCode='" & TypeCode & "'"
		Cn.Execute(strSQL)
End Select
Cn.Execute("SP_UserOP "&session("UserID")&",'T_DNS_AccountType','财务类型','"&TypeCode&"','"&actname&"','"&Request.ServerVariables("REMOTE_ADDR")&"'" )
Response.Redirect "AccountType.asp"
%>