📄 index.asp
字号:
<!--#include file="dbinc/dbpath.asp" -->
<!--#include file="dbinc/fanfuc.inc" -->
<!--#include file="bof.asp" -->
<html>
<head>
<link href="link.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>媒体中国</title>
<style type="text/css">
<!--
td {
font-size: 12px;
}
body {
font-size: 12px;
}
-->
</style>
</head>
<body bgcolor="#CCCCCC" leftmargin="0" topmargin="0">
<table width="100%" height="914" border="0" cellspacing="0"> <tr> <td width="181" height="914" valign="top">
<table width="100%" border="0" cellspacing="0"> <tr> <td><img src="images/pi8.gif" width="174" height="20"></td></tr>
<tr> <td height="30"><div align="center"><a href="type.asp?type=1">个性站点</a><br>
<br> <a href="type.asp?type=3">艺术设计</a><br> <br> <a href="type.asp?type=4">建站资源</a><br>
<br> <a href="type.asp?type=4">商业咨询</a><br> <br> <a href="type.asp?type=5">娱乐生活</a><br>
<br> <a href="type.asp?type=6">其它分类 </a></div></td></tr> <tr> <td> </td></tr> <tr>
<td><img src="images/pi15.gif" width="174" height="20"></td></tr> <tr> <td><p align="left">
<%
strSql="select pickid,picksite,news,ndate from zkpick "
strSql=strSql&" order by ndate desc,news asc"
set rs=createobject("adodb.recordset")
rs.open strSql,conn
for i=1 to 3 step 1
response.write ("★ <a href='show.asp?id="&rs("pickid")&"'>"&rs("picksite")&"::<font color=#333333>"&rs("news")&"</font>")
%> </p><p align="left"> <%
rs.movenext
if rs.eof then exit for
next
rs.close
set rs=nothing
%> </p></td></tr> <tr> <td> </td></tr> <tr> <td><img src="images/pi10.gif" width="174" height="20"></td></tr>
<tr> <td><textarea style="FONT-SIZE: 8pt; FONT-FAMILY: Tahoma; BACKGROUND-COLOR: transparent" onMouseOver=this.focus() onFocus=this.select() name="yy-s Codes" rows=4 cols=30><!--
媒体中国(设计联盟) --> <script src="http://www.3niao.com/pick/list.asp?id=联盟认证ID号"></script>
<!-- 媒体中国(设计联盟) --></textarea></td></tr> <tr> <td> </td></tr> <tr> <td><img src="images/pi9.gif" width="174" height="20"></td></tr>
<tr> <td><br> 旧版图标</td></tr> <tr> <td><img src="image/logo.gif" width="88" height="31"></td></tr>
<tr> <td><br> 新版图标 </td></tr> <tr> <td><img src="image/3.gif" width="88" height="31"></td></tr>
<tr> <td> </td></tr> <tr> <td> </td></tr> <tr> <td> </td></tr> <tr> <td> </td></tr>
</table></td><td width="1" valign="top" bgcolor="#000000"> </td><td width="630" valign="top"><div align="center">
<table width="100%" border="0" cellspacing="0"> <tr> <td height="20" bgcolor="#999999">
<table width="100%" border="0" cellspacing="0"> <tr> <td width="31%" height="18">∴个性突破最新加盟成员</td><td width="69%"><div align="right"><a href="type.asp?type=1"><img src="images/more.gif" width="33" height="10" border="0"></a></div></td></tr>
</table></td></tr> <tr> <td> </td></tr> <tr> <td><table width="100%" height="100" border="0" cellspacing="0" bgcolor="#FFFFFF">
<tr> <td width="20%" height="69"><font face=Verdana> </font><TABLE WIDTH=176 BORDER=0 CELLPADDING=0 CELLSPACING=0>
<TR> <TD COLSPAN=3> <IMG SRC="images/addown_01.gif" WIDTH=176 HEIGHT=2 ALT=""></TD></TR>
<TR> <TD ROWSPAN=2> <IMG SRC="images/addown_02.gif" WIDTH=23 HEIGHT=96 ALT=""></TD><TD WIDTH="117" HEIGHT="93" BGCOLOR="#FFFFFF" VALIGN="BASELINE"><FONT FACE=Verdana><%
set rs=createobject("adodb.recordset")
rs.open "select pickid,pickimg from zkpick where picktype=1 order by pickid desc",conn
response.write ("<a href='show.asp?id="&rs("pickid")&"''><img src='"&rs("pickimg")&"' width='115' height='90' border='0'></a>")
rs.close
set rs=nothing
%></FONT></TD><TD ROWSPAN=2> <IMG SRC="images/addown_04.gif" WIDTH=36 HEIGHT=96 ALT=""></TD></TR>
<TR> <TD> <IMG SRC="images/addown_05.gif" WIDTH=117 HEIGHT=3 ALT=""></TD></TR>
</TABLE></td><td width="80%"><table width="100%" border="0" cellspacing="0"> <tr>
<td><a href="type.asp?type=1"><font color="#000000">个性突破</font></a><font color="#000000">
共[ <%
set rs=createobject("adodb.recordset")
rs.open "select * from zkpick where picktype=1",conn,3,1
response.write ("<font color=#000000>"&rs.RecordCount&"</font>")
rs.close
set rs=nothing%> ]个站点 最新加入→ <%
set rs=createobject("adodb.recordset")
rs.open "select pickid,picksite from zkpick where picktype=1 order by pickid desc",conn
mWebname=rs("picksite")
if strLength(mWebname) >12 then
response.write ("<a href='show.asp?id="&rs("pickid")&"' title='"&server.htmlencode(mWebname)&"' target='_blank'>"& server.htmlencode(left(mWebname,strLen(mWebname,12)))&"→</a>")
else
response.write ("<a href='show.asp?id="&rs("pickid")&"'><font color=#000000>"&rs("picksite")&"</font></a>")
end if
rs.close
set rs=nothing%> </font></td></tr> <tr> <td> </td></tr> <tr> <td><font color="#993300">前十个成员分别有:
</font> <table width="100%" border="0" cellspacing="0"> <tr> <td> <div align="left">
<font color="#000000"> <%
dim q
q=1
set link1=server.createobject("adodb.recordset")
sql="select top 10 * from zkpick where picktype=1"
link1.open sql,conn,1,1
for i=1 to 10
if link1.eof then
exit for
end if
%> <a href=show.asp?id=<%=link1("pickid")%>><%=link1("picksite")%></a>
<%
q=q+1
link1.movenext
next
link1.close
set link1=nothing
%> </font> </div></td></tr> </table></td></tr> </table></td></tr> </table></td></tr>
<tr> <td> </td></tr> <tr> <td><table width="100%" border="0" cellspacing="0" bgcolor="#999999">
<tr> <td width="31%" height="18">∴<a href="type.asp?type=2"><font color="#000000">艺术设计</font></a>最新加盟成员</td><td width="69%"><div align="right"><a href="type.asp?type=2"><img src="images/more.gif" width="33" height="10" border="0"></a></div></td></tr>
</table></td></tr> <tr> <td> </td></tr> <tr> <td><table width="100%" height="100" border="0" cellspacing="0" bgcolor="#FFFFFF">
<tr> <td width="20%" height="69"><TABLE WIDTH=176 BORDER=0 CELLPADDING=0 CELLSPACING=0>
<TR> <TD COLSPAN=3> <IMG SRC="images/addown_01.gif" WIDTH=176 HEIGHT=2 ALT=""></TD></TR>
<TR> <TD ROWSPAN=2> <IMG SRC="images/addown_02.gif" WIDTH=23 HEIGHT=96 ALT=""></TD><TD WIDTH="117" HEIGHT="93" BGCOLOR="#FFFFFF" VALIGN="MIDDLE"><FONT FACE=Verdana><%
set rs=createobject("adodb.recordset")
rs.open "select pickid,pickimg from zkpick where picktype=2 order by pickid desc",conn
response.write ("<a href='show.asp?id="&rs("pickid")&"'><img src='"&rs("pickimg")&"' width='115' height='90' border='0'></a>")
rs.close
set rs=nothing
%></FONT> </TD><TD ROWSPAN=2> <IMG SRC="images/addown_04.gif" WIDTH=36 HEIGHT=96 ALT=""></TD></TR>
<TR> <TD> <IMG SRC="images/addown_05.gif" WIDTH=117 HEIGHT=3 ALT=""></TD></TR>
</TABLE><font face=Verdana> </font></td><td width="80%"><table width="100%" border="0" cellspacing="0">
<tr> <td><a href="type.asp?type=2"><font color="#000000">艺术设计</font></a> 共[ <%
set rs=createobject("adodb.recordset")
rs.open "select * from zkpick where picktype=2",conn,3,1
response.write ("<font color=#000000>"&rs.RecordCount&"</font>")
rs.close
set rs=nothing%> ]个站点最新加入→<font color="#000000"> <%
set rs=createobject("adodb.recordset")
rs.open "select pickid,picksite from zkpick where picktype=2 order by pickid desc",conn
mWebname=rs("picksite")
if strLength(mWebname) >12 then
response.write ("<a href='show.asp?id="&rs("pickid")&"' title='"&server.htmlencode(mWebname)&"' target='_blank'>"& server.htmlencode(left(mWebname,strLen(mWebname,12)))&"→</a>")
else
response.write ("<a href='show.asp?id="&rs("pickid")&"'><font color=#000000>"&rs("picksite")&"</font></a>")
end if
rs.close
set rs=nothing%> </font></td></tr> <tr> <td> </td></tr> <tr> <td><font color="#993300">前十个成员分别有:
</font> <table width="100%" border="0" cellspacing="0"> <tr> <td> <div align="left">
<font color="#000000"> <%
dim qq
qq=1
set link1=server.createobject("adodb.recordset")
sql="select top 10 * from zkpick where picktype=2"
link1.open sql,conn,1,1
for i=1 to 10
if link1.eof then
exit for
end if
%> <a href=show.asp?id=<%=link1("pickid")%>><%=link1("picksite")%></a>
<%
qq=qq+1
link1.movenext
next
link1.close
set link1=nothing
%> </font> </div></td></tr> </table></td></tr> </table></td></tr> </table></td></tr>
<tr> <td> </td></tr> <tr> <td><table width="100%" border="0" cellspacing="0" bgcolor="#999999">
<tr> <td width="31%" height="18">∴<a href="type.asp?type=3"><font color="#000000">建站资源</font></a><a href="type.asp?type=2"></a>最新加盟成员</td><td width="69%"><div align="right"><a href="type.asp?type=3"><img src="images/more.gif" width="33" height="10" border="0"></a></div></td></tr>
</table></td></tr> <tr> <td> </td></tr> <tr> <td><table width="100%" height="100" border="0" cellspacing="0" bgcolor="#FFFFFF">
<tr> <td width="20%" height="69"><TABLE WIDTH=176 BORDER=0 CELLPADDING=0 CELLSPACING=0>
<TR> <TD COLSPAN=3> <IMG SRC="images/addown_01.gif" WIDTH=176 HEIGHT=2 ALT=""></TD></TR>
<TR> <TD ROWSPAN=2> <IMG SRC="images/addown_02.gif" WIDTH=23 HEIGHT=96 ALT=""></TD><TD WIDTH="117" HEIGHT="93" BGCOLOR="#FFFFFF" VALIGN="MIDDLE"><FONT FACE=Verdana><%
set rs=createobject("adodb.recordset")
rs.open "select pickid,pickimg from zkpick where picktype=3 order by pickid desc",conn
response.write ("<a href='show.asp?id="&rs("pickid")&"'><img src='"&rs("pickimg")&"' width='115' height='90' border='0' alt='暂无图片'></a>")
rs.close
set rs=nothing
%></FONT> </TD><TD ROWSPAN=2> <IMG SRC="images/addown_04.gif" WIDTH=36 HEIGHT=96 ALT=""></TD></TR>
<TR> <TD> <IMG SRC="images/addown_05.gif" WIDTH=117 HEIGHT=3 ALT=""></TD></TR>
</TABLE><font face=Verdana> </font></td><td width="80%"><table width="100%" border="0" cellspacing="0">
<tr> <td><a href="type.asp?type=3"><font color="#000000">建站资源</font></a><font color="#000000">
共[ <%
set rs=createobject("adodb.recordset")
rs.open "select * from zkpick where picktype=3",conn,3,1
response.write ("<font color=#000000>"&rs.RecordCount&"</font>")
rs.close
set rs=nothing%> ]个站点 最新加入→ <%
set rs=createobject("adodb.recordset")
rs.open "select pickid,picksite from zkpick where picktype=3 order by pickid desc",conn
mWebname=rs("picksite")
if strLength(mWebname) >12 then
response.write ("<a href='show.asp?id="&rs("pickid")&"' title='"&server.htmlencode(mWebname)&"' target='_blank'>"& server.htmlencode(left(mWebname,strLen(mWebname,12)))&"→</a>")
else
response.write ("<a href='show.asp?id="&rs("pickid")&"'><font color=#000000>"&rs("picksite")&"</font></a>")
end if
rs.close
set rs=nothing%> </font><font color="#CCFF00"> </font></td></tr> <tr> <td> </td></tr>
<tr> <td><font color="#993300">前十个成员分别有: </font> <table width="100%" border="0" cellspacing="0">
<tr> <td> <div align="left"> <font color="#000000"> <%
dim qqq
qqq=1
set link1=server.createobject("adodb.recordset")
sql="select top 10 * from zkpick where picktype=3"
link1.open sql,conn,1,1
for i=1 to 10
if link1.eof then
exit for
end if
%> <a href=show.asp?id=<%=link1("pickid")%>><%=link1("picksite")%></a>
<%
qqq=qqq+1
link1.movenext
next
link1.close
set link1=nothing
%> </font> </div></td></tr> </table></td></tr> </table></td></tr> </table></td></tr>
<tr> <td> </td></tr> <tr> <td><table width="100%" border="0" cellspacing="0" bgcolor="#999999">
<tr> <td width="31%" height="18">∴<a href="type.asp?type=4"><font color="#000000">商业咨询</font></a>最新加盟成员</td><td width="69%"><div align="right"><a href="type.asp?type=4"><img src="images/more.gif" width="33" height="10" border="0"></a></div></td></tr>
</table></td></tr> <tr> <td><table width="100%" height="100" border="0" cellspacing="0" bgcolor="#FFFFFF">
<tr> <td width="20%" height="69"><TABLE WIDTH=176 BORDER=0 CELLPADDING=0 CELLSPACING=0>
<TR> <TD COLSPAN=3> <IMG SRC="images/addown_01.gif" WIDTH=176 HEIGHT=2 ALT=""></TD></TR>
<TR> <TD ROWSPAN=2> <IMG SRC="images/addown_02.gif" WIDTH=23 HEIGHT=96 ALT=""></TD><TD WIDTH="117" HEIGHT="93" BGCOLOR="#FFFFFF" VALIGN="MIDDLE"><FONT FACE=Verdana><%
set rs=createobject("adodb.recordset")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -