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

最新推荐文章于 2019-12-03 14:37:00 发布

政哥聊技术-大智汇科技

最新推荐文章于 2019-12-03 14:37:00 发布

阅读量1.6k

点赞数

分类专栏： php

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

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

版权

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