<%dim startime,endtime startime=timer() %> 尖锐湿疣治疗信息网-性病知识 <%self=request.servervariables("url")%>

尖锐湿疣治疗信息网-性病知识

尖锐湿疣治疗信息网－交流尖锐湿疣治疗方法，介绍治疗尖锐湿疣药物

尖锐湿疣治疗信息首页 | <% set conn=server.createobject("adodb.connection") conn.open connstr set rs=conn.execute("select * from class order by num asc") do while not rs.eof %> ><%=rs("class")%> | <% rs.movenext loop conn.close %>

<% cla=request("class") response.expires=0 response.buffer=true set conn=server.createobject("adodb.connection") conn.open connstr set rs=server.createobject("adodb.recordset") if cla<>"" then rs.open "select * from wz where class='"&cla&"' order by id desc",conn,1,1 end if if cla="" then rs.open "select * from wz order by id desc",conn,1,1 end if onepage=15 c=rs.recordcount rs.pagesize=onepage pages=rs.pagecount page=request("page") if page<=0 then page=1 pump=onepage*(page-1) if c<1 then response.write "

没有符合条件的文章

[返回主页] [关闭窗口]

" response.end end if %>

<%if cla<>"" then%> ><%=cla%> <%end if%> 共有<%=c%>条信息 <%=page%>/<%=pages%>页 <% if page<6 then firstnum=1 lastnum=6 if lastnum>pages then lastnum=pages else firstnum=page-3 lastnum=page+3 if lastnum>pages then lastnum=pages end if %> ?class=<%=cla%>&page=1 TITLE="第一页"> << <%for i=firstnum to lastnum%> &page=<%=i%>> <%=i%> <%next%> ?class=<%=cla%>&page=<%=pages%> TITLE="最后一页"> >>

<% rs.move pump for i=1 to (onepage+1) if rs.eof then exit for %> · 访问人数<%=rs("count")%>" HREF=data/<%=rs("num")%>.htm><%=rs("title")%>(<%=rs("date")%>)
<% rs.movenext next set rs=conn.execute("select * from config") count=rs("count") createtime=rs("createtime") if session("count")<>"1" then conn.execute("update config set count=count+1") end if session("count")="1" conn.close %>

[返回主页] [关闭窗口]