<%Call Head()%> <%dim rs1,sql1,id id= int(request.QueryString("id")) Set rs1 = Server.CreateObject("ADODB.Recordset") sql1="Select * from wzclass where classid="&id rs1.open sql1,conn,1,1 if not rs1.eof then classname=rs1("class") end if rs1.close set rs1=nothing %>

<% dim rs,sql response.write ("[添加文章]
") Set rs = Server.CreateObject("ADODB.Recordset") sql="Select * from sms where classid="&id&" order by id desc" rs.open sql,conn,1,1 If Not rs.eof Then Dim PageSize,i PageSize=10 Dim Count,page,pagecount,gopage gopage="adminsmscl.asp?sid="&sid&"&ID="&ID&"&" Count=conn.execute("Select count(ID) from [sms] where classid="&id&"")(0) page=int(request.QueryString ("page")) if page<=0 or page="" then page=1 pagecount=(count+pagesize-1)\pagesize if page>pagecount then page=pagecount rs.move(pagesize*(page-1)) For i=1 To PageSize If rs.eof Then Exit For %>[管理]<%=i+(page-1)*PageSize%>.<%=ubb(rs("title"))%>
<% rs.moveNext Next if page-pagecount<0 then response.write "下页" if page>1 then response.write "上页" if pagecount>1 then response.write "
"&page&"/"&pagecount&"页>>" Else %> 暂时没有文章！ <% end if rs.close conn.close set rs=nothing set conn=nothing %>
----------
[2.0传文章]
[文章分类]
[后台管理]