📄 dynamic_more.asp

📁 又一套宾馆全站源码

💻 ASP

字号:

<%

   Set rs=Server.CreateObject("ADODB.Recordset")     
   SQL = "select * from t_dynamic order by dynamic_date desc"     
   rs.Open sql, Application("Connect_String"),3,3
	pgsize=8
	page=request.querystring("page")
	rs.pagesize=pgsize
	pgnm=rs.pagecount 
	if page="" or clng(page)<1 then page=1
	if clng(page)>=pgnm then page=pgnm
	if pgnm>0 then rs.absolutepage=page
	count=0
   Response.Write "<body bgcolor=#FFF8E0 text=#000000><link rel=stylesheet type=text/css href=../htmlstyle.css><div align=center><center><table border=0 width=100% cellpadding=0><tr><td valign=top></td></tr>"
'   for a=1 to rs.recordcount
    do while not rs.eof and count<rs.pagesize
    str = "<tr>"
    title=rs("dynamic_title") 
      str = str & "<td valign=top>"
      str = str & "◇ <a href=javascript:void(null) onclick=window.open('disp_dynamic.asp?id="& rs("dynamic_id") &"','','scrollbars=yes,width=500,height=400');>"
      str = str & title
      str = str & "</a></td></tr>"
    count=count+1
    str = str & "</tr>"
     response.write str 
    rs.movenext
   loop
      Response.Write "<tr><td colspan=2 width=100% valign=top></td></tr>"
      Response.Write "<tr><td align=right>转到页码: "
      for p=1 to pgnm
      Response.Write "<a href=dynamic_more.asp?page=" & p & "><b>" & p &"</b></a>&nbsp;"
      if p/30=0 then
      Response.Write "<br>"
      end if
      next
      response.write "</td></tr></table></center></div></body>"
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -