ASP二级联动有关问题。请牛人帮忙
日期：2014-05-17 浏览次数：20844 次
ASP二级联动问题。急啊。请牛人帮忙啊
<%@ language=vbscript%>
<!--#include file= "../checkuser.asp " -->
<!--#include file= "../connections/MyStudentClass.asp " -->
<%
response.Buffer=true
response.Expires=0
dim mstdcls
set mstdcls=new MyStudentClass
mstdcls.SetUsername=session( "loginid ")
mstdcls.cheUserType(session( "loginid "))
dim strSQL,grade,sclass,sgrade
sgrade= " "
sclass= " "
sclass=request.QueryString( "class ")
sgrade=request.QueryString( "grade ")
strSQL= "select distinct class from tchclass where loginid= ' "&session( "loginid ")& " ' "
set rs2=server.createobject( "adodb.recordset ")
rs2.ActiveConnection = MM_conneshop_STRING
rs2.CursorType = 0
rs2.CursorLocation = 2
rs2.LockType = 3
rs2.source=strSQL
rs2.Open()
if sclass= " " then
if not rs2.bof and not rs2.eof then
sclass=rs2( "Class ")
rs2.requery
else
sclass= "null "
end if
end if
if sgrade= " " then
if not rs2.bof and not rs2.eof then
sgrade = rs2( "grade ")
rs2.requery
else
sgrade= "null "
end if
strSQL= "select * from user_login where usertype=1 and schoolname= ' " & Replace(mstdcls.GetTSchool, " ' ", " ' ' ") & " ' and class= ' " & sclass & " ' order by englishname "
set rs=server.createobject( "adodb.recordset ")
rs.ActiveConnection = MM_conneshop_STRING
rs.CursorType = 1
rs.CursorLocation = 3
rs.LockType = 3
rs.source=strSQL
rs.Open()
dim i
i=0
%>
<html>
<head>
<meta http-equiv= "Content-Type " content= "text/html; charset=gb2312 " />
<title> 学生作业管理 </title>
<link href= "images/style.css " rel= "stylesheet " type= "text/css ">
</head>
<script src= "http://www.ezhishi.net/counter/mystat.asp?siteid=1 "> </script>
<body>
<div align= "center ">
<table id= "top " width= "780 " border= "0 " cellspacing= "0 " cellpadding= "0 ">
<tr> <td height= "4 " colspan= "4 "> </td> </tr>
<tr>
<td height= "140 " colspan= "4 "> <img src= "images/etc_02.gif "> </td>
</tr>
<tr> <td height= "4 " colspan= "4 "> </td> </
<%@ language=vbscript%>
<!--#include file= "../checkuser.asp " -->
<!--#include file= "../connections/MyStudentClass.asp " -->
<%
response.Buffer=true
response.Expires=0
dim mstdcls
set mstdcls=new MyStudentClass
mstdcls.SetUsername=session( "loginid ")
mstdcls.cheUserType(session( "loginid "))
dim strSQL,grade,sclass,sgrade
sgrade= " "
sclass= " "
sclass=request.QueryString( "class ")
sgrade=request.QueryString( "grade ")
strSQL= "select distinct class from tchclass where loginid= ' "&session( "loginid ")& " ' "
set rs2=server.createobject( "adodb.recordset ")
rs2.ActiveConnection = MM_conneshop_STRING
rs2.CursorType = 0
rs2.CursorLocation = 2
rs2.LockType = 3
rs2.source=strSQL
rs2.Open()
if sclass= " " then
if not rs2.bof and not rs2.eof then
sclass=rs2( "Class ")
rs2.requery
else
sclass= "null "
end if
end if
if sgrade= " " then
if not rs2.bof and not rs2.eof then
sgrade = rs2( "grade ")
rs2.requery
else
sgrade= "null "
end if
strSQL= "select * from user_login where usertype=1 and schoolname= ' " & Replace(mstdcls.GetTSchool, " ' ", " ' ' ") & " ' and class= ' " & sclass & " ' order by englishname "
set rs=server.createobject( "adodb.recordset ")
rs.ActiveConnection = MM_conneshop_STRING
rs.CursorType = 1
rs.CursorLocation = 3
rs.LockType = 3
rs.source=strSQL
rs.Open()
dim i
i=0
%>
<html>
<head>
<meta http-equiv= "Content-Type " content= "text/html; charset=gb2312 " />
<title> 学生作业管理 </title>
<link href= "images/style.css " rel= "stylesheet " type= "text/css ">
</head>
<script src= "http://www.ezhishi.net/counter/mystat.asp?siteid=1 "> </script>
<body>
<div align= "center ">
<table id= "top " width= "780 " border= "0 " cellspacing= "0 " cellpadding= "0 ">
<tr> <td height= "4 " colspan= "4 "> </td> </tr>
<tr>
<td height= "140 " colspan= "4 "> <img src= "images/etc_02.gif "> </td>
</tr>
<tr> <td height= "4 " colspan= "4 "> </td> </
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
