📄 infoprint.asp

📁 工资管理系统功能齐全包括工人工资信息查询.
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="CheckLogin.asp"-->
<!--#include file="StudentConn.asp" -->
<%
	Dim rsGrade1__MMColParam
	rsGrade1__MMColParam = "01"
	If (Request("MM_EmptyValue") <> "") Then 
	  rsGrade1__MMColParam = Request("MM_EmptyValue")
	End If
%>
<%
	Dim rsGrade1
	Dim rsGrade1_numRows
	Set rsGrade1 = Server.CreateObject("ADODB.Recordset")
	rsGrade1.ActiveConnection = MM_StudentConn_STRING
	rsGrade1.Source = "SELECT * FROM Class ORDER BY ClassID ASC"
	rsGrade1.CursorType = 0
	rsGrade1.CursorLocation = 2
	rsGrade1.LockType = 1
	rsGrade1.Open()
	rsGrade1_numRows = 0
%>
<!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">
<script language="JavaScript">
<!--
function checkform()
{
  if(document.form1.StudentNum.value=="")
  {
	  if(document.form1.Name.value=="")
	  {
		alert("你还没有填编号或姓名！");
		document.form1.StudentNum.focus();
		return false;
	  }
  }
}
-->
</script>
</HEAD>
<BODY text=#000000 bgColor=#f7f7ff leftMargin=0 topMargin=0>
<!--#include file="InfoManage_top.asp" -->
<TABLE width="760" border=0 align="center" cellPadding=0 cellSpacing=0>
    <TR> 
    <TD align="center" bgcolor="#F7f7ff"><b> <span class="title">请首先查询要打印的人员记录：</span></b><br>
        <table width="630" border="1" style="border-collapse:collapse" cellpadding="5" cellspacing="0" bordercolor="#CCCCFF">
        <form Name="form1" action="InfoPrint2.asp" method="post" target="_blank">
          <tr> 
            <td width="181" rowspan="3" align="right" class="topbar">请输入查询条件</td>
            <td width="426" align="left" nowrap>编号： 
              <input name="StudentNum" type="text" size="18" maxlength="8"></td>
          </tr>
          <tr> 
            <td align="left" nowrap>姓名： 
              <input name="Name" type="text" size="18" maxlength="8"></td>
          </tr>
          <tr> 
            <td align="left" nowrap>科室： 
			  <select name="ClassID">
                <option value="All" selected>全部</option>
                <%
					While (NOT rsGrade1.EOF)
				%>
				<option value="<%=(rsGrade1.Fields.Item("ClassName").Value)%>"><%=(rsGrade1.Fields.Item("ClassName").Value)%></option>
			<%
					  rsGrade1.MoveNext()
					Wend
					If (rsGrade1.CursorType > 0) Then
					  rsGrade1.MoveFirst
					Else
					  rsGrade1.Requery
					End If
				%></select></td>
          </tr>
          <tr> 
            <td align="right" class="topbar">请选择要打印的字段</td>
            <td colspan="2" align="left"> 
              <table width="100%" border="1" cellpadding="3"cellspacing="0" bordercolor="#FFCC99" style="border-collapse:collapse">
                <tr> 
                  <td><input name="chkStudentNum" type="checkbox" id="chkStudentNum" value="True" checked>编号</td>
                  <td><input name="chkName" type="checkbox" id="chkName" value="True" checked>姓名</td>
                  <td><input name="chkContent" type="checkbox" id="chkContent" value="True" checked>科室</td>
                </tr>
                <tr> 
                  <td><input name="chkPolitics" type="checkbox" id="chkPolitics" value="True" checked>政治面貌</td>
                  <td><input name="chkTelnum" type="checkbox" id="chkTelnum" value="True" checked>身份证号 </td>
                  <td><input name="chkRemark" type="checkbox" id="chkRemark" value="True" checked>帐号 </td>
                </tr>
              </table></td>
          </tr>
          <tr> 
            <td align="right" class="topbar">每页要打印的记录数</td>
            <td colspan="2" align="left"><input name="PageSize" type="text" id="PageSize" value="30" size="4" maxlength="4"></td>
          </tr>
          <tr> 
            <td colspan="3" align="center"><span class="msg"><br>
              推荐页面设置</span><span class="msg">：</span>
              <br>
              <br>
              <table width="260" border="1" style="border-collapse:collapse"align="center" cellpadding="2" cellspacing="1">
                <tr>
                  <td align="center" bgcolor="#FFFFCC">纸张大小为A4张</td>
                </tr>
                <tr>
                  <td align="center" bgcolor="#FFFFCC">页眉为空，页脚设为“&amp;b第&amp;p页/ 共&amp;P页&amp;b”</td>
                </tr>
                <tr>
                  <td align="center" bgcolor="#FFFFCC">上、下边距为20毫米</td>
                </tr>
                <tr>
                  <td align="center" bgcolor="#FFFFCC">左、右边距为15毫米</td>
                </tr>
              </table>
              <br>
            <input type="submit" name="Submit" value="打印预览"></td>
          </tr>
        </form>
      </table>
      </td>
    </TR>
</TABLE>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>
		<Iframe src="CopyRight.asp" width="760" height="100" marginheight="0" marginwidth="0" scrolling="NO" frameborder="0" name="CopyRight"></iframe>
	</td>
  </tr>
</table></BODY>
</HTML>
<%
rsGrade1.Close()
Set rsGrade1 = Nothing
%>
⌨️ 快捷键说明

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