📄 manage_list.asp

📁 一个做得非常精美的进存销系统,可惜某些功能上做了限制．
💻 ASP
字号:
<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<!--#include file="Inc/Function.asp"-->
<%
Dim rs,news,sqltext
Dim yegh,yename
Set rs=Server.Createobject("Adodb.RecordSet")
sqltext = "Select * From [HQ_User] Where Levels='"&oo7&"' or Levels='"&oo3&"' "
If Request.QueryString("action") = "search" Then
yegh = Trim(Request.Form("yegh"))
yename = Trim(Request.Form("yename"))
  If yegh="" and yename="" Then
  sqltext = sqltext & " Order By ID Desc"
  Else
      If yegh<>"" Then 
	 sqltext = sqltext & " and ID="&yegh&" "
      End if
             If yename<>"" Then 
		     sqltext = sqltext & " and User_Name='"&yename&"' "
             End if
   End if
Else
sqltext = sqltext & " Order By ID Desc"
End if

rs.Open sqltext,Conn,1,1

MaxPerPage=30
text="0123456789"
rs.PageSize=MaxPerPage
for i=1 to Len(Request.QueryString("page"))
checkpage = Instr(1,text,mid(Request.QueryString("page"),i,1))
if checkpage=0 then
exit for
end if
next

If checkpage<>0 then
If NOT IsEmpty(Request.QueryString("page")) Then
CurrentPage=Cint(Request.QueryString("page"))
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > rs.PageCount Then CurrentPage = rs.PageCount
Else
CurrentPage= 1
End If
If not rs.eof Then rs.AbsolutePage = CurrentPage end if
Else
CurrentPage=1
End if
%>
<html>
<head>
<title>管理中心</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="Image/style.css" type=text/css rel=stylesheet>
<script language="JavaScript" src="Image/js.js"></SCRIPT>
</head>
<body text="#000000">
<form name="form1" method="post" action="?action=search">
  <table width="98%" border="0" cellpadding="0" cellspacing="0" align="center" class=TableBorder>
    <tr height="22" valign="middle" align="center"> 
      <th width="22%">工号</th>
      <th width="21%">业务员姓名</th>
      <th width="57%">&nbsp;</th>
    </tr>
    <tr height="22" valign="middle" align="center"> 
      <td class=forumrow><input name="yegh" type="text" id="yegh" size="20" maxlength="30"></td>
      <td class=forumrow><input name="yename" type="text" id="yename" size="20" maxlength="30"></td>
      <td class=forumrow><input type="submit" name="Submit" value="查 找"> </td>
    </tr>
  </table>
</form>
<table width="98%" border="0" cellpadding="0" cellspacing="0" align="center" class=TableBorder>
  <tr height="22" valign="middle" align="center"> 
    <th width="11%">工号</th>
    <th width="13%">级别</th>
    <th width="19%">姓名</th>
    <th width="20%">登陆时间</th>
    <th width="11%">登陆IP</th>
    <th width="26%">操作</th>
  </tr>
<%
i=0
If rs.Eof Then
Response.Write "<tr><td colspan='6'>没有任何记录!</td></tr>"
Else
Do While Not rs.Eof
%>
  <tr valign="middle" bgcolor="#FFFFFF" align="center" height="22"> 
    <td width="11%"><%=rs("ID")%></td>
    <td width="13%"><%=Manage_Level(rs("Levels"))%></td>
    <td width="19%"><%=rs("User_Name")%></td>
    <td width="20%"><%=rs("LoginTime")%></td>
    <td width="11%"><%=rs("IP")%></td>
    <td width="26%"><a href="User_Edit.asp?id=<%=rs("ID")%>">编辑</a> | <a href="User_Del.asp?id=<%=rs("ID")%>" onclick="{if(confirm('确定删除吗?')){return true;}return false;}">删除</a></td>
  </tr>
<%
i=i+1 
if i >= MaxPerpage then exit do 
rs.MoveNext
Loop
End if
%>
</table>
<%showpage()%>
</html>
<%
rs.Close
Set rs=Nothing
Conn.Close
Set Conn=Nothing
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -