📄 more_dish.asp

📁 又一套宾馆全站源码

💻 ASP

字号:

<%
   Set rs=Server.CreateObject("ADODB.Recordset")     
   SQL = "select * from t_dish order by dish_date desc"     
   rs.Open sql, Application("Connect_String"),3,3
  	pgsize=14
	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
      str = "<tr>"
   i=1
   do while not rs.eof and i<=2 and count<rs.pagesize
    title="<font style=font-size:9pt>" & rs("dish_title") & "</font>"
      str = str & "<td valign=top>"
      str = str & "◇ <a href=javascript:void(null) onclick=window.open('disp_dish.asp?id="& rs("dish_id") &"','','scrollbars=yes,width=500,height=450');>"
      str = str & title
      str = str & "</a></td>"
     i=i+1
    rs.movenext
   loop
     response.write str
  next
   Response.Write "<tr><td colspan=2 width=100% valign=top></td></tr></table></center></div></body>"
         Response.Write "<p align=right>转到页码: "
      for p=1 to pgnm
      Response.Write "<a href=more_dish.asp?page=" & p & "><b>" & p &"</b></a>&nbsp;"
      if p/30=0 then
      Response.Write "<br>"
      end if
      next                  
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -