文章內(nèi)容頁(yè)面加入縮略圖_動(dòng)易Cms教程
      
編輯Tag賺U幣
      


      教程Tag：暫無(wú)Tag,歡迎添加,賺取U幣!
      


      

      做了個(gè)案例展示頻道。因?yàn)橐玫娇s略圖，便做了個(gè)小文件。現(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=暫無(wú)圖片>');"
       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)容頁(yè)面調(diào)用縮略圖，并自動(dòng)檢測(cè)是否存在縮略圖原圖，假如存在則加入鏈接到原圖在新窗口中打開(kāi)。
      ' 調(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模板
      

      


      來(lái)源：模板無(wú)憂//所屬分類：動(dòng)易Cms教程/更新時(shí)間：2007-10-11


      


      



      


      



      相關(guān)動(dòng)易Cms教程：