📄 dynamic.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

   Response.Write "document.write(""<body bgcolor=#FFF8E0 text=#000000><div align=center><center><table border=0 width=100% cellpadding=0><tr><td valign=top></td></tr>"")" & vbnewline
   for a=1 to rs.recordcount
      str = "<tr>"
   i=1
   do while not rs.eof and i<=2
    title="<font style=font-size:14px>" & rs("dynamic_title") & "</font>"
      str = str & "<td valign=top>"
      str = str & "◇ <a href=javascript:void(null) onclick=window.open('asp/disp_dynamic.asp?id="& rs("dynamic_id") &"','','scrollbars=yes,width=700,height=500');>"
      str = str & title
      str = str & "</a></td>"
     i=i+1
    rs.movenext
   loop
     response.write "document.write(""" & str &""")" & vbnewline
  next
   Response.Write "document.write(""<tr><td colspan=2 width=100% valign=top></td></tr></table></center></div></body>"")" & vbnewline
                  
%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -