posttmpsql.asp

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

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

act = Request("act")
TMPCode = Request.Form("TMPCode")
TMPName = Request.Form("TMPName")
TMPFile = Request.Form("TMPFile")
TMPPic = Request.Form("TMPPic")
DispSeq = Request.Form("DispSeq")
if len(Request.Form("IfUse"))>0 then
	IfUse="Y"
else
	IfUse="N"
end if

OPTable="T_DNS_PostTMP"
OPIP=Request.ServerVariables("REMOTE_ADDR")
OPModule="邮局模板维护"
OPPK=StyleCode
OPType=act

Select Case act
	Case "添加"
		strSQL="Select * from T_DNS_PostTMP where TMPCode='" & TMPCode & "'"
		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_PostTMP (TMPCode,TMPName,TMPFile,TMPPic,DispSeq,IfUse) values ('" & +_
		TMPCode & "','" & TMPName & "','" & TMPFile & "','" & TMPPic & "'," & DispSeq & ",'" & IfUse & "')"

		Cn.Execute(strSQL)
	Case "修改"
		strSQL="Update T_DNS_PostTMP Set TMPName='" & TMPName & "',TMPFile='" & TMPFile & "',TMPPic='" & TMPPic & "',DispSeq=" & DispSeq & ",IfUse='" & IfUse & "' Where TMPCode='" & TMPCode & "'"
		Cn.Execute(strSQL)
	Case "删除"
		strSQL="Delete T_DNS_PostTMP Where TMPCode='" & TMPCode & "'"
		Cn.Execute(strSQL)
End Select
Cn.Execute("SP_UserOP "&session("UserID")&",'"&OPTable&"','"&OPModule&"','"&OPPK&"','"&OPType&"','"&OPIP&"'" )

Response.Redirect "PostTMP.asp"
%>