xzbj1.asp

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

<!--#include file="xmgl_conn.inc" -->
<%
tmc=request("bj")
txq=request("xq")
sql="select * from bjk where bjmc='"&tmc&"'"
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open sql, xmgl_conn
tdm=rs("bjdm")   '班级代码
rs.close
set rs=nothing
session("sbjmc")=tmc
session("sbjdm")=tdm
session("sxqmc")=txq
if txq="第一学期" then
	session("sxqdm")="1"
end if
if txq="第二学期" then
	session("sxqdm")="2"
end if
if txq="第三学期" then
	session("sxqdm")="3"
end if
if txq="第四学期" then
	session("sxqdm")="4"
end if
if txq="第五学期" then
	session("sxqdm")="5"
end if
if txq="第六学期" then
	session("sxqdm")="6"
end if
response.redirect "cjgl.asp"
%>