<% randomize k=int(4*rnd()+1) id=Trim(Request.QueryString("id")) if id="" or isnull(id) then response.write "" response.end elseif not isnumeric(id) then response.write "" response.end end if sql="select * from [tl_news] where stat=1 and id="&id set rs=conn.execute(sql) if rs.eof then response.write "" response.end else Topic=rs("Topic") Comment=rs("Comment") bigpic=rs("bigpic") hit=rs("hit") ly=rs("ly") addtime=rs("addtime") classid=rs("classid") boardid=rs("boardid") authors=rs("authors") twotopic=rs("twotopic") wmv_url=rs("wmv_url") conn.execute "update tl_news set hit=hit+1 where id="&int(request("id"))&"" end if set rs=nothing sql="select boardname from [board] where boardid="&boardid set rs=conn.execute(sql) if rs.eof then response.write "" response.end else boardname=rs("boardname") end if rs.close set rs=nothing sql="select classname from [class] where classid="&classid set rs=conn.execute(sql) if rs.eof then response.write "" response.end else classname=rs("classname") end if rs.close set rs=nothing if classid=2 then class_url="tlgk.asp" elseif classid=3 then class_url="zfzx.asp" elseif classid=4 then class_url="news.asp" elseif classid=5 then class_url="ztbd.asp" elseif classid=6 then class_url="lyzn.asp" elseif classid=7 then class_url="tlyx.asp" elseif classid=13 then class_url="newslist_qxss.asp" end if if boardid=22 or boardid=19 or boardid= 21then background_info="" else background_info="" end if %> <%=Topic%>,千年古镇 世界同里
您所在的位置:首页 - <%=classname%> - <%=boardname%>  
 
 
<% if boardid<>19 and boardid<>21 then%> <%end if%> <%if wmv_url<>"" then%> <% End If %>
<%=Topic%><%if twotopic<>"" then%>
<%=twotopic%><%end if%>
来源:<%=ly%>  作者:<%=authors%>  日期:<%=addtime%>  点击:<%=hit%>
class="h23 block" style="padding-top:2px;table-layout: fixed;word-break: break-all;"> <% if boardid=21 then response.Write("

") end if response.Write Comment %>
<% set rs2=server.CreateObject("adodb.recordset") sql2="select * from [tl_news] where stat=1 and classid="&classid&" and boardid="&boardid&" order by tj desc,addtime desc,sorting desc" rs2.open sql2,conn,1,1 if not rs2.eof and not rs2.bof then do while not rs2.eof if cstr(rs2("id"))=cstr(id) then rs2.moveprevious if not rs2.bof then %> <% rs2.move(2) if not rs2.eof then %> <% else %>
已经是最后一篇了:下一页
<% end if else %>
上一页:已经是最前一篇了
<% rs2.move(2) if not rs2.eof then %> <% else %>
已经是最后一篇了:下一页
<% end if end if exit do end if rs2.movenext loop end if rs2.close set rs2=nothing %>