📄 xgcj1.asp
字号:
<!--#include file="pwd.asp" -->
<!--#include file="cjgl_conn.inc" -->
<%
if session("sbjmc")="" then
response.write "未选择班级！<a href=""cjgl.asp"">返回</a>"
response.end
end if
tkck=session("sbjdm")&session("sxqdm") '开设课程库名
cxh=request("txh")
cxm=request("txm")
%>
<HTML>
<HEAD>
<title>修改<%=cxm%>的<%=session("sbt")%></title>
</head>
<body bgcolor="#c0c0c0">
<h3 align="center">修改<%=cxm%>的<%=session("sbt")%></h3>
<hr width="80%">
<form action="xgcj2.asp" method="get">
<div align="center"><center><table border="0" cellpadding="2" cellspacing="1"
width="75%">
<tr>
<td align=right width="30%">学号:</td>
<td width="15%"><%=session("sbjdm")%><%=cxh%></td>
<td width="30%">姓名：<%=cxm%> </td>
</tr>
<%
tcjk=tkck&cstr(session("sbj"))
sql="select * from "&tcjk&" where xh='"&cxh&"'"
Set RS0 = Server.CreateObject("ADODB.RecordSet")
RS0.Open sql, cjgl_Conn
sql="select * from "&tkck
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql, cjgl_Conn
do while not rs.eof
tdm="t"&rs("kcdm")
dm=rs("kcdm")
%>
<tr>
<td align=right><%=rs("kcmc")%>:</td>
<td><input type="text" size="8" name="<%=tdm%>" value="<%=rs0(dm)%>"></td>
<td> </td>
</tr>
<% rs.movenext
loop
rs.close
set rs=nothing
rs0.close
set rs0=nothing
%>
<tr>
<td>
</td>
<td>
<input type="submit" name="cmd1" value="修改">
</td>
<td><input type="reset" name="cmd2" value="取消"></td>
</tr>
</table>
<input type="hidden" name="txh" value=<%=cxh%>>
</center></div>
</form>
<p align="center">
<a href="xgcj.asp">返回</a></p>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -