dynamic.asp

来自「又一套宾馆全站源码」· ASP 代码 · 共 24 行

ASP
24 行
字号 
<%
   Set rs=Server.CreateObject("ADODB.Recordset")     
   SQL = "select top 15 * 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
    do while not rs.eof
    str = "<tr>"
   'i=1
    title=rs("dynamic_title") 
      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=500,height=400');>"
      str = str & title
      str = str & "</a></td></tr>"
   '  i=i+1
    str = str & "</tr>"
     response.write "document.write(""" & str &""")" & vbnewline
    rs.movenext
   loop
   Response.Write "document.write(""<tr><td colspan=2 width=100% valign=top></td></tr></table></center></div></body>"")" & vbnewline
                  
%>

dynamic.asp - 源码说明

本页面展示了「又一套宾馆全站源码」中的 dynamic.asp 源码文件，采用 ASP 编程语言编写，共 24 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与源码相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?