levelsql.asp

来自「蓝芒3.0A最新所有功能完整破解版」· ASP 代码 · 共 59 行

<% ModuleCode="M0130" %>
<!--#include file="../../Include/connect.asp"-->
<!--#include file="../../Include/Security.asp"-->
<%

act = Request("act")
LevelCode = Request.Form("LevelCode")
LevelName = Request.Form("LevelName")
DispSeq = Request.Form("DispSeq")

OPTable="T_DNS_UserLevel"
OPIP=Request.ServerVariables("REMOTE_ADDR")
OPModule="级别维护"
OPPK=LevelCode
OPType=act

Select Case act
	Case "添加"
		strSQL="Select * from T_DNS_UserLevel where LevelCode='" & LevelCode & "'"
		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_UserLevel (LevelCode,LevelName,DispSeq) values ('" & +_
		LevelCode & "','" & LevelName & "'," & DispSeq & ")"

		Cn.Execute(strSQL)
	Case "修改"
		strSQL="Update T_DNS_UserLevel Set LevelName='" & LevelName & "',DispSeq=" & DispSeq & " Where LevelCode='" & LevelCode & "'" 
		Cn.Execute(strSQL)
	Case "删除"
		strSQL="Select * from T_DNS_UserInfo where LevelCode='" & LevelCode & "'"
		'response.write strSQL
		'response.end
		Set Rs= Server.CreateObject("ADODB.Recordset")
		Rs.open strSQL,Cn,1,1
		If Not Rs.Eof Then
			strAllUserID=""
			while not rs.eof
				strAllUserID=strAllUserID & " " & rs("UserID")
				rs.movenext
			wend
			Response.Redirect "../../Include/ErrBox.asp?Msg=错误! "& strAllUserID&"为此级别，不能删除! 或者先给用户设定为其它的级别，再删除!"
			Response.End
		end if
		Rs.Close
		strSQL="Delete T_DNS_ProdPrice Where LevelCode='" & LevelCode & "'"
		Cn.Execute(strSQL)
	
		strSQL="Delete T_DNS_UserLevel Where LevelCode='" & LevelCode & "'"
		Cn.Execute(strSQL)
End Select
Cn.Execute("SP_UserOP "&session("UserID")&",'"&OPTable&"','"&OPModule&"','"&OPPK&"','"&OPType&"','"&OPIP&"'" )

Response.Redirect "Level.asp"
%>