[an error occurred while processing this directive]
<%if rs.EOF then%> <%else%> <% shownum=10 totalrecord=rs.recordcount rs.pagesize=shownum maxpage=rs.pagecount requestpage=clng(request.querystring("page")) if requestpage="" or requestpage=0 then requestpage=1 end if if resquestpage>maxpage then resquestpage=maxpage end if if not requestpage=1 then rs.move (requestpage-1)*rs.pagesize end if for i=1 to rs.pagesize and not rs.bof%> <% rs.movenext if rs.eof then exit for next %>

会 员 列 表

暂时还没有任何用户,请添加用户!

会 员 列 表
用户名 密码 密码问题 问题答案 Email 姓名 性别 OICQ ICQ MSN 生日 主页 头像 删除 编辑
<%=rs("name")%> <%=rs("pass")%> <%=rs("passwen")%> <%=rs("passda")%> <%=rs("email")%> <%=rs("xingming")%> <%=rs("sex")%> <%=rs("oicq")%> <%=rs("icq")%> <%=rs("msn")%> <%=rs("shengri")%> <%=rs("home")%> " name="face" width=32 height=32 hspace=15>

删除

编辑
<% if requestpage-1 mod 10=0 then p=(requestpage-1) \ 10 else p=(requestpage-1) \ 10 end if if requestpage=1 then response.write "9" else response.write "9" end if if p*10>0 then response.write "7" response.write "" for ii=p*10+1 to P*10+10 if ii=requestpage then response.write ""&ii&" " else response.write ""&ii&" " end if if ii=maxpage then exit for next response.write "" if ii8" if requestpage=maxpage then response.write ": " else response.write ":" end if response.write" 总共有"&maxpage&"页 共"&totalrecord&"位注册会员" end if %>
[an error occurred while processing this directive][an error occurred while processing this directive] mybbs-头像 [an error occurred while processing this directive]

全 部 头 像
<% For I=1 to 108 Response.Write I&"." If I=10 Or I=19 Or I=28 Or I=37 Or I=46 Or I=55 Or I=64 Or I=73 Or I=82 Or I=91 Or I=100 Then Response.Write "
" End If If I=108 Then%>
<% End If Next %> [an error occurred while processing this directive] [an error occurred while processing this directive] my bbs [an error occurred while processing this directive]
各 版 新 帖 管 理 团 队
现在时间：<%=now%>
<% set reco=server.createobject("adodb.recordset") sqlstr="select * from board" reco.open sqlstr,conn,1,1 if reco.eof then %> <%else do while not reco.eof %> <% reco.movenext loop end if %>
暂 未 有 版 面 ！
> 版面编号： <%=reco("bid")%> 版面名称： " title="进入版面 <%=reco("cname")%>"><%=reco("cname")%>
版面简介： <%=reco("bdinfo")%>
[an error occurred while processing this directive] <% dim id id=Request("id") If id="" Then response.redirect "help.asp" Else %> <% set conn=server.createobject("adodb.connection") DBPath = Server.MapPath("db.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath Set rs = Server.CreateObject("ADODB.Recordset") sql = "SELECT * FROM id where id="+id rs.Open sql, conn, 1, 1 %> my bbs [an error occurred while processing this directive]

修 改 用 户
用户名： <%=rs("name")%> ">
密码： "> *
密码问题： "> *
问题答案： "> *
Email地址： "> *
姓名： ">
性别：  *
OICQ号码： ">
ICQ号码： ">
MSN： ">
生日： "> 格式:2002-06-21
主页： ">
头像：  选择头像  name="face" width=32 height=32 hspace=15>全部头像
提交修改：     
<%end if%> [an error occurred while processing this directive] <% dim key1, key2, key3, name, pass, passwen, passda, email, xingming, sex, oicq, icq, msn, shengri, home, touxing name=Request("name") pass=Request("password") Passwen=Request("Passwen") Passda=Request("Passda") email=Request("email") xingming=Request("xingming") Sex=Request("Sex") Oicq=Request("Oicq") Icq=Request("Icq") MSN=Request("MSN") shengri=Request("shengri") Home=Request("Home") touxiang=Request("touxiang") %> <% set conn=server.createobject("adodb.connection") DBPath = Server.MapPath("db.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath Set rs = Server.CreateObject("ADODB.Recordset") SQL= "Select * from id Where name='"&name&"'" rs.open sql, conn, 1, 3 %> my bbs [an error occurred while processing this directive] <% if pass="" or strLength(pass)>Cint("16") or strLength(pass)


<%=key1%>

<%=key3%>
[an error occurred while processing this directive] 版面管理
[ 新增 ]
<% set bidreco=server.createobject("adodb.recordset") sqlstr="select * from board" bidreco.open sqlstr,conn,1,1 if bidreco.eof then response.write "" else do while not bidreco.eof %> <% bidreco.movenext loop set bidreco=nothing set conn=nothing end if %>
版　面　列　表
版面号 中文名 英文名 管理操作
尚　未　有　版　面
<%=bidreco("bid")%> <%=bidreco("cname")%> <%=bidreco("ename")%> [ " title="删除此版">删除 ] [ " title="修改版面资料">修改 ]