?? homeoutcl.asp
字號:
<% Set hdobj = Server.CreateObject("HD.comOpen")'請確保此行在最前
Conn = hdobj.WeekaaConn()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="pragma" content="no-cache">
<title>紅笛學校綜合管理系統－功能最強大，與學校管理工作結合最完美</title>
<style type="text/css">
<!--
.style1 {font-size: 14px}
body,td,th {
font-size: 12px;
}
body {
background-color: #Dee7FF;
margin-left: 10px;
margin-top: 10px;
margin-right: 10px;
margin-bottom: 10px;
}
-->
</style>
<script language=javascript>
function chkall(input1,input2)
{
var objForm = document.forms[input1];
var objLen = objForm.length;
for (var iCount = 0; iCount < objLen; iCount++)
{
if (input2.checked == true)
{
if (objForm.elements[iCount].type == "checkbox")
{
objForm.elements[iCount].checked = true;
}
}
else
{
if (objForm.elements[iCount].type == "checkbox")
{
objForm.elements[iCount].checked = false;
}
}
}
}
</script>
</head>
<body onmouseover="self.status='紅笛軟件:服務網址[http://weekaa.com/red]';return true" onUnload="winclose();">
<%
taba="student"
Set stw = Server.CreateObject("ADODB.RecordSet")
sqstv = "Select * From [sets] where TB='"&taba&"'"
stw.Open Sqstv,Conn,1,3
response.write "<table width='100%' border='1' align='center' cellspacing='0' bordercolor='#0033CC' bgcolor='#FFFFFF'>"
response.write "<form name='form4' method='post' action=''>"
response.write "<tr> <td height='50' align='center' valign='middle'>選擇班級 "
call hdobj.lists("classs", "e", "e", "La", 2)
Response.Write "<input name='Submit' type='submit' value='查詢'>"
response.write "</td></tr></form></Table>"
response.write "<form name='form1' method='post' action='HomeOutCla.asp'>"
response.write "<table width='100%' border='0' align='center' cellspacing='0' bordercolor='#0033CC'>"
response.write "<tr> <td height='28' align='center' background='../Image/bg01.jpg' class='STYLE1'> </td></tr>"
response.write "<tr><td><table width='100%' border='1' cellpadding='0' cellspacing='0' bordercolor='#E8EBEE'>"
response.write "<tr align='center' bgcolor='#EBECF1'>"
response.write "<td width='10%'>"& stw("a")&"</td>"
response.write "<td width='15%'>"& stw("b")&"</td>"
response.write "<td width='10%'>"& stw("c")&"</td>"
response.write "<td width='5%'>"& stw("d")&"</td>"
response.write "<td width='10%'>"& stw("e")&"</td>"
response.write "<td width='10%'>"& stw("f")&"</td>"
response.write "<td width='10%'>全選"
response.write "<input type='checkbox' value='全選' onclick='chkall(" & chr(34) & "form1" & chr(34) & ",this)' name=chk> </td></tr>"
La=request.form("La")
Set rs=Server.Createobject("Adodb.RecordSet")
if La<>"" then
sqltext = "Select * From [student] where b='"&La&"' order by b,a desc"
else
sqltext = "Select * From [student] order by b,a desc"
end if
rs.Open sqltext,conn,1,3
'=========================================================
Dim i, text, checkpage, page, MaxPerPage, CurrentPage
MaxPerPage = Request.Form("pages")
If MaxPerPage = "" Then
MaxPerPage = 30
End If
If MaxPerPage < 1 Or MaxPerPage > 1000 Then
MaxPerPage = 30
End If
MaxPerPage = MaxPerPage * 1
text = "0123456789"
rs.PageSize = MaxPerPage
GoPage = Request.Form("pagee")
For i = 1 To Len(GoPage)
checkpage = InStr(1, text, Mid(GoPage, i, 1))
If checkpage = 0 Then
Exit For
End If
Next
If checkpage <> 0 Then
If Not IsEmpty(GoPage) Then
CurrentPage = CInt(GoPage)
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > rs.PageCount Then CurrentPage = rs.PageCount
Else
CurrentPage = 1
End If
If Not rs.EOF Then
rs.AbsolutePage = CurrentPage
End If
Else
CurrentPage = 1
End If
RsSum = CStr(rs.RecordCount) '記錄總條數
pageOn = CStr(CurrentPage) '當前第幾頁
pageSum = CStr(rs.PageCount) '總共幾頁
NextPage = pageOn + 1
pageSum=pageSum + 0
If NextPage > pageSum Then
NextPage = pageSum
End If
'==============================================================
i=0
BgI=1
Do While Not rs.Eof
BgI=BgI*(-1)
if Bgi<0 then '背景色交替
bg="#ffffff"
else
bg="#F9F9F9"
end if
i=i+1
rsc=rs("c")
if len(rsc)=2 then
rsc=mid(rsc,1,1)&" "&mid(rsc,2,1)
end if
K="K" & i
response.write "<tr align='center' bgcolor='" & bg & "'>"
response.write "<td height='25'>" & rs("a") & "</td>"
response.write "<td>" & rs("b") & "</td>"
response.write "<td>" & rsc & "</td>"
response.write "<td>" & rs("d") & "</td>"
response.write "<td>" & rs("e") & "</td>"
response.write "<td>" & rs("f") & "</td>"
response.write "<td><input name='" & K & "' type='checkbox' id='" & K & "' value='" & rs("ID")& "'></td></tr>"
if i >= MaxPerpage then exit do
rs.MoveNext
Loop
response.write "<input type='hidden' name='pg' value='" & MaxPerpage & "'>"
response.write "<tr> <td height='28' align='center' bgcolor='#FFFFFF' colspan='8'><input type='submit' name='Submit2' value='選中人員退房'></td></tr>"
Response.Write "</form></table> </td></tr><tr><form name='form2' method='post' action=''><td height='28' align='center' background='../Image/bg01.jpg'>"
Response.Write "<span class='STYLE13'><input type='hidden' name='La' value='" & La & "'><input type='hidden' name='Ld' value='" & Ld & "'>"
Response.Write "<span class='STYLE13'><input type='hidden' name='Lb' value='" & Lb & "'><input type='hidden' name='Lc' value='" & Lc & "'>"
Response.Write "第" & pageOn & "/" & pageSum & "頁 共" & RsSum & "條記錄 每頁"
Response.Write "<input name='pages' type='text' id='pages' value='" & MaxPerPage & "'"
Response.Write " size='2' style='background-color: #DEE7FF; border-color: #FFFFFF; border-style: solid; border-width: 0px 0px 1px 0px, font-family:Verdana,Arial; font-size: 10pt; color: #000000'>"
Response.Write "條記錄 轉到</span>"
Response.Write "<input name='pagee' type='text' id='pagee' value='" & NextPage & "' size='2' style='background-color: #DEE7FF; border-color: #FFFFFF;"
Response.Write " border-style: solid; border-width: 0px 0px 1px 0px, font-family:Verdana,Arial; font-size: 10pt; color: #000000'>"
Response.Write "<input name='Submit' type='submit' class='STYLE10' value='Go'></td></form></tr></table>"
%>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -