<!--#Include FILE="WapConfig/WapHeader.asp"-->
<%
on error resume next
'以下为文件正文。
'以下是数据库的设置信息
Dim ArticleID : ArticleID=Request.QueryString("ArticleID") 
If ArticleID<>"" Then Session("FindId")=ArticleID Else ArticleID=Session("FindId")

Dim MyStart : MyStart=Request.QueryString("MyStart") 
If MyStart<>"" Then Session("MyStart")=MyStart Else MyStart=Session("MyStart")

XML.StrSql="select * from SQ_Article where ArticleID=" & ArticleID

'以下为查询相关路径问题。
ChannelID=XML.MdbShow("ChannelID")
XML.StrSql="Select * from SQ_Channel Where ChannelID=" & ChannelId
ChannelDir=XML.MdbShow("ChannelDir") '频道所在文件夹。
UploadDir=XML.MdbShow("UploadDir")
DownLoadPath=XML.MdbShow("ChannelDir") & "/" & XML.MdbShow("UploadDir") '上传文件所在的文件夹。
LinkUrl=XML.MdbShow("LinkUrl") '如果启用了子域名。

XML.StrSql="select * from SQ_Article where ArticleID=" & ArticleID
'显示标题
XML.WriteOut "<h2>" & XML.MdbShow("Title") & "</h2>"
XML.WriteOut "<ul><li>"

'以下为显示文章缩略图的函数。
StrQ = Split(XML.MdbShow("UploadFiles"),"|")
XML.WriteRow "本文共计" & UBound(StrQ)+1 & "张图片，点击缩略图，显示原图。"
For I = LBound(StrQ) To UBound(StrQ)

If XML.IsAspJpeg=True Then '如果支持JPEG组件，则输出缩略图。
	If LinkUrl="" Then 
		ImgPath=ImgPath & XML.IA(XML.BuildSmallPic("../" & DownLoadPath & "/" & StrQ(I),"../" & DownLoadPath & "/"),"../" & DownLoadPath & "/" & StrQ(I)) & "<br/>"
	Else 
		ImgPath=ImgPath & XML.IA(LinkUrl & Replace(Lcase(XML.BuildSmallPic("../" & DownLoadPath & "/" & StrQ(I),"../" & DownLoadPath & "/")),Lcase("../" & ChannelDir),""),LinkUrl & "/" & UploadDir & "/" & StrQ(I)) & "<br/>"
	End If
Else
	If LinkUrl="" Then
		ImgPath=ImgPath & "<a href=""" & "../" & DownLoadPath & "/" & StrQ(I) & """>" & XML.Img("../" & DownLoadPath & "/" & StrQ(I),"","width=""120""") & "</a><br/>" 
	Else
		ImgPath=ImgPath & "<a href=""" & LinkUrl & "/" & UploadDir & "/" & StrQ(I) & """>" & XML.Img(LinkUrl & "/" & UploadDir & "/" & StrQ(I),"","width=""120""") & "</a><br/>" 
	End If
End If 
Next
XML.WriteOut ImgPath

XML.WriteOut "</li></ul>"
'以下为返回链接等
XML.WriteOut XML.Div(,,"N")
If Request.QueryString("ComeFrom")="Special" Then '从专题来的查看图片。
XML.WriteRow XML.ImgA("","NewsSpecialShow.asp?MyStart=" & MyStart & "&amp;ListId=" & ArticleID,"返回上级")
ElseIf Request.QueryString("ComeFrom")="Search" Then '从搜索来的查看图片。
XML.WriteRow XML.ImgA("","NewsFindShow.asp?MyStart=" & MyStart & "&amp;ListId=" & ArticleID,"返回上级")
Else
XML.WriteRow XML.ImgA("","NewsShow.asp?MyStart=" & MyStart & "&amp;ListId=" & ArticleID,"返回上级")
End If
%>
<!--#Include FILE="WapConfig/WapFooter.asp"--> 
