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

📄 face.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>face</title>
<style type="text/css">
<!--
body {
	background-image: url(beijing2.gif);
}
.STYLE2 {
	font-family: "華康圓緣體";
	font-size: 24px;
	color: #660033;
	font-weight: bold;
}
.STYLE3 {
	font-family: "華康圓緣體";
	font-size: 24px;
	font-weight: bold;
	color: #9900CC;
}
.STYLE4 {
	font-family: "華康圓緣體";
	font-size: 24px;
	font-weight: bold;
	color: #660066;
}
.STYLE5 {
	font-family: "華康圓緣體";
	font-size: 24px;
	color: #CC6600;
	font-weight: bold;
}
body,td,th {
	color: #FF6666;
}
a:link {
	color: #FF0066;
}
-->
</style></head>

<body>

<table width="750" border="0" align="center" cellpadding="0" cellspacing="0">
    <!--DWLayoutTable-->
    <tr> 
      <td width="750" height="105" valign="top"><img src="YETOU.gif" width="750" height="105"></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> 
      <td height="16" colspan="7" valign="top" bgcolor="#EFC7D0"><!--DWLayoutEmptyCell-->&nbsp;</td>
    </tr>
    <tr> 
      <td width="11" valign="top" bgcolor="#EFC7D0"><!--DWLayoutEmptyCell-->&nbsp;</td>
      <td colspan="5">
      <% 
	
	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 face Order By id aSC"  
	Set rs=db.Execute(strSql)
	%>
    
      <table width="728" border="0">
        <tr>
          <td width="318"><table border="0">
    <% 
		Do While Not rs.Eof                            
		%>
        <tr>
          <td><a href="face1.asp?id=<%=rs("id")%>" target="_blank"><%=rs("name")%></a> s</td>
        </tr>
        <% 
			rs.MoveNext                            
		Loop
		%>
      </table></td>
          <td width="400"><img src="11.gif" width="400" height="331"></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> 
      <td height="16" colspan="3" valign="top" bgcolor="#EFC7D0"><!--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> 
      <td height="16" colspan="3" valign="top" bgcolor="#EFC7D0"><!--DWLayoutEmptyCell-->&nbsp;</td>
    </tr>
</table>

</body>
</html>

⌨️ 快捷键说明

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