<%
id=checkstr(request.querystring("id"))
if id="" then response.end
rs.open "update photos set hits=hits+1 where id="&request("id"),conn,3,3
sql="select id,bid,mid,fnam,nam,cont,hits from photos where id="&id
rs.open sql,conn,1,1
if rs.eof then response.end
bid=trim(rs(1))
mid1=trim(rs(2))
fnam=trim(rs(3))
name1=trim(rs(4))
cont=trim(rs(5))
hits=trim(rs(6))
rs.close
sql="select nam from photo_class where id="&bid
rs.open sql,conn,1,1
if rs.eof then response.end
nam=trim(rs(0))
rs.close
%>
<%
if mid1<>"0" then
sql="select nam from photo_mid_class where id="&mid1
rs.open sql,conn,1,1
if rs.eof then response.end
nam1=trim(rs(0))
rs.close
end if
%>
<%=name1%>
作者:<%=website%> 点击次数:
<%=hits%> 更新时间:<%=tim%> 【
打印此页】 【
关闭】
<%
id=trim(request.QueryString("id"))
sql="select top 1 id, nam from photos where bid="&bid&" and id>"&id&" order by id asc"
rs.open sql,conn,1,1
if not rs.eof then
%>
<%
downid=rs(0)
down=rs(1)%>
<%
end if
rs.close
%>
<%
id=trim(request.QueryString("id"))
sql="select top 1 id,nam from photos where bid="&bid&" and id<"&id&" order by id desc"
rs.open sql,conn,1,1
if not rs.eof then
%>
<%
upid=rs(0)
up=rs(1)%>
<%
end if
rs.close
%>
<%
if downid="" then
%>
上一篇: <%=up%>下一篇:已经是最后一篇了!
<%
end if
%>
<%
if upid="" then
%>
上一篇:已经是第一篇了!下一篇:<%=down%>
<%
end if
%>
<%
if upid<>"" and downid<>"" then
%>
- 上一篇: <%=up%>
- 下一篇:<%=down%>
<%
end if
%>