📄 index.asp

📁 媒体中国-设计联盟
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
rs.open "select pickid,pickimg from zkpick where picktype=4 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=4"><font color="#000000">商业咨询</font></a><font color="#000000"> 
共[ <% 
set rs=createobject("adodb.recordset")       
rs.open "select * from zkpick where picktype=4",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=4 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="#000000">&nbsp; </font></td></tr> <tr> <td>&nbsp;</td></tr> 
<tr> <td><font color="#993300">前十个成员分别有: </font> <table width="100%" border="0" cellspacing="0"> 
<tr> <td> <div align="left"> <font color="#000000"> <%
	dim qqqq
	qqqq=1 
	set link1=server.createobject("adodb.recordset")
        sql="select top 10 * from zkpick where picktype=4"
        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>&nbsp; 
<%
		    qqqq=qqqq+1
            link1.movenext
            next
            link1.close
            set link1=nothing
          %> </font> </div></td></tr> </table></td></tr> </table></td></tr> </table></td></tr> 
<tr> <td>&nbsp;</td></tr> <tr> <td><table width="100%" border="0" cellspacing="0" bgcolor="#999999"> 
<tr> <td width="31%" height="18">∴<a href="type.asp?type=5"><font color="#000000">娱乐生活</font></a><a href="type.asp?type=4"></a>最新加盟成员</td><td width="69%"><div align="right"><a href="type.asp?type=5"><img src="images/more.gif" width="33" height="10" border="0"></a></div></td></tr> 
</table></td></tr> <tr> <td>&nbsp;</td></tr> <tr> <td><table width="100%" height="100" border="0" cellspacing="0" bgcolor="#CCCCCC"> 
<tr bgcolor="#FFFFFF"> <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=5 order by pickid desc",conn     
imgfile = rs("pickimg")
if imgfile = "" then imgfile="mylogos.gif"  
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=5"><font color="#000000">娱乐生活</font></a><font color="#000000"> 
共[ <% 
set rs=createobject("adodb.recordset")       
rs.open "select * from zkpick where picktype=5",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=5 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="#000000">&nbsp; </font></td></tr> <tr> <td>&nbsp;</td></tr> 
<tr> <td><font color="#993300">前十个成员分别有:</font> <table width="100%" border="0" cellspacing="0"> 
<tr> <td> <div align="left"> <font color="#000000"> <%
	dim qqqqq
	qqqqq=1 
	set link1=server.createobject("adodb.recordset")
        sql="select top 10 * from zkpick where picktype=5"
        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>&nbsp; 
<%
		    qqqqq=qqqqq+1
            link1.movenext
            next
            link1.close
            set link1=nothing
          %> </font> </div></td></tr> </table></td></tr> </table></td></tr> </table></td></tr> 
<tr> <td>&nbsp;</td></tr> <tr> <td><table width="100%" border="0" cellspacing="0" bgcolor="#999999"> 
<tr> <td width="31%" height="18">∴<a href="type.asp?type=6"><font color="#000000">另类其他</font></a><font color="#000000">&nbsp;</font><a href="type.asp?type=5"></a><a href="type.asp?type=4"></a>最新加盟成员</td><td width="69%"><div align="right"><a href="type.asp?type=6"><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")       
rs.open "select pickid,pickimg from zkpick where picktype=6 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=6"><font color="#000000">另类其他</font></a><font color="#000000"> 
共[ <% 
set rs=createobject("adodb.recordset")       
rs.open "select * from zkpick where picktype=6",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=6 order by pickid desc",conn      
mWebname=rs("picksite")                                         
if strLength(mWebname) >9 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="#FFFFFF">&nbsp; </font></td></tr> <tr> <td>&nbsp;</td></tr> 
<tr> <td><font color="#993300">前十个成员分别有: </font> <table width="100%" border="0" cellspacing="0"> 
<tr> <td> <div align="left"> <font color="#000000"> <%
	dim qw
	qw=1 
	set link1=server.createobject("adodb.recordset")
        sql="select top 10 * from zkpick where picktype=6"
        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>&nbsp; 
<%
		    qw=qw+1
            link1.movenext
            next
            link1.close
            set link1=nothing
          %> </font> </div></td></tr> </table></td></tr> </table></td></tr> </table></td></tr> 
</table></div></td><td width="1" valign="top" bgcolor="#000000">&nbsp;</td><td width="174" valign="top"><table width="100%" border="0" cellspacing="0"> 
<tr> <td><img src="images/pi11.gif" width="174" height="20"></td></tr> <tr> <td><div align="right"> 
<table width="90%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><p align="left"> 
<% 
set rs=createobject("adodb.recordset")
'rs.open "select pickid,picksite,pickvisitor from zkpick where pickgrade=1 order by pickid desc",conn       
 rs.open "select pickid,picksite,pickvisitor from zkpick order by pickid desc",conn       
for i=1 to 5 step 1 
    
response.write ("   ::  <a href='show.asp?id="&rs("pickid")&"'>"&rs("picksite")&"</a>  <font color=#333333>"&rs("pickvisitor")&"℃</font>")       
%> </p><p align="left"> <% 
rs.movenext 
if rs.eof then exit for 
next
rs.close       
set rs=nothing 
%> </p></td></tr> </table></div></td></tr> <tr> <td><div align="right"><a href="grade.asp">[更多站点...]<br> 
<br> </a> </div></td></tr> <tr> <td><img src="images/pi12.gif" width="174" height="20"></td></tr> 
<tr> <td><table width="90%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><p align="left"> 
<% 
strSql="select pickid,picksite,pickvisitor from zkpick "
strSql=strSql&" order by pickvisitor desc,pickvote desc,pickid asc"
set rs=createobject("adodb.recordset") 
rs.open strSql,conn
for i=1 to 5 step 1 
response.write ("   ::  <a href='show.asp?id="&rs("pickid")&"'>"&rs("picksite")&"</a> <font color=#333333>"&rs("pickvisitor")&"℃</font>")       
%> </p><p align="left"> <% 
rs.movenext 
if rs.eof then exit for 
next
rs.close       
set rs=nothing 
%> </p></td></tr> </table></td></tr> <tr> <td><div align="right"><a href="gtop.asp">[更多站点...]<br> 
<br> </a></div></td></tr> <tr> <td><img src="images/pi14.gif" width="174" height="20"></td></tr> 
<tr> <td><table width="90%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><p align="left"> 
<% 
set rs=createobject("adodb.recordset")
rs.open "select pickid,picksite,pickvisitor from zkpick where pickgrade=1 order by pickid desc",conn       
for i=1 to 5 step 1 
response.write ("   ::  <a href='show.asp?id="&rs("pickid")&"'>"&rs("picksite")&"</a>  <font color=#333333>"&rs("pickvisitor")&"℃</font>")       
%> </p><p align="left"> <% 
rs.movenext 
if rs.eof then exit for 
next
rs.close       
set rs=nothing 
%> </p></td></tr> </table></td></tr> <tr> <td><div align="right"><a href="grade.asp?gd=1">[更多站点...]<br> 
<br> </a></div></td></tr> <tr> <td><img src="images/pi16.gif" width="174" height="20"></td></tr> 
<tr> <td align="center" valign="middle"> <div align="center"><a href="login.asp"><font color="#FF9900"> <font color="#000000"><a href="join.asp"> 
<font color="#993300">申请加盟</font></a> <a href="login.asp">用户登录</a></font></font></a> 
<font color="#000000"><a href="news.asp">发布新闻</a> </font> </div></td></tr> <tr> 
<td>&nbsp;</td></tr> <tr> <td><img src="images/pi13.gif" width="174" height="20"></td></tr> 
<tr> <td>&nbsp;</td></tr> <tr> <td><a href="mailto:webmaster@3niao.com">联系我们成为合作伙伴</a></td></tr> 
<tr> <td>&nbsp;</td></tr> <tr> <td>&nbsp;</td></tr> <tr> <td>&nbsp;</td></tr> </table></td></tr> 
</table>
</body>
</html>
<!--#include file=eof.asp-->
上一页 12
💿 文件大小 227 K
👤 上传用户 zhou28
📂 所属分类 *行业应用
🏷️ 相关标签

#媒体 #联盟
⌨️ 快捷键说明

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