specsql.asp

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

<% ModuleCode="M0640" %>
<!--#include file="../../Include/connect.asp"-->
<!--#include file="../../Include/Security.asp"-->
<%
act = Request("act")
ProdType = Request("ProdType")
SpecCode = Request("SpecCode")
SpecName = Request("SpecName")
OperType = Request("OperType")
TypeCode = Request("TypeCode")
if (OperType="1") then
	BPCode1 = Request("BPCode1")
	BPCode2 = Request("BPCode2")
	SPChange = "0"
else
	SPChange = Request("SPChange")
	BPCode1 = ""
	BPCode2 = ""
end if


OPTable="T_DNS_SpecInfo"
OPIP=Request.ServerVariables("REMOTE_ADDR")
OPModule="特殊业务维护"
OPPK=SpecCode

if act="5" then
	IfUse = "N"
else
	IfUse = "Y"
end if

Select Case act
Case "5"
	OPType = "禁用"
Case "4"
	OPType = "启用"
Case "3"
	OPType = "删除"
Case "2"
	OPType = "修改"
Case "1"
	OPType = "添加"
End Select

Select Case act
	Case "1" '添加
		strSQL="Select * from T_DNS_SpecInfo where SpecCode='" & SpecCode & "'"
		Set Rs= Server.CreateObject("ADODB.Recordset")
		Rs.open strSQL,Cn
		If Not Rs.Eof Then
			Response.Redirect "../../Include/ErrBox.asp?Msg=错误! 该代号已经存在!"
			Response.End
		end if
		Rs.Close
		strSQL="Insert into T_DNS_SpecInfo (SpecCode,SpecName,OperType,TypeCode,SPChange,BPCode1,BPCode2,IfUse) values ('" & +_
		SpecCode & "','" & SpecName & "','"& OperType & "','" & TypeCode & "'," & SPChange & ",'" & BPCode1 & "','" & BPCode2 & "','" & IfUse & "')"
		Cn.Execute(strSQL)
	Case "2" '修改
		strSQL="Update T_DNS_SpecInfo Set SpecName='" & SpecName & "',OperType='" & OperType & "',TypeCode='" & TypeCode& "',SPChange=" & SPChange& ",BPCode1='" & BPCode1 & "',BPCode2='" & BPCode2 & "' Where SpecCode='" & SpecCode & "'"
		Cn.Execute(strSQL)
	Case "3" '删除
		strSQL="Delete T_DNS_SpecInfo Where SpecCode='" & SpecCode & "'"
		Cn.Execute(strSQL)
	Case "4" '启用
		strSQL="Update T_DNS_SpecInfo Set IfUse='" & IfUse & "' Where SpecCode='" & SpecCode & "'"
		Cn.Execute(strSQL)
	Case "5" '禁用
		strSQL="Update T_DNS_SpecInfo Set IfUse='" & IfUse & "' Where SpecCode='" & SpecCode & "'"
		Cn.Execute(strSQL)
End Select
Cn.Execute("SP_UserOP "&session("UserID")&",'"&OPTable&"','"&OPModule&"','"&OPPK&"','"&OPType&"','"&OPIP&"'" )
Response.Redirect "Spec.asp?ProdType=" & ProdType
%>