index.asp

使用Asp+Access+FSO+Jmail+Servu开发

<!--#include file="top.asp"-->
<meta content="text/html; charset=gb2312" http-equiv="Content-Type">
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="158" rowspan="2" valign="top" bgcolor="#edeef0">
        <table cellspacing=0 cellpadding=0 width="100%" border=0>
          <tbody>
            <tr> 
              <td background=""><img height=44 alt="" 
            src="images/index_6.jpg" width=158></td>
            </tr>
            <tr> 
              <td height=100 align="center" valign=top background=images/index_16.jpg><%call showuserlogin()%></td>
            </tr>
            <tr> 
              <td><img height=9 alt="" src="images/index_24.jpg" 
          width=158></td>
            </tr>
          </tbody>
        </table>     
      <table cellspacing=0 cellpadding=0 width="100%" border=0>
        <tbody>
          <tr> 
            <td><img height=24 alt="" src="images/index_26.jpg" 
          width=158></td>
          </tr>
          <tr> 
            <td valign=top background=images/index_16.jpg height=100><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
                <tr>
                  <td><%call showvote()%></td>
                </tr>
            </table></td>
          </tr>
          <tr> 
            <td><img height=9 alt="" src="images/index_24.jpg" 
          width=158></td>
          </tr>
        </tbody>
      </table></td>

    <td width="433" height="298" valign="top"> 
      <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td><img src="images/index_new.jpg" width=419 height=50 alt=""></td>
        </tr>
        <tr> 
          <td align="right" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="3">
  <tbody>
    <%
		set rsnews=Server.CreateObject("ADODB.Recordset")
		sqlnews="select top 8 * from news where type='news' order by id desc"
 	rsnews.open sqlnews,conn,1,3
		if rsnews.eof and rsnews.bof then
response.write "<br><br><center>目前暂无信息！</center>"
end if
do while not rsnews.eof%>
    <tr>
      <td><font color="#ff6600">·</font> <a href="news_show.asp?id=<%=rsnews("id")%>" target="_blank" title="<%=rsnews("title")%>"><%=rsnews("title")%></a> <font color=999999>[<%=rsnews("time")%>]</font>
          <%
					if rsnews("time")=Date() then
                    Response.Write("<img src=images/i_new.gif border=0>")
                    end if%></td>
    </tr>
    <%rsnews.movenext
loop
rsnews.close %>
  </tbody>
</table>
<a href="news.asp"><img src="images/more.gif" width="67" height="7" border="0"></a> 
          </td>
        </tr>
      </table>
	  
    </td>

    <td width="180" valign="top" bgcolor="#f5f5f8"> 
      <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td> <img src="images/index_9.jpg" width=170 height=50 alt=""></td>
        </tr>
        <tr> 
          <td valign="top">
		   <%
		   set rstj1=Server.CreateObject("ADODB.Recordset")
		   sqltj1="select * from [user] where isgood=1"
		   rstj1.open sqltj1,conn,1,1
		   total=rstj1.recordcount
Randomize 
D1 = Fix(Rnd * total)
for i=1 to D1
rstj1.movenext
next
if rstj1.eof and rstj1.bof then
response.write "<br><br><center>目前暂无信息！</center>"
else
%>
		  <table width="96%" border="0" align="center" cellpadding="5" cellspacing="0">
              <tbody>
                <tr> 
                  <td> </td>
                </tr>
                <tr>
                  <td align="center"><%
	  if rstj1("siteimg")<>"http://" then
	  	response.write "<a href=view.asp?username="&rstj1("username")&" target=_blank><img src="&rstj1("siteimg")&" width=120 height=90 border=0 alt="&rstj1("sitename")&"></a>"
	  else
	  	response.write "<a href=view.asp?username="&rstj1("username")&" target=_blank><img src=images/sitepic.gif width=120 height=90 border=0 alt="&rstj1("sitename")&"></a>"
	  end if
	  %></td>
                </tr>
                <tr> 
                  <td>网站名称：<a href=view.asp?username=<%=rstj1("username")%> title="<%=rstj1("sitename")%>" target="_blank"><%=rstj1("sitename")%></a></td>
                </tr>
                <tr> 
                  <td>网站类型：<%set rstj2=Server.CreateObject("adodb.recordset")
		   sqltj2="select * from siteclass where id="&rstj1("sitetype")
		   rstj2.open sqltj2,conn,1,1
		   Response.Write rstj2("sitetype")%>
                  </td>
                </tr>
                <tr> 
                  <td>网站简介：<%=left(rstj1("intro"),25)%>...</td>
                </tr>
                <tr> 
                  <td nowrap>推荐等级：<img src="<%=rstj1("star")%>" border="0"></td>
                </tr>
              </tbody>
            </table>
	<%end if%>
          </td>
        </tr>
      </table>
	  
    </td>
  </tr>
  <tr> 
    <td colspan="2" valign="top"> 
      <table width="612" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="612" height="70"> <table width="612" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td width="480" align="center"><iframe name="ad" src="ad/index_center.asp" width="468" height="60" frameborder="0" scrolling="no"></iframe></td>
                <td width="132" align="center"><iframe name="ad" src="ad/index_right.asp" width="120" height="60" frameborder="0" scrolling="no"></iframe></td>
              </tr>
            </table></td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="158" valign="top" bgcolor="#edeef0">	
 <table width="158" height="100" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="158"><table cellspacing=0 cellpadding=0 width="100%" border=0>
              <tbody>
                <tr> 
                  <td><img height=26 alt="" src="images/index_37.jpg" 
          width=158></td>
                </tr>
                <tr> 
                  <td align="center" valign=top background=images/index_16.jpg><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr>
                      <td height="20">共有站点数：<%=users%></td>
                    </tr>
                    <tr>
                      <td height="20">今天注册用户：<%=todayreg%></td>
                    </tr>
                    <tr>
                      <td height="20">当前在线：<%=count%></td>
                    </tr>
                  </table></td>
                </tr>
                <tr> 
                  <td><img height=9 alt="" src="images/index_24.jpg" 
          width=158></td>
                </tr>
              </tbody>
            </table></td>
        </tr>
        <tr>
          <td align="center"><iframe name="ad" src="ad/index_left.asp" width="120" height="60" frameborder="0" scrolling="no"></iframe></td>
        </tr>
      </table></td>
    <td width="445" height="270" valign="top">
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td><img src="images/index_28.jpg" width=419 height=50 alt=""></td>
        </tr>
        <tr> 
          <td align="right" valign="top"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="3">
              <tbody>
                <%
				set rshelp=Server.CreateObject("ADODB.Recordset")
				sqlhelp="select top 8 * from news where type='help' order by id desc"
 	rshelp.open sqlhelp,conn,1,3
		if rshelp.eof and rshelp.bof then
response.write "<br><br><center>目前暂无信息！</center>"
end if
do while not rshelp.eof%>
                <tr>
                  <td><font color="#ff6600">·</font> <a href="news_show.asp?id=<%=rshelp("id")%>" target="_blank" title="<%=rshelp("title")%>"><%=rshelp("title")%></a> <font color=999999>[<%=rshelp("time")%>]</font>
                      <%
					  if rshelp("time")=Date() then
					  Response.Write("<img src=images/i_new.gif border=0>")
                      end if
					  %>
                  </td>
                </tr>
                <%rshelp.movenext
loop
rshelp.close %>
              </tbody>
            </table>
            <a href="help.asp"><img src="images/more.gif" width="67" height="7" border="0"></a></td>
        </tr>
      </table>
    </td>
    <td width="167" valign="top" bgcolor="#f5f5f8"> 
      <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td><img src="images/index_29.jpg" width=162 height=50 alt=""></td>
        </tr>
        <tr> 
          <td height='22' valign='top'><table width="100%" border="0" cellpadding="0" cellspacing="1">
        <%
set rs10=Server.CreateObject("adodb.recordset")
sql10="select top 100 * from counter order by counter desc"
rs10.open sql10,conn,1,1
count=rs10.recordcount
	 if rs10.eof and rs10.bof then   
     response.write"<br>" 
	 response.write "<center>暂时还没有网站加入排名！</center>"
	 end if
if count>10 then count=10
for i=1 to count
%><tr>
              <td width="23%" height="25" align="center"><b><%=i%></b></td>
                <td width="77%" height="25"><a href="view.asp?username=<%=rs10("username")%>" target="_blank"> 
                  <%set rs22=Server.CreateObject("adodb.recordset")
sql22="select * from [user] where username='"&rs10("username")&"'"
rs22.open sql22,conn,1,1
Response.Write rs22("sitename")%>
                  </a></td>
            </tr>
        <%
rs10.movenext
next
rs10.close
set rs10=nothing
rs22.close
set rs22=nothing
%>
          </table></td>
        </tr>
      </table>    
    </td>
  </tr>
</table>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td width="158" align="right" valign="top" bgcolor="#edeef0"> 
      <table cellspacing=0 cellpadding=0 width="100%" border=0>
        <tbody>
          <tr> 
            <td height=15></td>
          </tr>
          <tr> 
            <td style="padding-top: 1px;" background=images/index_01.gif align="center"><img height=18 alt="" src="images/index_38.jpg" 
          width=156></td>
          </tr>
          <tr> 
            <td height="155" valign=top background=images/index_01.gif> 
              <marquee  scrollamount="1" direction="up" scrolldelay="1" height="150" onmouseout=start() onmouseover=stop()>
              <table width="90%" 
border=0 align="center" cellpadding=2 cellspacing=1>
                <tbody>
                  <tr valign=center> 
                    <td height=2 colspan=2></td>
                  </tr>
                  <%set rs=Server.CreateObject("ADODB.Recordset")
sqllink="select top 8 * from [links] where pass=1 order by id desc"
 	rs.open sqllink,conn,1,1
	if rs.eof and rs.bof then
	response.write "<br><br><center>目前暂无信息！</center>"
end if
do while not rs.eof%>
                  <tr valign=center> 
                    <td height=22 colspan="2" align="center">
                      <%
					  if rs("logo")="" then
                      Response.Write("<a href="&rs("link")&" target=_blank title="&rs("name")&">"&rs("name")&"</a>")
					  else
					  Response.Write("<a href="&rs("link")&" target=_blank><img src="&rs("logo")&" width=88 height=31 border=0 alt="&rs("name")&"></a>")  
                      end if
					  %>
                    </td>
                  </tr>
                  <%rs.movenext
loop
rs.close %>
                </tbody>
              </table>
              </marquee></td>
          </tr>
        </tbody>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
	      <tr> 
          <td align="right" background="images/index_01.gif">[<a href=javascript:void(0) onclick="javascript:open_win('add_link.asp','',400,180,'no')">申请加入</a>]</td>
        </tr>
        <tr> 
          <td height="5" background="images/index_02.gif"></td>
        </tr>
      </table> </td>
    <td height="202" valign="top"> 
      <table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tbody>
          <tr> 
            <td><img height="35" src="images/sitelist.gif" width="600"></td>
          </tr>
        </tbody>
      </table>
	  <%
dim j,all
j=1
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from siteclass"
rs.open sql,conn,1,1
if rs.recordcount>1 then
all=rs.recordcount
else
all=1
end if
%>
      <table width="588" border="0" align="center" cellpadding="5" cellspacing="3">
        <tbody>
          <tr> 
		  <%do until rs.eof%>
            <td><font face="wingdings">v</font> <%
				  response.write "<a href='site_list.asp?sitetypeid="&rs("id")&"'>"&rs("sitetype")&"</a>"
				  %><font color=666666>(<%
				  set rsgp=Server.CreateObject("ADODB.Recordset")
sqlgp="select * from [user] where sitetype='"&rs("id")&"'"
rsgp.open sqlgp,conn,1,1
				  Response.Write rsgp.recordcount
				  %>)</font>
</td>
		 <%
		 if j mod 5=0 then response.write "</tr><tr>"
         rs.movenext
         j=j+1
         loop
		 rs.close
		 set rs=nothing
        %>
          </tr>
        </tbody>
      </table> 
    </td>
  </tr>
</table>
<!--#include file="copyright.asp"-->