index.asp

一个用jsp 编写的个人主页网站哦。希望对大家有所帮助啊

            <div align="center"> </div>
            <table cellpadding="0" cellspacing="0" border="0" align="center" width="137" height="105" background="images/bg.gif">
              <tr> 
                <td width="100%"> 
                  <div> 
                    <div align="center"><a href="index.asp?goto=<%=rs("id")%>" target="_blank"> 
                      </a> 
                      <div align="center"></div>
                      <a href="index.asp?goto=<%=rs("id")%>" target="_blank"> 
                      <%if (rs("sitelogo")<>"") and (rs("sitelogo")<>" ") then%>
                      <img src="<%=rs("sitelogo")%>" onError="errorImg(this)" width="88" height="31" border="0" alt="<% =rs("Description") %>"></a> 
                      <%end if%>
                    </div>
                    <div align="center"><a href="<% =rs("URL") %>" target="_blank"> 
                      </a> 
                      <table width="15" border="0" cellspacing="0" cellpadding="0" height="1">
                        <tr> 
                          <td></td>
                        </tr>
                      </table>
                      <a href="index.asp?goto=<%=rs("id")%>" target="_blank"> 
                      <% =rs("SiteName") %>
                      </a> 
                      <%rs.movenext%>
                    </div>
                  </div>
                </td>
              </tr>
            </table>
          </td>
          <%end  if
		 iPage=iPage+1
         next
		 %>
        </tr>
        <%loop%>
      </table>
      <%end if%>
      <% if rso("showmodal")=1 then%>
      <table border="0" align="center" cellpadding="0" cellspacing="2" width="97%" >
        <tr> 
          <td align="center" colspan="2">&nbsp; </td>
        </tr>
        <%
DO WHILE NOT rs.EOF AND RowCount>0
%>
        <tr> 
          <td colspan="2" height="19"> 
            <table width="88%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td><img src="images/z3.gif" width="13" height="13"><img src="images/spacer.gif" width="1" height="1"> 
                  <% =rs("linktype") %>
                  <a href="index.asp?goto=<%=rs("id")%>" target="_blank" class="pt8"> 
                  <% =rs("SiteName") %>
                  </a>&nbsp;Hits: 
                  <% =rs("siteclick") %>
                  Time: 
                  <% =year(rs("MyDate"))&"-"&month(rs("MyDate"))&"-"&day(rs("MyDate")) %>
                </td>
              </tr>
            </table>
          </td>
        </tr>
        <tr> 
          <td align="center" width="73%"> 
            <div align="left"> 
              <% =rs("Description") %>
            </div>
          </td>
          <td width="27%" align="center"> 
            <%if (rs("sitelogo")<>"") and (rs("sitelogo")<>" ") then%>
            <div align="right"><a href="index.asp?goto=<%=rs("id")%>" target="_blank"> 
              </a> <a href="index.asp?goto=<%=rs("id")%>" target="_blank"><img src="<%=rs("sitelogo")%>" onError="errorImg(this)" width="88" height="31" border="0"></a> 
              <%end if%>
            </div>
          </td>
        </tr>
        <tr> 
          <td align="center" colspan="2" height="21"> 
            <div align="right"><img src="images/line1.gif" width="407" height="13"></div>
          </td>
        </tr>
        <tr> 
          <td align="center" colspan="2"></td>
        </tr>
        <%
RowCount = RowCount - 1
      rs.MoveNext 
      Loop%>
      </table>
      <%end if%>
      <table width=97% height="5" border=0 align=center cellpadding=3 cellspacing=0>
        <tbody> 
        <tr> 
          <td style="LETTER-SPACING: 1px"> 
            <%if TSum>10 then 
	if PageNo mod 10=0 then
		currid=PageNo
		currid1=PageNo-9
	else
		if TSum mod 10=0 then 
			currid=int(PageNo/10)*10+10
		else 
			if int(PageNo/10)=int(TSum/10) then currid=(TSum/10)*10 else currid=int(PageNo/10)*10+10
		end if
		currid1=int(PageNo/10)*10+1
	end if
else 
	currid=TSum mod 10
	currid1=int(TSum/10)*10+1
end if%>
            分页:<font face="webdings"> 
            <%if PageNo=1 then%>
            <span><font color="#96CB39">9</font></span> 
            <%else%>
            <a href="index.asp?Page=1<%="&linktype="&linktype&"&text="&text&"&option="&option1%><%if session("webid")<>"" then response.Write("&username="&session("webid"))%>"><font color="#96CB39">9</font></a> 
            <%end if%>
            <%if PageNo>10 then%>
            <a href="index.asp?Page=<%=currid1-1&"&linktype="&linktype&"&text="&text&"&option="&option1%><%if session("webid")<>"" then response.Write("&username="&session("webid"))%>"><font color="#96CB39">7</font></a> 
            <%end if%>
            </font> 
            <%
for i=currid1 to currid
if PageNo=i then 
	response.Write("<font color=#787878>"&i&"</font>  ")
else%>
            <a href="index.asp?Page=<%=i&"&linktype="&linktype&"&text="&text&"&option="&option1%><%if session("webid")<>"" then response.Write("&username="&session("webid"))%>"> 
            <%response.write i%>
            </a> <font face="webdings"><img src="images/spacer.gif" width="1" height="1"></font> 
            <%end if%>
            <%response.write " "%>
            <%next%>
            <font 
face=webdings> 
            <%if currid<TSum then%>
            <a href="index.asp?Page=<%=currid+1&"&linktype="&linktype&"&text="&text&"&option="&option1%><%if session("webid")<>"" then response.Write("&username="&session("webid"))%>"><font color="#96CB39">8</font></a> 
            <%end if%>
            </font> <font face="webdings"> 
            <%if PageNo=TSum then%>
            <span><font color="#96CB39">:</font></span> 
            <%else%>
            <a href="index.asp?Page=<%=TSum&"&linktype="&linktype&"&text="&text&"&option="&option1%><%if session("webid")<>"" then response.Write("&username="&session("webid"))%>"> 
            <font color="#96CB39">:</font></a></font><font face="webdings" size="1"> 
            <%end if%>
            </font></td>
        </tr>
        </tbody> 
      </table>
      <table width="97%" border="0" cellspacing="0" cellpadding="0" align="center" height="26">
        <tr> 
          <td width="100%"> 
            <form action="index.asp" method="post" name="form" id="form">
              搜索: 
              <input 
      class=input1 size=13 name=text>
              <input name=option type=radio value=1 CHECKED>
              名称 
              <input type=radio value=2 name=option>
              网址 
              <input type=radio value=3 
      name=option>
              简介 
              <%
			SQL1="Select * From sort"
			Set rs1=conn.Execute(SQL1)
			Set rs1=Server.CreateObject("ADODB.RecordSet")
			rs1.Open sql1,conn,1,1 
%>
              <table width="232" border="0" cellspacing="0" cellpadding="0" height="7" align="center">
                <tr> 
                  <td></td>
                </tr>
              </table>
              　　 
              <input name="submit" type=submit class=input2 value="搜 索">
              <input name="reset" type=reset class=input2 value="重 填">
            </form>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<table width=371 height="5" border=0 align=center cellpadding=3 cellspacing=0>
  <tbody> 
  <tr>
    <td style="LETTER-SPACING: 1px" width=53%>站点[<font color="#787878"><%=rs.recordcount%></font>]<font color="#787878"></font>个　第<font color="#787878"><%=PageNo%></font>页/共<font color="#787878"><%=rs.pagecount%></font>页</td>
  </tr>
  </tbody> 
</table>
<table width="416" border="0" align="center" cellspacing="0" cellpadding="0">
  <tr> 
    <td> 
      <table border="0" align="center" class="table002" cellspacing="1" cellpadding="0" width="100%">
        <tr> 
          <td> 
            <table border="0" cellspacing="0" cellpadding="0" align="right" width="164" height="17">
              <tr> 
                <td><a href="admin.asp" target="_top"><img src="images/g1.gif" width="9" height="9" border=0>　站长登入</a></td>
                <td> 
                  <div align="right"></div>
                </td>
                <td><a href="index.asp"><img src="images/g4.gif" width="9" height="9" border=0>　所有链接</a></td>
              </tr>
            </table>
          </td>
        </tr>
        <tr> 
          <td>&nbsp; </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<table width="391" border="0" height="24" cellspacing="0" align="center">
  <tr> 
    <td>&nbsp;</td>
  </tr>
  <tr> 
    <td> 
          
      <div align="center"><span class="new">Copyright &copy;</span><font size="1"><a href="http://www.syx8622.cn/" target="_blank"><font color="#93ADCF"><span class="9point"><font face="Verdana, Arial, Helvetica, sans-serif"> 
        ┋梦想小筑┋</font></span></font></a></font><span class="new"> All rights reserved</span><span class="new"><br>
        <a href="http://www.syx8622.cn/" target="_blank">Code by www.syx8622.cn</a></span></div>
        
    </td>
  </tr>
</table>
<!--#include file = "bottom.asp"-->  
</body> 
</html>