📄 ks_commoncls.asp
字号:
If FolderType = "" Then FolderType = 0
TempStr = "<select class='textbox' style='width:200;border-style: solid; border-width: 1' name='ParentID'>"
TempStr = TempStr & "<option value='0' Selected>根目录</option>"
Dim LabelFolderRS:Set LabelFolderRS=Server.CreateObject("ADODB.RECORDSET")
LabelFolderRS.Open ("Select ID,FolderName from KS_LabelFolder Where FolderType=" & FolderType & " And ParentID='0' Order By AddDate desc"), Conn, 1, 1
Do While Not LabelFolderRS.EOF
ID = Trim(LabelFolderRS(0))
FolderName = Trim(LabelFolderRS(1))
TempStr = TempStr & "<option "
If SelectID = ID Then TempStr = TempStr & " Selected"
TempStr = TempStr & " value='" & ID & "'>" & FolderName & " </option>"
TempStr = TempStr & ReturnSubLabelFolderTree(ID, SelectID)
LabelFolderRS.MoveNext
Loop
LabelFolderRS.Close:Set LabelFolderRS = Nothing
TempStr = TempStr & "</select>"
ReturnLabelFolderTree = TempStr
End Function
'************************************************************************************
'函数名：ReturnSubLabelFolderTree
'作 用：查找并返子树数据。
'参 数：ParentID ----父节点ID, FolderID ----选择项ID
'返回值：标签目录子树列表
'************************************************************************************
Public Function ReturnSubLabelFolderTree(ParentID, FolderID)
Dim SubTypeList, SubRS, SpaceStr, k, Total, Num,FolderName, ID,TJ
Set SubRS = Server.CreateObject("ADODB.RECORDSET")
SubRS.Open ("Select count(ID) AS total from KS_LabelFolder Where ParentID='" & ParentID & "'"), Conn, 1, 1
Total = SubRS("Total")
SubRS.Close
SubRS.Open ("Select ID,FolderName,TS from KS_LabelFolder Where ParentID='" & ParentID & "' Order BY AddDate Desc"), Conn, 1, 1
Num = 0
Do While Not SubRS.EOF
Num = Num + 1:SpaceStr = ""
TJ = UBound(Split(SubRS(2), ","))
For k = 1 To TJ - 1
If k = 1 And k <> TJ - 1 Then
SpaceStr = SpaceStr & " │"
ElseIf k = TJ - 1 Then
If Num = Total Then
SpaceStr = SpaceStr & " └ "
Else
SpaceStr = SpaceStr & " ├ "
End If
Else
SpaceStr = SpaceStr & " │"
End If
Next
ID = Trim(SubRS(0))
FolderName = Trim(SubRS(1))
If FolderID = ID Then
SubTypeList = SubTypeList & "<option selected value='" & ID & "'>" & SpaceStr & FolderName & "</option>"
Else
SubTypeList = SubTypeList & "<option value='" & ID & "'>" & SpaceStr & FolderName & "</option>"
End If
SubTypeList = SubTypeList & ReturnSubLabelFolderTree(ID, FolderID)
SubRS.MoveNext
Loop
SubRS.Close:Set SubRS = Nothing:ReturnSubLabelFolderTree = SubTypeList
End Function
'***********************************************************************************************************
'函数名：ReturnLabelInfo
'参 数：LabelName ---- 默认标签名称,FolderID---标签目录ID号,Descript---标签描述
'返回值：标签基本信息
'*************************************************************************************************************
Public Function ReturnLabelInfo(LabelName, FolderID, Descript)
ReturnLabelInfo = ("<table width=""96%"" border=""0"" cellspacing=""0"" cellpadding=""0"">")
ReturnLabelInfo = ReturnLabelInfo & (" <tr>")
ReturnLabelInfo = ReturnLabelInfo & (" <td>")
ReturnLabelInfo = ReturnLabelInfo & (" <FIELDSET align=center><LEGEND align=left>标签基本信息</LEGEND>")
ReturnLabelInfo = ReturnLabelInfo & (" <table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">")
ReturnLabelInfo = ReturnLabelInfo & (" <tr>")
ReturnLabelInfo = ReturnLabelInfo & (" <td height=""30"">标签名称")
ReturnLabelInfo = ReturnLabelInfo & (" <input name=""LabelName"" class=""textbox"" type=""text"" id=""LabelName"" value=""" & LabelName & """>")
ReturnLabelInfo = ReturnLabelInfo & (" <font color=""#FF0000""> *</font><font color=""#FF0000""> 例如标签名称："推荐文章列表"，则调用："{LB_推荐文章列表}"。</font></td>")
ReturnLabelInfo = ReturnLabelInfo & (" </tr>")
ReturnLabelInfo = ReturnLabelInfo & (" <tr>")
ReturnLabelInfo = ReturnLabelInfo & (" <td height=""30"">标签目录 " & ReturnLabelFolderTree(FolderID, 0) & "<font color=""#FF0000"">请选择标签归属目录，以便日后管理标签</font></td>")
ReturnLabelInfo = ReturnLabelInfo & (" </tr>")
ReturnLabelInfo = ReturnLabelInfo & (" <tr>")
ReturnLabelInfo = ReturnLabelInfo & (" <td height=""30"">标签描述")
ReturnLabelInfo = ReturnLabelInfo & (" <input name=""Descript"" class=""textbox"" type=""text"" id=""Descript"" value=""" & Descript & """ size=""40"">")
ReturnLabelInfo = ReturnLabelInfo & (" <font color=""#FF0000""> 请在此输入标签的说明,方便以后查找</font></td>")
ReturnLabelInfo = ReturnLabelInfo & (" </tr>")
ReturnLabelInfo = ReturnLabelInfo & (" </table>")
ReturnLabelInfo = ReturnLabelInfo & (" </FIELDSET></td>")
ReturnLabelInfo = ReturnLabelInfo & (" </tr>")
ReturnLabelInfo = ReturnLabelInfo & (" </table>")
End Function
'****************************************************************************************************************************
'函数名：ReturnJSInfo
'参 数：JSID--JSID号,JSName ---- 默认JS名称,JSFileName----JS文件名,FolderID---标签目录ID号,FolderType---目录类型,Descript---标签描述
'返回值：标签基本信息
'*******************************************************************************************************************************
Public Function ReturnJSInfo(JSID, JSName, JSFileName, FolderID, FolderType, Descript)
ReturnJSInfo = "<table width=""96%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
ReturnJSInfo = ReturnJSInfo & (" <tr>")
ReturnJSInfo = ReturnJSInfo & (" <td>")
ReturnJSInfo = ReturnJSInfo & (" <FIELDSET align=center><LEGEND align=left>JS基本信息</LEGEND>")
ReturnJSInfo = ReturnJSInfo & (" <table width=""100%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">")
ReturnJSInfo = ReturnJSInfo & (" <tr>")
ReturnJSInfo = ReturnJSInfo & (" <td height=""22"">JS 名 称")
ReturnJSInfo = ReturnJSInfo & (" <input name=""JSName"" type=""text"" class=""textbox"" id=""JSName"" value=""" & JSName & """>")
ReturnJSInfo = ReturnJSInfo & (" <font color=""#FF0000""> *</font><font color=""#FF0000""> 例如JS名称："推荐文章列表"，则在模板中调用："{JS_推荐文章列表}"（注意英文大小写及全半角）。</font></td>")
ReturnJSInfo = ReturnJSInfo & (" </tr>")
ReturnJSInfo = ReturnJSInfo & (" <tr>")
ReturnJSInfo = ReturnJSInfo & (" <td height=""22"">JS文件名")
If JSID <> "" Then
ReturnJSInfo = ReturnJSInfo & (" <input class=""textbox"" disabled=true name=""JSFileName"" type=""text"" id=""JSFileName"" title=""JS文件名：不能带\/：*？“ < > | 等特殊符号"" value=""" & JSFileName & """>")
Else
ReturnJSInfo = ReturnJSInfo & (" <input class=""textbox"" name=""JSFileName"" type=""text"" id=""JSFileName"" title=""JS文件名：不能带\/：*？“ < > | 等特殊符号"" value=""" & JSFileName & """>")
End If
ReturnJSInfo = ReturnJSInfo & (" <font color=""#FF0000""> * 例如 "News.js" 一定要以扩展名 ".js"结束</font></td>")
ReturnJSInfo = ReturnJSInfo & (" </tr>")
ReturnJSInfo = ReturnJSInfo & (" <tr>")
ReturnJSInfo = ReturnJSInfo & (" <td height=""22"">存放目录 " & ReturnLabelFolderTree(FolderID, FolderType) & " </td>")
ReturnJSInfo = ReturnJSInfo & (" </tr>")
ReturnJSInfo = ReturnJSInfo & (" <tr>")
ReturnJSInfo = ReturnJSInfo & (" <td height=""22"">JS 描 述")
ReturnJSInfo = ReturnJSInfo & (" <textarea class=""textbox"" name=""Descript"" cols=""60"" rows=""4"" id=""Descript"">" & Descript & "</textarea>")
ReturnJSInfo = ReturnJSInfo & (" <font color=""#FF0000""> 请在此输入JS的说明,方便以后查找</font></td>")
ReturnJSInfo = ReturnJSInfo & (" </tr>")
ReturnJSInfo = ReturnJSInfo & (" </table>")
ReturnJSInfo = ReturnJSInfo & (" </FIELDSET></td>")
ReturnJSInfo = ReturnJSInfo & (" </tr>")
ReturnJSInfo = ReturnJSInfo & (" </table>")
'采集搜索参数
ReturnJSInfo = ReturnJSInfo & ("<input type=""hidden"" name=""KeyWord"" value=""" & Request.QueryString("KeyWord") & """>")
ReturnJSInfo = ReturnJSInfo & ("<input type=""hidden"" name=""SearchType"" value=""" & Request.QueryString("SearchType") & """>")
ReturnJSInfo = ReturnJSInfo & ("<input type=""hidden"" name=""StartDate"" value=""" & Request.QueryString("StartDate") & """>")
ReturnJSInfo = ReturnJSInfo & ("<input type=""hidden"" name=""EndDate"" value=""" & Request.QueryString("EndDate") & """>")
End Function
'**************************************************
'函数名：ReturnDateFormat
'作 用：返回系统支持的日期格式
'参 数：SelectDate 预定选中的日期格式
'**************************************************
Public Function ReturnDateFormat(SelectDate)
Dim TempFormatDateStr, Str
If CStr(SelectDate) = "0" Then
TempFormatDateStr = ("<option value=""0"" Selected>-不显示日期-</option> ")
Else
TempFormatDateStr = ("<option value=""0"">-不显示日期-</option> ")
End If
If CStr(SelectDate) = "1" Then Str = " Selected" Else Str = ""
TempFormatDateStr = TempFormatDateStr & ("<option value=""1""" & Str & " >2005-10-1</option>")
If CStr(SelectDate) = "2" Then Str = " Selected" Else Str = ""
TempFormatDateStr = TempFormatDateStr & ("<option value=""2""" & Str & ">2005.10.1</option>")
If CStr(SelectDate) = "3" Then Str = " Selected" Else Str = ""
TempFormatDateStr = TempFormatDateStr & ("<option value=""3""" & Str & ">2005/10/1</option>")
If CStr(SelectDate) = "4" Then Str = " Selected" Else Str = ""
TempFormatDateStr = TempFormatDateStr & ("<option value=""4""" & Str & ">10/1/2005</option>")
If CStr(SelectDate) = "5" Then Str = " Selected" Else Str = ""
TempFormatDateStr = TempFormatDateStr & ("<option value=""5""" & Str & ">2005年10月</option>")
If CStr(SelectDate) = "6" Then Str = " Selected" Else Str = ""
TempFormatDateStr = TempFormatDateStr & ("<option value=""6""" & Str & ">2005年10月1日</option>")
If CStr(SelectDate) = "7" Then Str = " Selected" Else Str = ""
TempFormatDateStr = TempFormatDateStr & ("<option value=""7""" & Str & ">10.1.2005</option>")
If CStr(SelectDate) = "8" Then Str = " Selected" Else Str = ""
TempFormatDateStr = TempFormatDateStr & ("<option value=""8""" & Str & ">10-1-2005</option>")
If CStr(SelectDate) = "9" Then Str = " Selected" Else Str = ""
TempFormatDateStr = TempFormatDateStr & ("<option value=""9""" & Str & ">10/1</option>")
If CStr(SelectDate) = "10" Then Str = " Selected" Else Str = ""
TempFormatDateStr = TempFormatDateStr & ("<option value=""10""" & Str & ">10.1</option>")
If CStr(SelectDate) = "11" Then Str = " Selected" Else Str = ""
TempFormatDateStr = TempFormatDateStr & ("<option value=""11""" & Str & ">10月1日</option>")
If CStr(SelectDate) = "12" Then Str = " Selected" Else Str = ""
TempFormatDateStr = TempFormatDateStr & ("<option value=""12""" & Str & ">1日12时</option>")
If CStr(SelectDate) = "13" Then Str = " Selected" Else Str = ""
TempFormatDateStr = TempFormatDateStr & ("<option value=""13""" & Str & ">1日12点</option>")
If CStr(SelectDate) = "14" Then Str = " Selected" Else Str = ""
TempFormatDateStr = TempFormatDateStr & ("<option value=""14""" & Str & ">12时12分</option>")
If CStr(SelectDate) = "15" Then Str = " Selected" Else Str = ""
TempFormatDateStr = TempFormatDateStr & ("<option value=""15""" & Str & ">12:12</option>")
If CStr(SelectDate) = "16" Then Str = " Selected" Else Str = ""
TempFormatDateStr = TempFormatDateStr & ("<option value=""16""" & Str & ">10-1</option>")
ReturnDateFormat = TempFormatDateStr
End Function
'**************************************************
'函数名：ReturnOpenTypeStr
'作 用：返回系统支持的打开窗口方式(带可输入的下拉框)
'参 数：SelectValue 预定选中的链接目标
'**************************************************
Public Function ReturnOpenTypeStr(SelectValue)
ReturnOpenTypeStr = "<div style=""position:relative;"">链接目标"
ReturnOpenTypeStr = ReturnOpenTypeStr & "<span style=""margin-left:175px;width:18px;overflow:hidden;"">"
ReturnOpenTypeStr = ReturnOpenTypeStr & "<select style=""width:185px;margin-left:-167px"" onchange=""this.parentNode.nextSibling.value=this.value"">"
ReturnOpenTypeStr = ReturnOpenTypeStr & "<option value=""""></option>"
ReturnOpenTypeStr = ReturnOpenTypeStr & "<option value=""_blank""> _blank </option>"
ReturnOpenTypeStr = ReturnOpenTypeStr & "<option value=""_parent""> _parent </option>"
ReturnOpenTypeStr = ReturnOpenTypeStr & "<option value=""_self""> _self </option>"
ReturnOpenTypeStr = ReturnOpenTypeStr & "<option value=""_top""> _top </option>"
ReturnOpenTypeStr = ReturnOpenTypeStr & "</select>"
ReturnOpenTypeStr = ReturnOpenTypeStr & "</span>"
ReturnOpenTypeStr = ReturnOpenTypeStr & "<input name=""OpenType"" style=""width:175px;position:absolute;left:55px;"" value=""" & SelectValue & """>"
ReturnOpenTypeStr = ReturnOpenTypeStr & "</div>"
End Function
'**************************************************
'函数名：ReturnPictureStyle
'作 用：返回图片显示方式的标签(标签中心调用)
'参 数：PicStyle--默认选择的样式
'**************************************************
Public Function ReturnPictureStyle(PicStyle)
If PicStyle = "1" Then ReturnPictureStyle = ("<option value=""1"" selected>①:仅显示缩略图</option>") Else ReturnPictureStyle = ReturnPictureStyle & ("<option value=""1"">①:仅显示缩略图</option>")
If PicStyle = "2" Then ReturnPictureStyle = ReturnPictureStyle & ("<option value=""2"" selected>②:缩略图+名称:上下</option>") Else ReturnPictureStyle = ReturnPictureStyle & ("<option value=""2"">②:缩略图+名称:上下</option>")
If PicStyle = "3" Then ReturnPictureStyle = ReturnPictureStyle & ("<option value=""3"" selected>③:缩略图+(名称+简介:上下):左右</option>") Else ReturnPictureStyle = ReturnPictureStyle & ("<option value=""3"">③:缩略图+(名称+简介:上下):左右</option>")
If PicStyle = "4" Then ReturnPictureStyle = ReturnPictureStyle & ("<option value=""4"" selected>④:(名称+简介:上下)+缩略图:左右</option>") Else ReturnPictureStyle = ReturnPictureStyle & ("<option value=""4"">④:(名称+简介:上下)+缩略图:左右</option>")
If PicStyle = "5" Then ReturnPictureStyle = ReturnPictureStyle & ("<option value=""5"" selected>⑤:名称+添加日期:左右</option>") Else ReturnPictureStyle = ReturnPictureStyle & ("<option value=""5"">⑤:名称+添加日期:左右</option>")
End Function
'**************************************************
'函数名：ReturnFlashStyle
'作 用：返回Flash显示方式的标签(标签中心调用)
'参 数：PicStyle--默认选择的样式
'**************************************************
Public Function ReturnFlashStyle(PicStyle)
If PicStyle = "1" Then
ReturnFlashStyle = ("<option value=""1"" selected>①:仅显示Flash缩略图</option>")
Else
ReturnFlashStyle = ReturnFlashStyle & ("<option value=""1"">①:仅显示Flash缩略图</option>")
End If
If PicStyle = "2" Then
ReturnFlashStyle = ReturnFlashStyle & ("<option value=""2"" selected>②:Flash缩略图+名称:上下</option>")
Else
ReturnFlashStyle = ReturnFlashStyle & ("<option value=""2"">②:Flash缩略图+名称:上下</option>")
End If
If PicStyle = "3" Then
ReturnFlashStyle = ReturnFlashStyle & ("<option value=""3"" selected>③:缩略图+(名称+类别+作者+时间:上下):左右</option>")
Else
ReturnFlashStyle = ReturnFlashStyle & ("<option value=""3"">③:缩略图+(名称+类别+作者+时间:上下):左右</option>")
End If
If PicStyle = "4" Then
ReturnFlashStyle = ReturnFlashStyle & ("<option value=""4"" selected>④:缩略图+(名称+简介:上下):左右</option>")
Else
ReturnFlashStyle = ReturnFlashStyle & ("<option value=""4"">④:缩略图+(名称+简介:上下):左右</option>")
End If
If PicStyle = "5" Then
ReturnFlashStyle = ReturnFlashStyle & ("<option value=""5"" selected>⑤:名称+添加日期:左右</option>")
Else
ReturnFlashStyle = ReturnFlashStyle & ("<option value=""5"">⑤:名称+添加日期:左右</option>")
End If
If PicStyle = "6" Then
ReturnFlashStyle = ReturnFlashStyle & ("<option value=""6"" selected>⑥:缩略图+名称:上下</option>")
Else
ReturnFlashStyle = ReturnFlashStyle & ("<option value=""6"">⑥:缩略图+名称:上下</option>")
End If
If PicStyle = "7" Then
ReturnFlashStyle = ReturnFlashStyle & ("<option value=""7"" selected>⑦:缩略图+(名称+简介:上下):左右</option>")
Else
ReturnFlashStyle = ReturnFlashStyle & ("<option value=""7"">⑦:缩略图+(名称+简介:上下):左右</option>")
End If
End Function
'****************************************************************************
'函数名：GetFsoTypeStr
'作 用：返回系统支持的生成类型(.htm,.⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -