📄 yftj.asp

📁 工资管理系统功能齐全包括工人工资信息查询.

💻 ASP

字号:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="StudentConn.asp" -->
<html>
<head>
<meta http-equiv="content-type" content="gb2312">
<title></title>
<link href="home.css" rel="stylesheet" type="text/css">
</head>
<body topmargin="0" leftmargin="0">
<!--#include file="ScoreManage_top.asp"-->
<%
	msg="应发总计统计完毕！"
	nSheetName=Request("SheetName")
	if nSheetName<>"" Then
	Set Con=Server.CreateObject("ADODB.Connection")
	Con.ConnectionString=MM_StudentConn_STRING
	Con.Open
	Set rs=Server.CreateObject("ADODB.Recordset")
	sql="Select * from gongshi where Content='应发总数'"
	rs.open sql,Con,3,3
	Set Conn=Server.CreateObject("ADODB.Connection")
	Conn.ConnectionString=MM_StudentConn_STRING
	Conn.Open
	Set RS2 = Server.CreateObject("ADODB.Recordset")
	RS2.ActiveConnection = MM_StudentConn_STRING
	RS2.Source = "select StudentNum from " & nSheetName
	RS2.CursorType = 0
	RS2.CursorLocation = 3
	RS2.LockType = 3
	RS2.Open()
	strField=" Set "
	while not rs.eof
		strField=strField & "应发总数=" & rs("Test_Content")
		rs.MoveNext
	wend
	while not rs2.eof
		Sd=rs2(0)
		If strField<>"" and len(strField)>4 Then
			str="update " & nSheetName & strField & " where StudentNum='" & Sd & "'"
			Conn.execute(str)
			flag=1
%>
<%			
		else
			flag=0
		End if
		rs2.MoveNext		
	wend
	if flag=1 then
	%><p>&nbsp;</p><p class="title" align="center"><font color="#FF0000">应发总计统计完毕！</font></p>
	<table width="200" border="1" cellspacing="2" cellpadding="15" align="center" bordercolordark="#FFFFFF" bordercolorlight="#ff0000">
  <tr>
    <td align="center"><a href="SsSet1.asp?SheetName=<%=Request("SheetName")%>">重新计算上税部分！</a></td>
  </tr>
</table>
<%
	else
		Response.Redirect("CountTest.asp?msg="&mmsg)
	end if
	else
			Response.redirect("yftj0.asp")
	end if
%>
<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>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -