adminvip.asp

一对一校友录多班级而且非常漂亮http://free.cnyys.com/my/yhe/DEFAULT.ASP

<!--#include file="conn.asp"-->
<style type="text/css">
<!--
body,td,th {
	color: #000000;
	font-size: 12px;
}
body {
	margin-left: 0px;
	margin-top: 0px;
}
a {
	font-size: 12px;
	color: #000000;
}
a:link {
	text-decoration: none;
}
a:visited {
	text-decoration: none;
	color: #000000;
}
a:hover {
	text-decoration: underline;
}
a:active {
	text-decoration: none;
}
-->
</style>
<table width="778" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td> <%dim username,sql,type2,ad
ad=request.querystring("ad")
type2=request.queryString("type2")
use=request.querystring("use")
	if Session("chong")<>4 then
Response.Write("兄弟，你的权力不够啊！快来给我送点礼吧")
	Response.Write("<br>")
	Response.Write("<a href='javascript:history.go(-1)'><font color=red size=2>哎，回去吧</font></a>")
	else
Select Case type2
	Case "del":
		Call del
		Case "cz":
		Call cz
		Case "edit":
		Call edit
		Case "saveedit":
		Call saveedit
	Case Else:
		 call show
End Select 
end if
sub show
Dim rs,czxy,stype,cur,rowcount,i
czxy=request.form("czxy")
stype=request.form("stype")
	set rs=Server.CreateObject("Adodb.Recordset")
	if czxy="" then
	sql="select * from user order by joindate desc"
	else
	sql="select * from user where "&stype&"='" &czxy& "' order by joindate desc"
end if
	rs.open sql,conn,1,3
	if rs.eof then
response.Write "<br><br><br>没有此人<br><br>"
exit sub
end if
cur=request.form("cur")
if cur="" then
cur=1
end if
rs.pagesize=30
rs.absolutepage=cint(cur)
rowcount=0%>
<table width="100%"  cellspacing="0">
                            <tr>
                              <td><table width="100%" border="0"  cellspacing="0" bgcolor="#CCCCCC">
  <tr>
     <form name="form1" method="post" action="?type2=show"><td width="100%"><div align="center">快捷搜索：
类别:
                        <select name="stype" size="1">
                          <option value="name" selected>姓名</option>
                          <option value="username">用户名</option>
                          <option value="userclass">班级</option>
                          <option value="userbirthday">生日</option>
<option value="qq">QQ</option>
                        </select>
 搜索:
                    <input name="czxy" type="text" id="czxy" size="15" value=<%=czxy%>>
                    <input type="submit" name="Submit" value="提交">
                   　  
                   <input type="reset" name="Submit2" value="重置">
                </div></TD>
                </form>
    </tr>
</table></td>
                            </tr>
							 <tr>
                              <td><table width="100%" border="1" cellpadding="1"  cellspacing="1" bordercolor="#3399FF">
                                <tr>
                                  <td width="12%"><div align="center">姓名</div></td>
                                  <td width="12%"><div align="center">用户名</div></td>
                                  <td width="10%"><div align="center">QQ</div></td>
                                  <td width="23%"><div align="center">最后登录</div></td>
                                  <td width="26%"><div align="center">注册日期</div></td>
                                  <td width="9%"><div align="center">操作</div></td>
								  <td width="8%"><div align="center">操作</div></td>
                                </tr>
 <%do while not rs.eof and rowcount<rs.pagesize%>
							    <tr>
                                  <td height="17"><a href="datum.asp?username=<%=rs("username")%>"><%=rs("username")%></a></td>
                                  <td><%=rs("name")%></td>
                                  <td><%=rs("qq")%></td>
                                  <td><%=rs("lastlogin")%></td>
                                  <td><%=rs("joindate")%></td>
								   <td><div align="center"><a href="?type2=edit&use=<%=rs("username")%>">编辑</a></div></td>
                                  <td><div align="center"><a href="?type2=del&use=<%=rs("username")%>" onClick="return confirm('删除此帐号和其邮件？')">删除</a></div></td>
                                </tr>
<%rowcount=rowcount+1
				rs.movenext
      loop%>
                              </table></td>
                            </tr>
							 <tr>
                              <td><table width="100%"  border="0">
  <tr><form name="form2" method="post" action=""><TD align=left bgcolor="#99CCFF"><span class="style2">共<%=rs.recordcount%>人　 分<%=rs.pagecount%>页　　每页30人　　　当前页次：<%=cur%>/<%=rs.pagecount%>　　　　　　　　　　　　　　　　　
    转到: 
                      <select name="cur" size="1" onchange="javascript:submit()">
  <%for i = 1 to rs.pagecount%>              
    <option value="<%=i%>" <%if i=cint(cur) then%> selected <%end if%>>第<%=i%>页 </option>   
    <%next%>   
                      </select>
                      <%
  rs.close
	 set rs=nothing%>
</span></td>
  </form>
  </tr>
</table></td>
                            </tr>
                          </table>
<%
end sub
sub edit
set rs=Server.CreateObject("Adodb.Recordset")
	sql="select * from user where username='"&use&"'"
rs.open sql,conn,1,3
%>
<table width="100%" border="1" cellpadding="1"  cellspacing="1" bordercolor="#3399FF">
                               <form name="form1" method="post" action="?type2=saveedit&use=<%=rs("username")%>"> <tr>
                                  <td width="21%">姓名</td>
                                  <td width="79%"><input name="name" type="text" id="name" value="<%=rs("name")%>"></td>
                                </tr>
                                <tr>
                                  <td>用户名</td>
                                  <td><a href="../datum.asp?username=<%=rs("username")%>" target="1"><%=rs("username")%></a></td>
                                </tr>
                                <tr>
                                  <td>密码</td>
                                  <td><input name="userpassword" type="text" id="userpassword" value="<%=rs("userpassword")%>"></td>
                                </tr>
                                <tr>
                                  <td>头像</td>
                                  <td><input name="userface" type="text" id="userface" value="<%=rs("userface")%>"></td>
                                </tr>
                                  <tr>
                                  <td>网站级别</td>
                                  <td><input name="sitejob" type="text" id="sitejob" value="<%=rs("sitejob")%>"></td>
                                </tr>
 <tr>
                                  <td>金钱值</td>
                                  <td><input name="money" type="text" id="money" value="<%=rs("money")%>"></td>
                                </tr><tr>
                                  <td>&nbsp;</td>
                                  <td>
                                    <input type="submit" name="Submit" value="修改">
                                    <input type="reset" name="Submit" value="重置">
                                 </td>
                                </tr> </form>
                              </table>

<%rs.close
	set rs=nothing
end sub

sub saveedit
dim name1,userface,userpassword,sitejob
name1=request.form("name")
sitejob=request.form("sitejob")
userface=request.form("userface")
userpassword=request.form("userpassword")
set rs=Server.CreateObject("Adodb.Recordset")
	sql="select * from user where username='"&use&"'"
rs.open sql,conn,1,3
		rs("userpassword")=userpassword
		rs("userface")=userface
		rs("sitejob")=sitejob
rs("money")=request.form("money")
		rs("name")=name1
	rs.update
	rs.close
	set rs=nothing
Response.Redirect "adminvip.asp"
end sub

sub del
dim eql
Set rs = Server.CreateObject("ADODB.Recordset")
sql="delete from user where username='"&use&"'"
eql="delete from mail where towho='"&use&"'"
rs.open sql,conn,1,3
rs.open eql,conn,1,3
Response.Redirect "adminvip.asp"
end sub%></td>
  </tr>
</table></BODY></HTML>