main.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">当前位置>>><a href="../main.asp"><font color=<%=title2color%>>班级主页</font></a>>><a href="../person.asp"><font color=<%=title2color%>>个人菜单</font></a>><a href="index.asp"><font color=<%=title2color%>>个人书签</font></a>&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")&"' order by id desc"
rs.open sql,conn,1,3
if rs.eof and  rs.bof then%>
对不起，你尚未创建任何分类，请先&nbsp&nbsp<a href="crate.asp"><font color=red>创建</font></a>&nbsp&nbsp分类!<br>
<% else%>
<table width=99%><tr><td align=center>以下是你创建的分类:<select style="font-size: 9pt">
<%
typecount=rs.recordcount
i=0
do while (not rs.eof) and i<typecount
%>
<option><%=rs("type")%></option>
<%
i=i+1
rs.movenext
loop
%></select>,共创建了&nbsp<%=i%>&nbsp个分类</td>
</tr></table>
<br>
<%end if%><table width=100%><tr><td align=left width=100%><form method=post action="action.asp">
<font color=<%=title1color%>>创建分类</font>:&nbsp<input type=text name=type size=8><input type=hidden name=action value="add"><input type="image" src="../image/1-sub.gif"></form>
<form method=post action="action.asp">
<font color=<%=title1color%>>删除分类</font>:<%set rs=server.createobject("adodb.recordset")
sql="select * from bookmark where user='"&session("user")&"' order by id desc"
rs.open sql,conn,1,3
if rs.eof and  rs.bof then%>
对不起，你尚未创建任何分类
<% else%>
<select name=typeid style="font-size: 9pt">
<%
for i = 1 to typecount
if rs.eof then
exit for
end if
%>
<option value="<%=rs("id")%>"><%=rs("type")%></option>
<%
rs.movenext
next
%></select><% end if%><input type=hidden name=action value="del">
<input type="image" src="../image/1-sub.gif"></form>
<form method=post action="action.asp">
<font color=<%=title1color%>>合并分类</font>：将<select name="type1" size="1" style="font-size: 9pt">
<%
rs.MoveFirst
Do while not rs.eof
response.write "<option value='"&rs("id")&"'>"&rs("type")&"</option>"
rs.MoveNext
Loop
%>
</select>合并到<select name="type2" size="1" style="font-size: 9pt">
<%
rs.MoveFirst
Do while not rs.eof
response.write "<option value='"&rs("id")&"'>"&rs("type")&"</option>"
rs.MoveNext
Loop
%></select><input type=hidden name=action value="b2b">
<input type="image" src="../image/1-sub.gif"></form>
<form method=post action="action.asp">
<font color=<%=title1color%>>修改分类</font>：将<select name="type1" size="1" style="font-size: 9pt">
<%
rs.MoveFirst
Do while not rs.eof
response.write "<option value='"&rs("id")&"'>"&rs("type")&"</option>"
rs.MoveNext
Loop
%>
</select>修改为<input type=text name=typenewname value="" size=10 style="font-size: 9pt"><input type=hidden name=action value="rename">
<input type="image" src="../image/1-sub.gif"></form>
<form mothod=post action="action.asp">
<font color=<%=title1color%>>新增书签</font>:<br>
网站名称:<input name=title type=text size=10><br>
网站网址:<input name=linkurl type=text size=10>(请不要加http://,系统会自动加上)<br>
所属分类:<select name="typeid" size="1" style="font-size: 9pt">
<%
rs.MoveFirst
Do while not rs.eof
response.write "<option value='"&rs("id")&"'>"&rs("type")&"</option>"
rs.MoveNext
Loop
%><br>
网站说明:<textarea name="addinfo" rows="5" cols="35" onmouseover="window.document.form1.addinfo.select();">无</textarea>
<input name=action type=hidden value="addlink"><br>
<input type="image" src="../image/1-sub.gif"></form>
<% 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"-->