Microsoft VBScript 编译器错误
  错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft VBScript 运行时错误
  错误 '800a0005'

无效的过程调用或参数: 'Mid'

/admin/Admin_Article.asp，行1195

找到错误原因了不知道怎么解决，如下面图
 

此主题相关图片如下：

Fname这个表的前三条新闻是手动加的后缀是.html

后4条是采集的后缀没有.html

科汛老大怎办？

[此贴子已经被作者于2007-3-12 16:37:22编辑过]

是官方提供的，都没改动过

红色是1195行的代码，哪位高人帮看看

     TitleType      = Trim(KS_RS_Obj("TitleType"))
    Title          = Trim(KS_RS_Obj("title"))
    Fulltitle      = Trim(KS_RS_Obj("Fulltitle"))
    ShowComment    = KS_RS_Obj("ShowComment")
    TitleFontColor = Trim(KS_RS_Obj("TitleFontColor"))
    TitleFontType  = Trim(KS_RS_Obj("TitleFontType"))
    Subtitle       = Trim(KS_RS_Obj("SubTitle"))
    PicUrl         = Trim(KS_RS_Obj("PicUrl"))
    PicNews        = CInt(KS_RS_Obj("PicNews"))
    SpecialID      = Trim(KS_RS_Obj("SpecialID"))
    Rolls          = CInt(KS_RS_Obj("Rolls"))
    Changes        = CInt(KS_RS_Obj("Changes"))
    Recommend      = CInt(KS_RS_Obj("Recommend"))
    Strip          = CInt(KS_RS_Obj("Strip"))
    Popular        = CInt(KS_RS_Obj("Popular"))
    Verific        = CInt(KS_RS_Obj("Verific"))
    IsTop          = Cint(KS_RS_Obj("IsTop"))
    Comment        = CInt(KS_RS_Obj("Comment"))
    Slide          = CInt(KS_RS_Obj("Slide"))
    BeyondSavePic  = CInt(KS_RS_Obj("BeyondSavePic"))
    AddDate        = CDate(KS_RS_Obj("AddDate"))
    Rank           = Trim(KS_RS_Obj("Rank"))
    FileName       = KS_RS_Obj("Fname")
    If CInt(Changes) <>1 Then
    ArticleFnameType = Trim(Mid(Trim(FileName), InStrRev(Trim(FileName), ".")))
    end if
    ArticleTemplateID = CInt(KS_RS_Obj("TemplateID"))
    ArticleFsoType = CInt(KS_RS_Obj("ArticleFsoType"))
    Hits = Trim(KS_RS_Obj("Hits"))
    KeyWords = Trim(KS_RS_Obj("KeyWords"))
    Author = Trim(KS_RS_Obj("Author"))
    Origin = Trim(KS_RS_Obj("Origin"))
    Editor = Trim(KS_RS_Obj("Editor"))
    Intro=KS_RS_Obj("Intro")
    

[此贴子已经被作者于2007-3-12 16:19:31编辑过]

文章系统的

手动加的文章没这个问题，采集的文章有

[此贴子已经被作者于2007-3-11 18:45:30编辑过]