<% Set Rs = server.CreateObject("ADODB.Recordset") Set Rs_temp = server.CreateObject("ADODB.Recordset") conn.execute("update ly set [status]=0 where datediff('d',updatetime,'"&now&"')>=10 ") %> <% Function coder(str) Dim result,L,i If IsNull(str) Then : coder="" : Exit Function : End If L=Len(str) : result="" For i = 1 to L select case mid(str,i,1) case "<" : result=result+"<" case ">" : result=result+">" case chr(34) : result=result+""" 'This is the"" case "&" : result=result+"&" case chr(13) : result=result+"
" case chr(9) : result=result+"    " case chr(32) : result=result+" " case else : result=result+mid(str,i,1) end select Next coder=result End Function %> ’†‘—ทs’BlŒfŽฆ”ย“ŠeƒŠƒXƒg

\bQb\bQb\bQb\’†‘—ทsŒfŽฆ”ย\bQb\bQb\bQb\’†‘—ทsŒfŽฆ”ย\bQb\bQb\bQb\

’†‘ŠฯŒ๕ƒjƒ…[ƒXA’†‘—ทsŠด‘z•ถ/—ทs‹L/‘ฬŒฑ‹LA’†‘ŠฯŒ๕Žส^‚ศ‚ว’†‘Œป’nŠฯŒ๕๎•๑–žฺI

@@ƒz[ƒ€„@ ’†‘—ทs’BlŒfŽฆ”ย“ŠeƒŠƒXƒg

 
ƒqƒbƒg”‚ล‡•ภ‚ื@ @@ ƒL[ƒ[ƒh‚ลŒŸ๕ “ŠeŽา–ผ‚ลŒŸ๕
V‹K”ญ•\
<% if request("type")="1" then str="SELECT * FROM ly where ly.hf_id=0 oRDER BY dot_count DESC" else str="SELECT * FROM ly where ly.hf_id=0 oRDER BY ly.updatetime DESC" end if Rs.Open str,conn,1 Rs.PageSize = 30 If Not Rs.EOF Then page = Request("page") If page = "" Then page = 1 Rs.AbsolutePage = page End If If not Rs.EOF Then i=0 While Not Rs.EOF And i <% Rs.MoveNext Wend end if %>
•ิM
ƒqƒbƒg
‘่@@–ผ
“ŠeŽา
“Še“๚Žž
ลI•ิM
Topic over
<% rs_temp.open "select count(ly_id) as [count] from ly where hf_id ="&rs("ly_id"),conn,1 if not rs_temp.eof then if rs_temp("count")<>0 then response.write ""&rs_temp("count")&"" else response.write "0" end if else response.Write("0") end if rs_temp.close %> <% if rs("dot_count")<>0 then response.write rs("dot_count") else response.write "0" end if %>   " ><%=rs("title")%> "><%=rs("userid")%>  <%=rs("updatetime")%> <% rs_temp.open "SELECT * FROM ly where ly.hf_id = "&rs("ly_id")&" order by ly_id desc",conn,1 if not rs_temp.eof then response.Write ""&rs_temp("userid")&"" else response.write "" end if rs_temp.close %> <%if rs("status")=0 then %>
---
<%end if %>
<% If page > 1 Then %> <% Else End If %> <% If CInt(page) < CInt(Rs.PageCount) Then %> <% End If %>
" class="css2">ล‰   " class="css2">‘Oƒy[ƒW
<%=page%>/<%=Rs.PageCount%>
"> ŽŸƒy[ƒW   " >ลŒใ