?? homestuin2.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 "是誰要入住啊？學(xué)號不填，姓名也不填！<br>"
%>
<script language="javascript">
<!--
function clock(){i=i-1
document.title="本窗口自動(dòng)關(guān)閉倒計(jì)時(shí)："+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 "數(shù)據(jù)庫查不到該同學(xué)記錄，請核對<br>輸入是否正確或查驗(yàn)該同學(xué)記錄！"
Else
%>
<span class="style5"><%=a%>宿舍入住手續(xù)：</span><br><br>
<span class="style6">核對后點(diǎn)擊姓名后按鈕，再提交</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>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -