If LCase(Left(ComeUrl, InStrRev(ComeUrl, "/"))) <> LCase(Left(cUrl, InStrRev(cUrl, "/"))) Then
Response.redirect "/404.html" '自定義錯誤提示
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 "找不到數據！請檢查配置！"
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>
%>
|
