index.asp

基于asp的 班级同学录主页源代码

<!--#include file="../const.asp"-->
<% if session("user")="" then
response.redirect "../err.asp"
end if
%>
<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<table width=100% class=xzy bgcolor=#ffffff>
<tr><td width=180  height=600 background="../image/tablebg.jpg"></td>
<td align=left valign=top>
<table width=100%><tr><td width=100%><br><img src="../image/narrow.gif">当前位置>>>班级主页>>个人菜单>个人书签&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp
<hr height=1 noshade size=1 color=#000000>
</td>
<td>
</td></tr></table>
<%set rs=server.createobject("adodb.recordset")
sql="select * from bookmark where user='"&session("user")&"'"
rs.open sql,conn,1,3
if rs.eof and  rs.bof then%>
对不起，你尚未创建任何分类，请先&nbsp&nbsp<a href="main.asp"><font color=red>创建</font></a>&nbsp&nbsp分类!<br>
<% else%>
<table width=99%><tr>
<% dim linkcount
linkconut=0
for i = 1 to 20
if rs.eof then
exit for
end if
%>
<td width=33%><img src="../image/arrow.gif"><a href="bookmark.asp?typeid=<%=rs("id")%>"><font color=#000000><%=rs("type")%></font></a>(<font color=red><%=rs("count")%></font>)</td>
<%if (i mod 3)=0 then%>
</tr><tr>
<% end if%>
<%
linkcount=rs("count")+linkcount
rs.movenext
next
%>
</tr></table>
<br>
<table width=100%><tr><td align=right width=100%>当前你共创建了&nbsp&nbsp<%=(i-1)%>&nbsp&nbsp个分类,&nbsp&nbsp
收录了&nbsp&nbsp<%=linkcount%>&nbsp&nbsp个网站&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp
<%end if
conn.close
set conn=nothing
%>

</td><td></td></tr></table></td>
<td width=1 background="../image/vline.gif"></td>
<td valign=top align=center width=150>
<!--#include file="right.asp"-->
</td></tr></table>
<!--#include file="../end.asp"-->