文章信息管理

<% if session("admin")="" then conn.close set conn = nothing response.Write "" response.End end if call flagstr("会员管理","../error.htm") if FormatSQL(SafeRequest("action",0))="upnew" then conn.execute("update member set home="&request("flag")&" where id="&request("id")) response.Redirect "member.asp" end if if FormatSQL(SafeRequest("action",0))="del" then conn.execute "delete from k_f where id in ("&request.form("selectdel")&")" response.Redirect "member.asp?companytypestr"&request("companytypestr") end if if FormatSQL(SafeRequest("action",0))="upflag" then conn.execute("update k_f set flag="&request("flag")&" where id="&request("id")) response.Redirect "member.asp?companytypestr"&request("companytypestr") end if %> 文章信息管理

　　会员管理

<% Const MaxPerPage=12 dim totalPut dim CurrentPage dim TotalPages dim j dim sql if Not isempty(SafeRequest("page",1)) then currentPage=Cint(SafeRequest("page",1)) else currentPage=1 end if set rs=server.createobject("adodb.recordset") sorts=request("sorts") sql="select * from k_f order by addtime desc" rs.open sql,conn,1,1 if err.number<>0 then response.write "数据库中暂时无数据" end if if rs.eof And rs.bof then Response.Write "

您还没有信息！

" else totalPut=rs.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 showContent showpage totalput,MaxPerPage,"member.asp" else if (currentPage-1)*MaxPerPage

<%do while not rs.eof%> <%i=i+1 if i>=MaxPerPage then Exit Do rs.movenext loop rs.close set rs=nothing%>

会员名字	联系电话	工作单位	联系地址	注册时间	选择
" target="_blank"><%=rs("k_fname1")%>	<%=rs("k_ftel1")%>	<%=rs("k_fwork1")%>	<%=rs("k_fadd1")%>	<%=rs("addtime")%>	>
全选

<% End Sub Function showpage(totalnumber,maxperpage,filename) Dim n If totalnumber Mod maxperpage=0 Then n= totalnumber \ maxperpage Else n= totalnumber \ maxperpage+1 End If Response.Write "