📄 label_main.asp
字号:
If (CurrentPage - 1) * MaxPerPage > totalPut Then
If (totalPut Mod MaxPerPage) = 0 Then
CurrentPage = totalPut \ MaxPerPage
Else
CurrentPage = totalPut \ MaxPerPage + 1
End If
End If
If CurrentPage = 1 Then
Call showContent
Else
If (CurrentPage - 1) * MaxPerPage < totalPut Then
LabelRS.Move (CurrentPage - 1) * MaxPerPage
Call showContent
Else
CurrentPage = 1
Call showContent
End If
End If
End If
Response.Write " </table>"
Response.Write " </div>"
Response.Write "</body>"
Response.Write "</html>"
End Sub
Sub showContent()
Do While Not LabelRS.EOF
Response.Write "<tr>"
Response.Write " <td>"
Response.Write " <table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">"
Response.Write " <tr>"
Dim T, TitleStr, FolderName, ShortName, LabelTypeStr
For T = 1 To Row
If Not LabelRS.EOF Then
If LabelRS(4) = 0 Then
FolderName = LabelRS(1)
ShortName = KSCMS.ListTitle(FolderName, 24)
TitleStr = " TITLE='名 称:" & FolderName & " 类 型:标签目录'"
Else
FolderName = LabelRS(1)
ShortName = KSCMS.ListTitle(Replace(Replace(FolderName, "{LB_", ""), "}", ""), 24)
If LabelType = 1 Then
LabelTypeStr = "自定义标签"
Else
LabelTypeStr = "系统函数标签"
End If
TitleStr = " TITLE='名 称:" & FolderName & " 类 型:" & LabelTypeStr & "'"
End If
Response.Write ("<td width=""" & CInt(100 / Row) & "%"" Style=""cursor:default"" align=""center""" & TitleStr & ">")
If LabelRS(4) = 0 Then
Response.Write ("<span onmousedown=""mousedown(this);"" FolderID=""" & LabelRS(0) & """ style=""POSITION:relative;"" OnDblClick=""OpenLabelFolder(this.FolderID)"">")
Else
Response.Write ("<span onmousedown=""mousedown(this);"" LabelID=""" & LabelRS(0) & """ style=""POSITION:relative;"" onDblClick=""EditLabel('',this.LabelID);"">")
End If
If LabelRS(4) = 0 Then
Response.Write ("<img src=""../Images/Folder/folder.gif""> ")
ElseIf LabelType = 1 Then
Response.Write ("<img src=""../Images/Label/Label3.gif"">")
Else
Response.Write ("<img src=""../Images/Label/Label" & LabelRS(3) & ".gif"">")
End If
Response.Write ("<span style=""display:block;height:16;padding:0px 0px 0px 0px;margin:1px;width:80%;cursor:default"">" & ShortName & "</span>")
Response.Write ("</span>")
Response.Write ("</td>")
i = i + 1
If LabelRS.EOF Or i >= MaxPerPage Then Exit For
LabelRS.MoveNext
Else
Exit For
End If
Next
'不到7个单元格,则进行补空
Do While T <= Row
Response.Write ("<td width=70> </td>")
T = T + 1
Loop
Response.Write " </tr>"
Response.Write " <tr><td colspan=" & Row & " height=10></td></tr>"
Response.Write " </table></td>"
Response.Write "</tr>"
If i >= MaxPerPage Then Exit Do
If LabelRS.EOF Then Exit Do
Loop
LabelRS.Close
Conn.Close
Response.Write " <td align=""right"">"
Call KSCMS.ShowPageParamter(totalPut, MaxPerPage, "Label_Main.asp", True, "个", CurrentPage, "LabelType=" & LabelType & "&FolderID=" & FolderID & "&" & SearchParam)
Response.Write " </td>"
Response.Write " </tr>"
End Sub
'克隆标签的名称
Sub SetPasteParam()
Dim LabelID:LabelID=KSCMS.G("LabelID")
Dim NewLabelName:NewLabelName="复制_" & Replace(Replace(Conn.Execute("Select LabelName From KS_Label Where ID='" & LabelID & "'")(0), "{LB_", ""), "}", "")
Response.Write "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"">"
Response.Write "<html>"
Response.Write "<head>"
Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"
Response.Write "<title>标签类型</title>"
Response.Write "</head>"
Response.Write "<link href=""../Inc/ModeWindow.css"" rel=""stylesheet"">"
Response.Write "<link href=""../Inc/Admin_Style.css"" rel=""stylesheet"">"
Response.Write "<script language=""JavaScript"" src=""../JS/Common.js""></script>"
Response.Write "<body scroll=no topmargin=""0"" leftmargin=""0"">"
Response.Write " <form name=""LabelPasteForm"" method=""post"" action=""?Action=PasteSave"">"
Response.Write " <input type=""hidden"" value=""" & LabelID & """ name=""LabelID"">"
Response.Write " <table width=""96%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"
Response.Write " <tr>"
Response.Write " <td>"
Response.Write " <FIELDSET align=center>"
Response.Write " <LEGEND align=left>"
Response.Write " 克隆标签"
Response.Write " </LEGEND>"
Response.Write " <table width=""100%"" height=""30"" border=""0"" cellpadding=""0"" cellspacing=""0"">"
Response.Write " <tr>"
Response.Write " <td height=""40"" align=""center"">"
Response.Write " 克隆标签的名称："
Response.Write " <input type=""text"" name=""NewLabelName"" size='30' class='upfile' value=""" & NewLabelName & """>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td height=""40"" align=""center"">"
Response.Write " <input type=""button"" name=""Submit"" class=""button"" Onclick=""CheckForm()"" value="" 确 定 "">"
Response.Write " <input type=""button"" name=""Submit2"" class=""button"" onclick=""window.close()"" value="" 取 消 "">"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " </table>"
Response.Write " </FIELDSET>"
Response.Write " </td></tr></table>"
Response.Write " </form>"
Response.Write "</body>"
Response.Write "</html>"
Response.Write "<Script Language=""javascript"">" & vbCrLf
Response.Write "function CheckForm()" & vbCrLf
Response.Write "{ var form=document.LabelPasteForm;" & vbCrLf
Response.Write " if (form.NewLabelName.value.length<=0)" & vbCrLf
Response.Write " {"
Response.Write " alert(""请给新克隆的标签取个名称!"");" & vbCrLf
Response.Write " form.NewLabelName.focus();" & vbCrLf
Response.Write " return false;" & vbCrLf
Response.Write " }"
Response.Write " form.submit();" & vbCrLf
Response.Write " return true;" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "</Script>"
End Sub
'保存克隆
Sub LabelPasteSave()
Dim LabelID:LabelID=KSCMS.G("LabelID")
Dim NewLabelName:NewLabelName=KSCMS.G("NewLabelName")
NewLabelName = "{LB_" & NewLabelName & "}"
Dim LabelRS:Set LabelRS=Server.CreateObject("ADODB.RECORDSET")
LabelRS.Open "Select LabelName From KS_Label Where LabelName='" & NewLabelName & "'", Conn, 1, 1
If Not LabelRS.Eof Then
LabelRS.Close:Set LabelRS=Nothing
Call KSCMS.Alert("标签名称已存在，请输入其它名称!","Label_Main.asp?Action=SetPasteParam&LabelID=" & LabelID)
End If
LabelRS.Close
LabelRS.Open "Select * From KS_Label Where ID='" & LabelID & "'",Conn,1,1
If Not LabelRS.Eof Then
Dim NewRS:Set NewRS=Server.CreateObject("ADODB.RECORDSET")
NewRS.Open "Select * From KS_Label",Conn,1,3
NewRS.AddNew
NewRS("ID") = Year(Now()) & KSCMS.MakeRandom(10)
NewRS("LabelName") = NewLabelName
NewRS("LabelContent") = LabelRS("LabelContent")
NewRS("Description") = LabelRS("Description")
NewRS("FolderID") = LabelRS("FolderID")
NewRS("OrderID") = LabelRS("OrderID")
NewRS("LabelType") = LabelRS("LabelType")
NewRS("LabelFlag") = LabelRS("LabelFlag")
NewRS("AddDate") = Now
NewRS.Update
NewRS.Close:Set NewRS=Nothing
LabelRS.Close:Set LabelRS=Nothing
Response.Write "<script>window.close();</script>"
Else
Response.Write "<script>alert('克隆失败!');window.close();</script>"
End If
End Sub
End Class
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -