index_main.asp

这是一个非常好的留言版程序

        <td height="28" align="left" bgcolor="#B3BDC4" class="title">VIP用户推荐贴</td>
        </tr>
      <tr>
        <td align="left" bgcolor="#C4CAD0" height="22">　<font color="#0F6893">VIP用户：<a href="userzhai.asp?zhaiuser=<%=hzyh%>"><font class="redfont"><%=hzyh%></font></a>&nbsp;<a href="userzhai.asp?zhaiuser=<%=hzyh0%>"><font class="redfont"><%=hzyh0%></font></a>&nbsp;<a href="userzhai.asp?zhaiuser=<%=hzyh1%>"><font class="redfont"><%=hzyh1%></font></a></font></b></td>
        </tr>
      <tr>
        <td align="left" bgcolor="#E3E8EA" class="list"><%
		sql="select top 7 ID,UserID,IIf(Len(Title)<16,Title,Left(Title,16)+'..') as Title,FromURL,hot,filepath,htmurl,a.Sort,b.SortName,IIf(Len(Intro)<100,Intro,Left(Intro,100)+'...') as Intro,format$(PostTime,'yyyy-mm-dd') as PostTime,Reads,Rank from zhai a,sort b where a.Sort=b.SortID and isvip=1 order by ID desc"	
		set rs=server.createobject("ADODB.recordset")
		rs.open sql,conn,1
		
		row=1 
		do while not rs.eof and row<13
				if isgd=1 then
					linkadd="article/"&rs("filepath")&"/"&rs("HtmUrl")
				else
					linkadd="goto.asp?id="&rs("id")
				end if	
							
				a=split(rs("PostTime"),"-")
				Response.Write("·<a href="&linkadd&" target='_blank' title='"&cutStr(rs("TITLE"),80)&"'>"&HTMLEncode(rs("Title"))&"</a><br>")
				rs.MoveNext
				row=row+1
			loop
				response.write "<font color='red'>想把贴子放到这里请联系QQ:2905754</font>"
		%></td>
      </tr>
    </table></td>
    <td width="10"></td>
    <td valign="top"><table border="0" width="100%" cellspacing="0" cellpadding="0">
      <%
				set rs=conn.execute("select webname,weburl from myuser where userid='"&hzyh&"'")
				if not rs.eof then
				webname=rs("webname")
				weburl=rs("weburl")
				end if
				rs.close
				%>
      <tr>
        <td height="28" align="left" bgcolor="#B3BDC4" class="title"><a href="userzhai.asp?zhaiuser=<%=hzyh%>"><font color="#800000"><%=webname%></font></a> 推荐的好贴</td>
      </tr>
      <tr>
        <td align="left" valign="top" bgcolor="#E3E8EA" class="list">
            <%
		sql="select top 8 ID,UserID,IIf(Len(Title)<15,Title,Left(Title,15)+'..') as Title,FromURL,hot,filepath,htmurl,a.Sort,b.SortName,IIf(Len(Intro)<100,Intro,Left(Intro,100)+'...') as Intro,format$(PostTime,'yyyy-mm-dd') as PostTime,Reads,Rank from zhai a,sort b where a.Sort=b.SortID and UserID='"&hzyh&"' order by PostTime desc"	
		set rs=server.createobject("ADODB.recordset")
		rs.open sql,conn,1
		row=1 
		do while not rs.eof and row<9
				if isgd=1 then
					linkadd="article/"&rs("filepath")&"/"&rs("HtmUrl")
				else
					linkadd="goto.asp?id="&rs("id")
				end if	
							
				a=split(rs("PostTime"),"-")
				Response.Write("·<a href="&linkadd&" target='_blank' title='"&cutStr(rs("title"),80)&"'>"&HTMLEncode(rs("Title"))&"</a><br>")
				rs.MoveNext
				row=row+1
			loop
				response.write "<a href='"&weburl&"'><font color='red'>更多好贴请上"&webname&"</span>>>></a>"
		%></td>
      </tr>
    </table></td>
    <td width="10"></td>
    <td valign="top"><table border="0" width="100%" cellspacing="0" cellpadding="0" id="table115">
        <%
				set rs=conn.execute("select webname,weburl from myuser where userid='"&hzyh0&"'")
				if not rs.eof then
				webname=rs("webname")
				weburl=rs("weburl")
				end if
				rs.close
				%>
        <tr>
          <td height="28" align="left" bgcolor="#B3BDC4" class="title"><a href="userzhai.asp?zhaiuser=<%=hzyh0%>"><font color="#800000"><%=webname%></font></a> 推荐的好贴</td>
        </tr>
        <tr>
          <td align="left" valign="top" bgcolor="#E3E8EA" class="list">
            <%
		sql="select top 8 ID,UserID,IIf(Len(Title)<15,Title,Left(Title,15)+'..') as Title,FromURL,hot,filepath,htmurl,a.Sort,b.SortName,IIf(Len(Intro)<100,Intro,Left(Intro,100)+'...') as Intro,format$(PostTime,'yyyy-mm-dd') as PostTime,Reads,Rank from zhai a,sort b where a.Sort=b.SortID and UserID='"&hzyh0&"' order by PostTime desc"	
		set rs=server.createobject("ADODB.recordset")
		rs.open sql,conn,1
		
		row=1 
		do while not rs.eof and row<9
				if isgd=1 then
					linkadd="article/"&rs("filepath")&"/"&rs("HtmUrl")
				else
					linkadd="goto.asp?id="&rs("id")
				end if	
							
				a=split(rs("PostTime"),"-")
				Response.Write("·<a href="&linkadd&" target='_blank' title='"&cutStr(rs("title"),80)&"'>"&HTMLEncode(rs("Title"))&"</a><br>")
				rs.MoveNext
				row=row+1
			loop
				response.write "<a href='"&weburl&"'><font color='red'>更多好贴请上"&webname&"</span>>>></a>"
		%></td>
        </tr>
      </table></td>
    <td width="10"></td>
    <td valign="top"><table border="0" width="100%" cellspacing="0" cellpadding="0">
        <%
				set rs=conn.execute("select webname,weburl from myuser where userid='"&hzyh1&"'")
				if not rs.eof then
				webname=rs("webname")
				weburl=rs("weburl")
				end if
				rs.close
				%>
        <tr>
          <td height="28" align="left" bgcolor="#B3BDC4" class="title"><a href="userzhai.asp?zhaiuser=<%=hzyh1%>"><font color="#800000"><%=webname%></font></a> 推荐的好贴</td>
        </tr>
        <tr>
          <td align="left" valign="top" bgcolor="#E3E8EA" class="list">
            <%
		sql="select top 12 ID,UserID,IIf(Len(Title)<15,Title,Left(Title,15)+'..') as Title,FromURL,filepath,hot,htmurl,a.Sort,b.SortName,IIf(Len(Intro)<100,Intro,Left(Intro,100)+'...') as Intro,format$(PostTime,'yyyy-mm-dd') as PostTime,Reads,Rank from zhai a,sort b where a.Sort=b.SortID and UserID='"&hzyh1&"' order by PostTime desc"	
		set rs=server.createobject("ADODB.recordset")
		rs.open sql,conn,1
		
		row=1 
		do while not rs.eof and row<9
				if isgd=1 then
					linkadd="article/"&rs("filepath")&"/"&rs("HtmUrl")
				else
					linkadd="goto.asp?id="&rs("id")
				end if	
							
				a=split(rs("PostTime"),"-")
				Response.Write("·<a href="&linkadd&" target='_blank' title='"&cutStr(rs("title"),80)&"'>"&HTMLEncode(rs("Title"))&"</a><br>")
				rs.MoveNext
				row=row+1
			loop
				response.write "<a href='"&weburl&"'><font color='red'>更多好贴请上"&webname&"</span>>>></a>"
		%></td>
        </tr>
      </table></td>
  </tr>
