📄 room_money.asp

📁 又一套宾馆全站源码

💻 ASP

字号:

<%
  	Set rs=Server.CreateObject("ADODB.Recordset")     
	SQL = "select * from t_room_price where room_price_language = 'CN' order by room_price_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=rs("room_price_title")
    price="<font face=Arial>" & rs("room_price_price") & "</font>"
      str = str & "<td valign=top align=right>"
      str = str & title & "：" & " <td>￥ " & price
      str = str & "</td></a></td>"
     i=i+1
     count=count+1
    rs.movenext
   loop
     response.write str
	next
   Response.Write "<tr><td colspan=2 valign=top></td></tr>"
      Response.Write "<tr><td align=right colspan=4>转到页码: "
      for p=1 to pgnm
      Response.Write "<a href=room_money.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 + -