zzzcms网站微信分享的链接打开500报错，解决办法

最新推荐文章于 2022-02-25 09:53:56 发布

梦想与想象-广州大智汇

最新推荐文章于 2022-02-25 09:53:56 发布

阅读量1.6k

点赞数

分类专栏： php 文章标签： zzzcms asp

本文为博主原创文章，未经博主允许不得转载。

本文链接：https://blog.csdn.net/u014617119/article/details/78386901

版权

php 专栏收录该内容

6 篇文章 0 订阅

订阅专栏

有疑问的可以加群162092974咨询
一、根目录找到 inc 文件夹，打开 zzz_mian.asp文件
修改 getURL() 自定义函数

    function getURL(byval t)        
        dim u,i,h,d,p,su,dir,par,QSItem,para,arr,param
        if lcase(request.serverVariables("HTTPS"))="off" then h = "http://" : else : h = "https://" : end if
        d = request.serverVariables("SERVER_NAME")
        if request.serverVariables("SERVER_PORT")<>80 then p = ":"& request.serverVariables("SERVER_PORT")
        su  = request.serverVariables("URL")
        dir = left(su,instrRev(su,"/"))
        if trim(request.queryString)<>"" then
            para = trim(request.queryString)

            '增加下面的一句代码，过滤网址，trim()函数不能过滤掉 = ，微信分享之后的链接会自动在网址后面加上一段参数，参数就是 = 开头的，这才导致分享过的网址报错
            '增加的代码开始
            para = left(para,Instr(para,".html")+Len(fileExt)-1)
            '增加的代码结束

        else
            para = ""
        end if
        if instr(para,"&") > 0 then para=split(para,"&")(0)
        if wapmark then
            if ifstrin(para,"/") then para=split(para,"/")(1)   
         end if 
        if trim(t)<>"" then
            t=cstr(t)
            select case t
                case "0"
                    u = su
                case "1"
                    u = su & para
                case "2"
                    u = dir
                case "3"
                    u=para
                case "SID"
                    SID=replacestr(replacestr(para,fileExt,""),"list_","")                  
                    'SID=iif(len(SID)>3,left(SID,3),SID)
                    if ifstrin(SID,"_")  then
                        u=split(SID,"_")(0)
                    else
                        if isnul(u) or not ifnum(u) then u=0
                    end if
                    u = iif(ifnum(u),u,0)
                case "page"
                if para="" then u=0 :   exit function
                dim pages,page,j
                    pages=split(replacestr(para,fileExt,""),"_")                    
                    if Location="content" then                  
                        if ubound(pages)>1 then u=pages(2)
                    else
                        u=pages(ubound(pages))
                    end if
                    u = iif(ifnum(u),u,0)
                case "id"
                    id=replacestr(para,fileExt,"")

                    if instr(id,"_") > 0 then
                        if Location="brand" then 
                        u=split(id,"_")(0)  
                        else        
                        u=split(id,"_")(1)
                        end if
                    else
                        u=id
                    end if
                    u = iif(ifnum(u),u,0) 
                case "arr"
                    u= trim(request.queryString)
                    if instr(u,"|/") > 0 then
                        u=split(u,"|/")(0)&"|/"
                    else
                        u=""
                    end if
                case else                   
                    u =replacestr(para,fileExt,"")                  
                    if (regTest(u,""&t&"=")) then
                        u=split(u,""&t&"=")(1)
                        u=cleft(cleft(u,"_"),"-")
                    end if  
            end select
        else
            u=h & d & p & su & para
        end if
        getURL = iif(isnul(u),0,u)
    end function