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

📄 fashion.asp

📁 一个简单的网站制作,使用ASP,ACCE
💻 ASP
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>fashion</title>
<style type="text/css">
<!--
body {
	background-image: url(beijing4.gif);
}
.STYLE1 {
	font-family: "華康圓緣體";
	font-size: 24px;
	font-weight: bold;
	color: #FF0066;
}
.STYLE2 {
	font-family: "華康圓緣體";
	font-size: 24px;
	font-weight: bold;
	color: #CC33CC;
}
.STYLE3 {
	font-family: "華康圓緣體";
	font-size: 24px;
	font-weight: bold;
	color: #666666;
}
-->
</style></head>

<body>
<table width="750" border="0" align="center" cellpadding="0" cellspacing="0">
    <!--DWLayoutTable-->
    <tr> 
      <td width="750" height="105" valign="top"><a href="%CA%B1%C9%D0%C9%FA%BB%EE.htm"><img src="YETOU.gif" width="750" height="105" border="0"></a></td>
    </tr>
  </table>

  <table width="750" border="0" align="center" cellpadding="0" cellspacing="0">
    <!--DWLayoutTable-->
    <tr>
      <td width="135" height="45" valign="top"><a href="index.asp"><img src="SHOUYE.gif" width="135" height="45" border="0"></a></td>
      <td width="17">&nbsp;</td>
      <td width="135" valign="top"><a href="face.asp"><img src="meirong.gif" width="135" height="45" border="0"></a></td>
      <td width="18">&nbsp;</td>
      <td width="135" valign="top"><a href="hear.asp"><img src="MEIFA.gif" width="135" height="45" border="0"></a></td>
      <td width="18">&nbsp;</td>
      <td width="136" valign="top"><a href="fashion.asp"><img src="shishangshenghuo.gif" width="136" height="45" border="0"></a></td>
      <td width="16">&nbsp;</td>
      <td width="140" valign="top"><a href="share.asp"><img src="fenxiangzhan.gif" width="140" height="45" border="0" ></a></td>
    </tr>
  </table>
<table width="750" border="0" align="center" cellpadding="0" cellspacing="0">
    <!--DWLayoutTable-->
    <tr bgcolor="#EFC7D0"> 
      <td height="16" colspan="9" valign="top"><!--DWLayoutEmptyCell-->&nbsp;</td>
    </tr>
    <tr> 
      <td width="11" valign="top" bgcolor="#EFC7D0"><!--DWLayoutEmptyCell-->&nbsp;</td>
      <td colspan="7">
        <table width="728" border="0">
          <tr>
            <td width="318"><table border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td>
          
            <% 
	
	Dim db,rs,strSql	
	Set db=server.createobject("adodb.connection")
	db.open  "Dbq="&Server.Mappath("meirongDIY.mdb")&";Driver={Microsoft Access Driver (*.mdb)};"    
	 
	strSql="Select * From shishangshenghuo Order By id aSC"  
	Set rs=db.Execute(strSql)
	%>
    <table border="0">
    <% 
		Do While Not rs.Eof                            
		%>
        <tr>
          <td><a href="fashion1.asp?id=<%=rs("id")%>" target="_blank"><%=rs("name")%></a> <%=rs("date")%></td>
        </tr>
        <% 
			rs.MoveNext                            
		Loop
		%>
      </table>        </td>
        </tr>
      </table></td>
            <td width="400"><img src="welcome3.gif" width="376" height="362"></td>
          </tr>
      </table></td>
      <td width="11" valign="top" bgcolor="#EFC7D0"><!--DWLayoutEmptyCell-->&nbsp;</td>
    </tr>
</table>


<table width="750" border="0" align="center" cellpadding="0" cellspacing="0">
    <!--DWLayoutTable-->
    <tr bgcolor="#EFC7D0"> 
      <td height="16" colspan="3" valign="top"><!--DWLayoutEmptyCell-->&nbsp;</td>
    </tr>
    <tr> 
      <td width="11" height="43" valign="top" bgcolor="#EFC7D0"><!--DWLayoutEmptyCell-->&nbsp;</td>
      <td width="728"><img src="01.jpg" width="728" height="43"></td>
      <td width="11" valign="top" bgcolor="#EFC7D0"><!--DWLayoutEmptyCell-->&nbsp;</td>
    </tr>
    <tr bgcolor="#EFC7D0"> 
      <td height="16" colspan="3" valign="top"><!--DWLayoutEmptyCell-->&nbsp;</td>
    </tr>
  </table>

</body>
</html>

⌨️ 快捷键说明

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