📄 index.asp
字号:
<%Option Explicit%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>index</title>
<style type="text/css">
<!--
body,td,th {
color: #FF6666;
}
a:link {
color: #FF0066;
}
.STYLE1 {
font-size: 12px;
font-weight: bold;
}
.STYLE2 {
color: #9933CC;
font-weight: bold;
font-size: 14px;
}
.STYLE3 {
color: #FF3300;
font-weight: bold;
font-size: 16px;
}
.STYLE4 {
color: #993333;
font-weight: bold;
font-size: 14px;
}
-->
</style>
</head>
<body background="beijing1.gif">
<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>
<table width="750" border="0" align="center" cellpadding="0" cellspacing="0">
<!--DWLayoutTable-->
<tr bgcolor="#EFC7D0">
<td height="16" colspan="8" valign="top"><!--DWLayoutEmptyCell--> </td>
</tr>
<tr>
<td width="11" rowspan="7" valign="top" bgcolor="#EFC7D0"><!--DWLayoutEmptyCell--> </td>
<td width="50" height="37"> </td>
<td width="195"> </td>
<td width="65"> </td>
<td width="151"> </td>
<td width="195"> </td>
<td width="72"> </td>
<td width="11" rowspan="7" valign="top" bgcolor="#EFC7D0"><!--DWLayoutEmptyCell--> </td>
</tr>
<tr>
<td height="149"> </td>
<td rowspan="2" valign="top"><table width="200" height="190" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="10" height="25" bgcolor="#FF99CC"> </td>
<td height="25" bgcolor="#B279C8"><table width="200" border="0" cellpadding="0" cellspacing="0" bgcolor="#FF99CC">
<tr>
<td width="115" bgcolor="#FF99CC"><span class="STYLE2">靓丽容颜</span></td>
<td width="55"><font color="#990000" size="5"><a href="face.asp">more</a></font></td>
</tr>
</table></td>
<td width="10" height="25" bgcolor="#FF99CC"> </td>
</tr>
<tr>
<td width="10" bgcolor="#FF99CC"> </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 top 4 * From face Order By id aSC"
Set rs=db.Execute(strSql)
%>
<table width="180" border="0" align="center">
<%
Do While Not rs.Eof
%>
<tr>
<td><a href="face1.asp?id=<%=rs("id")%>" target="_blank"><%=rs("name")%></a></td>
</tr>
<%
rs.MoveNext
Loop
%>
</table></td>
<td width="10" bgcolor="#FF99CC"> </td>
</tr>
<tr>
<td width="10" height="10" bgcolor="#FF99CC"> </td>
<td height="10" bgcolor="#FF99CC"> </td>
<td width="10" height="10" bgcolor="#FF99CC"> </td>
</tr>
</table></td>
<td> </td>
<td><table border="0">
<tr>
<td><img src="208.gif" width="73" height="98"></td>
<td><span class="STYLE1">在线人数:<%=Application("Online")%> <br>
访问总人数:<%=Application("All")%> </span></td>
</tr>
</table></td>
<td> </td>
<td> </td>
</tr>
<tr>
<td height="77"> </td>
<td> </td>
<td> </td>
<td rowspan="3" valign="top"><table width="200" height="190" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="10" height="25" bgcolor="#FF99CC"> </td>
<td height="25" bgcolor="#FF99CC"><table width="200" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="115"><span class="STYLE3">发型屋</span></td>
<td width="55"><font color="#990000" size="5"><a href="hear.asp">more</a></font></td>
</tr>
</table></td>
<td width="10" height="25" bgcolor="#FF99CC"> </td>
</tr>
<tr>
<td width="10" bgcolor="#FF99CC"> </td>
<td>
<%
Dim dbA,rsA,strSqlA
Set dbA=server.createobject("adodb.connection")
dbA.open "Dbq="&Server.Mappath("meirongDIY.mdb")&";Driver={Microsoft Access Driver (*.mdb)};"
strSqlA="Select top 4 * From meifa Order By id aSC"
Set rsA=dbA.Execute(strSqlA)
%>
<table width="180" border="0" align="center">
<%
Do While Not rsA.Eof
%>
<tr>
<td><a href="hear2.asp?id=<%=rsA("id")%>" target="_blank"><%=rsA("name")%></a></td>
</tr>
<%
rsA.MoveNext
Loop
%>
</table> </td>
<td width="10" bgcolor="#FF99CC"> </td>
</tr>
<tr>
<td width="10" height="10" bgcolor="#FF99CC"> </td>
<td height="10" bgcolor="#FF99CC"> </td>
<td width="10" height="10" bgcolor="#FF99CC"> </td>
</tr>
</table></td>
<td> </td>
</tr>
<tr>
<td height="45"> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td height="110"> </td>
<td colspan="2" rowspan="2" valign="top"><table width="200" height="190" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="10" height="25" bgcolor="#FF99CC"> </td>
<td height="25" bgcolor="#B279C8"><table width="200" border="0" cellpadding="0" cellspacing="0" bgcolor="#FF99CC">
<tr>
<td width="115"><span class="STYLE4">生活巧心思</span></td>
<td width="55"><font color="#990000" size="5"><a href="fashion.asp">more</a></font></td>
</tr>
</table></td>
<td width="10" height="25" bgcolor="#FF99CC"> </td>
</tr>
<tr>
<td width="10" bgcolor="#FF99CC"> </td>
<td>
<%
Dim dbB,rsB,strSqlB
Set dbB=server.createobject("adodb.connection")
dbB.open "Dbq="&Server.Mappath("meirongDIY.mdb")&";Driver={Microsoft Access Driver (*.mdb)};"
strSqlB="Select top 4 * From shishangshenghuo Order By id aSC"
Set rsB=dbB.Execute(strSqlB)
%>
<table width="180" border="0" align="center">
<%
Do While Not rsB.Eof
%>
<tr>
<td><a href="fashion1.asp?id=<%=rsB("id")%>" target="_blank"><%=rsB("name")%></a></td>
</tr>
<%
rsB.MoveNext
Loop
%>
</table> </td>
<td width="10" bgcolor="#FF99CC"> </td>
</tr>
<tr>
<td width="10" height="10" bgcolor="#FF99CC"> </td>
<td height="10" bgcolor="#FF99CC"> </td>
<td width="10" height="10" bgcolor="#FF99CC"> </td>
</tr>
</table></td>
<td rowspan="2"><img src="0.jpg" width="180" height="142"></td>
<td> </td>
</tr>
<tr>
<td height="40"> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td height="60"> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </td>
<td> </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 + -