infolist.asp

设计广州农信管理系统,具有一般的存取款功能等客户服务.

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/DatabaseConnection.asp" -->
<%
Dim rsDepartment
Dim rsDepartment_numRows

Set rsDepartment = Server.CreateObject("ADODB.Recordset")
rsDepartment.ActiveConnection = MM_DatabaseConnection_STRING
rsDepartment.Source = "SELECT * FROM MemberInfo ORDER BY MemberID ASC"
rsDepartment.CursorType = 0
rsDepartment.CursorLocation = 2
rsDepartment.LockType = 1
rsDepartment.Open()

rsDepartment_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
rsDepartment_numRows = rsDepartment_numRows + Repeat1__numRows
%>

<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim rsDepartment_total
Dim rsDepartment_first
Dim rsDepartment_last

' set the record count
rsDepartment_total = rsDepartment.RecordCount

' set the number of rows displayed on this page
If (rsDepartment_numRows < 0) Then
  rsDepartment_numRows = rsDepartment_total
Elseif (rsDepartment_numRows = 0) Then
  rsDepartment_numRows = 1
End If

' set the first and last displayed record
rsDepartment_first = 1
rsDepartment_last  = rsDepartment_first + rsDepartment_numRows - 1

' if we have the correct record count, check the other stats
If (rsDepartment_total <> -1) Then
  If (rsDepartment_first > rsDepartment_total) Then
    rsDepartment_first = rsDepartment_total
  End If
  If (rsDepartment_last > rsDepartment_total) Then
    rsDepartment_last = rsDepartment_total
  End If
  If (rsDepartment_numRows > rsDepartment_total) Then
    rsDepartment_numRows = rsDepartment_total
  End If
End If
%>

<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (rsDepartment_total = -1) Then

  ' count the total records by iterating through the recordset
  rsDepartment_total=0
  While (Not rsDepartment.EOF)
    rsDepartment_total = rsDepartment_total + 1
    rsDepartment.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (rsDepartment.CursorType > 0) Then
    rsDepartment.MoveFirst
  Else
    rsDepartment.Requery
  End If

  ' set the number of rows displayed on this page
  If (rsDepartment_numRows < 0 Or rsDepartment_numRows > rsDepartment_total) Then
    rsDepartment_numRows = rsDepartment_total
  End If

  ' set the first and last displayed record
  rsDepartment_first = 1
  rsDepartment_last = rsDepartment_first + rsDepartment_numRows - 1
  
  If (rsDepartment_first > rsDepartment_total) Then
    rsDepartment_first = rsDepartment_total
  End If
  If (rsDepartment_last > rsDepartment_total) Then
    rsDepartment_last = rsDepartment_total
  End If

End If
%>
<%
Dim MM_paramName 
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth

Dim MM_removeList
Dim MM_item
Dim MM_nextItem

' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then
  MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If

MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""

' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
  End If
Next

' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
  End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then 
  MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "")  Then
  MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
  MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
  If (firstItem <> "") Then
    MM_joinChar = "&"
  Else
    MM_joinChar = ""
  End If
End Function
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE>员工信息查询</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2600.0" Name=GENERATOR>
<link href="home.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0>
<!--#include file="Default_top.asp" -->
<TABLE width="760" border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
    <TR> 
      <TD width=1 background="images/dotLine_h.gif"><IMG src="images/shim(1).gif" width=1></TD>
      <TD Width="100" align="center" bgcolor="#EEEEEE">&nbsp;</TD>
      <td width="10" bgcolor="#F2FBF2"></td>
      <TD bgcolor="#F2FBF2"><img src="images/ClassManage_Title.GIF" width="500" height="60"><br>
        <strong>已有的人员：</strong>
        <table width="95%" border="1" cellspacing="3" cellpadding="3">
          <tr align="center" valign="middle" bordercolorlight="#CCCCCC" bordercolordark="#FFFFFF"> 
            <td><strong>联社员工共有<%=(rsDepartment_total)%>条记录</strong></td>
          </tr>
          <tr align="center" valign="top"> 
            <td><table width="100%" border="0" cellspacing="2" cellpadding="0">
                  <tr align="center" valign="middle"> 
                    <td>部&nbsp;&nbsp;&nbsp;&nbsp;门</td>
                    <td>工作编号</td>
                    <td>姓&nbsp;&nbsp;&nbsp;&nbsp;名</td>
                    <td>操&nbsp;&nbsp;&nbsp;&nbsp;作</td>
                  </tr>
                    <% 
While ((Repeat1__numRows <> 0) AND (NOT rsDepartment.EOF)) 
%>
                  <form name="form0">

                    <tr align="center" valign="middle">
                      <td><%=(rsDepartment.Fields.Item("MemberDepartment").Value)%></td>
                      <td><%=(rsDepartment.Fields.Item("MemberID").Value)%></td>
                      <td><%=(rsDepartment.Fields.Item("MemberName").Value)%></td>
                      <td><A HREF="InfoModify.asp?<%= Server.HTMLEncode(MM_keepURL) & MM_joinChar(MM_keepURL) & "MemberID=" & rsDepartment.Fields.Item("MemberID").Value %>">修改</A>&nbsp;&nbsp;<A HREF="InfoDel.asp?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "MemberID=" & rsDepartment.Fields.Item("MemberID").Value %>">删除</A></td>
                    </tr>
                  </form>
                    <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rsDepartment.MoveNext()
Wend
%>


            </table></td>
          </tr>
        </table>
        <br>
      </td>
      <TD width=1 background="images/dotLine_h.gif"><IMG src="images/shim(1).gif" width=1></TD>
    </TR>
    <tr> 
      <TD height="1" colspan="7" background="images/dotLine_w.gif"><IMG height=1 src="images/shim(1).gif" width=100></TD>
    </tr>
  </TBODY>
</TABLE>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>
		<Iframe src="CopyRight.asp" width="760" height="200" marginheight="0" marginwidth="0" scrolling="NO" frameborder="0" name="CopyRight"></iframe>
	</td>
  </tr>
</table></BODY>
</HTML>
<%
rsDepartment.Close()
Set rsDepartment = Nothing
%>