?? stuwapp.asp
字號:
<% Set hdobj = Server.CreateObject("HD.comOpen")'請確保此行在最前
Connkaa = 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">
<!--
.style3 {font-size: 12px}
.style4 { color: #FFFFFF;
font-size: 14px;
}
body,td,th {
font-size: 12px;
}
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
background-image: url(../Image/bg.gif);
background-color: #DEE7FF;
}
.STYLE9 {
font-size: 36px;
font-family: "黑體";
font-weight: bold;
color: #FFFF00;
}
.STYLE10 {color: #FF0000}
a:link {
text-decoration: none;
color: #003366;
}
a:visited {
text-decoration: none;
color: #003366;
}
a:hover {
text-decoration: none;
}
a:active {
text-decoration: none;
}
.B A:link {
FONT-SIZE: 12px; COLOR: #ffffff; TEXT-DECORATION: none
}
.B A:visited {
FONT-SIZE: 12px; COLOR: #ffffff; TEXT-DECORATION: none
}
.B A:hover {
FONT-SIZE: 12px; COLOR: #ffffff; TEXT-DECORATION: none
}
.B A:active {
FONT-SIZE: 12px; COLOR: #ffffff; TEXT-DECORATION: none
}
.STYLE12 {font-family: "黑體"; font-size: 16px;}
.style13 {
font-size: 12px;
}
-->
</style><script language="JavaScript" type="text/JavaScript">
function delpay()
{
if(confirm("確定要刪除此嗎？"))
return true;
else
return false;
}
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
</script>
</head>
<body onmouseover="self.status='紅笛軟件:服務網址[http://weekaa.com/red]';return true">
<table width="1003" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#3399fd">
<tr>
<td height="150" align="center" valign="bottom"><img src="../Image/bigbga.jpg" width="1003" height="150"></td>
</tr>
<tr>
<td height="28" align="center" valign="middle" background="../Image/bg01a.jpg"><div class="b"><a href="index.asp">獎懲申報</a> <a href="StuwApq.asp">處分管理</a></div></td>
</tr>
<tr>
<td height="600" align="center" valign="top"><table width="94%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="25" align="center">
<%
dim stv,sqstv,La,Lb
taba="AwPunt"
La=Request("La")
Lb=Request("Lb")
Lc=Request("Lc")
Set stv = Server.CreateObject("ADODB.RecordSet")
sqstv = "Select * From [sets] where TB='"&taba&"'"
stv.Open Sqstv,Connkaa,1,3
%>
<table width="100%" height="25" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#0066CC">
<tr valign="bottom" bordercolor="#6A8FDA" bgcolor="#FFFFFF">
<td height="60" align="center" valign="bottom" bgcolor="#FFFFFF" class="STYLE10"><form action="?action=search" method="post" name="form1" id="form1">
姓名
<input name="La" type="text" id="La" size="10">
或
項目
<input name="Lb" type="text" id="Lb" size="10">
且學校意見為：全部
<input name="Lc" type="radio" value="all" checked>
</span>已批準
<input type="radio" name="Lc" value="已批準">
未批準
<input type="radio" name="Lc" value="未批準">
未審核
<input type="radio" name="Lc" value="未審核">
<input name="Submit2" type="submit" id="Submit" value="提交">
<a href="#" onClick="MM_openBrWindow('StuwLm.asp','紅笛軟件','scrollbars=no,width=800,height=120')">[設置欄目]</a>
</form></td>
</tr>
</table>
<table width="200" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="10"> </td>
</tr>
</table>
<table width="100%" border="0" align="center" cellspacing="0" bordercolor="#0033CC">
<tr>
<td height="30" align="center" bgcolor="#0033CC" class="STYLE12" background="../Image/bg01.jpg"> 學 生 獎 勵 審 批表 </td>
</tr>
<tr>
<td><table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#E8EBEE">
<tr align="center" bgcolor="#F1F3F5">
<td width="9%" height="25" class="style3"><%=stv("a")%></td>
<td width="9%" class="style3"><%=stv("b")%></td>
<td width="15%" class="style3"><%=stv("c")%></td>
<td width="15%" class="style3"><%=stv("d")%></td>
<td width="9%" class="style3"><%=stv("e")%></td>
<td width="9%" class="style3"><%=stv("f")%></td>
<td width="9%" class="style3"><%=stv("g")%></td>
<td width="9%" class="style3"><%=stv("h")%></td>
<td width="4%" class="style3">審批</td>
<td width="4%" class="style3">修改</td>
<td width="4%" class="style3">刪除</td>
</tr>
<%
Lui="獎勵"
if Lc="all" then
longg="order by c asc"
end if
if Lc="未批準" then
Lc="結論為不批準"
longg="and i like '%"&Lc&"%' order by c asc"
end if
if Lc="已批準" then
Lc="結論為批準"
longg="and i like '%"&Lc&"%' order by c asc"
end if
if Lc="未審核" then
Lc="."
longg="and i like '%"&Lc&"%' order by c asc"
end if
if La="" then
if Lb="" then
sqls = "Select * From [AwPunt] where l='"+Lui+"' "
else
sqls = "Select * From [AwPunt] where l='"+Lui+"' and d like '%"&Lb&"%' "
end if
else
if Lb="" then
sqls = "Select * From [AwPunt] where l='"+Lui+"' and c like '%"&La&"%' "
else
sqls = "Select * From [AwPunt] where l='"+Lui+"' and c like '%"&La&"%' and d like '%"&Lb&"%' "
end if
end if
sqls=sqls&Longg
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open Sqls,Connkaa,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
If NextPage > pageSum*1 Then
NextPage = 1
End If
'==============================================================
i=0
do while not rs.eof
RSd=rs("d")
RSe=rs("e")
RSf=rs("f")
RSg=rs("g")
RSh=rs("h")
RSi=rs("i")
if RSf<>"." then
RSf="已審核"
end if
if RSg<>"." then
RSg="已審核"
end if
if RSh<>"." then
RSh="已審核"
end if
if RSi<>"." then
RSi="已審核"
end if
RSd=mid(RSd,1,10)
RSe=mid(RSe,1,11)
RSe=RSe & "..."
%>
<tr align="center" valign="bottom" bgcolor="#FFFFFF">
<td height="25"><a href="StudentPer.asp?ID=<%=rs("a")%>" target="_self"><%=rs("b")%></a></td>
<td><a href="StudentPer.asp?ID=<%=rs("a")%>" target="_blank"><%=rs("c")%></a></td>
<td align="left"><%=RSd%></td>
<td align="left"><a href="StuwDecInE.asp?IDD=<%=rs("ID")%>&AA=<%=rs("a")%>" target="_self" title="<%=rs("e")%>"><%=RSe%></a></td>
<td><a href="StuwDecInE.asp?IDD=<%=rs("ID")%>&AA=<%=rs("a")%>" target="_self" title="<%=rs("f")%>"><%=RSf%></a></td>
<td><a href="StuwDecInE.asp?IDD=<%=rs("ID")%>&AA=<%=rs("a")%>" target="_self" title="<%=rs("g")%>"><%=RSg%></a></td>
<td><a href="StuwDecInE.asp?IDD=<%=rs("ID")%>&AA=<%=rs("a")%>" target="_self" title="<%=rs("h")%>"><%=RSh%></a></td>
<td><a href="StuwDecInE.asp?IDD=<%=rs("ID")%>&AA=<%=rs("a")%>" target="_self" title="<%=rs("i")%>"><%=RSi%></a></td>
<td bgcolor="#FFFFFF"><a href="StuwDecInC.asp?IDD=<%=rs("ID")%>&AA=<%=rs("a")%>" target="_self">審批</a></td>
<td bgcolor="#FFFFFF"><span class="style3"><a href="StuwDecInA.asp?IDD=<%=rs("ID")%>&AA=<%=rs("a")%>" target="_self">修改</a></span></td>
<td><a href="?deln=del&ID=<%=rs("ID")%>" onClick="return delpay();">刪除</a></td>
</tr>
<%
i=i+1
if i >= MaxPerpage then exit do
rs.movenext
loop
Response.Write "</table></td></tr><tr><form name='form2' method='post' action=''><td height='30' align='center' bgcolor='#0033CC' background='../Image/bg01.jpg'>"
Response.Write "<span class='STYLE13'><input type='hidden' name='La' value='" & La & "'><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: #003399'>"
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: #003399'>"
Response.Write "<input name='Submit' type='submit' class='STYLE10' value='Go'></td></form></tr></table>"
If Request.QueryString("deln") = "del" Then
call hdobj.Deler("AwPunt","k")
end if
%>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="20" background="../Image/bg01a.jpg" bgcolor="#3399FD"> </td>
</tr>
</table>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -