28,391
社区成员
发帖
与我相关
我的任务
分享
<!--#include file="conn.asp" -->
<%
Dim outStr,oRs,oSQL
oId = Request("oId")
sId = Request("sId")
If (oId = "" Or IsNull(oId)) Then
outStr = ""
Else
outStr = "<select name=""Score"">"
outStr = outStr &"<option value=""0"">请选择课程名称</option>"
oSQL = "Select * From score Where oId = "&oId&" "
oSQL = oSQL &" Order by id asc"
Set oRs = Conn.Execute(oSQL)
If (oRs.EOF And oRs.BOF) Then
outStr = outStr &"<option value=""0"">暂无此类课程</option>"
Else
Do While Not oRs.EOF
If Trim(sId) = Trim(oRs(0)) Then
outStr = outStr &"<option value="""&oRs(3)&""" selected>"&oRs(1)&"</option>"
Else
outStr = outStr &"<option value="""&oRs(3)&""">"&oRs(1)&"</option>"
End If
oRs.MoveNext
Loop
End If
outStr = outStr &"</select>"
Set oRs = Nothing
End If
Response.Write(outStr)
%>
function CreateAjax(){
var XMLHttp;
try
{
XMLHttp = new ActiveXObject("Microsoft.XMLHTTP"); //IE的创建方式
}
catch(e)
{
try
{
XMLHttp = new XMLHttpRequest(); //FF等浏览器的创建方式
}
catch(e)
{
XMLHttp = false; //创建失败,返回false
}
}
return XMLHttp; //返回XMLHttp实例
}
function getoId(ids,sId){
var xmlHttp = CreateAjax();
var urlLink = 'class.asp?oId='+ids+'&sId='+sId+'&n='+Math.random()+'';
if(xmlHttp){
xmlHttp.open('GET',urlLink,true);
xmlHttp.onreadystatechange=function(){
if(xmlHttp.readyState == 4){ //客户端完成请求
if(xmlHttp.status == 200){ //服务端完成处理并返回数据
var ResponseText = xmlHttp.responseText;
if(ResponseText == ""){ //service返回了错误信息
//alert("yes");
SmClass.innerHTML = ResponseText;
}else{
//alert("no");
SmClass.innerHTML = ResponseText;
}
}else{
SmClass.innerHTML = '服务器返回异常...';//服务器出现异常
}
}else{
SmClass.innerHTML = '正在加载数据...';//请求未完成时的提示信息
}
}
xmlHttp.send(null);//向服务器发送请求
}else{
SmClass.innerHTML = '您的浏览器不支持或未启用 XMLHttp!';//创建未成功
}
}