📄 show.asp
字号:
<!--#include file="dbinc/dbpath.asp" -->
<html>
<head>
<title>3鸟设社网站评测—— 网站资料</title>
<link rel="stylesheet" href="link.css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="2" marginheight="2" bgcolor="#FFFFFF" >
<!--#include file="top.htm" --><%
siteid=CLng(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open "Select * from zkpick where zkpick.pickid="&siteid,conn,1,3
if not (rs.bof and rs.eof) then
%> <table width="751" border="0" cellspacing="3" cellpadding="0" align="center" BGCOLOR="#FFFFFF" style="border-left: 1 dotted #000000; border-right: 1 dotted #000000">
<tr> <td width="200" bgcolor="#FFFFFF" valign="top"><P><IMG SRC="images/cool1.jpg" WIDTH="200" HEIGHT="62" USEMAP="#Map" BORDER="0"><BR><IMG SRC="images/cool3.jpg" WIDTH="200" HEIGHT="62" USEMAP="#Map2" BORDER="0"><BR><IMG SRC="images/cool4.jpg" WIDTH="200" HEIGHT="62" USEMAP="#Map3" BORDER="0"><BR><IMG SRC="images/cool6.jpg" WIDTH="200" HEIGHT="62" USEMAP="#Map4" BORDER="0"><BR><MAP NAME="Map"><AREA SHAPE="rect" COORDS="89,22,180,43" HREF="addnew.asp"></MAP><MAP NAME="Map2"><AREA SHAPE="rect" COORDS="91,20,180,43" HREF="best.asp"></MAP><MAP NAME="Map3"><AREA SHAPE="rect" COORDS="91,18,183,45" HREF="userbeginnew.asp"></MAP><MAP NAME="Map4"><AREA SHAPE="rect" COORDS="91,21,182,48" HREF="userbegin.asp"></MAP></P><P></P><P></P><P></P><P></P><P></P><P></P></td><td width="545">
<table width="553" border="0" cellspacing="2" cellpadding="0" align="center" class="9p" bgcolor="#EDB7D1">
<tr bgcolor="#FF6633"> <td height="20" bgcolor="#CC3366" width="549"> <div align="center"><font color="#FFFFFF"><b>3鸟设社网站评测——
网站资料</b></font></div></td></tr> <tr> <td class="2p" width="549"> </td></tr> <tr>
<td width="549"> <table width="549" border="0" cellspacing="1" cellpadding="2" bordercolorlight="#9999CC" bordercolordark="#FFFFFF" class="9p" bgcolor="#EDB7D1">
<tr bgcolor="#EDB7D1"> <td height="20" width="189"> <div align="center"> <font color="#006600">
<%response.write ("<a href='"&rs("pickurl")&"' target='_blank'><b>"&rs("picksite")&"</b></a>")%>
</font> </div></td><td width="169"> <div align="center"><font color="#999999">类型：
<%
typestr=rs("picktype")
select case typestr
case 1: typestr="电脑网络"
case 2: typestr="免费资源"
case 3: typestr="休闲娱乐"
case 4: typestr="文学艺术"
case 5: typestr="游戏世界"
case 6: typestr="音乐天堂"
case 7: typestr="体育生活"
case 8: typestr="程序设计"
case 9: typestr="商贸金融"
case 10: typestr="科技咨讯"
case 11: typestr="社会公益"
case 12: typestr="另类其它"
case else: typestr="电脑网络"
end select
response.write typestr
%> </font></div></td><td width="109"> <div align="center"><font color="#999999">地域：
<%
typestr=rs("pickdiyu")
select case typestr
case 1: typestr="海口"
case 2: typestr="琼山"
case 3: typestr="澄迈"
case 4: typestr="临高"
case 5: typestr="儋州"
case 6: typestr="琼海"
case 7: typestr="定安"
case 8: typestr="万宁"
case 9: typestr="屯昌"
case 10: typestr="文昌"
case 11: typestr="昌江"
case 12: typestr="东方"
case 13: typestr="三亚"
case 14: typestr="陵水"
case 15: typestr="保亭"
case 16: typestr="琼中"
case 17: typestr="白沙"
case 18: typestr="乐东"
case 19: typestr="五指山"
case 20: typestr="其它"
case else: typestr="海口"
end select
response.write typestr
%> </font></div></td><td width="61"> <div align="center"><font color="#999999">得票：
<%
newvote=rs("pickvote")+1
response.write newvote
rs("pickvote")=newvote
rs.update
%> </font></div></td></tr> <tr> <td width="189" bgcolor="#FFFFFF"> <div align="center">
<%
if (rs("pickicon")<>" ") and (rs("pickicon")<>"http://") then
response.write ("<a href='"&rs("pickurl")&"' target='_blank'><img src='"&rs("pickicon")&"' width='180' height='100' border='0'></a>")
else
response.write ("<img src='image/no.gif' width='180' height='100'>")
end if
%> </div></td><td colspan="3" bgcolor="#FFFFFF"> <%=rs("pickmemo")%></td></tr>
</table></td></tr> <tr> <td class="4p" height="38" width="549"> <table width="548" border="0" cellspacing="1" cellpadding="2" bordercolorlight="#FF6633" bordercolordark="#FFFFFF" class="9p" bgcolor="#EDB7D1">
<tr bgcolor="#AED9FB"> <td width="187" height="18" valign="bottom" bgcolor="#EDB7D1"><font color="#999999">网站性质</font></td><td width="350" height="18" valign="bottom" bgcolor="#FFFFFF">
<%
gradestr=rs("pickleibie")
select case gradestr
case 1: gradestr="个人网站"
case 2: gradestr="企业网站"
case else: gradestr="个人网站"
end select
response.write gradestr
%> </td></tr> <tr bgcolor="#AED9FB"> <td width="187" height="18" valign="bottom" bgcolor="#EDB7D1">
<div align="left"><font color="#999999">网站所有</font></div></td><td width="350" height="18" valign="bottom" bgcolor="#FFFFFF">
<div align="left"> <%=rs("pickname")%></div></td></tr> <tr bgcolor="#FFFFFF">
<td width="187" height="9" bgcolor="#EDB7D1"><font color="#999999">电子邮件</font>
</td><td width="350" height="9"> <%response.write ("<a href='mailto:"&rs("pickemail")&"' target='_blank'>"&rs("pickemail")&"</a>")%>
</td></tr> <tr bgcolor="#FFFFFF"> <td width="187" height="9" bgcolor="#EDB7D1" valign="top"><font color="#999999">站长或企业简介</font></td><td width="350" height="9"> <%=rs("pickjink")%></td></tr>
</table></td></tr> <tr> <td class="4p" height="38" width="549"> <% set rs=server.createobject("adodb.recordset")
sql="select * from news order by newsid desc"
rs.open sql,conn,1,1 %> <table border="0" cellpadding="0" cellspacing="1" width="537" bordercolor="#000000" bordercolorlight="#000000" bordercolordark="#FFFFFF" height="24" align="center" bgcolor="#CDEFC5">
<tr> <td height="5" valign="bottom" width="535" bgcolor="#EDB7D1"> <table width="514" border="0" cellspacing="0" cellpadding="0" height="18" class="9p">
<tr BGCOLOR="#EDB7D1"> <td width="33" height="2" bgcolor="#CC3366"> <div align="center"><font color="#009966"><img src="image/say.gif" width="18" height="13"></font></div></td><td width="313" height="2" valign="bottom" bgcolor="#CC3366"><font color="#FFFFFF">网站加盟成员最新动态</font></td><td width="168" height="2" valign="bottom" BGCOLOR="#CC3366">
<div align="right"><a href="news.asp">更多..</a><a href="userbegin.asp"></a></div></td></tr>
</table></td></tr> <tr> <td valign="bottom" bgcolor="#FFFFFF" WIDTH="535"> <% do while not rs.eof %>
<table width="535" border="0" cellspacing="2" cellpadding="0" align="center" class="9p">
<tr> <td width="21"> <div align="center"><font color="#FFFFFF"><font color="#006699"><img src="image/dot.gif" width="10" height="10"></font></font></div></td><td width="383"><a href="viewnews.asp?id=<%=rs("newsid")%>" target="_blank">
<% if len(rs("biaoti"))>27 then%> <%=left(rs("biaoti"),25)%>... <% else%> <%=rs("biaoti")%>
<%end if%> </a><font color="#999999"><%=rs("time")%></font></td><td width="144"><a href="<%=rs("weburl")%>" target="_blank">
<font color="#0099CC">【<%=rs("fabuzhe")%>】</font></a></td></tr> </table><% n=n+1
rs.movenext
if n>=12 then exit do
loop
rs.close
set rs=nothing %> <table width="541" border="0" cellspacing="0" cellpadding="0" class="9p">
<tr> <td width="435"> <div align="center"><font color="#cc3366">注：新闻只保留一个月，只有加盟成员才有新闻发布权</font>.</div></td><td width="125">
<div align="right"><a href="userbegin.asp"><font color="#0000FF">新闻发布>></font></a></div></td></tr>
</table></td></tr> </table></td></tr> </table></td></tr> </table><% else %> <table width="757" border="0" cellspacing="0" cellpadding="0" align="center" class="9p" bgcolor="#FFFFFF">
<tr bgcolor="#FF6633"> <td height="20" bgcolor="#EDB7D1" width="732"> <div align="center"><font color="#FFFFFF"><b>3鸟设社网站评测提示</b></font></div></td></tr>
<tr> <td class="2p" width="732"> </td></tr> <tr> <td class="4p" width="732"> </td></tr>
<tr bgcolor="#FF6633"> <td bgcolor="#FFFFFF" width="732"> <div align="center" style="width: 762; height: 83">
<p> </p><p><font color="#FFFFFF"> </font><font color="#cc3366">对不起，数据在处理中发生错误，请重试！</font></p><p> </p></div></td></tr>
<tr> <td class="4p" width="732"> </td></tr> <tr> <td height="20" width="732"> </td></tr>
</table><%
end if
conn.close
set conn=nothing
%> <!--#include file="bottom.htm" -->
</body>
</html>
<script language="javascript">
window.open('http://www.3niao.com')
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -