📄 cjshuchu.asp
字号:
<%'---------------------------------------------------------------
' AspStudio_Codepage="936"
' 上面这行是软件使用的代码页标记，请不要删除。详情请参考帮助文件。
'
' 档案名称：cjshuchu.asp
' 原创作者：KAVEN
' 作者邮件：
' 创建日期：星期六，2006年09月30日 16:17:54
' 版权所有(C)SCAU
' 该文件实现成绩查询功能
'--------------------------------------------------------------%>
<!--#include file=conn.asp-->
<HTML>
<HEAD>
<Title>cjshuchu.asp</Title>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<META name="Generator" content="Asp Studio 1.0">
</HEAD>
<BODY>
<center>
<%
strID=Request.Form("xh")
strxq=Request.Form("xueqi")
'response.Write(strID)
'response.Write(strxq)
'sqlstr="select * from slcourse"
sqlstr="select chengji,course_name from slcourse,course where course.course_id=slcourse.course_id and xueqi='"+strxq+"'and student_id='"+strID+"'"
set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sqlstr,conn,1,3
'response.Write rs.RecordCount
for i=1 to rs.RecordCount
%>
<table>
<tr>
<td width=150px><%=rs("course_name")%></td><td width=50px><%=rs("chengji")%></td>
</tr>
</table>
<%
'response.Writers("course_name")
'response.Write rs("chengji")
'response.Write "<br>"
rs.MoveNext
next
rs.Close()
conn.Close()
%>
</center>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -