|
#2
zcc4053312015-07-24 13:42
|
第一个页面11.asp 第二个页面22.asp
第一个页面11.asp
程序代码：<form name="del" method="Post" action="22.asp" >
<table width="266" border="1">
<tr>
<td width="132">学号</td>
<td width="118">全选</td>
</tr>
<tr>
<td>201501</td>
<td><input name="member" type="checkbox" value="201501"></td>
</tr>
<tr>
<td>201502</td>
<td><input name="member" type="checkbox" value="201502"></td>
</tr>
<tr>
<td>201503</td>
<td><input name="member" type="checkbox" value="201503"></td>
</tr>
<tr>
<td>201504</td>
<td><input name="member" type="checkbox" value="201504"></td>
</tr>
</table>
<input name="submit" type='submit' value='查找'>
</form>
<table width="266" border="1">
<tr>
<td width="132">学号</td>
<td width="118">全选</td>
</tr>
<tr>
<td>201501</td>
<td><input name="member" type="checkbox" value="201501"></td>
</tr>
<tr>
<td>201502</td>
<td><input name="member" type="checkbox" value="201502"></td>
</tr>
<tr>
<td>201503</td>
<td><input name="member" type="checkbox" value="201503"></td>
</tr>
<tr>
<td>201504</td>
<td><input name="member" type="checkbox" value="201504"></td>
</tr>
</table>
<input name="submit" type='submit' value='查找'>
</form>
第二个页面 22.asp
程序代码：<!--#include file="/conn.asp" -->
<%
member=trim(request("member"))
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.>
<html xmlns="http://www.>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>查询</title>
</head>
<body>
<%
if member<>"" then
sql="select * from t_tdd where 学号='"&member&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
If Not Rs.eof then
Do While Not(rs.Eof)
%>
<%=rs("姓名")%>
<%
rs.MoveNext
Loop
end if
rs.close
set rs=nothing
end if
%>
<br />
</body>
</html>
<%
member=trim(request("member"))
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.>
<html xmlns="http://www.>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>查询</title>
</head>
<body>
<%
if member<>"" then
sql="select * from t_tdd where 学号='"&member&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
If Not Rs.eof then
Do While Not(rs.Eof)
%>
<%=rs("姓名")%>
<%
rs.MoveNext
Loop
end if
rs.close
set rs=nothing
end if
%>
<br />
</body>
</html>