📄 feein.asp
字号:
<% Set hdobj = Server.CreateObject("HD.Home")'请确保此行在最前
%>
<html>
<head><meta http-equiv="pragma" content="no-cache">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>日常缴费</title>
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
background-color: #DEE7FF;
background-image: url(../Image/bg.gif);
}
.style3 {font-size: 12px}
.style5 {font-size: 12px; color: #0000CC; }
.style7 {
color: #FF0000;
font-size: 12px;
}
.tables {
background-image: url(../Image/bigbg.jpg);
background-repeat: no-repeat;
}
.style9 {
color: #FFFFFF;
font-size: 18px;
font-weight: bold;
}
body,td,th {
font-size: 12px;
}
-->
</style>
<%
Hi=request.QueryString("Hi")
Hc=request.QueryString("Hc")
Hd=request.QueryString("Hd")
StuNo=request.QueryString("StuNo")
StuNam=request.QueryString("StuNam")
sub clalist(Cl)
connLon =hdobj.WeekaaConn()
Response.Write "<select name='"& Cl &"' id='"& Cl &"'>"
Response.Write "<option value=''>{请选择班级}</option>"
Set rsList = Server.CreateObject("Adodb.RecordSet")
sqllist = "Select * From classs order by a asc"
rsList.Open sqllist, connLon, 1, 3
Do While Not rsList.EOF
Response.Write "<option value='" + rsList("e") + "'>" + rsList("e") + "</option>"
rsList.MoveNext
Loop
rsList.Close
Set rsList = Nothing
Response.Write "</select>"
end sub
%>
</head>
<body>
<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="0" align="center" cellpadding="0" cellspacing="0" >
<tr>
<td height="30"><table width="100%" border="0" align="center">
<tr align="center" valign="middle">
<td height="40" colspan="3" class="style9"><%=session("SchoolName")%>学生缴费</td>
</tr>
<form name="form" method="post" action="FeeIna.asp">
<tr>
<td height="30" colspan="3" align="right" background="../Image/bg01.jpg"> </td>
</tr>
<tr>
<td width="30%" height="30" align="right" bgcolor="#FFFFFF">按学号缴费</td>
<td width="10%" align="center" bgcolor="#FFFFFF"><input name="Le" type="radio" value="A"></td>
<td width="60%" align="left" bgcolor="#FFFFFF" class="style7"><input name="La" type="text" id="La" value="<%=StuNo%>" size="25">
<%=Hi%></td></tr>
<tr>
<td height="30" align="right" bgcolor="#FFFFFF">按姓名缴费</td>
<td align="center" bgcolor="#FFFFFF"><input name="Le" type="radio" value="B" checked></td>
<td align="left" bgcolor="#FFFFFF" class="style7"><input name="Lb" type="text" id="Lb" value="<%=StuNam%>" size="25"> <%=Hi%></td>
</tr>
<tr>
<td height="30" align="right" bgcolor="#FFFFFF">按宿舍缴费</td>
<td align="center" bgcolor="#FFFFFF"><input name="Le" type="radio" value="C"></td>
<td align="left" bgcolor="#FFFFFF" class="style7">
<input name="Lc" type="text" id="Lc" size="25"><%=Hc%></td>
</tr>
<tr>
<td height="30" align="right" bgcolor="#FFFFFF">按班级缴费</td>
<td align="center" bgcolor="#FFFFFF"><input name="Le" type="radio" value="D"></td>
<td align="left" bgcolor="#FFFFFF" class="style7"><%call clalist("Ld")%>
<%=Hd%></td>
</tr>
<tr>
<td height="30" align="right" bgcolor="#FFFFFF"> </td>
<td bgcolor="#FFFFFF"> </td>
<td align="left" bgcolor="#FFFFFF">
<input type="submit" name="Submit" value="提 交"> </td>
</tr>
</form>
</table></td>
</tr>
<tr>
<td height="30" background="../Image/bg01.jpg"> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="25" background="../Image/bg01a.jpg" bgcolor="#3399FD"> </td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -