📄 in1.asp
字号:
pgnum=pgnum+1
case 4
pgnum=pgcount
end select
session("pgnum")=pgnum
else
dim classid,sname,data_timeopen,data_timeend,sql1
sql1="select t1.* from cl as t1,class as t2 where t1.classid=t2.id and t2.type=2"
sql=""
if request("city1")<>"" then
sql=" and provinceid='"&request("city1")&"'"
end if
if request("city2")<>"" then
sql=sql&" and cityid='"&request("city2")&"'"
end if
if request("city3")<>"" then
sql=sql&" and areaid='"&request("city3")&"'"
end if
if session("provinceid")<>"" then
sql=sql&" and provinceid='"&session("provinceid")&"'"
end if
if session("cityid")<>"" then
sql=sql&" and cityid='"&session("cityid")&"'"
end if
if session("areaid")<>"" then
sql=sql&" and areaid='"&session("areaid")&"'"
end if
if request("xiao")<>"" then
sql=sql&" and classid='"&request("xiao")&"'"
else
if request("zhong")<>"" then
sql=sql&" and ( classid='"&request("zhong")&"' or classid in (select id from class where fid="&request("zhong")&"))"
else
if request("da")<>"" then
sql=sql&" and (classid="&request("da")&" or classid in (select id from class where fid="&request("da")&") or classid in (select id from class where fid in (select id from class where fid="&request("da")&"))) "
end if
end if
end if
if request("title")<>"" then
sql=sql&" and (cl_title like '%"&request("title")&"%' or cl_xh like '%"&request("title")&"%')"
end if
if request("nian")<>"" then
sql=sql&" and datename(yy,addtime) = '"&request("nian")&"'"
end if
if request("yue")<>"" then
dim yue
yue=request("yue")
if yue<10 then
yue="0"&yue
end if
sql=sql&" and datename(mm,addtime) = '"&yue&"'"
end if
if(sql="") then
response.End()
else
sql=sql1&sql
end if
session("sql")=sql
rs.open sql,conn,1,1
if Not(rs.bof and rs.eof) then
datacount=rs.recordcount
rs.pagesize=15
pgcount=rs.Pagecount
end if
session("datacount")=datacount
session("pgcount")=pgcount
session("pgnum")=pgnum
end if
response.Write(sql)
if not rs.eof then
rs.move (Cint(pgnum)-1)*15,1
dim n
n=1
for i=1 to rs.pagesize
%>
<tr>
<td height=23 align="center" width="4%" ><%=(pgnum-1)*15+n%></td>
<%
if zt1=1 then
%>
<td height=23 align="center" width="7%" ><%if rs("cl_bh")=empty then response.Write(" ") else response.Write(rs("cl_bh")) end if%></td>
<%
end if
if zt2=1 then
%>
<td height=23 align="center" width="9%" >
<%if rs("cl_title")=empty then response.Write(" ") else response.Write(rs("cl_title")) end if%>
</td>
<%
end if
if zt3=1 then
%>
<td height=23 align="center" width="6%" >
<%if rs("cl_xh")=empty then response.Write(" ") else response.Write(rs("cl_xh")) end if%>
</td>
<%
end if
if zt4=1 then
%>
<td height=23 align="center" width="4%" ><%if rs("cl_dw")=empty then response.Write(" ") else response.Write(rs("cl_dw")) end if%></td>
<%
end if
if zt5=1 then
%>
<td height=23 align="center" width="5%" ><%if rs("cl_zhj")=empty then response.Write(" ") else response.Write(rs("cl_zhj")) end if%></td>
<%
end if
if zt6=1 then
%>
<td height=23 align="center" width="4%" ><%if rs("cl_ajg")=empty then response.Write(" ") else response.Write(rs("cl_ajg")) end if%></td>
<%
end if
if zt7=1 then
%>
<td height=23 align="center" width="4%" ><%if rs("cl_bjg")=empty then response.Write(" ") else response.Write(rs("cl_bjg")) end if%></td>
<%
end if
if zt8=1 then
%>
<td height=23 align="center" width="4%" ><%if rs("cl_cjg")=empty then response.Write(" ") else response.Write(rs("cl_cjg")) end if%></td>
<%
end if
if zt9=1 then
%>
<td height=23 align="center" width="4%" ><%if rs("cl_djg")=empty then response.Write(" ") else response.Write(rs("cl_djg")) end if%></td>
<%
end if
if zt10=1 then
%>
<td height=23 align="center" width="4%" ><%if rs("cl_ejg")=empty then response.Write(" ") else response.Write(rs("cl_ejg")) end if%></td>
<%
end if
if zt11=1 then
%>
<td height=23 align="center" width="4%" ><%if rs("cl_fjg")=empty then response.Write(" ") else response.Write(rs("cl_fjg")) end if%></td>
<%
end if
if zt12=1 then
%>
<td height=23 align="center" width="4%" ><%if rs("cl_cd")=empty then response.Write(" ") else response.Write(rs("cl_cd")) end if%></td>
<%
end if
if zt13=1 then
%>
<td height=23 align="center" width="4%" >
<%if rs("cl_dj")=empty then response.Write(" ") else response.Write(rs("cl_dj")) end if%>
</td>
<%
end if
if zt14=1 then
%>
<td height=23 align="center" width="5%" ><%if rs("cl_pp")=empty then response.Write(" ") else response.Write(rs("cl_pp")) end if%></td>
<%
end if
if zt15=1 then
%>
<td height=23 align="center" width="5%" ><%if rs("cl_yj")=empty then response.Write(" ") else response.Write(rs("cl_yj")) end if%></td>
<%
end if
if zt16=1 then
%>
<td height=23 align="center" width="5%" ><%if rs("cl_bz1")=empty then response.Write(" ") else response.Write(rs("cl_bz1")) end if%></td>
<%
end if
if zt17=1 then
%>
<td height=23 align="center" width="5%" ><%if rs("cl_bz2")=empty then response.Write(" ") else response.Write(rs("cl_bz2")) end if%></td>
<%
end if
if zt18=1 then
%>
<td height=23 align="center" width="5%" ><%if rs("cl_bz3")=empty then response.Write(" ") else response.Write(rs("cl_bz3")) end if%></td>
<%
end if
%>
</tr>
<% rs.movenext
if rs.eof then exit for
n=n+1
next%>
<%else%>
<tr>
<td colspan="21"><table cellspacing=0 cellpadding=2 width="100%"
align=center border=0>
<tbody>
<tr>
<td height=23 align="center" width="100%" >查无此记录</td>
</tr>
</tbody>
</table></td>
</tr>
<%end if
rs.close
set rs=nothing
%>
</tbody>
</table></TD></TR>
<TR><TD>
<TABLE cellSpacing=0 cellPadding=2 width="80%"
align=center border=0>
<TBODY>
<TR>
<TD height=23 colspan="9" align="center" width="100%" >
共<%=datacount%>条记录，当前<%=pgnum%>/<%=pgcount%>页
<%
if pgnum>1 then
%>
<a href="<%=url%>?page=1&city1=<%=request("city1")%>&city2=<%=request("city2")%>">首页</a> <a href="<%=url%>?page=2&city1=<%=request("city1")%>&city2=<%=request("city2")%>">上一页</a>
<%end if
if pgnum<pgcount then
%>
<a href="<%=url%>?page=3&city1=<%=request("city1")%>&city2=<%=request("city2")%>">下一页</a> <a href="<%=url%>?page=4&city1=<%=request("city1")%>&city2=<%=request("city2")%>">尾页</a>
<% end if%><div id="myinfo_alexa_01" style="display: none;">
<SCRIPT type='text/javascript' language='javascript' src='http://xslt.alexa.com/site_stats/js/t/a?url=25175.com'></SCRIPT>
</div>
<DIV style="DISPLAY: none">
<SCRIPT language=JavaScript src="http://s120.cnzz.com/stat.php?id=646555&web_id=646555" charset=gb2312></SCRIPT>
</DIV>
</TD>
</TR></TBODY></TABLE>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -