📄 editlabel.asp
字号:
<!--#include file="../ACT.Function.asp"-->
<% ConnectionDatabase
Dim ID,LabelRS,Str,LabelContent,FileName
ID=clng(Request.QueryString("ID"))
Set LabelRS=Server.CreateObject("Adodb.Recordset")
Str="SELECT LabelContent FROM Label_Act Where ID=" & ID &""
LabelRS.Open Str,Conn,1,1
IF LabelRS.Eof and LabelRS.Bof THEN
LabelRS.Close
Set LabelRS=Nothing
Response.Write("<Script>alert('参数传递出错!');window.close();</Script>")
Response.End
End if
LabelContent=LabelRS(0)
LabelRS.Close
Str=mid(LabelContent, InStrrev(LabelContent, "("))
FileName=Replace(Replace(LabelContent,Str,""),"{$","")
FileName=FileName & ".asp?Action=Edit&ID=" & ID
Set LabelRS=Nothing
response.Redirect "Label/" & FILENAME & ""
%>?
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -