<%
function loadtempletfile(byval path)
    on error resume next
    dim objstream
    set objstream = server.createobject("adodb.stream")
    with objstream
        .type = 2
        .mode = 3
        .open
        .loadfromfile server.mappath(path)
        if err.number <> 0 then
            err.clear
             response.write("预加载的模板[" & path & "]不存在!")
            response.end()
        end if
        .charset = "" & chrset & ""
        .position = 2
            loadtempletfile = .readtext
        .close
    end with
    set objstream = nothing
end function

function movefiles(sFolder,dFolder)
    on error resume next
    dim fso
    set fso = server.createobject("scripting.filesystemobject")
    if fso.folderexists(server.mappath(sFolder)) and fso.folderexists(server.mappath(dFolder)) then
        fso.copyfolder server.mappath(sFolder),server.mappath(dFolder)
        movefiles = true
    else
        movefiles = false
        set fso = nothing
        call alertbox("系统没有找到指定的路径[" & sFolder & "]!",2)
    end if
    set fso = nothing
end function

function renamefolder(sFolder,dFolder)
    on error resume next
    dim fso
    set fso = server.createobject("scripting.filesystemobject")
    if fso.folderexists(server.mappath(sFolder)) then
        fso.movefolder server.mappath(sFolder),server.mappath(dFolder)
        renamefolder = true
    else
        renamefolder = false
        set fso = nothing
        call alertbox("系统没有找到指定的路径[" & sFolder & "]!",2)
    end if
    set fso = nothing
end function

function checkfolder(sPATH)
    on error resume next
    dim fso
    set fso = server.createobject("scripting.filesystemobject")
    if fso.folderexists(server.mappath(sPATH)) then
        checkfolder = true
    else
        checkfolder = false
    end if
    set fso = nothing
end function

function checkfile(sPATH)
    on error resume next
    dim fso
    set fso = server.createobject("scripting.filesystemobject")
    if fso.fileexists(server.mappath(sPATH)) then
        checkfile = true
    else
        checkfile = false
    end if
    set fso = nothing
end function

function createdir(sPATH)
    dim fso,pathArr,i,path_Level,pathTmp,cPATH
    on error resume next
    sPATH = replace(sPATH,"\","/")
    set fso = server.createobject("scripting.filesystemobject")
        pathArr = split(sPATH,"/")
        path_Level = ubound(pathArr)
        for i = 0 to path_Level
            if i = 0 then pathTmp = pathArr(0) & "/" else pathTmp = pathTmp&pathArr(i) & "/"
            cPATH = left(pathTmp,len(pathTmp)-1)
            if not fso.folderexists(cPATH) then fso.createfolder(cPATH)
        next
    set fso = nothing
    if err.number <> 0 then
        err.clear
        createdir = false
    else
        createdir = true
    end if
end function

function delclassfolder(sPATH)
    on error resume next
    dim fso
    set fso = server.createobject("scripting.filesystemobject")
    if fso.folderexists(server.mappath(sPATH)) then
        fso.deletefolder(server.mappath(sPATH))
    end if
    set fso = nothing
end function

function delnewsfile(sPATH,filename)
    on error resume next
    dim fso,tempArr,cPATH,ePATH,i:i = 0
    set fso = server.createobject("scripting.filesystemobject")
    sPATH = sPATH & filename & site_extname
    if fso.fileexists(server.mappath(sPATH)) then
        fso.deletefile(server.mappath(sPATH))
        while(i <> -1)
            i = i + 1
            ePATH = replace(sPATH,filename & ".",filename & "_" & i + 1 & ".")
            if fso.fileexists(server.mappath(ePATH)) then
                fso.deletefile(server.mappath(ePATH))
            else
                i = -1
            end if
        wend
    end if
end function

class stringclass
    public function getstr(strhtml)
        dim PatrnStr
            PatrnStr="<.*?>"
        dim objRegEx
        set objRegEx = new RegExp
            objRegEx.pattern = PatrnStr
            objRegEx.ignorecase = true
            objRegEx.global = true
        getstr = objRegEx.replace(strhtml,"")
        set objRegEx = nothing
    end function
    public function replacestr(patrn,mstr,replstr)
        dim objRegEx
        set objRegEx = new RegExp
            objRegEx.pattern = patrn
            objRegEx.ignorecase = true
            objRegEx.global = true
        replacestr = objRegEx.replace(mstr,replstr)
        set objRegEx = nothing
    end function
    public function classcustomtag(byval patrn,byval mstr,byval classid,byval indexid,byval pagestr)
        dim objRegEx,match,matches
        set objRegEx = new RegExp
            objRegEx.pattern = patrn
            objRegEx.ignorecase = true
            objRegEx.global = true
        set matches = objRegEx.execute(mstr)
        for each match in matches
            mstr = replace(mstr,match.value,parseclasstag(match.value,classid,indexid,pagestr))
        next
        set matches = nothing
        set objRegEx = nothing
        classcustomtag = mstr
    end function
    public function newscustomtag(byval patrn,byval mstr,byval classid,byval newsid,byval keywords)
        dim objRegEx,match,matches
        set objRegEx = new RegExp
            objRegEx.pattern = patrn
            objRegEx.ignorecase = true
            objRegEx.global = true
        set matches = objRegEx.execute(mstr)
        for each match in matches
            mstr = replace(mstr,match.value,parsenewstag(match.value,classid,newsid,keywords))
        next
        set matches = nothing
        set objRegEx = nothing
        newscustomtag = mstr
    end function
end class

function processcustomtag(byval scontent)
    dim objRegEx,match,matches
    set objRegEx = new RegExp
        objRegEx.pattern = "{ncms:[^<>]+?\/}"
        objRegEx.ignorecase = true
        objRegEx.global = true
    set matches = objRegEx.execute(scontent)
    for each match in matches
        scontent = replace(scontent,match.value,parsetag(match.value))
    next
    set matches = nothing
    set objRegEx = nothing
    processcustomtag = scontent
end function

function X_processcustomtag(byval scontent)
    dim objRegEx,match,matches
    set objRegEx = new RegExp
        objRegEx.pattern = "(\[ncms:).+?(\])(.|\n)+?(\[\/ncms\])"
        objRegEx.ignorecase = true
        objRegEx.global = true
    set matches = objRegEx.execute(scontent)
    for each match in matches
        scontent = replace(scontent,match.value,parsetag(match.value))
    next
    set matches = nothing
    set objRegEx = nothing
    X_processcustomtag = scontent
end function

function getattribute(byval strattribute,byval strtag)
    dim objRegEx,matches
    set objRegEx = new RegExp
        objRegEx.pattern = lcase(strattribute)&"=""[0-9a-zA-Z]*"""
        objRegEx.ignorecase = true
        objRegEx.global = true
    set matches = objRegEx.execute(strtag)
    if matches.count > 0 then
        getattribute = split(matches(0).value,"""")(1)
    else
        getattribute = ""
    end if
    set matches = nothing
    set objRegEx = nothing
end function

function getinnerhtml(byval strhtml)
    dim objregex,matches,str
    set objregex = new regexp
    objregex.pattern = "(\])(.|\n)+?(\[\/ncms\])"
    objregex.ignorecase = true
    objregex.global = false
    set matches = objregex.execute(strhtml)
        if matches.count > 0 then
            str = trim(matches.item(0).value)
        end if
    set matches = nothing
    if len(str) > 8 then
        getinnerhtml = mid(str,2,len(str) - 8)
    end if
end function

function parsetag(byval strtag)
    dim arrresult,classname,arrattributes,objclass
    if len(strtag) = 0 then exit function
    arrresult = split(strtag,":")
    classname = split(arrresult(1)," ")(0)
    select case lcase(classname)
        case "news"
            set objclass = new ncmsnewstag
                if not isnumeric(getattribute("id",strtag)) then
                    response.write("标签[ncms:news]参数错误!参数[id]必须是数字!")
                    response.end()
                end if
                objclass.id = getattribute("id",strtag)
                if not isnumeric(getattribute("num",strtag)) then
                    response.write("标签[ncms:news]参数错误!参数[num]必须是数字!")
                    response.end()
                end if
                objclass.num = getattribute("num",strtag)
                if not isnumeric(getattribute("len",strtag)) then
                    response.write("标签[ncms:news]参数错误!参数[len]必须是数字!")
                    response.end()
                end if
                objclass.len = getattribute("len",strtag)
                objclass.show = getattribute("show",strtag)
                if getattribute("lih",strtag) <> "" and not isnumeric(getattribute("lih",strtag)) then
                    response.write("标签[ncms:news]参数错误!参数[lih]必须是数字!")
                    response.end()
                end if
                objclass.lih = getattribute("lih",strtag)
                if getattribute("imgw",strtag) <> "" and not isnumeric(getattribute("imgw",strtag)) then
                    response.write("标签[ncms:news]参数错误!参数[imgw]必须是数字!")
                    response.end()
                end if
                objclass.imgw = getattribute("imgw",strtag)
                if getattribute("imgh",strtag) <> "" and not isnumeric(getattribute("imgh",strtag)) then
                    response.write("标签[ncms:news]参数错误!参数[imgh]必须是数字!")
                    response.end()
                end if
                objclass.imgh = getattribute("imgh",strtag)
                if getattribute("tgt",strtag) <> "" and getattribute("tgt",strtag) <> "blank" then
                    response.write("标签[ncms:news]参数错误!参数[tgt]必须是[<font color=""red"">blank</font>]!")
                    response.end()
                end if
                objclass.tgt = getattribute("tgt",strtag)
                if getattribute("hit",strtag) <> "" and not isnumeric(getattribute("hit",strtag)) then
                    response.write("标签[ncms:free]参数错误!参数[hit]必须是数字!")
                    response.end()
                end if
                objclass.hit = getattribute("hit",strtag)
                if not isnumeric(getattribute("col",strtag)) then
                    response.write("标签[ncms:news]参数错误!参数[col]必须是数字!")
                    response.end()
                end if
                parsetag = objclass.newsshow(getattribute("ty",strtag),getattribute("col",strtag))
            set objclass = nothing
        case "free"
            set objclass = new X_ncmsnewstag
                if not isnumeric(getattribute("id",strtag)) then
                    response.write("标签[ncms:free]参数错误!参数[id]必须是数字!")
                    response.end()
                end if
                objclass.id = getattribute("id",strtag)
                if not isnumeric(getattribute("num",strtag)) then
                    response.write("标签[ncms:free]参数错误!参数[num]必须是数字!")
                    response.end()
                end if
                objclass.num = getattribute("num",strtag)
                if not isnumeric(getattribute("len",strtag)) then
                    response.write("标签[news:free]参数错误!参数[len]必须是数字!")
                    response.end()
                end if
                objclass.len = getattribute("len",strtag)
                objclass.show = getattribute("show",strtag)
                if getattribute("lih",strtag) <> "" and not isnumeric(getattribute("lih",strtag)) then
                    response.write("标签[ncms:free]参数错误!参数[lih]必须是数字!")
                    response.end()
                end if
                objclass.lih = getattribute("lih",strtag)
                if getattribute("hit",strtag) <> "" and not isnumeric(getattribute("hit",strtag)) then
                    response.write("标签[ncms:free]参数错误!参数[hit]必须是数字!")
                    response.end()
                end if
                objclass.hit = getattribute("hit",strtag)
                if not isnumeric(getattribute("col",strtag)) then
                    response.write("标签[ncms:free]参数错误!参数[col]必须是数字!")
                    response.end()
                end if
                parsetag = objclass.newsshow(getattribute("ty",strtag),getattribute("col",strtag),getinnerhtml(strtag))
        case "menu"
            set objclass = new ncmsmenutag
                parsetag = objclass.menushow(getattribute("show",strtag))
            set objclass = nothing
        case "info"
            set objclass = new ncmsinfotag
                if not isnumeric(getattribute("num",strtag)) then
                    response.write("标签[ncms:info]参数错误!参数[num]必须是数字!")
                    response.end()
                end if
                objclass.num = getattribute("num",strtag)
                if not isnumeric(getattribute("len",strtag)) then
                    response.write("标签[ncms:info]参数错误!参数[len]必须是数字!")
                    response.end()
                end if
                objclass.len = getattribute("len",strtag)
                parsetag = objclass.infoshow()
            set objclass = nothing
        case "head"
            set objclass = new ncmsheadtag
                if not isnumeric(getattribute("num",strtag)) then
                    response.write("标签[ncms:head]参数错误!参数[num]必须是数字!")
                    response.end()
                elseif getattribute("num",strtag) > 6 then
                    response.write("标签[ncms:head]参数错误!参数[num]在[1-6]之间!")
                    response.end()
                end if
                objclass.num = getattribute("num",strtag)
                if not isnumeric(getattribute("len",strtag)) then
                    response.write("标签[ncms:head]参数错误!参数[len]必须是数字!")
                    response.end()
                end if
                objclass.len = getattribute("len",strtag)
                if getattribute("imgw",strtag) <> "" and not isnumeric(getattribute("imgw",strtag)) then
                    response.write("标签[ncms:head]参数错误!参数[imgw]必须是数字!")
                    response.end()
                end if
                objclass.imgw = getattribute("imgw",strtag)
                if getattribute("imgh",strtag) <> "" and not isnumeric(getattribute("imgh",strtag)) then
                    response.write("标签[ncms:head]参数错误!参数[imgh]必须是数字!")
                    response.end()
                end if
                objclass.imgh = getattribute("imgh",strtag)
                if getattribute("size",strtag) <> "" and not isnumeric(getattribute("size",strtag)) then
                    response.write("标签[ncms:head]参数错误!参数[size]必须是数字!")
                    response.end()
                end if
                objclass.size = getattribute("size",strtag)
                parsetag = objclass.headshow(getattribute("ty",strtag))
            set objclass = nothing
        case "link"
            set objclass = new ncmslinktag
                if not isnumeric(getattribute("num",strtag)) then
                    response.write("标签[ncms:link]参数错误!参数[num]必须是数字!")
                    response.end()
                end if
                objclass.num = getattribute("num",strtag)
                if not isnumeric(getattribute("col",strtag)) then
                    response.write("标签[ncms:link]参数错误!参数[col]必须是数字!")
                    response.end()
                end if
                parsetag = objclass.linkshow(getattribute("ty",strtag),getattribute("col",strtag))
            set objclass = nothing
        case else
            response.write("标签[ncms:xxx]构造错误!")
            response.end()
    end select
end function

function parseclasstag(byval strtag,byval classid,byval indexid,byval pagestr)
    dim arrresult,classname,arrattributes,objclass
    if len(strtag) = 0 then exit function
    arrresult = split(strtag,":")
    classname = split(arrresult(1)," ")(0)
    select case lcase(classname)
        case "list"
            set objclass = new ncmsclasstag
                if not isnumeric(getattribute("len",strtag)) then
                    response.write("标签[news:list]参数错误!参数[len]必须是数字!")
                    response.end()
                end if
                objclass.len = getattribute("len",strtag)
                objclass.order = getattribute("order",strtag)
                if getattribute("lih",strtag) <> "" and not isnumeric(getattribute("lih",strtag)) then
                    response.write("标签[news:list]参数错误!参数[lih]必须是数字!")
                    response.end()
                end if
                objclass.lih = getattribute("lih",strtag)
                if not isnumeric(getattribute("col",strtag)) then
                    response.write("标签[news:list]参数错误!参数[col]必须是数字!")
                    response.end()
                end if
                parseclasstag = objclass.classshow(getattribute("ty",strtag),getattribute("col",strtag),classid,indexid,pagestr)
            set objclass = nothing
        case else
            response.write("标签[news:xxxx]构造错误!")
            response.end()
    end select
end function

function parsenewstag(byval strtag,byval classid,byval newsid,byval keywords)
    dim arrresult,classname,arrattributes,objclass
    if len(strtag) = 0 then exit function
    arrresult = split(strtag,":")
    classname = split(arrresult(1)," ")(0)
    select case lcase(classname)
        case "relate"
            set objclass = new ncmsrelatetag
                if not isnumeric(getattribute("num",strtag)) then
                    response.write("标签[news:relate]参数错误!参数[num]必须是数字!")
                    response.end()
                end if
                objclass.num = getattribute("num",strtag)
                if not isnumeric(getattribute("len",strtag)) then
                    response.write("标签[news:relate]参数错误!参数[len]必须是数字!")
                    response.end()
                end if
                objclass.len = getattribute("len",strtag)
                if getattribute("lih",strtag) <> "" and not isnumeric(getattribute("lih",strtag)) then
                    response.write("标签[news:relate]参数错误!参数[lih]必须是数字!")
                    response.end()
                end if
                objclass.lih = getattribute("lih",strtag)
                if not isnumeric(getattribute("col",strtag)) then
                    response.write("标签[news:relate]参数错误!参数[col]必须是数字!")
                    response.end()
                end if
                parsenewstag = objclass.relateshow(getattribute("col",strtag),classid,newsid,keywords)
            set objclass = nothing
        case "page"
            set objclass = new ncmspagetag
                parsenewstag = objclass.pageshow(getattribute("show",strtag),classid,newsid)
            set objclass = nothing
        case else
            response.write("标签[news:xxxx]构造错误!")
            response.end()
    end select
end function

function getcurclasscount(classid)
    dim rs,curclasscount
    set rs = conn.execute("select count(*) from NCMS_news where classid in(" & classid & allchildclass(classid) & ")")
    if instr(rs(0)/n_listnum,".") <> 0 then
        curclasscount = fix(rs(0)/n_listnum) + 1
    else
        curclasscount = rs(0)/n_listnum
    end if
    rs.close:set rs = nothing
    getcurclasscount = curclasscount
end function

class ncmsclasstag
    public ty,len,order,lih
    public function classshow(stype,scolumn,classid,indexid,pagestr)
        dim TempHTM,xsql,rs,sql,databox,l,obox
            TempHTM = "" & chr(10) & "<table cellpadding=""0"" cellspacing=""0"" width=""100%"" border=""0"">" & chr(10)
            TempHTM = TempHTM & "<tr>" & chr(10)
        if indexid = "" or indexid = 0 then
            indexid = 1
        end if
        select case stype
            case "text"
                set rs = server.createobject("adodb.recordset")
                if order = "desc" then
                    sql = "select classid,title,click,filename,addtime from NCMS_news where classid in(" & classid & allchildclass(classid) & ") and created=1 and pagetype=0 order by id desc"
                elseif order = "asc" then
                    sql = "select classid,title,click,filename,addtime from NCMS_news where classid in(" & classid & allchildclass(classid) & ") and created=1 and pagetype=0 order by id asc"
                else
                    response.write("标签[news:list]参数[order]错误!")
                    response.end()
                end if
                rs.cursorlocation = 3
                rs.open sql,conn,1,3
                if rs.eof then
                    rs.close:set rs = nothing
                    TempHTM = "<li><font color=""red"">暂时没有新闻!</font></li>"
                    classshow = TempHTM
                    exit function
                end if
                rs.pagesize = n_listnum
                rs.absolutepage = indexid
                for l = 1 to rs.pagesize
                    if rs.eof then exit for
                    TempHTM = TempHTM & "<td height=""" & lih & """ align=""left"" valign=""middle"">·<a href=""" & site_root & "/" & site_html & "/" & getclasspath(rs("classid")) & "/" & rs("filename") & site_extname & """ title=""" & rs("title") & """>" & gottopic(rs("title"),len) & "</a></td>" & chr(10)
                    TempHTM = TempHTM & "<td height=""" & lih & """ align=""center"" valign=""middle"">" & rs("click") & "</td>" & chr(10)
                    TempHTM = TempHTM & "<td height=""" & lih & """ align=""center"" valign=""middle"">" & rs("addtime") & "</td>" & chr(10)
                    if l = rs.pagesize then
                        TempHTM = TempHTM & "</tr>" & chr(10)
                    else
                        if cint(l mod scolumn) = 0 then
                            TempHTM = TempHTM & "</tr>" & chr(10)
                            TempHTM = TempHTM & "<tr>" & chr(10)
                        end if
                    end if
                    rs.movenext
                next
                rs.close:set rs = nothing
                TempHTM = TempHTM & "</table>" & chr(10)
                classshow = TempHTM & pagestr
            case "image"
                if IsObjInstalled("persits.jpeg") = true and jpeg_gate = 0 then
                    set rs = server.createobject("adodb.recordset")
                    if order = "desc" then
                        sql = "select classid,title,bimg,filename,addtime from NCMS_news where classid in(" & classid & allchildclass(classid) & ") and isimg=1 and created=1 and pagetype=0 order by id desc"
                    elseif order = "asc" then
                        sql = "select classid,title,bimg,filename,addtime from NCMS_news where classid in(" & classid & allchildclass(classid) & ") and isimg=1 and created=1 and pagetype=0 order by id asc"
                    else
                        response.write("标签[news:list]参数[order]错误!")
                        response.end()
                    end if
                    rs.cursorlocation = 3
                    rs.open sql,conn,1,3
                    if rs.eof then
                        rs.close:set rs = nothing
                        TempHTM = "<li><font color=""red"">暂时没有新闻!</font></li>"
                        classshow = TempHTM
                        exit function
                    end if
                    rs.pagesize = n_listnum
                    rs.absolutepage = indexid
                    for l = 1 to rs.pagesize
                        if rs.eof then exit for
                        TempHTM = TempHTM & "<td><div id=""simg""><a href=""" & site_root & "/" & site_html & "/" & getclasspath(rs("classid")) & "/" & rs("filename") & site_extname & """><img height=""" & jpeg_height & """ src="/UploadFiles/2021-04-02/">                        if l = rs.pagesize then
                            TempHTM = TempHTM & "</tr>" & chr(10)
                        else
                            if cint(l mod scolumn) = 0 then
                                TempHTM = TempHTM & "</tr>" & chr(10)
                                TempHTM = TempHTM & "<tr>" & chr(10)
                            end if
                        end if
                        if checkfile("" & site_root & "/" & site_upload & "/" & site_bimg & "/" & rs("bimg") & "") = true then
                            set obox = server.createobject("persits.jpeg")
                                obox.open server.mappath("" & site_root & "/" & site_upload & "/" & site_bimg & "/" & rs("bimg") & "")
                                obox.width = jpeg_width
                                obox.height = jpeg_height
                                obox.save server.mappath("" & site_root & "/" & site_upload & "/" & site_simg & "/" & rs("bimg") & "")
                            set obox = nothing
                        end if
                        rs.movenext
                    next
                    rs.close:set rs = nothing
                    TempHTM = TempHTM & "</table>" & chr(10)
                    classshow = TempHTM & pagestr
                else
                    set rs = server.createobject("adodb.recordset")
                    if order = "desc" then
                        sql = "select classid,title,bimg,filename,addtime from NCMS_news where classid in(" & classid & allchildclass(classid) & ") and isimg=1 and created=1 and pagetype=0 order by id desc"
                    elseif order = "asc" then
                        sql = "select classid,title,bimg,filename,addtime from NCMS_news where classid in(" & classid & allchildclass(classid) & ") and isimg=1 and created=1 and pagetype=0 order by id asc"
                    else
                        response.write("标签[news:list]参数[order]错误!")
                        response.end()
                    end if
                    rs.cursorlocation = 3
                    rs.open sql,conn,1,3
                    if rs.eof then
                        rs.close:set rs = nothing
                        TempHTM = "<li><font color=""red"">暂时没有新闻!</font></li>"
                        classshow = TempHTM
                        exit function
                    end if
                    rs.pagesize = n_listnum
                    rs.absolutepage = indexid
                    for l = 1 to rs.pagesize
                        if rs.eof then exit for
                        TempHTM = TempHTM & "<td><div id=""simg""><a href=""" & site_root & "/" & site_html & "/" & getclasspath(rs("classid")) & "/" & rs("filename") & site_extname & """><img height=""" & jpeg_height & """ src="/UploadFiles/2021-04-02/">                        if l = rs.pagesize then
                            TempHTM = TempHTM & "</tr>" & chr(10)
                        else
                            if cint(l mod scolumn) = 0 then
                                TempHTM = TempHTM & "</tr>" & chr(10)
                                TempHTM = TempHTM & "<tr>" & chr(10)
                            end if
                        end if
                        rs.movenext
                    next
                    rs.close:set rs = nothing
                    TempHTM = TempHTM & "</table>" & chr(10)
                    classshow = TempHTM & pagestr
                end if
            case else
                response.write("标签[news:list]参数[ty]错误!")
                response.end()
        end select
    end function
end class
1234下一页阅读全文