在线问答-电脑软硬件应用网-国内最受关注的计算机应用解决中心

<%user=request("user") if user="" then response.redirect "index.asp?user=jinjunhe" end if set rs=server.createobject("adodb.recordset") sql="select * from user where user='"&user&"'" rs.open sql,conn,1,1 '###检查cookies，如果密码正确侧进入管理状态 if rs("user")="" then else if session("user")=rs("user") and session("pwd")=rs("pwd") then adminok="ok" end if end if '###检查结束### %> <% if not isempty(request("page")) then currentPage=cint(request("page")) else currentPage=1 end if MaxPerPage=10 '###每页显示条数 dim totalPut dim CurrentPage dim TotalPages dim i,j %> 在线问答-电脑软硬件应用网-国内最受关注的计算机应用解决中心

昵称:	* 性别: 表情:
电邮:	*必填项
问题:


欢迎光临：电脑软硬件应用网-专家问答栏目 <%if request("page")<>"" then%> >> 第<%=request("page")%>页 <%end if%>	<%if adminok="ok" then%>[修改资料][退出登陆]<%else%>[版主管理] <%end if%>

<%dim rsu,sqlu sqlu="select * from book where user='"&user&"' order by id desc" Set rsu= Server.CreateObject("ADODB.Recordset") rsu.open sqlu,conn,1,1 %> <%totalPut=rsu.recordcount if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then showpage totalput,MaxPerPage,"index.asp" showContent showpage totalput,MaxPerPage,"index.asp" else if (currentPage-1)*MaxPerPage <%if rsu.eof and rsu.bof then%>

还没有留言！

<%else%> <% k=(totalPut-MaxPerPage*(currentPage-1))+1 do while not rsu.eof k=k-1%>

问题提出：	<%if adminok="ok" then%>[" target="_self">回复][" target="_self">删除]<%end if%>	.gif"> <%=rsu("name")%> NO.<%=rsu("id")%>
<%=rsu("ly")%><%if rsu("re")<>"" then%> 问题解决： <%=rsu("re")%><%end if%>
专家问答：一般会在12小时内回答!

<% i=i+1 if i>=MaxPerPage then exit do rsu.movenext loop %>

分页:<% pageno=request("page") if MaxPerPage="" or isempty(MaxPerPage) or MaxPerPage<1 then MaxPerPage=15 end if rsu.pagesize=MaxPerPage '得到每页数 mpage=rsu.pagecount '得到总页数 if isempty(pageno) or cint(pageno)<1 or cint(pageno)>mpage then pageno=1 end if for pno=1 to mpage if pno=cint(pageno) then%>[<%=pno%>]<%else%>[&page=<%=pno%> target="_self"><%=pno%>]<%end if%><%next%>

<%end if%>

<%rs.close set rs=nothing rsu.close set rsu=nothing conn.close set conn=nothing%>