📄 homestuin2.asp

📁 学生信息化管理系统,目前最完美的学生信息化管理系统,界面美观,操作方面,个性化设置.一套软件管理多所学校.

💻 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;
}
.style4 {font-size: 12px}
.style5 {color: #FF0000;font-size: 18px}
.style6 {font-size: 12px; color: #FF0000; }
body,td,th {
	font-size: 12px;
}
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head>
<body>

<div align="center">

<p>
  <%
dim rs,sql
dim a,b,c,yz
yz=trim(Request.QueryString("yz"))
a=trim(Request.QueryString("a"))
b=trim(Request.form("b"))
c=trim(Request.form("c"))
bed=trim(Request.form("bed"))
%>
<form name="form1" method="post" action="HomeStuin3.asp?a=<%=a%>&yz=<%=yz%>&bed=<%=bed%>">
<%
if b="" and c="" then
response.write "是谁要入住啊？学号不填，姓名也不填！<br>"
%>

<script language="javascript">
<!--
function clock(){i=i-1
document.title="本窗口自动关闭倒计时："+i;
if(i>0)setTimeout("clock();",30);
else self.close();}
var i=100
clock();
//-->
</script>
<%
response.end
end if

Set rs=Server.Createobject("Adodb.RecordSet")
if b<>"" then
sql = "Select * From [student] Where a='"&b&"'"
else
sql = "Select * From [student] Where c like '%"&c&"%'"
end if
rs.Open sql,Conn,1,3
If rs.Eof Then
Response.Write "数据库查不到该同学记录，请核对<br>输入是否正确或查验该同学记录！"
Else

%> 
<span class="style5"><%=a%>宿舍入住手续：</span><br><br>
<span class="style6">核对后点击姓名后按钮，再提交</span>
<table  border="1" cellspacing="1" cellpadding="0">

<%
Do While Not rs.Eof
rsID=rs("ID")
NID="N" & rsID
rsc=rs("c")
%>

   <tr align="center" bgcolor="<%=bg%>">
        <td width="51"> 姓名</td>
        <td width="69" align="right"><%=rs("c")%><input name="rzr" type="radio" value="<%=rs("ID")%>" checked></td>
         
            <td width="50">性别</td>
        <td width="50"><%=rs("d")%></td>
        <td width="60">民族</td>
            <td width="60"><%=rs("g")%></td>

    </tr>
<input type="hidden" name="<%=NID%>"  value="<%=rs("c")%>">
<input type="hidden" name="<%=rs("ID")%>"  value="<%=rs("d")%>">

<%
rs.MoveNext
Loop


%></p>
   </table> 
 <p> <input type="submit" name="Submit" value="办理入住">
  
 </p>
<%end if
rs.Close
Set rs=Nothing

%>
</form></div>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -