📄 hear.asp
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>hear</title>
<style type="text/css">
<!--
body {
background-image: url(beijing3.gif);
}
.STYLE2 {
font-family: "華康圓緣體";
font-size: 24px;
color: #990099;
font-weight: bold;
}
.STYLE3 {
font-family: "華康圓緣體";
font-size: 24px;
font-weight: bold;
color: #666666;
}
.STYLE4 {
font-family: "華康圓緣體";
font-size: 24px;
font-weight: bold;
color: #990000;
}
.STYLE5 {
font-family: "華康圓緣體";
font-size: 24px;
color: #006666;
}
-->
</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"> </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"> </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"> </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"> </td>
<td width="140" valign="top"><a href="share.asp"><img src="fenxiangzhan.gif" width="140" height="45" border="0" ></a></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="750" border="0" align="center" cellpadding="0" cellspacing="0">
<tr bgcolor="#EFC7D0">
<td width="10"> </td>
<td> </td>
<td width="10"> </td>
</tr>
<tr>
<td bgcolor="#EFC7D0"> </td>
<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 meifa 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="hear2.asp?id=<%=rs("id")%>" target="_blank"><%=rs("name")%></a> <%=rs("date")%></td>
</tr>
<%
rs.MoveNext
Loop
%>
</table>
</td>
<td width="400"><img src="welcome7.gif" width="400" height="400"></td>
</tr>
</table></td>
<td width="10" bgcolor="#EFC7D0"> </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--> </td>
</tr>
<tr>
<td width="11" height="43" valign="top" bgcolor="#EFC7D0"><!--DWLayoutEmptyCell--> </td>
<td width="728"><img src="01.jpg" width="728" height="43"></td>
<td width="11" valign="top" bgcolor="#EFC7D0"><!--DWLayoutEmptyCell--> </td>
</tr>
<tr bgcolor="#EFC7D0">
<td height="16" colspan="3" valign="top"><!--DWLayoutEmptyCell--> </td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -