index.asp

在线成语词典大全 v1.0 asp+access全数据库

<!-- #include file="top.asp"-->
<center>
<%
dim totalcs,Currentpage,totalpages,i
fl1=request("fl1")
fl2=request("fl2")
if  fl1<>"" then 
sql="select * from pic where fl1="&fl1&" order by id DESC"
if fl2<>"" then 
sql="select * from pic where fl1="&fl1&" and fl2="&fl2&" order by id DESC"
end if
else
sql="select * from pic order by id DESC"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
totalcs=rs.recordcount
%>
<%
perpage=300
if not rs.eof then
rs.movefirst
rs.pagesize=perpage
if trim(request("page"))<>"" then
   currentpage=clng(request("page"))
   if currentpage>rs.pagecount then
      currentpage=rs.pagecount
   end if
else
   currentpage=1
end if
   if currentpage<>1 then
       if (currentpage-1)*perpage<totalcs then
	       rs.move(currentpage-1)*perpage
		   dim bookmark
		   bookmark=rs.bookmark
	   end if
   end if
   if (totalcs mod perpage)=0 then
      totalpages=totalcs\perpage
   else
      totalpages=totalcs\perpage+1
   end if
i=0%>

<TABLE cellSpacing=0 cellPadding=0 width="777" align=center border=0 bgcolor=#EFFAFF>
<TBODY>
<form name="form1" method="post" action="index.asp?fl1=<%=request.querystring("fl1")%>&fl2=<%=request.querystring("fl2")%>">
<TR> 
<TD align=middle width="35%" height=25> 共[<font color="#FF6666"><%=totalcs%></font>]个作品　分[<font color="#FF6666"><%=totalpages%></font>]页</TD>
<TD width="40%" align=middle >
<%
if CurrentPage<2 then
response.write "<font color='999966'>首页 上一页</font> "
else
response.write "<a href=index.asp?page=1&fl1="&request.querystring("fl1")&"&fl2="&request.querystring("fl2")&">首页</a> "
response.write "<a href=index.asp?page="&CurrentPage-1&"&fl1="&request.querystring("fl1")&"&fl2="&request.querystring("fl2")&">上一页</a> "
end if
if totalpages-currentpage<1 then
response.write "<font color='999966'>下一页 尾页</font>"
else
response.write "<a href=index.asp?page="&CurrentPage+1&"&fl1="&request.querystring("fl1")&"&fl2="&request.querystring("fl2")&""
response.write ">下一页</a> <a href=index.asp?page="&totalpages&"&fl1="&request.querystring("fl1")&"&fl2="&request.querystring("fl2")&">尾页</a>"
end if
%>
</TD>
<TD align=middle width="25%">
<select name="page" class="lanyu">
<%
f=1
for f=1 to totalpages
if f=currentpage then
%>
<option value=<%=f%> selected>第<%=f%>页</option> 
<%else%>
<option value=<%=f%>>第<%=f%>页</option> 
<%end if
next%>
</select><input type="submit" name="Submit2" value="转向" class="button"> </TD>
</TR>
</FORM></table>
<table width="777"  bgColor=#ffffff border=1 borderColor=#cccccc cellPadding=0 
      cellSpacing=0 style="BORDER-COLLAPSE: collapse" >
        <TBODY>
<tr height="24" align="center" bgcolor="#aaaa33">
<td width="20%" align="left">&nbsp;&nbsp;<font color=#ffffff><b>成语查询</b></font><td width="80%" colspan="4" style="padding-left:10px;padding-right:10px"><font color=#ffffff><b>本站需要大家帮忙宣传，请把本站地址(<font color=#ffffcf>http://www.aqbt.cn/idiom</font>)发给你QQ上的5位好友！！</b></td>
</tr>
<tr height='24' align='center'>
<%
do while not rs.eof and i<perpage
i=i+1
j=j+1
%> 
<%
if j mod 5=0 then%>
<td width=20%><a  href=javascript:cy('<%=rs("id")%>')><%=rs("biaoti")%></a></td></tr><tr height=24 align=center>
<%else%>
<td width=20%><a  href=javascript:cy('<%=rs("id")%>')><%=rs("biaoti")%></a></td>
<%end if%>

<%

rs.movenext
loop
else
if rs.eof and rs.bof then%>
            谢谢您的支持，当前还没这类作品
<%
end if
%>
<%end if%>
</td></tr></table>
<TABLE cellSpacing=0 cellPadding=0 width="777" align=center border=0 bgcolor=#cfffcf>
<TBODY>
<form name="form1" method="post" action="index.asp?fl1=<%=request.querystring("fl1")%>&fl2=<%=request.querystring("fl2")%>">
<TR> 
<TD align=middle width="35%" height=25> 共[<font color="#FF6666"><%=totalcs%></font>]个作品　分[<font color="#FF6666"><%=totalpages%></font>]页</TD>
<TD width="40%" align=middle >
<%
if CurrentPage<2 then
response.write "<font color='999966'>首页 上一页</font> "
else
response.write "<a href=index.asp?page=1&fl1="&request.querystring("fl1")&"&fl2="&request.querystring("fl2")&">首页</a> "
response.write "<a href=index.asp?page="&CurrentPage-1&"&fl1="&request.querystring("fl1")&"&fl2="&request.querystring("fl2")&">上一页</a> "
end if
if totalpages-currentpage<1 then
response.write "<font color='999966'>下一页 尾页</font>"
else
response.write "<a href=index.asp?page="&CurrentPage+1&"&fl1="&request.querystring("fl1")&"&fl2="&fl2&""
response.write ">下一页</a> <a href=index.asp?page="&totalpages&"&fl1="&request.querystring("fl1")&"&fl2="&request.querystring("fl2")&">尾页</a>"
end if
%>
</TD>
<TD align=middle width="25%">
<select name="page" class="lanyu">
<%
i=1
for i=1 to totalpages
if i=currentpage then
%>
<option value=<%=i%> selected>第<%=i%>页</option> 
<%else%>
<option value=<%=i%>>第<%=i%>页</option> 
<%end if
next%>
</select><input type="submit" name="Submit2" value="转向" class="button"> </TD>
</TR>
</FORM></table>
<%if request("id")<>"" then%>
<%set rs1=server.CreateObject("adodb.recordset")
	sql1="select * from pic where id="&request("id")&""
	rs1.open sql1,conn,1,1
if not rs1.bof and not rs1.eof then%>
<table><tr><td><%=rs1("shuzi")%></td><td align=center>
<%=rs1("biaoti")%></td></tr><tr>
<td colspan=2 align=center><%=rs1("content")%></td></tr></table>
<%end if%>
<%end if%>
</center>
<table width="777" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="2" bgcolor="#808080"></td>
  </tr>
  <tr>
    <td height="15" background="images/diandian.gif"><div align="center"></div></td>
  </tr>
  <tr>
    <td bgcolor="#FFFFFF"><table width="738" border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td height="20" align="center"><a href="http://www.aqbt.cn">回到主站</a> ┋ <a href="http://www.aqbt.cn/book.asp">网站留言</a> ┋ <a href="search.asp">全站搜索</a> ┋ <a href="http://www.aqbt.cn/free">娱乐社区</a> ┋ <a href="http://www.aqbt.cn/bbs">娱乐论坛</a> ┋ <a href="http://my.aqbt.cn">免费域名</a> ┋ <a href="http://www.aqbt.cn/dj.asp">音乐欣赏</a> ┋ <a href="http://www.aqbt.cn/vid.asp">影视热线</a></td>
            </tr>
            <tr>
              <td height="20" align="center">Copyright &copy; 2006-2008 <a href='http://www.aqbt.cn' target=_blank title='梦想中国热线'>梦想中国热线</a> All Rights Reserved. <a href="http://www.miibeian.gov.cn">京ICP备06052888号</a> <script src='http://s18.cnzz.com/stat.php?id=58236&web_id=58236&online=2' language='JavaScript' charset='gb2312'></script> <script language="javascript" type="text/javascript" src="http://js.users.51.la/793718.js"></script></td>
            </tr>
            <tr>
          </table></td>
      </tr>
    </table></td>
  </tr>
</table>
</body></html>