<!--#include file="conn1.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>VIP管理系统</title>
<link rel="stylesheet" rev="stylesheet" href="css.css" type="text/css" media="all" />
<script language="JavaScript">
<!--
function test(){
if (document.form2.page.value=="" || isNaN(document.form2.page.value)) {
alert("输入页数必须为数值型");
document.form2.page.focus();
return false;
}
return true;
}
// -->
</script>
<script>
function del () //用于判断记录有没有选中的函数
{
var flag=true;
var temp="";
var tmp;
if((document.form1.answer.length+"")=="undefined") {tmp=1}else{tmp=document.form1.answer.length}
if (tmp==1){
if (document.form1.answer.checked){
flag=false;
temp=document.form1.answer.value
}
}else{
for (i=0;i<document.form1.answer.length;i++) {
if (document.form1.answer[i].checked){
if (temp=="")
{
flag=false;
temp=document.form1.answer[i].value
}else{
flag=false;
temp = temp +","+ document.form1.answer[i].value
}
}
}
}
if (flag){ alert("对不起,你还没有选择!")}
else
{ name=document.form1.name.value
//alert(name)
if (confirm("确实要删除?")){
window.location="delnews.asp?id=" + temp;
}
}
return !flag;
}
</script>
<style type="text/css">
<!--
@import url("css.css");
a {
font-size: 12px;
}
tr {
font-size: 12px;
}
.style1 {font-size: 24px}
.STYLE2 {color: #FD8A00}
.STYLE4 {color: #000000}
-->
</style>
</head>
<body>
<span class="STYLE2">
<script language=Javascript>
function checkall(all)//用于判断全选记录的函数
{
var a = document.getElementsByName("answer");
for (var i=0; i<a.length; i++) a[i].checked = all.checked;
}
</script>
</span>
<table width="768" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="216" height="30" bgcolor="#FD8A00" class="STYLE2"> </td>
<td width="552" bgcolor="#FD8A00" class="STYLE2"><%
If session("admin")<>"" then
Response.Write" <a href='backup.asp' style='color:black'>数据备份</a> "
Response.Write" <a href='sync.asp' style='color:black'>保存数据</a> "
Response.Write" <a href='admin_modpwd.asp' style='color:black'>修改管理密码</a> "
Response.Write" <a href='add.asp' style='color:black'>申请VIP卡</a> "
Response.Write" <a href='loginout.asp' style='color:black'>退出</a>"
Else
Response.Write" <a href='index.asp' style='color:black'>后台管理登录</a>"
End If
%></td>
</tr>
</table>
<table width="768" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td class="STYLE2"></td>
</tr>
</table>
<table width="768" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign='top' class="STYLE2">
<%
page = CLng(request("page")) '利用CLng函数把page值转换为Long型
judge=request("judge")
judge2=request("judge2")
judge3=0
sqlcmd="select * from data Order By cards Desc"
rs.Open sqlcmd,newconn,1,2
%>
<table border="0" cellpadding="15" cellspacing="0" width="768" align="center">
<tr>
<td height="10" align="left" valign="middle">
<form name="form2" method="post" action="index_show.asp">
VIP卡搜索:
<select name="sokind" class="celect">
<option value="name">持卡人</option>
<option value="cards">VIP卡号</option>
<option value="network">申请网点</option>
</select>
关键字:
<input name="keyword" type="text" class="input" maxlength="19">
<input name="Submit2" type="submit" class="button" value=" 搜索 ">
</form>
<table width="768" border='1' align="center" cellpadding='0' cellspacing='0' bordercolor="#CCCCCC" id=TabDocMain>
<tr bgcolor="#FD8A00">
<td width="85" height="20" align=center bgcolor="#FD8A00">持卡人</td>
<td width="181" height="20" align=center bgcolor="#FD8A00">卡号</td>
<td width="123" height="20" align=center bgcolor="#FD8A00">联系电话</td>
<td width="121" height="20" align=center bgcolor="#FD8A00">申请时间</td>
<td width="82" height="20" align=center bgcolor="#FD8A00">申请网点</td>
<td width="73" height="20" align=center bgcolor="#FD8A00">VIP等级 </td>
<td width="87" height="20" align=center bgcolor="#FD8A00"> 操作</td>
</tr>
<%
if not (rs.EOF or rs.BOF) then
rs.MoveFirst
rs.PageSize = 30 '每页显示的条数
If page < 1 Then page = 1
If page > rs.PageCount Then page = rs.PageCount
rs.AbsolutePage = page
For ipage = 1 To rs.PageSize
%>
<tr>
<td height="20" align=left width="85"><div align="center"><%=rs("name")%></div></td>
<td height="20" align=left width="181"><div align="center"><%=rs("cards")%></div></td>
<td height="20" align=left width="123"><div align="center"><%=rs("phone")%></div></td>
<td height="20" align=left width="121"><div align="center"><%=rs("time")%></div></td>
<td height="20" align=left width="82"><div align="center"><%=rs("network")%></div></td>
<td height="20" align=left width="73"><div align="center"><%=rs("level")%></div></td>
<td height="20" align=center width="87"><%
If session("Admin")<>"" then
Response.Write" <a href='kymod.asp?id="&Rs("id")&"' style='color:red'>修改</a>"
Response.Write" <a href='del.asp?id="&Rs("id")&"' style='color:red'>删除</a>"
End If
%></td>
</tr>
<%
rs.MoveNext
If rs.EOF Then Exit For
Next
%>
</table>
</form>
<table border="0" align="center" cellpadding="0" cellspacing="0" width="768">
<tr>
<form onSubmit="return test();" method="get" action="index_show.asp" id=form2 name=form2>
<td width="220" height="25" bgcolor="#F0F0F0" ><%
If page = 1 Then
Response.Write "<font class='white'>首页</font>"
End If
If page <> 1 Then
Response.Write "<a href=index_show.asp?page=1 class='yellow'>首页</a>"
Response.Write " <a href=index_show.asp?page=" & (page - 1) & " class='yellow'>上一页</a>"
End If
If page <> RS.PageCount Then
Response.Write " <a href=index_show.asp?page=" & (page + 1) & " class='yellow'>下一页</a>"
Response.Write " <a href=index_show.asp?page=" & RS.PageCount & " class='yellow'>最后一页</a>"
End If
If page = RS.PageCount Then
Response.Write " <font class='white'></font>"
End If
%></td>
<td width="286" height="25" bgcolor="#E4E4E4" >转到
<%Response.Write "<input type=text size=2 maxlength=4 name=page class=editbox1><input type=hidden name=judge value=1>" '显示输入页数框并将page,judge参数传递下去%>
页
<label>
<input type="submit" name="Submit" value="确定">
</label></td>
<td width="262" bgcolor="#E4E4E4" ><span class="white">VIP总数:<%=rs.recordCount%>个 页数:<%=rs.PageCount%>页 当前是:第<%=page%>页 </span></td>
</form>
</tr>
<tr>
<td class="white" colspan="3" height="25" ></td>
</tr>
</table>
<table width="768" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><%else%></td>
<td><table border="0" cellpadding="0" cellspacing="0" >
<td height="25" >对不起,还没有数据!</td>
</table></td>
<td><%end if%></td>
</tr>
</table></td>
</tr>
</table>
<table width="768" border="0" align="center" cellpadding="0" cellspacing="0">
<tr></tr>
</table>
<%
if session("admin") ="" then
response.Redirect "index.asp"
end if
%>
</body>
</html>
请高手们帮忙看一下为什么我这个asp的搜索功能搜索不了?请帮忙修改一下为谢!
最新推荐文章于 2023-05-09 16:30:35 发布