<%@ LANGUAGE=VBScript codepage ="936" %> <% Response.Buffer = True Response.Expires=0 Response.ExpiresAbsolute = Now() - 1 Response.AddHeader "Pragma","No-Cache" Response.AddHeader "Cache-Control","Private" Response.CacheControl = "No-Cache" if session("TWT_ARR_ArgALL")="" then response.end TWT_ArrArg=split(session("TWT_ARR_ArgALL"),"=") nickname=TWT_ArrArg(0) grade=TWT_ArrArg(2) myid=TWT_ArrArg(1) If Session("ADMIN") <> True Then Response.Redirect "../error.asp?id=439" if grade<10 then Response.Redirect "../error.asp?id=439" page=Request.QueryString("page") if page="" then page=1 if Not(IsNumeric(page)) then page=1 if page<1 then page=1 page=int(page) Set conn=Server.CreateObject("ADODB.CONNECTION") Set rs=Server.CreateObject("ADODB.RecordSet") db="../act/lib.mdb" connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"") '如果你的服务器不支持jet4.0，请使用下载的连接方法，提高程序性能 'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(""&db&"") conn.open connstr sql="SELECT id,acttype,name,act FROM actlib" rs.open sql,conn,1,1 rs.PageSize=20 totalrec=rs.RecordCount totalpage=rs.PageCount if page>totalpage then page=totalpage if totalrec>0 then rs.AbsolutePage=page p=1+(page-1)*rs.PageSize Dim show() i=0 j=1 Do while (Not rs.Eof) and (i 动作管理

【动作管理】

刷新

［动作数量］　共有 <%=totalrec%> 条动作　　　本页刷新时间：<%=sj%>

<%for i=1 to totalpage if page=i then Response.Write " [" & i & "]" else Response.Write " [" & i & "]" end if next%>

<%for i=1 to UBound(show) step 4%> <%next%>

删除	ID	类型	名称	内容	编辑
×	<%=show(i)%>	<%=show(i+1)%>	<%=show(i+2)%>	<%=show(i+3)%>	Ｅ