[修改]新闻内容中的图片自动适应页面大小、增加自身连接和无级缩放功能。
如果全部图片栏目（新闻内容中只有一张图片，没有其他任何内容）的话，则可以实现点击图片打开下一页的功能
第一步：
打开：Foosun\Admin\Refresh\Function.asp
找到大约278行，增加两个函数：
'====================2006-06-16=====================================
Function NextNews(TempNewsID)
IF Fun_Refresh_Type <> "News" Then Exit Function
Dim TempID,TempCID,TSql,TObj,TempSql,TempObj
TSql = "Select ID,ClassID From Fs_News Where NewsID = '" & TempNewsID & "'"
Set TObj = Conn.Execute(TSql)
If Not TObj.Eof Then
TempID = TObj("ID")
TempCID = TObj("ClassID")
TempSql = "Select Top 1 * From Fs_News Where ID > " & TempID & " And AuditTF = 1 And DelTF = 0 And ClassID = '" & TempCID & "' Order By ID"
Set TempObj = Conn.Execute(TempSql)
If Not TempObj.Eof Then
NextNews = GetOneNewsLinkURL(TempObj("NewsID"))
Else
Exit Function
End If
Else
Exit Function
End If
TempObj.Close
Set TempObj = Nothing
TObj.Close
Set TObj = Nothing
End Function
'======================================================================================
'==============2006-05-07==============================================================
Function coden(contentss)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(script)"
Contentss=re.Replace(Contentss,"s cript")
re.Pattern="<img.[^>]*src(=| )(.[^>]*)>"
If instr(1,Contentss,"<IMG") = 1 Then
Contentss=re.replace(Contentss,"<a href=""" & NextNews(Fun_Refresh_ID) & """ title=""下一张图片""><img src=$2 class=""tk"" style=""cursor: pointer"" onmousewheel=""return zoom_img(event,this)"" onload=""return imgzoom(this,580)""></a>")
Else
Contentss=re.replace(Contentss,"<img src=$2 class=""tk"" onclick=""javascript:window.open(this.src);"" style=""cursor: pointer"" alt=按此在新窗口浏览图片 onmousewheel=""return zoom_img(event,this)"" onload=""return imgzoom(this,580)"">")
End if
set re = nothing
coden = contentss
end function
'=======================end===================================================================== | 
