打完V9.5.131008后台标签管理，有些标签或目录不显示的修改-领先建站CMS提供服务商我们专注于CMS建站产品的研发

2626 查看	3 回复

主题：打完V9.5.131008后台标签管理，有些标签或目录不显示的修改 [收藏主题]

转到：

科汛官方当前离线

47268 主题	145 广播	405 粉丝

级别:管理员

用户积分:101604 分
登录次数:7935 次
注册时间:2006/12/7
最后登录:2023/12/14
创始人

科汛官方发表于：2013/10/11 15:18:08 | 只看该作者查看该作者主题楼主

做官网就用科汛智能建站系统!

问题如题：

解决方法；

打开admin/include/label_main.asp

找到613行左右，开始，如下代码

Sub showContent()
      dim i:i=0
Do While Not LabelRS.EOF
   Response.Write "<tr class='list' id='u" & LabelRS("id") &"'chk_iddiv('" & LabelRS("id") &"')""this.className='listmouseover'""this.className='list'"">"
   dim n
   for n=1 to 4
   Response.Write " <td width='40' class='splittd' style='text-align:center'><input ltype='" & LabelRS(4) &"' type='checkbox'chk_iddiv('" & LabelRS("id") &"')"" id='c" & LabelRS("id") &"' name='id' value='" & LabelRS("id") &"'/></td>"
   Response.Write " <td class='splittd' style='text-align:left'>"
            If LabelRS(4) = 0 Then
      Response.Write ("<img src=""../Images/Folder/Smallfolder.gif"" align=""absmiddle""> ")
   ElseIf LabelType = 1 Then
      Response.Write ("<img src=""../Images/Label/Label3.gif"" align=""absmiddle"">")
   ElseIF LabelType=5 Then
   Response.Write ("<img src=""../Images/Label/Label5.gif"" align=""absmiddle"">")
   ElseIF LabelType=7 Then
   Response.Write ("<img src=""../Images/Label/Label7.gif"" align=""absmiddle"">")
   Else
      Response.Write ("<img src=""../Images/Label/Label" & LabelRS(3) & ".gif"" align=""absmiddle"">")
   End If
  If LabelRS(4) = 0 Then
   Response.Write  "<a href=""javascript:;"" title=""进入该分类""OpenLabelFolder('" & LabelRS("id") &"')"">" & Replace(Replace(Replace(Replace( LabelRS(1), "{LB_", ""), "}", ""),"{SQL_",""),"{XML_","") &"</a>"
  Else
   Response.Write  "<a href=""javascript:;"" title=""修改该标签""EditLabel('','" & LabelRS("id") &"')"">" & Replace(Replace(Replace(Replace( LabelRS(1), "{LB_", ""), "}", ""),"{SQL_",""),"{XML_","") &"</a>"
  End If

   response.write "("
   If LabelRS(4) = 0 Then
response.write "<a href=""javascript:;""EditFolder('" & LabelRS(0) & "')""  title=""修改标签目录"" style='font-size:11px'>修改</a> <a href=""javascript:;""DelFolder('" & LabelRS(0) & "');"" title=""删除标签目录"" style='font-size:11px'>删除</a>"
Else
response.write "<a href=""javascript:;""Pastek('','" & LabelRS(0) & "')"" title=""克隆标签"" style='font-size:11px'>克隆</a>"

If LabelType=1 Then
response.write " <a href=""javascript:;""EditByText('" & LabelRS(0) & "')"" title=""可视修改标签"" style='font-size:11px'>可视修改</a>"
response.write " <a href=""javascript:;""EditLabel('','" & LabelRS(0) & "')"" title=""文本修改标签"" style='font-size:11px'>文本修改</a>"
Else
response.write " <a href=""javascript:;""EditLabel('','" & LabelRS(0) & "')"" title=""修改标签"" style='font-size:11px'>修改</a>"
End If
response.write " <a href=""javascript:;""DelLabel('" & LabelRS(0) & "');"" title=""删除标签"" style='font-size:11px'>删除</a>"
End If
response.write ")"

   Response.Write "</td>"
' Response.Write " <td class='splittd' style='text-align:center'>" & LabelRS("AddDate") & "</td>"

   LabelRS.MoveNext
   If LabelRS.Eof Then Exit For
   next

   Response.Write "</tr>"
    i=i+1
if LabelRS.Eof then exit do
   LabelRS.MoveNext
   If i >= MaxPerPage  Then Exit Do
Loop
LabelRS.Close

  End Sub

改成

   LabelRS.MoveNext
   If LabelRS.Eof Then Exit For
   next

   Response.Write "</tr>"
if LabelRS.Eof then exit do
   If i >= MaxPerPage  Then Exit Do
Loop
LabelRS.Close

  End Sub

KesionCMS,,

做考试题库就用#科汛在线考试系统!