日期:2014-05-16 浏览次数:21146 次
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>成绩查询</title>
<script language="javascript" type="text/javascript" src="Ajax.js"></script>
</head>
<body>
<br />
<form name="myform" action="result.asp" method="post">
<select name="BId" onChange="getoId(this.value,'');">
<option value="">选择课程性质</option>
<%
Dim oRs,oSQL
Set oRs = server.CreateObject("adodb.recordset")
oSQL = "Select * From score Where oId = 0 Order by id asc"
oRs.Open oSQL,Conn,1,1
If (oRs.EOF And oRs.BOF) Then
Response.Write("<option value="""">选择课程性质</option>")
Else
Do While Not oRs.EOF
Response.Write("<option value="""&oRs(0)&""">"&oRs(1)&"</option>")
oRs.MoveNext
Loop
End If
oRs.Close:Set oRs = Nothing
%>
</select>
<span id="SmClass"></span>
<input name="" type="submit" value="查询"/>
</form>
</body>
</html>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp" -->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>成绩查询</title>
<script language="javascript" type="text/javascript" src="Ajax.js"></script>
<link href="../css/result.css" rel="stylesheet" type="text/css" />
</head>
<body>
<br />
<form name="myform" action="result.asp" method="post">
<select name="BId" onChange="getoId(this.value,'');">
<option value="">请选择课程性质<