📄 res.asp
字号:
<%if session("password")<>"" then%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>电话信息系统</title>
<style type="text/css">
<!--
@import url("20041026_25175_stry_css.css");
-->
</style>
</head>
<body>
<table width="100%" height="25" align="center" cellpadding="0" cellspacing="0" class="unnamed_rld2">
<tr bgcolor="#EEEEEE">
<td width="100" align="center"><a href="add.asp">添加</a></td>
<td width="100" align="center" bgcolor="#EEEEEE"><a href="res.asp">按电话查询</a></td>
<td width="100" align="center"><font color="#0000CC" size="2"><a href="admin.asp">管理页面</a></font></td>
<td width="100" align="center"><a href="logout.asp">退出</a></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<form action="adminlook.asp" method="post" name="form1" >
<table width="100%" border="0">
<tr>
<td width="80" height="25">
客户电话：</td>
<td height="25" align="right">
<div align="left">
<input name="xh" type="text" id="xh" size="50">
<input type="submit" name="Submit" value="提交">
</div> </td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<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("20041026_25175_stry_css.css");
a {
font-size: 12px;
}
tr {
font-size: 12px;
}
-->
</style>
</head>
<body>
<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>
<table width="100%" height="25" align="center" cellpadding="0" cellspacing="0" class="unnamed_rld2">
<tr bgcolor="#DC143C">
<td width="100" align="center"> </td>
<td width="100" align="center" bgcolor="#DC143C"> </td>
<td width="100" align="center"> </td>
<td width="100" align="center"> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" id="table1">
<tr>
<td valign='top'>
<!--#include file="conn1.asp"-->
<%
page = CLng(request("page")) '利用CLng函数把page值转换为Long型
judge=request("judge")
judge2=request("judge2")
judge3=0
sqlcmd="select * from bbs1 Order By xh Desc"
rs.Open sqlcmd,newconn,1,2
%>
<form method="POST" id=form1 name=form3>
<table width="100%" border='1' align="center" cellpadding='0' cellspacing='0' bordercolor="#F7F7F7" id=table2>
<tr>
<td width="20" height="20" align=center bgcolor="#EEEEEE"> </td>
<td height="20" bgcolor="#66CDAA">入网时间</td>
<td height="20" align=center bgcolor="#F5F5DC">姓名</td>
<td height="20" align=center bgcolor="#FF7F50">号码</td>
<td height="20" align=center bgcolor="#DC143C">卡号</td>
<td height="20" align=center bgcolor="#FFE4C4">证件</td>
<td height="20" align=center bgcolor="#8FBC8F">地址</td>
<td height="20" align=center bgcolor="#FFF0F5">入网费 </td>
<td height="20" align=center bgcolor="#7FFF00">送话费</td>
<td height="20" bgcolor="#EEEEEE">实际话费</td>
<td height="20" bgcolor="#EEEEEE">套餐信息</td>
<td height="20" bgcolor="#5F9EA0">证件状况</td>
</tr>
<%
if not (rs.EOF or rs.BOF) then
rs.MoveFirst
rs.PageSize = 12 '每页显示的条数
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=center width="20">
</td>
<td height="20" align=left bgcolor="#66CDAA"><div align="center"><%=rs("CJ")%></div></td>
<td height="20" align=left bgcolor="#F5F5DC"><div align="center"><%=rs("bj")%></div></td>
<td height="20" align=left bgcolor="#FF7F50"><div align="center"><%=rs("xh")%></div></td>
<td height="20" align=left bgcolor="#DC143C"><div align="center"><%=rs("kc")%></div></td>
<td height="20" align=left bgcolor="#FFE4C4"><div align="center"><%=rs("user")%></div></td>
<td height="20" align=left bgcolor="#8FBC8F"><div align="center"><%=rs("dz")%></div></td>
<td height="20" align=left bgcolor="#FFF0F5"><div align="center"><%=rs("fy")%></div></td>
<td height="20" align=left bgcolor="#7FFF00"><div align="center"><%=rs("zshf")%></div></td>
<td height="20" align=left><div align="center"><%=rs("sjhf")%></div></td>
<td height="20" align=left><div align="center"><%=rs("biglocation")%></div></td>
<td height="20" align=left bgcolor="#5F9EA0><div align="center"><%=rs("LX")%></div></td>
<td height="20" bgcolor="#EEEEEE"><a href="update.asp?id=<%=rs("id")%>">修</a><a href="dy.asp?id=<%=rs("id")%>">打</a></td>
</tr>
<%
rs.MoveNext
If rs.EOF Then Exit For
Next
%>
<tr>
<td height="20" colspan="12"> </td>
</tr>
</table>
</form>
<table border="0" align="center" cellpadding="0" cellspacing="0" width="100%" id="table3">
<tr>
<form onSubmit="return test();" method="get" action="admin.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=admin.asp?page=1 class='yellow'>第一页</a>"
Response.Write " <a href=admin.asp?page=" & (page - 1) & " class='yellow'>上一页</a>"
End If
If page <> RS.PageCount Then
Response.Write " <a href=admin.asp?page=" & (page + 1) & " class='yellow'>下一页</a>"
Response.Write " <a href=admin.asp?page=" & RS.PageCount & " class='yellow'>最后一页</a>"
End If
If page = RS.PageCount Then
Response.Write " <font class='white'>下一页 最后一页</font>"
End If
%></td>
<td height="25" bgcolor="#E4E4E4" >GOTO页数：
<%Response.Write "<input type=text size=2 maxlength=4 name=page class=editbox1><input type=hidden name=judge value=1>" '显示输入页数框并将page,judge参数传递下去%></td>
</form>
</tr>
<tr>
<td class="white" colspan="2" height="25" >记录总数：<%=rs.recordCount%> 总页数：<%=rs.PageCount%> 当前页次：<%=page%> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" id="table4">
<tr>
<td><%else%></td>
<td>
对不起，还没有记录！
</td>
<td><%end if%></td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
<%else
Response.Redirect "admpost.asp"
end if%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -