<% set strup= Server.CreateObject("ADODB.recordset") sqlup="select top 1 * from huodong where hd_id<"&;sh_id&;" order by hd_id desc" strup.open sqlup,conn,1,1 if strup.eof and strup.bof then titleup="没有了" upid=sh_id upclick="" else titleup=strup("hd_title") upid=strup("hd_id") upclick=strup("hd_click") end if set strdown= Server.CreateObject("ADODB.recordset") sqldown="select top 1 * from huodong where hd_id>"&;sh_id&;" order by hd_id asc" strdown.open sqldown,conn,1,1 if strdown.eof then titledown="没有了" downid=sh_id downclick="" else titledown=strdown("hd_title") downid=strdown("hd_id") downclick=strdown("hd_click") end if %> |
下一篇:"><%= titledown %> 热度:<%= downclick %>°C |
上一篇:"><%= titleup %> class="fontred"> 热度:<%= upclick %>°C |