?? asp
字號:
<%@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)
{
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -