日韩天天综合网_野战两个奶头被亲到高潮_亚洲日韩欧美精品综合_av女人天堂污污污_视频一区**字幕无弹窗_国产亚洲欧美小视频_国内性爱精品在线免费视频_国产一级电影在线播放_日韩欧美内地福利_亚洲一二三不卡片区

文章內(nèi)容頁面加入縮略圖_動(dòng)易Cms教程

編輯Tag賺U幣
教程Tag：暫無Tag,歡迎添加,賺取U幣!

做了個(gè)案例展示頻道。因?yàn)橐玫娇s略圖，便做了個(gè)小文件�，F(xiàn)在提供需要的朋友。

將文件放在文章頻道目錄下即可。

下載附件

If LCase(Left(ComeUrl, InStrRev(ComeUrl, "/"))) <> LCase(Left(cUrl, InStrRev(cUrl, "/"))) Then
Response.redirect "/404.html" '自定義錯(cuò)誤提示
Response.End
End If
End If

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 "找不到數(shù)據(jù)！請(qǐng)檢查配置！"
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=點(diǎn)擊在新窗口中查看圖片></A>');"
End if

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

' 文件作用：文章內(nèi)容頁面調(diào)用縮略圖，并自動(dòng)檢測(cè)是否存在縮略圖原圖，假如存在則加入鏈接到原圖在新窗口中打開。
' 調(diào)用方法：<script src="Yz_Get_DefaultPicUrl.asp?ArticleID={$ArticleID}"></script>
%>

該文章轉(zhuǎn)自[雨哲在線]：http://www.yz81.com/Blog/ShowArticle.asp?ArticleID=1880

查看更多 動(dòng)易Cms教程  動(dòng)易Cms模板

來源：模板無憂//所屬分類：動(dòng)易Cms教程/更新時(shí)間：2007-10-11
相關(guān)動(dòng)易Cms教程：