📄 account_manage.asp
字号:
<%@language=vbscript codepage=936 %>
<!--#include file="conn.asp"-->
<!--#include file="admin.asp"-->
<!--#include file="Inc/Function.asp"-->
<html>
<head>
<title>系统管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.back_southidc{BACKGROUND-IMAGE:url('image/titlebg.gif');COLOR:000000;}
.table_southidc{BACKGROUND-COLOR: A4B6D7;}
.td_southidc{BACKGROUND-COLOR: F2F8FF;}
.tr_southidc{BACKGROUND-COLOR: ECF5FF;}
.t1 {font:12px 宋体;color:#000000}
.t2 {font:12px 宋体;color:#ffffff}
.t3 {font:12px 宋体;color:#ffff00}
.t4 {font:12px 宋体;color:#800000}
.t5 {font:12px 宋体;color:#191970}
.weiqun:hover{
Font-unline:yes;
font-family: "宋体";
color: #FFFFFF;
text-decoration: underline;
background-color: #CCCCCC;
}
td {
font-size: 12px;
}
a:link {
color: #000000;
text-decoration: none;
}
a:active {
color: #000000;
text-decoration: none;
}
a:visited {
color: #000000;
text-decoration: none;
}
.receiptStatus {
color: #FF8000;
text-decoration: blink;
background-color: #6699CC;
}
.border {
border: 1px solid #666666;
}
#mingcheng {
position:absolute;
left:70px;
top:111px;
width:150px;
height:25px;
z-index:1;
background:#FFFFFF
}
#bianhao {
position:absolute;
left:150px;
top:111px;
width:150px;
height:25px;
z-index:1;
background:#FFFFFF
}
#shijian {
position:absolute;
left:240px;
top:111px;
width:150px;
height:25px;
z-index:1;
background:#FFFFFF
}
-->
</style>
</head>
<script language=javascript>
function ConfirmDel()
{
if(confirm("确定要删除此用户吗？"))
return true;
else
return false;
}
</script>
<script language="JavaScript">
function toggleVisibility(me)
{ if (me.style.visibility=="hidden"){ me.style.visibility="visible"; }
else { me.style.visibility="hidden"; }
}
function ADDJXS(JXS,ID)
{
document.JXSFORM.JXS.value=JXS;
document.JXSFORM.JXSID.value=ID;
toggleVisibility(jxs);
}
</script>
<script language="javascript">
<!--
if (window == top)top.location.href = "Default.asp";
// -->
</script>
<body>
<div class="border" id="mingcheng" style="visibility:hidden">
<table width="98%" border="0" cellspacing="0" cellpadding="0" align="center">
<form name="form1" method="post" action="Account_Manage.asp"> <tr>
<td height="24"><label>
<input name="mingcheng" type="text" size="20">
</label>
<label>
<input type="submit" name="Submit" value="提交">
<input name="type" type="hidden" id="type" value="mingcheng">
</label></td>
</tr> </form>
</table>
</div>
<div id="bianhao" class="border" style="visibility:hidden">
<table width="98%" border="0" cellspacing="0" cellpadding="0" align="center">
<form name="form1" method="post" action="Account_Manage.asp"> <tr>
<td height="24"><label>
<input name="bianhao" type="text" size="20">
</label>
<label>
<input type="submit" name="Submit" value="提交">
<input name="type" type="hidden" id="type" value="bianhao">
</label></td>
</tr> </form>
</table>
</div>
<div id="shijian" class="border" style="visibility:hidden">
<table width="98%" border="0" cellspacing="0" cellpadding="0" align="center">
<form name="form1" method="post" action="Account_Manage.asp"> <tr>
<td height="24"><label>
<input name="shijian" type="text" size="20">
</label>
<label>
<input type="submit" name="Submit" value="提交">
<input name="type" type="hidden" id="type" value="shijian">
</label></td>
</tr> </form>
</table>
</div>
<table width="770" height="100" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="862" align="center" valign="top"><br>
<br>
<table width="760" border="0" cellpadding="0" cellspacing="1" bgcolor="#D9E2F1">
<tr>
<td height="20" colspan="9" align="left" bgcolor="#FFFFFF"> [台帐管理]</td>
</tr>
<tr>
<td height="20" colspan="9" align="left" bgcolor="#ECF1F9"> | <a href="#" target="_self" onClick="toggleVisibility(mingcheng)">按品名查询</a> | <a href="#" target="_self" onClick="toggleVisibility(bianhao)">按领用单据号查询</a> | <a href="#" target="_self" onClick="toggleVisibility(shijian)">按发件日期查询</a> </td>
</tr>
<tr>
<td height="22" align="left" bgcolor="#FFFFFF"> 序号</td>
<td align="left" bgcolor="#FFFFFF"> 发件日期</td>
<td align="left" bgcolor="#FFFFFF"> 经销商名称</td>
<td align="left" bgcolor="#FFFFFF"> 品名及规格</td>
<td align="left" bgcolor="#FFFFFF"> 领用单据号</td>
<td align="left" bgcolor="#FFFFFF"> 领用数量</td>
<td align="left" bgcolor="#FFFFFF"> 备注状态</td>
<td align="left" bgcolor="#FFFFFF"> 经销商编号</td>
<td align="left" bgcolor="#FFFFFF"> 操作</td>
</tr>
<tr >
<td height="22" colspan="9" align="left" bgcolor="#FFFFFF" ><span style="color: #FF8000"> *注意：已回执信息标记为黄色</span></td>
</tr>
<%
On Error Resume Next
iPage = trim(Request.QueryString("page"))
if iPage="" then
iPage=1
end if
dim Rs,mingcheng,bianhao,shijian
SQL="SELECT * FROM ACCOUNT where id>0 "
if request("type")="mingcheng" then
SQL=SQL& "AND PINMING LIKE '%"&REQUEST("MINGCHENG")&"%'"
end if
if request("type")="bianhao" then
SQL=SQL& "AND LINGDANHAO='"&REQUEST("BIANHAO")&"'"
end if
if request("type")="shijian" then
SQL=SQL& "AND FAJIANRIQI='"&REQUEST("SHIJIAN")&"'"
end if
SET RS=SERVER.CreateObject("ADODB.RECORDSET")
SQL=SQL&" ORDER BY ID DESC"
'response.Write sql
RS.OPEN SQL,CONN,1,1
'Set Rs=conn.execute ("select * from INFO_CARD order by id desc")
if Rs.eof then
response.Write "还没有添加卡片信息"
response.end
else
Rs.PageSize = 10
iPageCount = Rs.PageCount
Rs.AbsolutePage = iPage
Dim i
For i = 1 To Rs.PageSize
If Rs.Eof Then Exit For
%>
<tr <% if Rs("receiptStatus")=1 then response.Write "class=receiptStatus" end if%>>
<td height="22" align="left" bgcolor="#FFFFFF" > <%= Rs("ID") %></td>
<td align="left" bgcolor="#FFFFFF"> <%= Rs("FAJIANRIQI") %></td>
<td align="left" bgcolor="#FFFFFF"> <a href="UserAccountManage.asp?UserId=<%=Rs("jxsId")%>"><font color="#FF0000"><%= Rs("jxs") %></font></a></td>
<td align="left" bgcolor="#FFFFFF"> <a href="AccountDetail.asp?id=<%= Rs("ID") %>"><%= Rs("PINMING") %></a></td>
<td align="left" bgcolor="#FFFFFF"> <%= Rs("LINGDANHAO") %></td>
<td align="left" bgcolor="#FFFFFF"> <%= Rs("LINGYONGSHULIANG") %></td>
<td align="left" bgcolor="#FFFFFF">
<%
IF Rs("chakanbeizhu")=0 THEN RESPONSE.Write "无备注" end if
if Rs("chakanbeizhu")=1 then response.Write "已查看" end if
if Rs("chakanbeizhu")=2 then response.Write "有备注" end if
%></td>
<td align="left" bgcolor="#FFFFFF"> <%= Rs("jxsid") %></td>
<td align="left" bgcolor="#FFFFFF"><a href="receipt.asp?Id=<%=Rs("Id")%>">回执</a> <a href="AccountModify.asp?Id=<%=Rs("Id")%>">修改</a> <a href="AccountDel.asp?ID=<%= RS("ID") %>&PAGE=<%= IPAGE %>">删除</a> <a href="AccountDetail.asp?id=<%= Rs("ID") %>">[查看详细]</a></td>
</tr>
<%
Rs.MoveNext
Next
End If
%>
<tr>
<td id="bottom" height="25" align="center" bgcolor="#FFFFFF" colspan="9">共<font color=red> <%=iPage%>/<%=Rs.RecordCount%></font>条记录 分<font color=red><%=iPageCount%></font>页 每页<font color=red><%=Rs.PageSize%></font>条
<%
If iPage = 1 Then
Response.Write("[第一页] ")
Response.Write("[上一页] ")
Else
Response.Write("<a href=?class="& sClass &"&key="& sKey &"&page=1><font color=red>[第一页]</font></a> ")
Response.Write("<a href=?class="& sClass &"&key="& sKey &"&page="& (iPage - 1) &"><font color=red>[上一页]</font></a> ")
End If
If iPageCount = iPage Then
Response.Write("[下一页] ")
Response.Write("[最后一页]")
Else
Response.Write("<a href=?class="& sClass &"&key="& sKey &"&page="& (iPage + 1) &"><font color=red>[下一页]</font></a> ")
Response.Write("<a href=?class="& sClass &"&key="& sKey &"&page="& iPageCount &"><font color=red>[最后一页]</font></a>")
End If
%> </td>
</tr> </table></td>
</tr>
</table>
<!-- #include file="Inc/Foot.asp" -->
<%
rs.Close
set rs=Nothing
call CloseConn()
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -