?? employeelist.asp
字號:
<!-- #INCLUDE FILE="Common.asp" -->
<%
'
' Filename: EmployeeList.asp
' Generated with CodeCharge 1.2.0
' ASPTemplates.ccp build 5/9/2001
'
sFileName = "EmployeeList.asp"
sTemplateFileName = "EmployeeList.html"
' EmployeeList Open Event start
' EmployeeList Open Event end
' EmployeeList PageSecurity begin
CheckSecurity(3)
' EmployeeList PageSecurity end
' EmployeeList OpenAnyPage Event start
' EmployeeList OpenAnyPage Event end
LoadTemplate sAppPath & sTemplateFileName, "main"
LoadTemplate sHeaderFileName, "Header"
SetVar "FileName", sFileName
Menu_Show
Employees_Show
Parse "Header", False
Parse "main", False
Response.write PrintVar("main")
' EmployeeList Close Event start
' EmployeeList Close Event end
'--------------------------------------------------
Sub Employees_Show()
Dim sWhere, sOrder, sSQL, HasParam
sWhere = ""
sOrder = ""
sSQL = ""
HasParam = false
SetVar "TransitParams", ""
SetVar "FormParams", ""
' Build WHERE statement
' Build ORDER statement
sOrder = " order by e.employee_name Asc"
iSort = GetParam("FormEmployees_Sorting")
iSorted = GetParam("FormEmployees_Sorted")
sDirection = ""
if IsEmpty(iSort) then
SetVar "Form_Sorting", ""
else
if iSort = iSorted then
SetVar "Form_Sorting", ""
sDirection = " DESC"
sSortParams = "FormEmployees_Sorting=" & iSort & "&FormEmployees_Sorted=" & iSort & "&"
else
SetVar "Form_Sorting", iSort
sDirection = " ASC"
sSortParams = "FormEmployees_Sorting=" & iSort & "&FormEmployees_Sorted=" & "&"
end if
if iSort = 1 then sOrder = " order by e.[employee_name]" & sDirection
if iSort = 2 then sOrder = " order by e.[email]" & sDirection
end if
' Build full SQL statement
sSQL = "select [e].[email] as e_email, " & _
"[e].[employee_id] as e_employee_id, " & _
"[e].[employee_name] as e_employee_name " & _
" from [employees] e "
' Employees Open Event start
' Employees Open Event end
sSQL = sSQL & sWhere & sOrder
SetVar "FormAction", "EmployeeMaint.asp"
SetVar "SortParams", sSortParams
' Open recordset
openrs rs, sSQL
if rs.eof then
' Recordset is empty
set rs = nothing
SetVar "DListEmployees", ""
Parse "EmployeesNoRecords", False
SetVar "EmployeesNavigator", ""
Parse "FormEmployees", False
exit sub
end if
iRecordsPerPage = 20
iCounter = 0
' Select current page
iPage = GetParam("FormEmployees_Page")
if IsEmpty(iPage) then iPage = 1 else iPage = CLng(iPage)
while not rs.eof and iCounter < (iPage-1)*iRecordsPerPage
rs.movenext
iCounter = iCounter + 1
wend
iCounter = 0
' Show main table based on recordset
while not rs.EOF and iCounter < iRecordsPerPage
fldemail = GetValue(rs, "e_email")
fldemployee_id = GetValue(rs, "e_employee_id")
fldemployee_name_URLLink = "EmployeeMaint.asp"
fldemployee_name_employee_id = GetValue(rs, "e_employee_id")
fldemployee_name = GetValue(rs, "e_employee_name")
' Employees Show begin
' Employees Show Event start
' Employees Show Event end
SetVar "employee_id", ToHTML(fldemployee_id)
SetVar "employee_name", ToHTML(fldemployee_name)
SetVar "employee_name_URLLink", "EmployeeMaint.asp"
SetVar "Prmemployee_name_employee_id", ToURL(fldemployee_name_employee_id)
SetVar "email", ToHTML(fldemail)
Parse "DListEmployees", True
' Employees Show end
rs.MoveNext
iCounter = iCounter + 1
wend
' Employees Navigation begin
isEndOfRS = rs.EOF
' Parse Navigator
if isEndOfRS and iPage = 1 then
SetVar "EmployeesNavigator", ""
else
if isEndOfRS then
SetVar "EmployeesNavigatorLastPage", "_"
else
SetVar "NextPage", (iPage + 1)
end if
if iPage = 1 then
SetVar "EmployeesNavigatorFirstPage", "_"
else
SetVar "PrevPage", (iPage - 1)
end if
SetVar "EmployeesCurrentPage", iPage
Parse "EmployeesNavigator", False
end if
' Employees Navigation end
set rs = nothing
SetVar "EmployeesNoRecords", ""
Parse "FormEmployees", False
' Employees Close Event start
' Employees Close Event end
End Sub
%>
<!-- #INCLUDE FILE="Header.asp" -->
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -