⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 dp_view.asp

📁 企业员工年度综合评测系统 Access(V1.060118)版
💻 ASP
字号:
<%@LANGUAGE="JAVASCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp" -->
<%
var rs = Server.CreateObject("ADODB.Recordset");
rs.ActiveConnection = MM_conn_STRING;
rs.Source = "SELECT departmentid, departmentname FROM department ORDER BY departmentname ASC";
rs.CursorType = 0;
rs.CursorLocation = 2;
rs.LockType = 1;
rs.Open();
var rs_numRows = 0;
%>
<%
var Repeat1__numRows = -1;
var Repeat1__index = 0;
rs_numRows += Repeat1__numRows;
%>
<% var MM_paramName = ""; %>
<%
// *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

// create the list of parameters which should not be maintained
var MM_removeList = "&index=";
if (MM_paramName != "") MM_removeList += "&" + MM_paramName.toLowerCase() + "=";
var MM_keepURL="",MM_keepForm="",MM_keepBoth="",MM_keepNone="";

// add the URL parameters to the MM_keepURL string
for (var items=new Enumerator(Request.QueryString); !items.atEnd(); items.moveNext()) {
  var nextItem = "&" + items.item().toLowerCase() + "=";
  if (MM_removeList.indexOf(nextItem) == -1) {
    MM_keepURL += "&" + items.item() + "=" + Server.URLencode(Request.QueryString(items.item()));
  }
}

// add the Form variables to the MM_keepForm string
for (var items=new Enumerator(Request.Form); !items.atEnd(); items.moveNext()) {
  var nextItem = "&" + items.item().toLowerCase() + "=";
  if (MM_removeList.indexOf(nextItem) == -1) {
    MM_keepForm += "&" + items.item() + "=" + Server.URLencode(Request.Form(items.item()));
  }
}

// create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL + MM_keepForm;
if (MM_keepBoth.length > 0) MM_keepBoth = MM_keepBoth.substring(1);
if (MM_keepURL.length > 0)  MM_keepURL = MM_keepURL.substring(1);
if (MM_keepForm.length > 0) MM_keepForm = MM_keepForm.substring(1);
%>
<!--#include file="forbidon.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
<link href="../imag/cs.css" rel="stylesheet" type="text/css" />
<style type="text/css">
<!--
.STYLE6 {color: #CCFF33}
.STYLE7 {color: #FF0000}
-->
</style>
</head>

<body>
<!--#include file="top.asp" -->
<table width="80%" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" class="atable">
  <tr>
    <td bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td bgcolor="#FFAFAF"><div align="left">&nbsp;&nbsp;<strong><em>&nbsp;<span class="STYLE6">step <span class="STYLE7">1</span>:</span></em></strong><span class="STYLE6"> 请选择被查看人所在的部门</span></div></td>
      </tr>
    </table>
      
      
      <% while ((Repeat1__numRows-- != 0) && (!rs.EOF)) { %>
        <% if (!rs.EOF || !rs.BOF) { %>
          <table width="100%" border="0" align="center" cellpadding="0" cellspacing="1">
            <tr>
              <td width="38%" bgcolor="#F6F6F6"><div align="center"><%=(rs.Fields.Item("departmentname").Value)%></div></td>
              <td width="62%" bgcolor="#F6F6F6"><A HREF="dp_score.asp?<%= Server.HTMLEncode(MM_keepNone) + ((MM_keepNone!="")?"&":"") + "departmentid=" + rs.Fields.Item("departmentid").Value %>">选中该部门</A></td>
            </tr>
          </table>
          <% } // end !rs.EOF || !rs.BOF %>
        <%
  Repeat1__index++;
  rs.MoveNext();
}
%>
      <% if (rs.EOF && rs.BOF) { %>
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td>&nbsp;</td>
          </tr>
        </table>
        <% } // end rs.EOF && rs.BOF %>
</td>
  </tr>
</table>
</body>
</html>
<%
rs.Close();
%>

⌨️ 快捷键说明

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