usermanager.asp

obbs完全基于Dreamweaver 和EmEditor 下面完成.采用最好的可视结构,非常用利于修改,结构很明确.代码效少.管理非常简单

                      <td><a href="usertype.asp?user=<%=rs("me")%>"><%=rs("me")%></a></td>
                      <td width="123"><%=rs("time")%></td>
                      <td width="16"><input name="pdel" type="checkbox" title="批量删除选项" value="<%=rs("id")%>" ></td>
                    </tr>
                    <%
   rs.movenext
   if s=10 then 
   if i>9 then exit do
   end if
   i=i+1
   loop
else
response.Write("<tr><td bgcolor=""#FFFFFF"" colspan=""5"" >你没短信息</td></tr>")
end if
%>
                    <tr align="right"> 
                        <td colspan="5" bgcolor="#FFFFFF"> 你一共有 <b><%=i%></b> 条短信,其中 <b><%=nr%></b> 条未读 
<script language="JavaScript">
function todel(){
var id=""
var x=<%=i%>
for (i=0;i<x;i++){
if ( document.form1.mplay[i].checked ==true){
id+=document.form1.mplay[i].value+','
}
}
openwindow(id)
}
function selectall()
{
var x=<%=i%>
for (i=0;i<x;i++)
{
document.form1.pdel[i].checked =true;
}
}
function delall(){
var id
    id=document.form1.pdel.value
window.location.href="del.asp?czlb=delp&id="+id;
}
</script>
<input type="button" name="Submit3" value="全选" onClick="selectall();" > 
                          <input type="submit" name="Submit2" onclick="{if(confirm('删除你所选定的短信息，确定删除吗?')){return true;}return false;}" value="删除所选">
                        </td>
                    </tr>
                  </table></form>
                  <%end sub%> <br> <br>
<%
call listzjftzx(10,"cy")
sub listzjftzx(totles,userf)
dim rs,i,rsf,userfid,lastcz
%> 

                  <table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#92b9fb">
                    <tr height="27" background="backimg/bg1.gif"> 
                      <td width="43%" height="27" background="backimg/bg1.gif"> 
                        <strong>主题</strong> </td>
                      <td width="12%" background="backimg/bg1.gif">作者</td>
                      <td width="12%" background="backimg/bg1.gif">人气/回复</td>
                      <td width="11%" background="backimg/bg1.gif">最后回复</td>
                      <td width="22%" background="backimg/bg1.gif">发帖时间</td>
		                </tr>
             <%
if userf="userf" then
set rsf=conn.execute("select tzid,user from userf where user='"&loginuser&"'")
do while not rsf.eof
userfid=rsf("tzid")&","&userfid
rsf.movenext
loop
if userfid="" then
 response.Write("<tr><td bgcolor=#FFFFFF colspan=""5"">你还没收藏过任何主题.</td></tr></table>") 
