📄 lablesave.asp

📁 asp源码图片ASP整站

💻 ASP

字号:

<% Option Explicit %>
<!--#include file="../../../Inc/NosqlHack.asp" -->
<!--#include file="../../../Inc/Cls_DB.asp" -->
<!--#include file="../../../Inc/Const.asp" -->
<%
	Dim DBC,Conn
	On Error Resume Next
	Set DBC = New DataBaseClass
	Set Conn = DBC.OpenConnection()
	Set DBC = Nothing
%>
<!--#include file="../../../Inc/Session.asp" -->
<!--#include file="../../../Inc/CheckPopedom.asp" -->
<%
if Not JudgePopedomTF(Session("Name"),"P0302") then Call ReturnError()
	Dim Result,LableID
	Result = Request("Result")
	if Result = "Submit" then
	Dim RsLableObj
	Set RsLableObj = Server.CreateObject(G_FS_RS)
	LableID = Request("LableID")
	if LableID = "" then
		RsLableObj.Open "Select * from FS_Lable where 1=0",Conn,3,3
		RsLableObj.AddNew()
	else
		RsLableObj.Open "Select * from FS_Lable where ID="&LableID,Conn,3,3
	end if
	RsLableObj("LableName") = Request.Form("LableName")
	RsLableObj("LableContent") = Request.Form("LableContent")
	RsLableObj("LableType") = Request.Form("LableType")
	RsLableObj.UpDate()
	RsLableObj.Close()
	Set RsLableObj = Nothing
	Set Conn = Nothing
	if Err.Number <> 0 then
%>
<script language="JavaScript">
	alert('错误：\n<% = Err.Description %>');
</script>
<%
	else
%>
<script language="JavaScript">
	alert('保存成功');
</script>
<%
	end if
end if
%>
<html>
<body>
<form action="" name="SaveLableForm" method="post">
<input name="Result" type="hidden" value="">
<input name="LableID" type="hidden" value="">
<input name="LableName" type="hidden" value="">
<input name="LableContent" type="hidden" value="">
<input name="LableType" type="hidden" value="">
</form>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -