V6中的单页面无法访问-领先建站CMS提供服务商我们专注于CMS建站产品的研发

4309 查看	8 回复

主题：V6中的单页面无法访问 [收藏主题]

转到：

setep 当前离线

8 主题	0 广播	0 粉丝

级别:学前班

用户积分:318 分
登录次数:9 次
注册时间:2009/6/13
最后登录:2010/1/21

setep 发表于：2009/8/24 11:09:00 | 只看该作者查看该作者主题楼主

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

在文章系统新建了一个单页面，但是预览的时候无法显示，问题如下：

技术信息（用于支持人员）

错误类型：
Microsoft JET Database Engine (0x80040E14)
FROM 子句语法错误。
/KS_Cls/Kesion.Label.BaseFunCls.asp, 第 131 行
浏览器类型：
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; Trident/4.0; Foxy/1; .NET CLR 2.0.50727; 360SE)
网页：
GET /index.asp

找到/KS_Cls/Kesion.Label.BaseFunCls.asp, 第 131 行
附近代码内容如下：

'*********************************************************************************************************
  '函数名：ReplacePrevNext
  '作用：上一篇、下一篇
  '参数：NowID 现在ID,Tid 目录ID,TypeStr类型
  '*********************************************************************************************************
  Function GetPrevNextURL(ChannelID,NowID, Tid, TypeStr,ByRef Title)
       Dim SqlStr,LinkUrl
       SqlStr="SELECT Top 1 ID,Title,Tid,Fname From " & KS.C_S(ChannelID,2) & " Where Tid='" & Tid & "' And ID" & TypeStr & NowID & " And Verific=1 and DelTF=0 Order By ID"
    If TypeStr=">" Then SqlStr=SqlStr & " asc" else SqlStr=SqlStr & " desc"
    Dim RS:Set RS=Conn.Execute(SqlStr) //这里就是第131行
    If RS.EOF And RS.BOF Then
     GetPrevNextURL = "#" : Title = "没有了"
    Else
     LinkUrl = KS.GetItemURL(ChannelID,RS(2),RS(0),RS(3))
     GetPrevNextURL = LinkUrl : Title= "<a href=""" & LinkUrl & """ title=""" & RS(1) & """>" & RS(1) & "</a>"
    End If
    RS.Close:Set RS = Nothing
  End Function
  Function ReplacePrevNext(ChannelID,NowID, Tid, TypeStr)
       Dim Title
    Call GetPrevNextURL(ChannelID,NowID, Tid, TypeStr,Title)
    ReplacePrevNext=Title
  End Function


  '替换自定义字段
  Function ReplaceUserDefine(ChannelID,F_C,ByVal RS)
     If Not IsObject(Application(KS.SiteSN&"_userfiledlist"&channelid)) Then
       Set Application(KS.SiteSN&"_userfiledlist"&channelid)=KS.InitialObject("msxml2.FreeThreadedDOMDocument"& MsxmlVersion)
    Application(KS.SiteSN&"_userfiledlist"&channelid).appendChild(Application(KS.SiteSN&"_userfiledlist"&channelid).createElement("xml"))
    Dim D_F_Arr,K,Node,FieldName
    Dim KS_RS_Obj:Set KS_RS_Obj=Conn.Execute("Select FieldName From KS_Field Where ChannelID=" & ChannelID &" And ShowOnForm=1 Order By OrderID Asc")
    If Not KS_RS_Obj.Eof Then D_F_Arr=KS_RS_Obj.GetRows(-1)
       KS_RS_Obj.Close:Set KS_RS_Obj=Nothing
    If IsArray(D_F_Arr) Then
       For K=0 To Ubound(D_F_Arr,2)
      Set Node=Application(KS.SiteSN&"_userfiledlist"&channelid).documentElement.appendChild(Application(KS.SiteSN&"_userfiledlist"&channelid).createNode(1,"userfiledlist"&channelid,""))
      Node.attributes.setNamedItem(Application(KS.SiteSN&"_userfiledlist"&channelid).createNode(2,"fieldname","")).text=D_F_Arr(0,K)
      Next
     End If
   End If

   For Each Node in Application(KS.SiteSN&"_userfiledlist"&channelid).documentElement.SelectNodes("userfiledlist"&channelid)
       FieldName=Node.selectSingleNode("@fieldname").text
   If Not IsNull(RS(FieldName)) Then
     F_C=Replace(F_C,"{$" & FieldName & "}",RS(FieldName))
   Else
     F_C=Replace(F_C,"{$" & FieldName & "}","")
   End If
   Next

  ReplaceUserDefine=F_C
End Function

费解，不知道怎么回事，麻烦知道的告诉我下，在线等，也可以联系我QQ：83970496

有课程找生源就上科汛课堂街