📄 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 + -