</table>
<table width="900" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
 <%
set rs=server.createobject("adodb.recordset")
sql="select sortid,sortname from sort where issy=true"
rs.open sql,conn,1,1

    zjls=rs.recordcount
    if zjls mod 2 =0 then
	   hs=zjls/2
	else
	   hs=round(zjls/2+0.6)
	end if

    For i=1 to hs
    if rs.eof then exit for

%> 
 <tr>
   <td height="10" colspan="3" bgcolor="#FFFFFF"></td>
  </tr>
 <tr>
    <td width="445"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#B7B7C2">
								<tr>
								  <td height="28" align="left" class="title">&nbsp;<%=rs("sortname")%></td>
									<td align="right">
								  <a href="img.asp?sort=<%=rs("sortid")%>" target="_blank">[图片版]</a>&nbsp;<a href="rss2feed.asp?sort=<%=rs("sortid")%>" target="_blank" title="RSS格式输出">[RSS]</a>&nbsp;<a target="_blank" href="list.asp?sort=<%=rs("sortid")%>">更多>>></a>&nbsp;</td>
								</tr>
							</table>
					<table border="0" width="100%" cellspacing="0" cellpadding="2">
						<tr>
							<td width="125" bgcolor="#f0f0f4"><span id="img_<%=rs("sortid")%>"> - </span></td>
						    <td align="left" bgcolor="#f0f0f4" class="list"><span id="ad_<%=rs("sortid")%>">正在加载数据...</span></td>
						</tr>
	  </table>
<%
		rs.movenext
		if rs.eof then exit for

		%></td>
    <td width="10"></td>
    <td width="445"><table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#B7B7C2">
								<tr>
								  <td height="28" align="left" class="title">&nbsp;<%=rs("sortname")%></td>
								  <td align="right">
								  <a href="img.asp?sort=<%=rs("sortid")%>" target="_blank">[图片版]</a>&nbsp;<a href="rss2feed.asp?sort=<%=rs("sortid")%>" target="_blank" title="RSS格式输出">[RSS]</a>&nbsp;<a target="_blank" href="list.asp?sort=<%=rs("sortid")%>">更多>>></a>&nbsp;</td>
								</tr>
							</table>
					<table border="0" width="100%" cellspacing="0" cellpadding="2">
						<tr>
							<td width="125" bgcolor="#f0f0f4"><span id="img_<%=rs("sortid")%>"> - </span></td>
						    <td align="left" bgcolor="#f0f0f4" class="list"><span id="ad_<%=rs("sortid")%>">正在加载数据...</span></td>
						</tr>
	  </table>
<%
		rs.movenext
		if rs.eof then exit for
		%></td>
  </tr><%next%>
</table>
<table width="900" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td height="10" colspan="7"></td>
  </tr>
  <tr>
    <td width="215" height="28" align="left" bgcolor="#B7B7C2" class="title">新手入门</td>
    <td width="10" rowspan="2"></td>
    <td width="200" align="left" bgcolor="#D4D0C8" class="title"><%=SiteName%>贡献榜</td>
    <td width="10" rowspan="2"></td>
    <td width="200" align="left" bgcolor="#D4D0C8" class="title">合作站点</td>
    <td width="10" rowspan="2" bgcolor="#FFFFFF">&nbsp;</td>
    <td width="215" align="left" bgcolor="#B7B7C2" class="title">一周点击排行</td>
  </tr>
  <tr>
    <td width="215" valign="top" bgcolor="#F0F0F4"><table width="100%" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="14%" rowspan="2" align="center" valign="top"><img src="image/1.gif" width="24" height="22" align="absmiddle" /></td>
        <td width="86%" align="left">要建立自己的网摘，必须先注册一个用于保存网摘的用户；</td>
      </tr>
      <tr>
        <td align="right"><a href="reg.asp" target="_blank" class="pic">免费注册&gt;&gt;</a></td>
      </tr>
      <tr>
        <td rowspan="2" align="center" valign="top"><img src="image/2.gif" width="24" height="22" align="absmiddle" /></td>
        <td align="left">下载安装网摘插件后，你的鼠标右键菜单将出现“加入人人网摘”选项；</td>
      </tr>
      <tr>
        <td align="right"><a href="down/dzhai.reg" target="_blank" class="pic">下载插件&gt;&gt;</a></td>
      </tr>
      <tr>
        <td rowspan="2" align="center" valign="top"><img src="image/3.gif" width="24" height="22" align="absmiddle" /></td>
        <td align="left">当你发现有趣的内容，就可以通过右键“加入人人网摘”按钮，将任意页面收藏到你的网摘中。</td>
      </tr>
      <tr>
        <td align="right"><a href="help.asp" target="_blank" class="pic">更多帮助&gt;&gt;</a></td>
      </tr>
    </table></td>
    <td align="left" bgcolor="#F4EFE5" class="list"><%
					set rs=conn.execute("select top "&gxbyhgs&" ID,UserID,ZhaiNum from myuser order by ZhaiNum desc")
					i=1
					do while not rs.eof and i<=gxbyhgs
					response.write "·<a href='userzhai.asp?zhaiuser="&rs(1)&"' target='_blank'>"&rs(1)&"</a>&nbsp;("&rs(2)&")<br>"
					i=i+1
					rs.movenext
					loop
					rs.close
					%></td>
    <td align="left" bgcolor="#F4EFE5" class="list"><%
       sql="select * from web_url order by id desc"
       set rs=server.createobject("ADODB.recordset")
       rs.open sql,conn,3
       if not rs.Eof then
       i=1
         while not rs.Eof and i<=9
           Response.Write("·<a href='"&rs("weburl")&"' target='_blank'>"&rs("title")&"</a><br>")
           rs.MoveNext
           i=i+1
         wend
       end if
       rs.close
       %></td>
    <td align="left" bgcolor="#F0F0F4" class="list"><%
		set rszhai=conn.execute("select top 9 ID,IIf(Len(Title)<15,Title,Left(Title,15)+'...') as Title,UserID,FromURL,IIf(Len(Intro)<100,Intro,Left(Intro,100)+'...') as Intro,b.ZhaiID,b.Visits from zhai a, (select ZhaiID,count(*) as Visits from visit where int(now-VisitTime)<=7 group by ZhaiID order by count(*) desc) b where ID=b.ZhaiID and isPub=true order by Visits desc,ID")
		do while not rszhai.Eof			
			Response.Write("·<a href='goto.asp?id="&rszhai("ID")&"' target='_blank' title='"&rszhai("title")&"'>"&HTMLEncode(rszhai("Title"))&"</a><br>")
			rszhai.movenext	
		loop
		rszhai.close
	   %></td>
  </tr>
</table>
<table width="900" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="10" bgcolor="#FFFFFF"></td>
  </tr>
  <tr>
    <td height="28" align="left" bgcolor="#B3BDC4" class="title">&nbsp;友情链接</td>
  </tr>
  <tr>
    <td align="left" bgcolor="#E3E8EA" style="padding:10px;"><%set rs=conn.execute("select top 20 id,title,wz,bz from link order by id desc")%><%do while not rs.eof %>
<a target="_blank" href="<%=rs("wz")%>" title="<%=rs("bz")%>"><%=rs("title")%></a>
<%rs.movenext
loop
rs.close%> &nbsp; <a href="link.asp" target="_blank"><font class="redfont">申请D摘网友情链接&gt;&gt;&gt;</font></a></td>
  </tr>
</table>
<!--最新栏目图文JS开始-->
<%
set rs=conn.execute("select sortid,sortname from sort where issy=true")
do while not rs.eof 
%>
<SPAN ID=span_ad_<%=rs("sortid")%> CLASS="spanclass"><script src="include/<%=rs("sortid")%>.js"></script></SPAN> 
<SCRIPT>ad_<%=rs("sortid")%>.innerHTML=span_ad_<%=rs("sortid")%>.innerHTML;span_ad_<%=rs("sortid")%>.innerHTML="";</SCRIPT>
<SPAN ID=span_img_<%=rs("sortid")%> CLASS="spanclass"><script src="include/<%=rs("sortid")%>img.js"></script></SPAN> 
<SCRIPT>img_<%=rs("sortid")%>.innerHTML=span_img_<%=rs("sortid")%>.innerHTML;span_img_<%=rs("sortid")%>.innerHTML="";</SCRIPT>
<%
rs.movenext
loop
rs.close
%><!--最新栏目图文JS结束--> 

<!--#include file="bottom.asp"-->