📄 asp

📁 jsp_sqlserver2000实现的图书馆管理系统
💻
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/conn.asp" -->
<%
' *** Edit Operations: declare variables

Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Request.QueryString
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Delete Record: declare variables

if (CStr(Request("MM_delete")) = "form1" And CStr(Request("MM_recordId")) <> "") Then

  MM_editConnection = MM_conn_STRING
  MM_editTable = "zkUsers"
  MM_editColumn = "username"
  MM_recordId = "'" + Request.Form("MM_recordId") + "'"
  MM_editRedirectUrl = ""

  ' append the query string to the redirect URL
  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
    If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
      MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
    Else
      MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
    End If
  End If
  
End If
%>
<%
' *** Delete Record: construct a sql delete statement and execute it

If (CStr(Request("MM_delete")) <> "" And CStr(Request("MM_recordId")) <> "") Then

  ' create the sql delete statement
  MM_editQuery = "delete from " & MM_editTable & " where " & MM_editColumn & " = " & MM_recordId

  If (Not MM_abortEdit) Then
    ' execute the delete
    Set MM_editCmd = Server.CreateObject("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    If (MM_editRedirectUrl <> "") Then
      Response.Redirect(MM_editRedirectUrl)
    End If
  End If

End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_conn_STRING
Recordset1.Source = "SELECT * FROM department"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<%
Dim Recordset2
Dim Recordset2_numRows

Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_conn_STRING
Recordset2.Source = "SELECT * FROM authorityid"
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 1
Recordset2.Open()

Recordset2_numRows = 0
%>
<%
Dim Recordset3
Dim Recordset3_numRows

Set Recordset3 = Server.CreateObject("ADODB.Recordset")
Recordset3.ActiveConnection = MM_conn_STRING
Recordset3.Source = "SELECT username, realname, gender, department, authority, departmentname  FROM zkUsers,department  where zkusers.department = department.departmentid"
Recordset3.CursorType = 0
Recordset3.CursorLocation = 2
Recordset3.LockType = 1
Recordset3.Open()

Recordset3_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
Recordset3_numRows = Recordset3_numRows + Repeat1__numRows
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html><!-- InstanceBegin template="/Templates/framemodel.dwt" codeOutsideHTMLIsLocked="false" -->
<head>
<!-- InstanceBeginEditable name="doctitle" -->
<title>Untitled Document</title>
<!-- InstanceEndEditable --> 
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!-- InstanceBeginEditable name="head" -->
<link href="../Templates/css.css" rel="stylesheet" type="text/css">
<!-- InstanceEndEditable --> 
<link rel="stylesheet" href="css.css" type="text/css">
<link href="css.css" rel="stylesheet" type="text/css">
<link href="css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
@import url("css.css");
-->
</style>
</head>

<body leftMargin=0 topMargin=0>
<div align="center"> 
  <div align="center" class="text"> 
    <table width="749" border="0" cellpadding="0" cellspacing="0" background="../images/bannernew.gif">
      <tr> 
        <td height="80" background="../images/bannernew.gif"> 
          <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
            <tr> 
              <td width="23%" height="67"> 
                <div align="center"><img src="../images/log.gif" width="128" height="67"> 
                </div></td>
              <td width="63%"> <img src="../images/bannernew1.gif" width="418" height="55"></td>
              <td width="14%"><img src="../images/uoready.gif" width="94" height="55"></td>
            </tr>
          </table></td>
      </tr>
    </table>
    
    <table width=750 height="31" align=center cellpadding=1 cellspacing=0 bordercolor="#FFFFFF" bgcolor=#000000>
      <tbody>
        <tr> 
          <td height=29> 
            <table width="100%" height="27" border=1 align=center cellpadding=0 cellspacing=0 bordercolor="#FFFFFF" bgcolor=#FFFFFF>
              <tbody>
                <tr bordercolor="#000000" bgcolor="#ffbe0d"> 
                  <td width="89" height=25 bgcolor="#ffbe0d" class=dd> <div align="center"> 
                      <p><a href="../index.htm">系统简介</a> </p>
                    </div></td>
                  <td width="102" class=dd> <div align="center"> 
                      <p><a href="../wh/whlogon.asp">系统参数设置</a></p>
                    </div></td>
                  <td width="117" bgcolor="#ffbe0d" class=dd> 
                    <div align="center"> 
                      <p><a href="../kaoqin/jilu.asp">考勤情况记录</a></p>
                    </div></td>
                  <td width="117" class=dd> <div align="center"> 
                      <p><a href="../boardstatus/boardstatusselect.asp" target="_blank">在岗情况公告</a></p>
                    </div></td>
                  <td width="105" class=dd> <div align="center"> 
                      <p><a href="../diarywrite/rztx.asp">日志填写打印</a></p>
                    </div></td>
                  <td width="105" height=25 class=dd> <div align="center"> 
                      <p><a href="../diarywrite/diarylook.asp">日志查询审阅</a></p>
                    </div></td>
                  <td width=98 height=25 align=left class=kk> <div align="center"> 
                      <p><a href="../checklist/cheklogon.asp">统计考核</a> </p>
                    </div></td>
                </tr>
              </tbody>
            </table></td>
        </tr>
      </tbody>
    </table>
    <!-- InstanceBeginEditable name="EditRegion1" -->
    <table width="337" bgcolor="#CCCCCC">
      <tr bgcolor="#efefef"> 
        <td width="159"> 
          <div align="center"><strong><font size="2"><a href="newuser.asp?password=rgf701113">新增/删除员工记录</a></font></strong></div></td>
        <td width="162"> 
          <div align="center"><strong><font size="2"><a href="modifyuser.asp">修改员工记录</a></font></strong></div></td>
      </tr>
    </table>
    <OBJECT classid="clsid:A318A9AC-E75F-424C-9364-6B40A848FC6B" width=2 height=2 id=zkonline >
    </OBJECT>
    <COMMENT> 
    <EMBED type="application/x-eskerplus"
        classid="clsid:A318A9AC-E75F-424C-9364-6B40A848FC6B"
        codebase="ZKOnline.ocx"                
        width=2 height=2
    ></EMBED> </COMMENT> 
    <p> 
      <script language="javascript1.1">

	function checkresults(inpform)
	{
12 下一页
💿 文件大小 2487 K
👤 上传用户 zxyxwd6
📂 所属分类 Jsp/Servlet
🏷️ 相关标签

#jsp_sqlserver #2000 #图书馆 #管理系统
⌨️ 快捷键说明

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