www.gusucode.com > 蓝影会员系统(淡蓝色经典)源码程序 > sousuo.asp
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="conn.asp"-->
<%
if request("action")="del" then
set rs=server.createobject("adodb.recordset")
id=Request.QueryString("id")
sql="select * from admin where id="&id
rs.open sql,conn,1,3
rs.delete
rs.update
rs.close
conn.close
response.redirect "sousuo.asp"
end if
%>
<html>
<style type="text/css">
<!--
.unnamed1 {
border: 1px dashed #000000;
}
.unnamed11 { border-top-width: 1px;
border-right-width: 1px;
border-bottom-width: 1px;
border-left-width: 1px;
border-top-style: none;
border-right-style: solid;
border-bottom-style: solid;
border-left-style: solid;
}
.mytext {FONT-SIZE: 12px
}
.style1 {color: #7B0045}
.unnamed12 { height: 10.px;
height: 15px;
border: none;
background-color: #F2F8FF;
width: 50px;
}
.unnamed2 {height: 1px;
width: 1px;
clear: both;
border: none;
}
.style2 {font-weight: bold}
.unnamed21 { height: 1px;
width: 1px;
border: none;
}
body {
margin-top: 0px;
}
-->
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
<head><title>查询结果</title></head>
<body bgcolor="#ffffff" background=img/back.jpg>
</p>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><!--#include file="tou.asp" --></td>
</tr>
</table>
<table width="80%" height="2" border="0" cellpadding="0" cellspacing="0" id="2423423324">
<tr>
<td></td>
</tr>
</table>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2"></td>
</tr>
<tr>
<td width="174" height="182" valign="top"><table width="88%" height="14" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr>
<td bgcolor="#F2F8FF"><div align="center">会员信息</div></td>
</tr>
</table>
<table width="80%" height="2" border="0" cellpadding="0" cellspacing="0" id="sadfsdfs">
<tr>
<td></td>
</tr>
</table>
<table width="88%" height="71" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr>
<td width="208" height="0" bgcolor="#f2f8ff"><form name="form1" method="post" action="index.asp?action=yes" style="margin-bottom:0;margin-top:0">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="3">
<tr>
<td width="40%"><font color="#0000FF" size="2">用户名:</font></td>
<td width="60%"><input name="admin" type="text" class="unnamed12" id="admin" value="<%=Request.cookies("name")%>" size="8"></td>
</tr>
<tr>
<td><font color="#0000FF" size="2">身 份:</font></td>
<td><input name="password" type="text" class="unnamed12" id="password" value="管理员" size="8">
<input name="zt" type="text" class="unnamed2" id="zt" value="no"></td>
</tr>
<tr>
<td height="13" colspan="2"><div align="center"> <a href="tj.asp">添加管理员</a> <span class="style1"><a style="font-size:12" href="exit.asp">退出登陆</a></span> </div></td>
</tr>
</table>
</form></td>
</tr>
</table> </td>
<td width="596" valign="top">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
</table>
<%
shenfen=Request("shenfen")
if shenfen="" then
response.write "<SCRIPT language=JavaScript>alert('请输入要搜索的数据');"
response.write "this.location.href='vbscript:history.back()';</SCRIPT>"
response.end
end if
sql="SELECT * FROM admin where shenfen & zt & sex & admin like '%"&shenfen&"%'"
set rs=conn.execute(sql) '设定记录集rs，用conn执行SQL语句
if rs.eof or rs.bof then '当没有符合筛选结果时，则执行下面的句子
response.write "<script language=javascript>"
response.write "alert('没有找到你需要的数据!');"
response.write "javascript:history.go(-1);"
response.write "</script>" '用javascript脚本提示用户
else '如果符合条件的时候
set rs=server.createobject("adodb.recordset")
sql="SELECT * FROM admin where shenfen & zt & sex & admin like '%"&shenfen&"%'"
rs.open sql,conn,1,1
end if
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr>
<td bgcolor="#F2F8FF"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="13%"><div align="center"><a style="font-size:14px ">身份</a></div></td>
<td width="15%"><div align="center"><a style="font-size:14px ">姓名</a></div></td>
<td width="7%"><div align="center"><a style="font-size:14px ">性别</a></div></td>
<td width="16%"><div align="center"><a style="font-size:14px ">加入日期</a></div></td>
<td width="12%"> </td>
<td width="10%"><div align="center"><a style="font-size:14px ">状态</a></div></td>
<td width="11%"> </td>
<td width="16%"><font color="#000000" size="2">共有</font> <font color="#0000FF" size="2">
<% Response.Write(RS.RecordCount) %>
</font> <font color="#000000" size="2">个</font></td>
</tr>
</table></td>
</tr>
</table>
<table width="80%" height="2" border="0" cellpadding="0" cellspacing="0" id="dfgdfgds">
<tr>
<td></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr>
<td bgcolor="#F2F8FF"><center>
<% while not rs.eof %>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="73%" height="13"><div align="right"><font color="#0000FF" size="2"> </font>
<table width="80%" height="3" border="0" cellpadding="0" cellspacing="0" id="123123">
<tr>
<td></td>
</tr>
</table>
<table width="100%" border="0" align="left" cellpadding="0" cellspacing="0" bordercolordark="#ffffff" berdorcoorlight="#000000">
<tr align="center" bgcolor="#F2F8FF">
<td width="18%" align="center"><SPAN class=mytext><%=rs("shenfen")%></SPAN> </font></a></td>
<td width="21%" align="center"><div align="left"><font color="#0033FF" size="2"> <span class="mytext"><%=rs("admin")%></span></font></div></td>
<td width="9%" align="center"><div align="left"></div>
<div align="center"><%=rs("sex")%></div></td>
<td width="23%" align="center"><%=rs("date")%></td>
<td width="15%" align="center"> </td>
<td width="14%" align="center"><%if rs("zt")="停止" then%>
<a style="font-size:13;color:#FF0000" href="gl.asp?id=<%=rs("id")%>&action=no">停止</a>
<%end if%>
<%if rs("zt")="正常" then%>
<a style="font-size:13;color:#0000CC" href="gl.asp?id=<%=rs("id")%>&action=yes">正常</a>
<%end if%></td>
</tr>
</table>
<div align="left"><font color="#0000FF" size="2"></font> </div>
</div></td>
<td width="9%"> </td>
<td width="9%"><a href="gl.asp?action=bj&id=<%=rs("id")%>#123">操作</a></td>
<td width="9%"><a href="gl.asp?action=del&id=<%=rs("id")%>" onclick="return confirm('是否确定删除本歌曲？');">删除</a></td>
</tr>
</table>
<table width="80%" height="2" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
<% rs.movenext %>
</table>
<% wend %>
<% rs.close %>
</center></td>
</tr>
</table>
<p> </p>
</td>
</tr>
</table>
<br>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><!--#include file="down.asp" --></td>
</tr>
</table>
</body></html>