科汛CMS:禁止圖片隨鼠標滾輪放大縮小
來源：程序員人生 發布時間：2014-04-12 02:18:53 閱讀次數：2440次
建站學院(LieHuo.Net)CMS教程：科汛CMS有一個圖片跟隨鼠標滾輪而變大變小的效果，其實這個功能非常實用，但是有些網站內容比較固定，可能不太方便，那么如何去掉這一功能呢。看下面的方法
打開：ks_cls/kesion.label.commoncls.asp
在最后
以下為引用的內容：
Function FormatImglink(content,url,totalpage)
dim re:Set re=new RegExp
re.IgnoreCase =true
re.Global=True
'去除onclick,onload等腳本
're.Pattern = "s[on].+?=([""|'])(.*?)1"
'Content = re.Replace(Content, "")
Dim LinkStr
If TotalPage=1 Then
LinkStr="href=""$2"" target=""_blank"""
Else
LinkStr="href=""" & Url & """"
End If
'將SRC不帶引號的圖片地址加上引號
re.Pattern = "<img.*?ssrc=([^""'s][^""'s>]*).*?>"
Content = re.Replace(Content, "<a " & LinkStr & "><img src=""$2"" alt=""點擊瀏覽下一頁"" onmousewheel=""return bbimg(this)"" onload=""javascript:resizepic(this)"" border=""0""/></a>")
'正則匹配圖片SRC地址
re.Pattern = "<img.*?ssrc=([""'])([^""']+?)1.*?>"
Content = re.Replace(Content, "<a " & LinkStr & "><img src=""$2"" alt=""點擊瀏覽下一頁"" onmousewheel=""return bbimg(this)"" onload=""javascript:resizepic(this)"" border=""0""/></a>") set re = nothing
FormatImglink = content
end function |
以下為引用的內容：
Function FormatImglink(content,url,totalpage)
FormatImglink = content
end function |
改成
生活不易，碼農辛苦
如果您覺得本網站對您的學習有所幫助,可以手機掃描二維碼進行捐贈
