Question

ASP多重条件查询－－在多个表中选择一个表查询

<!--#include file="conn.asp"-->
<%
dim mon,TeacherID,Course
mon=Request("month1")
TeacherID=Request("TeacherID")
Sex=Request("Sex")
Department=Request("Department")
if Request.Form("month1")="0" then
response.write "<script>alert('请选择要查询的月份！');history.back();</script>"
response.end
end if
%>
<table width="250" border="1" cellspacing="0" cellpadding="0">
<tr>
<td width="118" height="28"><div align="center">教师编号：</div></td>
<td width="126"><div align="center">本月课时：</div></td>
</tr>
<%
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
sqls="select * from TInformation where 1=1"
sqls=sql("TeacherID",TeacherID,sqls)
sqls=sql("Sex",Sex,sqls)
sqls=sql("Department",Department,sqls)
sqls=sqls&" Order by Id"
rs.open sqls,conn,1,3
if rs.eof or rs.bof then
response.write "<script>alert('没有符合条件的记录！');history.back();</script>"
response.end
end if
'多条件连接函数
Function sql(a,b,sqls)
if b<>"" then
sqls=sqls&"and "&a&"='"&b&"'"
end if
sql=sqls
End Function
rs.pagesize=10
rCount=cint(rs.RecordCount/rs.pagesize)
curpage=Request.QueryString("curpage")
if curpage="" then curpage=1
rs.absolutepage=curpage
for i= 1 to rs.pagesize
if rs.eof then
exit for
end if
c=rs("TeacherID")
Set srs = Server.CreateObject("ADODB.RecordSet")
sql1 = "Select*from Course"&mon&"_time where TeacherID='"&c&"'"
srs.Open sql1,conn,1,3
%>
<tr>
<td height="27"><%=srs("TeacherID")%></td>
<td><%=srs("Course_time")%></td>
</tr>
<%
srs.close
Set srs=nothing
rs.movenext
next
%>
<tr align="center">
<td colspan="6">
<%Response.Write("共有"&Trim(rs.RecordCount)&"条用户记录")%>
<%if curpage=1 then%>
首页
<%else%>
<a href="chaxun.asp?TeacherID=<%=Request("TeacherID")%>&Sex=<%=Request("Sex")%>&Department=<%=Request("Department")%>&curpage=1">首页</a>
<%end if%>
<%if curpage=1 then%>
上一页
<%else%>
<a href="chaxun.asp?TeacherID=<%=Request("TeacherID")%>&Sex=<%=Request("Sex")%>&Department=<%=Request("Department")%>&curpage=<%=curpage-1%>">上一页</a>
<%end if%>
<%if rs.pagecount<curpage+1 then%>
下一页
<%else%>
<a href="chaxun.asp?TeacherID=<%=Request("TeacherID")%>&Sex=<%=Request("Sex")%>&Department=<%=Request("Department")%>&curpage=<%=curpage+1%>">下一页</a>
<%end if%>
<%if rs.pagecount<curpage+1 then%>
尾页
<%else%>
<a href="chaxun.asp?TeacherID=<%=Request("TeacherID")%>&Sex=<%=Request("Sex")%>&Department=<%=Request("Department")%>&curpage=<%=rs.pagecount%>">尾页</a>
<%end if%>
<%Response.Write "第"&curpage&"页 共"&Trim(rCount)&"页" %>
</td>
</tr>
</table>
补充：主要问题是sql1 = "Select*from Course"&mon&"_time where TeacherID='"&c&"'"语句中的这个语句，比如mon=1，那么我要查询的表是Course1_time，课时多重条件查询分页后，点击下一页时，查询的表就变成Course_time了，而不是Course1_time，因而点击下一页失败。请问各位高手，该如何解决此问题？

Answer 1

<a href="chaxun.asp?TeacherID=<%=Request("TeacherID")%>&Sex=<%=Request("Sex")%>&Department=<%=Request("Department")%>&curpage=<%=curpage+1%>">下一页</a>

你在这里面没有传递month1.加上month1=<%=mon%>