⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 index.asp

📁 此程序是对音像店的管理系统,测试播放音象等功能
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<script language= "javascript">
function openpage(htmlurl) {
var newwin=window.open(htmlurl,"newWin","toolbar=no,location=no,directories=no,status=no,scrollbars=yes,menubar=no,resizable=no,top=100,left=200,width=600,height=500");
newwin.focus();
return false;
}
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>首页新闻调用</title>
<style type="text/css">
<!--
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
td {  font-family: "Arial", "Helvetica", "sans-serif"; font-size: 12px; font-style: normal; line-height: 20px; font-weight: normal; font-variant: normal}

a:link {
	font-family: Arial, Helvetica, sans-serif;
	color: #336699;
	
}
a:visited {
	font-family: Arial, Helvetica, sans-serif;
	color: #336699;
	
}
a:hover {
	font-family: Arial, Helvetica, sans-serif;
	color: #FF6600;
	text-decoration: underline;
}
-->
</style></head>
<%set rs3=server.CreateObject("adodb.recordset")
 sql3="select top 5 * from y_news order by y_id desc"
 rs3.open sql3,conn,1,1
 if rs3.bof and rs3.eof then
 response.Write("当前没有新闻记录!")
 response.End()
 else
%>
<body>
<center>
  <table width="613" border="0" cellspacing="0" cellpadding="0">
    <tr>
      <th scope="row"><script language=javascript src=http://ivan.pagou.com/pagou_Script.aspx?width=200&info_show=1&search_box_show=1&adid=329&ad_width=610&ad_height=100></script></th>
    </tr>
  </table>
  <table width="613" height="99"  border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
    <tr align="center" bgcolor="#DDDDDD">
      <td height="26" colspan="3"><table width="100%"  border="0" cellspacing="2" cellpadding="0">
        <tr>
          <td height="31" align="center">首页调用(调用时候请看清数据苦路径)</td>
          </tr>
      </table></td>
    </tr>
    
	<% do until rs3.eof %>
    <tr bgcolor="#FFFFFF">
      <td width="351" height="24" align="left"><img src="dot.gif" width="9" height="9"> &nbsp;&nbsp;<a href="shownews.asp?id=<%=rs3("y_id")%>" onClick="return openpage(this.href);"><%=left(rs3("y_title"),20)%>...</a></td>
      <td width="106" align="center">浏览<%=rs3("y_hits")%>次</td>
      <td width="139" align="center"><%=rs3("y_time")%></td>
    </tr>
	<%rs3.movenext
	loop%>
    
  </table>
  <%end if
	  rs3.close
	  set rs3=nothing
	  conn.close
	  set conn=nothing%>
</center>

</body>
</html>

⌨️ 快捷键说明

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