📄 counttest2.asp

📁 工资管理系统功能齐全包括工人工资信息查询.
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="CheckLogin.asp"-->
<!--#include file="StudentConn.asp" -->
<%
	Test_Name=Request("SheetName")
	Content_Name=Request("Content")
%>
<%
	Dim RS1
	Set RS1 = Server.CreateObject("ADODB.Recordset")
	RS1.ActiveConnection = MM_StudentConn_STRING
	RS1.Source = "SELECT * FROM " & Test_Name
	RS1.CursorType = 0
	RS1.CursorLocation = 2
	RS1.LockType = 1
	RS1.Open()
%>
<!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">
<style type="text/css">
<!--
body {
	background-color: #f7f7ff;
}
.STYLE1 {
	font-size: 18px;
	color: #3333FF;
	font-weight: bold;
}
-->
</style>
<script language="JavaScript">
function ChangeClass()
{
	if(document.form1.gongshi.value=="")
	{
		document.form1.gongshi.value=document.form1.ziduan.value;
	}
	else
	{
		document.form1.gongshi.value=document.form1.gongshi.value + "+" + document.form1.ziduan.value;	}
}
</script>
</HEAD>
<BODY text=#000000 leftMargin=0 topMargin=0>
<!--#include file="ScoreManage_top.asp"-->
  <p align="center" class="STYLE1">公式设置</p>
<form Name="form1" action="SaveContent.asp" method="post">
  <TABLE width="400" border=1 align="center" cellPadding=8 cellSpacing=0 bordercolor="#CCCCFF" style="border-collapse:collapse">
	<tr>
	<td align="right" class="content">月库名称：</td>
	<td width="171" align="left"><%=Test_Name%></td>
	</tr>
	<TR> 
	<TD align="right" class="content">项目名称：</td>
    <TD align="left" class="content"><%=Content_Name%></td>
	</tr>
    <tr align="center">
      <td align="right" class="content">选择统计字段：</td>
      <td align="left">
	   <table width="100%">
	     <tr>
		   <td align=left>
			<select id="ziduan" onChange="ChangeClass()">
			<option value="应发总数">应发总数</option>
			<option value="实发总数">实发总数</option>
			<option value="上交税额">上交税额</option>
            <%
				For i = 4 to RS1.Fields.Count - 1 
			%>
			<option value="<%=RS1.Fields(i).Name%>"><%=RS1.Fields(i).Name%></option>
			<%
				next
			%>
			</select>
			</td>
		  </tr>
		</table>
	  </td>
    </tr>
	<tr>
	  <td align="right" class="content">公式定义：</td>
	  <td align="left"><textarea name="gongshi" cols="35" style="width:250;overflow-x:visible;overflow-y:visible;"></textarea></td>
	</tr>
    <tr align="center"> 
	  <td height="43" colspan="2">
	  <input type="submit" name="Submit2" value="保存公式">
	  <input type="hidden" name="TestName" value="<%=Test_Name%>">
	  <input type="hidden" name="ContentName" value="<%=Content_Name%>"><span class="msg"><%=Request("mmsg")%></span>
	  </td>
	</tr>
  </table>
</td>
</TR>
</TABLE>
</form>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>
		<Iframe src="CopyRight.asp" width="760" height="100" scrolling="NO" frameborder="0" name="CopyRight"></iframe>
	</td>
  </tr>
</table>
</BODY>
</HTML>
<%
	RS1.Close()
	Set RS1 = Nothing
%>
⌨️ 快捷键说明

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