📄 infoquery1.asp

📁 工资管理系统功能齐全包括工人工资信息查询.
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="StudentConn.asp" -->
<%
	Dim Recordset1__MMColParam, strStudentNum, strName, strClass
	set Recordset1 = Server.CreateObject("ADODB.Recordset")
	Recordset1.ActiveConnection = MM_StudentConn_STRING
	strStudentNum= Request("StudentNum")
	strName=Request("Name")
	strGrade=Request("Grade")
	strClass=Request("ClassID")
	if strStudentNum <> "" then
	  Recordset1__MMColParam =strStudentNum
	  Recordset1.Source = "SELECT * FROM StudentInfo WHERE StudentNum like '%" & Recordset1__MMColParam & "%' ORDER BY StudentNum"
	else
	  Recordset1__MMColParam =""
	  Recordset1.Source = "SELECT * FROM StudentInfo WHERE StudentNum like '%" & Recordset1__MMColParam & "%' ORDER BY StudentNum"
	end if
	if strName<>"" then
	  Recordset1__MMColParam =strName
	  Recordset1.Source = "SELECT *  FROM StudentInfo  WHERE Name like '%" & Recordset1__MMColParam & "%'  ORDER BY StudentNum"
	end if
	if strClass="All" then
	  Recordset1.Source = "SELECT *  FROM StudentInfo  WHERE GradeID='" & strGrade & "'  ORDER BY StudentNum"
	End if
	if strClass<>"" and strClass<>"All" then
	  Recordset1__MMColParam =strClass
	  Recordset1.Source = "SELECT *  FROM StudentInfo  WHERE ClassID = '" & Recordset1__MMColParam & "' and GradeID='" & strGrade & "'  ORDER BY StudentNum"
	End if
'	Response.Write(Recordset1.Source)
'	Response.End()
	Recordset1.CursorType = 0
	Recordset1.CursorLocation = 3
	Recordset1.LockType = 3
	Recordset1.Open()
	Recordset1_numRows = 0
%>
<%
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 WHERE GradeID = '" & rsGrade1__MMColParam & "' ORDER BY ClassID ASC"
rsGrade1.CursorType = 0
rsGrade1.CursorLocation = 2
rsGrade1.LockType = 1
rsGrade1.Open()

rsGrade1_numRows = 0
%>
<%
Dim rsGrade2__MMColParam
rsGrade2__MMColParam = "02"
If (Request("MM_EmptyValue") <> "") Then 
  rsGrade2__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rsGrade2
Dim rsGrade2_numRows

Set rsGrade2 = Server.CreateObject("ADODB.Recordset")
rsGrade2.ActiveConnection = MM_StudentConn_STRING
rsGrade2.Source = "SELECT * FROM Class WHERE GradeID = '" & rsGrade2__MMColParam & "' ORDER BY ClassID ASC"
rsGrade2.CursorType = 0
rsGrade2.CursorLocation = 2
rsGrade2.LockType = 1
rsGrade2.Open()

rsGrade2_numRows = 0
%>
<%
Dim rsGrade3__MMColParam
rsGrade3__MMColParam = "03"
If (Request("MM_EmptyValue") <> "") Then 
  rsGrade3__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rsGrade3
Dim rsGrade3_numRows

Set rsGrade3 = Server.CreateObject("ADODB.Recordset")
rsGrade3.ActiveConnection = MM_StudentConn_STRING
rsGrade3.Source = "SELECT * FROM Class WHERE GradeID = '" & rsGrade3__MMColParam & "' ORDER BY ClassID ASC"
rsGrade3.CursorType = 0
rsGrade3.CursorLocation = 2
rsGrade3.LockType = 1
rsGrade3.Open()

rsGrade3_numRows = 0
%>

<%
Dim rsGrade4__MMColParam
rsGrade4__MMColParam = "04"
If (Request("MM_EmptyValue") <> "") Then 
  rsGrade4__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rsGrade4
Dim rsGrade4_numRows

Set rsGrade4 = Server.CreateObject("ADODB.Recordset")
rsGrade4.ActiveConnection = MM_StudentConn_STRING
rsGrade4.Source = "SELECT * FROM Class WHERE GradeID = '" &rsGrade4__MMColParam & "' ORDER BY ClassID ASC"
rsGrade4.CursorType = 0
rsGrade4.CursorLocation = 2
rsGrade4.LockType = 1
rsGrade4.Open()

rsGrade4_numRows = 0
%>

<%
Dim rsGrade5__MMColParam
rsGrade5__MMColParam = "05"
If (Request("MM_EmptyValue") <> "") Then 
  rsGrade5__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rsGrade5
Dim rsGrade5_numRows

Set rsGrade5 = Server.CreateObject("ADODB.Recordset")
rsGrade5.ActiveConnection = MM_StudentConn_STRING
rsGrade5.Source = "SELECT * FROM Class WHERE GradeID = '" & rsGrade5__MMColParam & "' ORDER BY ClassID ASC"
rsGrade5.CursorType = 0
rsGrade5.CursorLocation = 2
rsGrade5.LockType = 1
rsGrade5.Open()

rsGrade5_numRows = 0
%>
<%
	Dim Repeat1__numRows
	Repeat1__numRows = 100
	Dim Repeat1__index
	Repeat1__index = 0
	Recordset1_numRows = Recordset1_numRows + Repeat1__numRows
%>
<%
	Dim Recordset1_total
	Dim Recordset1_first
	Dim Recordset1_last
	Recordset1_total = Recordset1.RecordCount
	If (Recordset1_numRows < 0) Then
	  Recordset1_numRows = Recordset1_total
	Elseif (Recordset1_numRows = 0) Then
	  Recordset1_numRows = 1
	End If
	Recordset1_first = 1
	Recordset1_last  = Recordset1_first + Recordset1_numRows - 1
	If (Recordset1_total <> -1) Then
	  If (Recordset1_first > Recordset1_total) Then
		Recordset1_first = Recordset1_total
	  End If
	  If (Recordset1_last > Recordset1_total) Then
		Recordset1_last = Recordset1_total
	  End If
	  If (Recordset1_numRows > Recordset1_total) Then
		Recordset1_numRows = Recordset1_total
	  End If
	End If
%>
<%
	If (Recordset1_total = -1) Then
	  Recordset1_total=0
	  While (Not Recordset1.EOF)
		Recordset1_total = Recordset1_total + 1
		Recordset1.MoveNext
	  Wend
	  If (Recordset1.CursorType > 0) Then
		Recordset1.MoveFirst
	  Else
		Recordset1.Requery
	  End If
	  If (Recordset1_numRows < 0 Or Recordset1_numRows > Recordset1_total) Then
		Recordset1_numRows = Recordset1_total
	  End If
	  Recordset1_first = 1
	  Recordset1_last = Recordset1_first + Recordset1_numRows - 1
	  If (Recordset1_first > Recordset1_total) Then
		Recordset1_first = Recordset1_total
	  End If
	  If (Recordset1_last > Recordset1_total) Then
		Recordset1_last = Recordset1_total
	  End If
	End If
%>
<%
	Dim MM_paramName 
%>
<%
	Dim MM_rs
	Dim MM_rsCount
	Dim MM_size
	Dim MM_uniqueCol
	Dim MM_offset
	Dim MM_atTotal
	Dim MM_paramIsDefined
	Dim MM_param
	Dim MM_index
	Set MM_rs    = Recordset1
	MM_rsCount   = Recordset1_total
	MM_size      = Recordset1_numRows
	MM_uniqueCol = ""
	MM_paramName = ""
	MM_offset = 0
	MM_atTotal = false
	MM_paramIsDefined = false
	If (MM_paramName <> "") Then
	  MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "")
	End If
%>
<%
	if (Not MM_paramIsDefined And MM_rsCount <> 0) then
	  MM_param = Request.QueryString("index")
	  If (MM_param = "") Then
		MM_param = Request.QueryString("offset")
	  End If
	  If (MM_param <> "") Then
		MM_offset = Int(MM_param)
	  End If
	  If (MM_rsCount <> -1) Then
		If (MM_offset >= MM_rsCount Or MM_offset = -1) Then
		  If ((MM_rsCount Mod MM_size) > 0) Then
			MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
		  Else
			MM_offset = MM_rsCount - MM_size
		  End If
		End If
	  End If
	  MM_index = 0
	  While ((Not MM_rs.EOF) And (MM_index < MM_offset Or MM_offset = -1))
		MM_rs.MoveNext
		MM_index = MM_index + 1
	  Wend
	  If (MM_rs.EOF) Then 
		MM_offset = MM_index
	  End If
	End If
%>
<%
	If (MM_rsCount = -1) Then
	  MM_index = MM_offset
	  While (Not MM_rs.EOF And (MM_size < 0 Or MM_index < MM_offset + MM_size))
		MM_rs.MoveNext
		MM_index = MM_index + 1
	  Wend
	  If (MM_rs.EOF) Then
		MM_rsCount = MM_index
		If (MM_size < 0 Or MM_size > MM_rsCount) Then
		  MM_size = MM_rsCount
		End If
	  End If
	  If (MM_rs.EOF And Not MM_paramIsDefined) Then
		If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then
		  If ((MM_rsCount Mod MM_size) > 0) Then
			MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
		  Else
			MM_offset = MM_rsCount - MM_size
		  End If
		End If
	  End If
	  If (MM_rs.CursorType > 0) Then
		MM_rs.MoveFirst
	  Else
		MM_rs.Requery
	  End If
	  MM_index = 0
	  While (Not MM_rs.EOF And MM_index < MM_offset)
		MM_rs.MoveNext
		MM_index = MM_index + 1
	  Wend
	End If
%>
<%
	Recordset1_first = MM_offset + 1
	Recordset1_last  = MM_offset + MM_size
	If (MM_rsCount <> -1) Then
	  If (Recordset1_first > MM_rsCount) Then
		Recordset1_first = MM_rsCount
	  End If
	  If (Recordset1_last > MM_rsCount) Then
		Recordset1_last = MM_rsCount
	  End If
	End If
	MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)
%>
<%
	Dim MM_keepNone
	Dim MM_keepURL
	Dim MM_keepForm
	Dim MM_keepBoth
	Dim MM_removeList
	Dim MM_item
	Dim MM_nextItem
	MM_removeList = "&index="
	If (MM_paramName <> "") Then
	  MM_removeList = MM_removeList & "&" & MM_paramName & "="
	End If
	MM_keepURL=""
	MM_keepForm=""
	MM_keepBoth=""
	MM_keepNone=""
	For Each MM_item In Request.QueryString
	  MM_nextItem = "&" & MM_item & "="
	  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
		MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
	  End If
	Next
	For Each MM_item In Request.Form
	  MM_nextItem = "&" & MM_item & "="
	  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
		MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
	  End If
	Next
	MM_keepBoth = MM_keepURL & MM_keepForm
	If (MM_keepBoth <> "") Then 
	  MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
	End If
	If (MM_keepURL <> "")  Then
	  MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)
	End If
	If (MM_keepForm <> "") Then
	  MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
	End If
	Function MM_joinChar(firstItem)
	  If (firstItem <> "") Then
		MM_joinChar = "&"
	  Else
		MM_joinChar = ""
	  End If
	End Function
%>
<%
Dim MM_keepMove
Dim MM_moveParam
Dim MM_moveFirst
Dim MM_moveLast
Dim MM_moveNext
12 下一页
⌨️ 快捷键说明

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