exit sub
end if
set rs=conn.execute("select id,name,time,user,retime,lastly,click,rely,lb from borecorder where id in("&userfid&") order by id desc",300,1)
else
set rs=conn.execute("select id,name,time,user,retime,lastly,click,rely,lb from borecorder where user='"&request.cookies("renwen")("user")&"' order by id desc",300,1)
end if
			 if rs.eof or rs.bof then 
			  response.Write("<tr><td bgcolor=#FFFFFF colspan=""5"">你还没有参与过任何主题</td></tr></table>") 
			 exit sub
			 end if
			  if totles=10 then 
			  do while not rs.eof
			  response.Write("<tr bgcolor=#FFFFFF><td>□ <a href=type.asp?id="&rs("id")&">"&dvHTMLEncode(rs("name"))&"</a></td><td align=center>"&rs("user")&"</td><td align=center>"&rs("click")&"/"&rs("rely")&"</td><td align=center>"&rs("lastly")&"</td><td align=center>"&rs("time")&"</td></tr>")
			  rs.movenext
			  i=i+1
			  if i>10 then exit do
			  loop
			  else
			  do while not rs.eof
			  response.Write("<tr bgcolor=#FFFFFF><td>□ <a href=type.asp?id="&rs("id")&">"&dvHTMLEncode(rs("name"))&"</a>")
        '当回复达到多页时显示
		dim crely,x,lb
		lb=rs("lb")
		crely=rs("rely")
		if crely>10 then
		dim disppagesd
		response.Write("[<b><img src=backimg/multipage.gif>")
		if CInt(crely/10+0.5)>8 then 
		disppagesd=8
		else
		disppagesd=CInt(crely/10+0.5)
		end if
        for x=1 to disppagesd
        Response.write(" <a href='type.asp?page="&x&"&lb="&lb&"&id="&rs("id")&"'><font color=red>"&x&"</font></a>")
        next
		if disppagesd=8 then 
		response.Write(" ... <a href='type.asp?page="&CInt(crely/10+0.5)&"&lb="&lb&"&id="&rs("id")&"'><font color=red>"&CInt(crely/10+0.5)&"</font></a>")
		end if
		response.Write("</b>]")
        end if
		 if userf="userf" then
		 lastcz="<td><a href=foruser.asp?czlb=deluserf&id="&rs("id")&" title=把这个帖子移出我的收藏>删</a></td>"
		 end if			  
 			  response.Write("</td><td align=center>"&rs("user")&"</td><td align=center>"&rs("click")&"/"&rs("rely")&"</td><td align=center>"&rs("lastly")&"</td><td align=center>"&rs("time")&"</td>"&lastcz&"</tr>")  
			  rs.movenext
			  i=i+1
			  if i>300 then exit do
			  loop
			 end if
%>
                  </table>
<%end sub%>
<%sub addfriend()%>
<form name="form2" method="post" action="foruser.asp?czlb=addfriend">
                  <table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#92b9fb">
                    <tr> 
                        <td height="27" background="backimg/bg1.gif">添加好友</td>
                    </tr>
                    <tr> 
                      <td height="30" bgcolor="#FFFFFF"><input name="friend" type="text" id="friend" value="<%=request.QueryString("fd")%>" size="30">
                        使用逗号（,）分开，最多5位用户 </td>
                    </tr>
                    <tr>
                        <td height="30"  bgcolor="#FFFFFF"> 
                          <input type="submit" name="Submit" value=" 添 加 ">
                        </td>
                      </tr></table></form>
			  <%end sub%>
                 <%
				 sub userpiclist()
				 dim rs
				 set rs=conn.execute("select * from upfile where user='"&loginuser&"' order by lb desc" )
				 %>
                  <table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="#92b9fb">
                    <tr> 
                      <td width="10%" height="27" background="backimg/bg1.gif">文件类型</td>
                      <td width="35%" height="27" background="backimg/bg1.gif">文件名</td>
                      <td width="26%" height="27" background="backimg/bg1.gif">上传时间</td>
                      <td width="9%" height="27" background="backimg/bg1.gif">大小</td>
                      <td width="12%" background="backimg/bg1.gif">图片位置</td>
                      <td width="8%" background="backimg/bg1.gif">操作</td>
                    </tr>
                    <%
					do while not rs.eof
					response.Write("<tr bgcolor=#FFFFFF>")
                	response.Write("<td height=19>"&rs("F_type")&"</td><td><a href="&rs("pic")&">"&rs("pic")&"</a></td><td>"&rs("time")&"</td><td>"&rs("size")&"</td>")
					if rs("lb")="face" then
					response.Write("<td>头像</td>")
					else
					response.Write("<td>"&zlbltname(cint(rs("lb")))&"</td>")
					end if
					response.Write("<td><a href=foruser.asp?czlb=delfile&id="&rs("id")&" onclick=""{if(confirm('确实要删除此图吗，确定删除吗?')){return true;}return false;}"">删除</a></td></tr>")
					rs.movenext
					loop
					%>
                  </table>
				 <%end sub%></td>
              </tr>
            </table></td>
        </tr>
<%end select%>
      </table>
    </td>
  </tr>
  <tr>
    <td colspan="2">
<%call tabletop(true,"down")%></td>
  </tr>
</table>
<%
response.Write(loadcopyc("copyc"))
response.write "Powered By ：obbs Version 1.0.1<br>Copyright &copy;2002 - 2003 <a href=http://www.mtvok.com target=""_blank""><b>mtvok.com</b></a>，页面执行时间： "& cint((timer()-startime)*1000)&" 毫秒</div>"
%>