"
response.write ""
'=================================================
'过程名:ShowNextArticle
'作 用:显示上一篇文章
'参 数:TitleLen ----标题最多字符数,一个汉字=两个英文字符
'=================================================
sub ShowNextArticle
dim rsNext,sqlNext
sqlNext="SELECT TOP 1 a.* , s.typeName from Pic_UploadInfo a, Pic_type s where a.filetype=s.ID and a.filetype=12 AND a.filetype="&tid
sqlNext=sqlNext+" AND a.ID>" & oRs("ID")& ""
sqlNext=sqlNext+" order by a.id asc"
Set rsNext= Server.CreateObject("ADODB.Recordset")
rsNext.open sqlNext,oconn,1,1
if rsNext.Eof then
response.write ""
else
response.write ""
end if
rsNext.close
set rsNext=nothing
end sub
'ShowNextArticle结束并调用该过程
call ShowNextArticle
response.write " | "
response.write ""
If oRs("videourl")<>"" then
Set Fs = Server.CreateObject("Scripting.FileSystemObject")
If Fs.FileExists(server.mappath(replace(oRs("videourl"),"../",""))) Then
%>
<%
else
Response.write ""
End If
Set Fs = Nothing
Response.write ""
Else
Response.write ""
End if
Response.write " | "
response.write ""
'=================================================
'过程名:ShowPrevArticle
'作 用:显示上一篇文章
'参 数:TitleLen ----标题最多字符数,一个汉字=两个英文字符
'=================================================
sub ShowPrevArticle
dim rsPrev,sqlPrev
sqlPrev="SELECT TOP 1 a.* , s.typeName from Pic_UploadInfo a, Pic_type s where a.filetype=s.ID and a.filetype=12 AND a.filetype="&tid
sqlPrev=sqlPrev+" AND a.ID < " & oRs("ID")& ""
sqlPrev=sqlPrev+" order by a.id desc"
Set rsPrev= Server.CreateObject("ADODB.Recordset")
rsPrev.open sqlPrev,oconn,1,1
if rsPrev.Eof then
response.write ""
else
response.write ""
end if
rsPrev.close
set rsPrev=nothing
end sub
'ShowPrevArticle 结束,并调用该过程
call ShowPrevArticle
response.write " | "
response.write "