📄 setkqtimeafadsfafdvgwt.asp

📁 本oa系统内部短信.手机短信.文件传输.公文收发.邮件服务.共享下载.内部论坛等功能
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%  
Response.ExpiresAbsolute=now()-1
Response.CacheControl="no-cache"
%>
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers=""
MM_authFailedURL="../adminlogin666.asp"
MM_grantAccess=false
If Session("MM_Usernamesyslogin") <> "" Then
  If (true Or CStr(Session("MM_UserAuthorization"))="") Or _
         (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
    MM_grantAccess = true
  End If
End If
If Not MM_grantAccess Then
  MM_qsChar = "?"
  If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
  MM_referrer = Request.ServerVariables("URL")
  if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
  MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
  Response.Redirect(MM_authFailedURL)
End If
%><!--#include file="../../Connections/oavbsconn.asp" -->
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_oavbsconn_STRING
Recordset1.Source = "SELECT *  FROM 考勤系统设置"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<%
Dim shi
Dim shi_numRows

Set shi = Server.CreateObject("ADODB.Recordset")
shi.ActiveConnection = MM_oavbsconn_STRING
shi.Source = "SELECT 数值  FROM 时分秒  where 属性='时'  ORDER BY 排序"
shi.CursorType = 0
shi.CursorLocation = 2
shi.LockType = 1
shi.Open()

shi_numRows = 0
%>
<%
Dim fen
Dim fen_numRows

Set fen = Server.CreateObject("ADODB.Recordset")
fen.ActiveConnection = MM_oavbsconn_STRING
fen.Source = "SELECT 数值  FROM 时分秒  WHERE 属性='分'  ORDER BY 排序"
fen.CursorType = 0
fen.CursorLocation = 2
fen.LockType = 1
fen.Open()

fen_numRows = 0
%>
<%
Dim miao
Dim miao_numRows

Set miao = Server.CreateObject("ADODB.Recordset")
miao.ActiveConnection = MM_oavbsconn_STRING
miao.Source = "SELECT 数值  FROM 时分秒  WHERE 属性='秒'  ORDER BY 排序"
miao.CursorType = 0
miao.CursorLocation = 2
miao.LockType = 1
miao.Open()

miao_numRows = 0
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<style type="text/css">
<!--
.style24 {	color: #FFFFFF;
	font-weight: bold;
}
.style6 {font-size: 12px}
-->
</style>
<link href="../../css/link.css" rel="stylesheet" type="text/css">
</head>

<body>
<div align="center">
  <table width="760" height="21" border="0" cellpadding="0" cellspacing="0" background="../../img/bw/line.gif">
    <tr>
      <td><div align="center" class="style24">  考勤时间段设置 </div></td>
    </tr>
  </table>
  <table width="760" border="0" cellpadding="0" cellspacing="1" bgcolor="#5AAE18">
    <tr>
      <td bgcolor="#FFFFFF"><form name="form1" method="post" action="post.asp">
        <table width="99%" border="0" cellpadding="3" cellspacing="0">
          <tr>
            <td colspan="2">&nbsp;</td>
          </tr>
          <tr>
            <td>&nbsp;</td>
            <td> 起　始 　　　　　　　　　　　　　　结　束 </td>
          </tr>
          <tr>
            <td width="98">上午时间段：</td>
            <td width="650"><select name="时1" id="时1">
              <%
While (NOT shi.EOF)
%>
              <option value="<%=(shi.Fields.Item("数值").Value)%>" <%If (Not isNull((Recordset1.Fields.Item("上午时1").Value))) Then If (CStr(shi.Fields.Item("数值").Value) = CStr((Recordset1.Fields.Item("上午时1").Value))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(shi.Fields.Item("数值").Value)%></option>
              <%
  shi.MoveNext()
Wend
If (shi.CursorType > 0) Then
  shi.MoveFirst
Else
  shi.Requery
End If
%>
            </select>
              时
              <select name="分1" id="分1">
                <%
While (NOT fen.EOF)
%>
                <option value="<%=(fen.Fields.Item("数值").Value)%>" <%If (Not isNull((Recordset1.Fields.Item("上午分1").Value))) Then If (CStr(fen.Fields.Item("数值").Value) = CStr((Recordset1.Fields.Item("上午分1").Value))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(fen.Fields.Item("数值").Value)%></option>
                <%
  fen.MoveNext()
Wend
If (fen.CursorType > 0) Then
  fen.MoveFirst
Else
  fen.Requery
End If
%>
              </select>
              分
              <select name="秒1" id="秒1">
                <%
While (NOT miao.EOF)
%>
                <option value="<%=(miao.Fields.Item("数值").Value)%>" <%If (Not isNull((Recordset1.Fields.Item("上午秒1").Value))) Then If (CStr(miao.Fields.Item("数值").Value) = CStr((Recordset1.Fields.Item("上午秒1").Value))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(miao.Fields.Item("数值").Value)%></option>
                <%
  miao.MoveNext()
Wend
If (miao.CursorType > 0) Then
  miao.MoveFirst
Else
  miao.Requery
End If
%>
              </select>
              秒----
              <select name="时11" id="时11">
                
                <%
While (NOT shi.EOF)
%>
                <option value="<%=(shi.Fields.Item("数值").Value)%>" <%If (Not isNull((Recordset1.Fields.Item("上午时11").Value))) Then If (CStr(shi.Fields.Item("数值").Value) = CStr((Recordset1.Fields.Item("上午时11").Value))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(shi.Fields.Item("数值").Value)%></option>
                <%
  shi.MoveNext()
Wend
If (shi.CursorType > 0) Then
  shi.MoveFirst
Else
  shi.Requery
End If
%>
              </select>
时
<select name="分11" id="分11">
  
  <%
While (NOT fen.EOF)
%>
  <option value="<%=(fen.Fields.Item("数值").Value)%>" <%If (Not isNull((Recordset1.Fields.Item("上午分11").Value))) Then If (CStr(fen.Fields.Item("数值").Value) = CStr((Recordset1.Fields.Item("上午分11").Value))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(fen.Fields.Item("数值").Value)%></option>
  <%
  fen.MoveNext()
Wend
If (fen.CursorType > 0) Then
  fen.MoveFirst
Else
  fen.Requery
End If
%>
</select>
分
<select name="秒11" id="秒11">
 
  <%
While (NOT miao.EOF)
%>
  <option value="<%=(miao.Fields.Item("数值").Value)%>" <%If (Not isNull((Recordset1.Fields.Item("上午秒11").Value))) Then If (CStr(miao.Fields.Item("数值").Value) = CStr((Recordset1.Fields.Item("上午秒11").Value))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(miao.Fields.Item("数值").Value)%></option>
  <%
12 下一页
⌨️ 快捷键说明

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