?? feeina.asp
字號:
<% Set hdobj = Server.CreateObject("HD.comOpen")'請確保此行在最前
Conn = hdobj.WeekaaConn()
%>
<html>
<head>
<style type="text/css">
<!--
.style1 {color: #FF00FF}
.style2 {color: #FF00FF; font-size: 18px; }
.style3 {
font-size: 16px;
color: #FF0000;
}
.tables {
background-image: url(../Image/bigbg.jpg);
background-repeat: no-repeat;
}
.style4 {font-size: 12px}
.style5 {color: #FF0000;font-size: 18px}
.style6 {font-size: 12px; color: #FF0000; }
body,td,th {
font-size: 12px;
}
body {
background-color: #DEE7FF;
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
background-image: url(../Image/bg.gif);
}
.STYLE7 {color: #006699}
-->
</style><meta http-equiv="pragma" content="no-cache">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<body>
<%
Cla=trim(Request.form("Cla"))
La=trim(Request.form("La"))
Lb=trim(Request.form("Lb"))
Lc=trim(Request.form("Lc"))
Ld=trim(Request.form("Ld"))
Le=trim(Request.form("Le"))
%>
<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="bottom" background="../Image/bg01a.jpg"> </td>
</tr>
<tr>
<td height="600" align="center" valign="top" bgcolor="#3399FD">
<p> </p>
<table width="90%" border="０" align="center" cellpadding="0" cellspacing="0" bordercolor="#DEE7FF" bgcolor="#FFFFFF">
<form name="form1" method="post" action="FeeInb.asp?Lc=<%=Lc%>&Ld=<%=Ld%>&Le=<%=Le%>"> <tr>
<td height="30" background="../Image/bg01.jpg"> </td>
</tr>
<tr><td height="30" align="center" valign="middle">
<%
response.write "<p class='style3'><br>學 生 繳 費</p>"
if Le="A" or Le="B" then
Set rs=Server.Createobject("Adodb.RecordSet")
if Le="A" and La<>"" then
sql = "Select * From [student] Where a = '"&La&"'"
end if
if La="" and Le="A" then
sql = "Select * From [student] Where a = '"¬s&"'"
end if
if Lb<>"" and Le="B" then
sql = "Select * From [student] Where c like '%"&Lb&"%'"
end if
if Lb="" and Le="B" then
sql = "Select * From [student] Where a = '"¬s&"'"
end if
rs.Open sql,Conn,1,3
If rs.Eof Then
Lon= "FeeIn.asp?Hi=找不到該同學記錄，請核對輸入是否正確！&StuNo=" &La&"&StuNam="&Lb
response.Redirect (Lon)
else
Do While Not rs.Eof
rsID=rs("ID")
NID="N" & rsID
rsc=rs("c")
if len(rsc)=2 then
stuName=mid(rsc,1,1) &" "&mid(rsc,2,1)
else
stuName=rsc
end if
XQ= rsID & "x"
bj=rs("b")
%>
<table border="0" align="center" cellpadding="0" cellspacing="0">
<tr align="center" >
<td width="60" height="30"> 姓名</td>
<td width="80" align="center"><a href="FeePer.asp?ID=<%=rsID%>" target="_blank"><%=stuName%></a>
<input name="ID" type="radio" value="<%=rsID%>" checked></td>
<td width="60">繳費學期</td>
<td width="60"><%call XQL(XQ,bj)%></td>
<td width="60">性別</td>
<td width="60"><%=rs("d")%></td>
<td width="60">班級</td>
<td width="180"><%=rs("b")%></td></tr></table>
<span class="STYLE7">
<%
rs.MoveNext
Loop
end if
rs.Close
Set rs=Nothing
end if
if Le="C" then
if Lc<>"" then
response.write "<p class='style3'>您選擇了按宿舍號繳費，請核對宿舍號是否正確：<br><br>"
response.write Lc
response.write "<br><br><br></p>"
else
Lon= "FeeIn.asp?Hc=您選擇了按宿舍號繳費，卻沒填寫宿舍編號"
response.Redirect (Lon)
end if
end if
if Le="D" then
if Ld<>"" then
response.write "<p class='style3'>您選擇了按單位繳費，請核對單位名稱是否正確：<br><br>"
response.write Ld
response.write "<br><br><br></p>"
else
Lon= "FeeIn.asp?Hd=您選擇了按班級繳費，卻沒填寫班級名稱！"
response.Redirect (Lon)
end if
end if
%>
</span></td>
</tr>
<tr><td height="40" align="center"><input type="submit" name="Submit" value="開始繳費"></td>
</tr></form>
<tr><td height="28" background="../Image/bg01.jpg"> </td>
</tr></table>
</td>
</tr>
<tr>
<td height="25" background="../Image/bg01a.jpg" bgcolor="#3399FD"> </td>
</tr>
</table>
</body>
</html>
<%
sub XQL(xqa,bj)
Set fe=Server.Createobject("Adodb.RecordSet")
sqfe = "Select top 1 * From [classs] where e= '"&bj&"'"
fe.Open sqfe,Conn,1,3
if not fe.eof then
fed=fe("d")
fef=fe("f")
fed=fed+0
fef=fef+0
else
fed=year(now())
fef=4
end if
response.write "<select name='"& xqa &"'>"
for i=1 to fef
y=fed+i-1
response.write "<option value='"& y &"秋季'>"& y &"秋季</option>"
y=y+1
response.write "<option value='"& y &"春季'>"& y &"春季</option>"
next
response.write "</select>"
end sub
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -