文章内容页面加入缩略图-动易CMS教程

Dim ArticleID,DefaultPicUrl,sql,rs,UploadDir,UploadFiles
ArticleID = Trim(request(\"ArticleID\"))
%>
<!--#include file=\"../conn.asp\"-->
<!--#include file=\"Channel_Config.asp\"-->
<%
Set rs = Conn.Execute(\"select UploadDir from PE_Channel where ChannelID=\" & ChannelID & \"\")
If rs.BOF And rs.EOF Then
Response.Write \"找不到数据！请检查配置！\"
Response.End
Else
UploadDir = rs(\"UploadDir\")
End If
Set rs = Nothing

sql = \"select DefaultPicUrl,UploadFiles from PE_Article where ArticleID=\" & ArticleID
Set rs = conn.execute(sql)
If rs.bof And rs.EOF Then
Response.Write \"document.write('<img class=pic5 src=../images/nopic.gif title=暂无图片>');\"
Else
Do While Not rs.EOF
DefaultPicUrl = rs(0)
UploadFiles = rs(1)

If InStr(UploadFiles, replace(DefaultPicUrl,\"_S.\",\".\")) <= 0 Then
Response.Write \"document.write('<IMG class=pic5 src=\" & UploadDir & \"/\" & DefaultPicUrl & \" Else
Response.Write \"document.write('<A href=\" & UploadDir & \"/\" & replace(DefaultPicUrl,\"_S.\",\".\") & \" target=_blank><IMG class=pic5 src=\" & UploadDir & \"/\" & DefaultPicUrl & \" title=点击在新窗口中查看图片></A>');\"
End if

rs.movenext
Loop
End If
rs.Close
Set rs = Nothing
Call CloseConn

' 文件作用：文章内容页面调用缩略图，并自动检测是否存在缩略图原图，假如存在则加入链接到原图在新窗口中打开。
' 调用方法：<script src=\"Yz_Get_DefaultPicUrl.asp?ArticleID={$ArticleID}\"></script>
%>