<%
set conn=server.createobject("adodb.connection")
conn.open"driver={microsoft access driver (*.mdb)};dbq="&server.mappath("database/!@#bbsxp.asa")
exec="select * from xygl where id="&request.querystring("id")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn
%>
<form name="form1" method="post" action="xygl4.asp" onSubmit="return chk();">
<table width="97%" border="0" align="center" cellpadding="4" cellspacing="1" class=a2>
<tr class=a3>
<td width="59" scope="col"> <div align="right" class="STYLE2">学员学号 </div> </td>
<td width="106" scope="col"> <div align="left">
<input name="t1" type="text" id="ClassEName" value=" <%=rs("t1")%>" size="15">
</div> </td>
.................省略
</tr>
</table>
<table width="97%" border="0" align="center" cellpadding="4" cellspacing="1" class=a2>
<tr class=a3>
<td colspan="9" scope="col"> <div align="center">
<input type="submit" name="Submit" value="提交">
<input type="hidden" name="id" value=" <%=request.querystring("id")%>">
<input type="reset" name="Submit2" value="重置">
</div> </td>
</tr>
</table> </form>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
上面是学员管理的学员修改代码,下面是收费管理的收费记录显示代码,两者都在database/!@#bbsxp.asa这个数据库里,学员管理的表文件名为xygl,收费管理的表文件名为sfgl,xygl中的t1(学员学号)与sfgl中的l1(学员学号)是一样的,我想要达到的功能:当我在收费管理里录入收费记录后,学员资料的修改页面自动显示对应的学员的收费记录,比如,我录了一个学号为0001的收费记录,那么在学号为0001的学员资料修改页面中就显示出这条收费记录 ,麻烦说的详细一点
<TABLE width=97% border=0 align="center" cellPadding=0 cellSpacing=1 class=a2>
<TR align=middle id=TableTitleLink class=a1>
<TD width="11%" height="25"> <div align="center">学员学号 </div> </TD>
...........
<TD width="4%"> <div align="center">交费金额 </div> </TD>
................分页代码省略
<%
sql="select * from [sfgl] order by b6"
rs.Open sql,Conn,1
%>
........
<TABLE width=97% border=0 align="center" cellPadding=0 cellSpacing=1 class=a2>
<TR align=middle height="25">
<TD class=a4 width="11%"> <div align="center"> <%=rs("l1")%> </div> </TD>
............
<TD class=a3 width="4%"> <div align="center"> <%=rs("f12")%> </div> </TD>
............
set conn=server.createobject("adodb.connection")
conn.open"driver={microsoft access driver (*.mdb)};dbq="&server.mappath("database/!@#bbsxp.asa")
exec="select * from xygl where id="&request.querystring("id")
set rs=server.createobject("adodb.recordset")
rs.open exec,conn
%>
<form name="form1" method="post" action="xygl4.asp" onSubmit="return chk();">
<table width="97%" border="0" align="center" cellpadding="4" cellspacing="1" class=a2>
<tr class=a3>
<td width="59" scope="col"> <div align="right" class="STYLE2">学员学号 </div> </td>
<td width="106" scope="col"> <div align="left">
<input name="t1" type="text" id="ClassEName" value=" <%=rs("t1")%>" size="15">
</div> </td>
.................省略
</tr>
</table>
<table width="97%" border="0" align="center" cellpadding="4" cellspacing="1" class=a2>
<tr class=a3>
<td colspan="9" scope="col"> <div align="center">
<input type="submit" name="Submit" value="提交">
<input type="hidden" name="id" value=" <%=request.querystring("id")%>">
<input type="reset" name="Submit2" value="重置">
</div> </td>
</tr>
</table> </form>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
上面是学员管理的学员修改代码,下面是收费管理的收费记录显示代码,两者都在database/!@#bbsxp.asa这个数据库里,学员管理的表文件名为xygl,收费管理的表文件名为sfgl,xygl中的t1(学员学号)与sfgl中的l1(学员学号)是一样的,我想要达到的功能:当我在收费管理里录入收费记录后,学员资料的修改页面自动显示对应的学员的收费记录,比如,我录了一个学号为0001的收费记录,那么在学号为0001的学员资料修改页面中就显示出这条收费记录 ,麻烦说的详细一点
<TABLE width=97% border=0 align="center" cellPadding=0 cellSpacing=1 class=a2>
<TR align=middle id=TableTitleLink class=a1>
<TD width="11%" height="25"> <div align="center">学员学号 </div> </TD>
...........
<TD width="4%"> <div align="center">交费金额 </div> </TD>
................分页代码省略
<%
sql="select * from [sfgl] order by b6"
rs.Open sql,Conn,1
%>
........
<TABLE width=97% border=0 align="center" cellPadding=0 cellSpacing=1 class=a2>
<TR align=middle height="25">
<TD class=a4 width="11%"> <div align="center"> <%=rs("l1")%> </div> </TD>
............
<TD class=a3 width="4%"> <div align="center"> <%=rs("f12")%> </div> </TD>
............
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货