prodbasictypedo.asp

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

<% ModuleCode="M0625" %>
<!--#include file="../../Include/connect.asp"-->
<!--#include file="../../Include/Security.asp"-->
<%
dim act,BPCode,BPName
act = Request("act")
BPCode = Request.Form("BPCode")
BPName = Request.Form("BPName")
TypeCode = Request.Form("TypeCode")
ProdMap = Request.Form("ProdMap")

Select Case act
	Case "添加"
		strSQL="Select * from T_DNS_ProdBasicPower where BPCode='" & BPCode & "'"
		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_ProdBasicPower (BPCode,BPName,TypeCode,ProdMap,IfUse) values ('" & +_
		BPCode & "','" & BPName & "','" & TypeCode & "','" & ProdMap & "','Y')"
		Cn.Execute(strSQL)
	Case "修改"
		strSQL="Update T_DNS_ProdBasicPower Set BPName='" & BPName & "', ProdMap='" & ProdMap & "' Where BPCode='" & BPCode & "'"
		Cn.Execute(strSQL)
	Case "删除"
		strSQL="Delete T_DNS_ProdBasicPower Where BPCode='" & BPCode & "'"
		Cn.Execute(strSQL)
End Select
Cn.Execute("SP_UserOP "&session("UserID")&",'T_DNS_ProdBasicPower','产品权限','"&BPCode&"','"&act&"','"&Request.ServerVariables("REMOTE_ADDR")&"'" )
Response.Redirect "ProdBasicType.asp?ProdType=" & TypeCode
%>