xgxj1.asp

来自「一个优秀的学校学籍,成绩,图书管理系统.有需要的朋友可以来看看.是完整代码.」· ASP 代码 · 共 59 行

ASP
59 行
字号 
<!--#include file="pwd.asp" -->
<!--#include file="xmgl_conn.inc" -->
<%
if session("xzbj")="" then
	tmc=request("bj")
	session("xzbj")=tmc
else
	tmc=session("xzbj")   '班级名称
end if

if session("bjdm")="" then
	sql="select * from bjk where bjmc='"&tmc&"'"
	Set RS = Server.CreateObject("ADODB.RecordSet")
	RS.Open sql, xmgl_conn
	tdm=rs("bjdm")'班级代码
	session("bjdm")=tdm
	rs.close
	set rs=nothing
else
	tdm=session("bjdm")  '班级代码
end if

Set RS = Server.CreateObject("ADODB.RecordSet")
sql="select * from "&tdm&" order by xh"
RS.Open sql, xmgl_Conn
%>


<HTML>
<HEAD><TITLE>修改“<%=tmc%>”学籍</TITLE></HEAD>
<BODY  bgcolor="#C0C0C0">
<H3 align=center>
修改“<%=tmc%>(<%=tdm%>)”学籍&nbsp;&nbsp<a href="xgxj.asp">返回</a>
</H3>
<center>
<TABLE BORDER=1>
<TR><td>学号</td><td>姓名</td><td>修改</td></tr>
<% Do While Not RS.EOF %>
	<tr>
	<td><%=tdm%>
        <% Response.Write RS("xh")%>
	</td>
	<td><%response.write rs("xm")%></td>
	<td><a href=xgxj2.asp?txh=<%=rs("xh")%>>修改</a>

	</td>


	</tr>
      <%RS.MoveNext
      Loop
rs.close
set rs=nothing
%>
</table></center>
<p align="center"><a href="xgxj.asp">返回</a></p>
</body>
</html>

xgxj1.asp - 源码说明

本页面展示了「一个优秀的学校学籍,成绩,图书管理系统.有需要的朋友可以来看看.是完整代码.」中的 xgxj1.asp 源码文件，采用 ASP 编程语言编写，共 59 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与管理系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?