<!--#include file="mdb.asp"-->
<!--#include file="config.asp"-->
<!--#include file="chklogin.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>收藏夹</title>
<style type="text/css">
<!--
a {
	font-size: 12px;
	color: #6A6A6A;
}
a:visited {
	color: #4F4F4F;
	text-decoration: none;
}
a:active {
	color: #F97C00;
	text-decoration: none;
}
a:link {
	color: #4F4F4F;
	text-decoration: none;
}
a:hover {
	text-decoration: none;
	color: #F97C00;
}
body,td,th {
	font-size: 12px;
	color: #4F4F4F;
}
.greenborder {border:1px solid #7EC8EA;}
.greenborder1 {border-right:1px solid #7EC8EA; background-color:#EFF8FC}
.inp {width:154px;border:1px solid #7f9db9;color:#052A5C}
.inp1 {width:66px;border:1px solid #7f9db9;color:#052A5C;font-size:9px;height:15px;margin-right:2px}
.slct {width:158px}
.sub {width:36px}
body {
	margin-top: 0px;
}
.style1 {font-weight: bold}
.urltr
{
  /*设置onmouseover事件*/
  onmouseover: expression(onmouseover=function (){this.style.borderColor ='blue';this.style.color='red';this.style.backgroundColor ='#F4FAFF'});

  /*设置onmouseout事件*/
  onmouseout: expression(onmouseout=function (){this.style.borderColor='';this.style.color='';this.style.backgroundColor =''});
  background-color:#ffffff;
}
-->
</style>
</head>

<body>
<%set rs=server.createobject("adodb.recordset")
dim classid,pn,urlid
classid=Request("id")
urlid=Request("urlid")
pn=Request("pn")
select case Request("menu")
case ""
main()
case "classmain"
classmain()
case "delurl"
delurl()
end select
sub main()
rs.open "select * from 84wz_my_url where username='"&username&"' order by id desc",conn,1,3
if not rs.eof then
%>
<table width="100%"  border="0" cellpadding="0" cellspacing="1" bgcolor="#62B0FF">
  <tr>
    <td bgcolor="#FFFFFF"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
      <tr align=center bgcolor="#BFDFFF">
        <td width="22%" height="20">&nbsp;网站名称</td>
        <td width="68%" height="20">&nbsp;备注</td>
        <td width="5%" height="20">&nbsp;编辑</td>
        <td width="5%" height="20">&nbsp;删除</td>
      </tr>
	<%if pn="" then pn=1
	rs.pagesize=15
	rs.absolutepage=pn
	rowcount=rs.pagesize
	while not rs.eof and not rs.bof and rowcount>0%>
      <tr class="urltr" title='网站名称：<%=rs("name")%>&#13;备&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;注：<%=rs("memo")%>'>
        <td height="20">&nbsp;<a href=<%=rs("url")%> target=_blank><%=left(rs("name"),10)%></a></td>
        <td height="20">&nbsp;<font color="#CCCCCC"><%=left(rs("memo"),25)%>...</font></td>
        <td height="20" title="编辑">&nbsp;
          <div align="center"><a href='url.asp?menu=upurl&urlid=<%=rs("id")%>'>编辑</a></div></td>
        <td height="20" title="删除">&nbsp;
          <div align="center"><a href='?menu=delurl&urlid=<%=rs("id")%>' onClick='return confirm("确定要删除此记录吗？");'>删除</a></div></td>
      </tr>
	  <%
	  rowcount=rowcount-1
	  rs.movenext
	  wend
	  %>
    </table></td>
  </tr>
</table>
<%
ppage=pn-1
npage=pn+1
if pn=1 then
%>
<a href='<%=request.servervariables("script_name")%>?pn=1'>首页</a>
<a href='<%=request.servervariables("script_name")%>?pn=<%=npage%>'>下页</a>  
<a href='<%=request.servervariables("script_name")%>?pn=<%=rs.pagecount%>'>未页</a>  
每页显示<%=rs.pagesize%>个网站，当前第<%=pn%>页，总共<%=rs.pagecount%>页  
<%  
elseif pn<rs.pagecount then  
%>  
<a href='<%=request.servervariables("script_name")%>?pn=1'>首页</a>  
<a href='<%=request.servervariables("script_name")%>?pn=<%=ppage%>'>上页</a>  
<a href='<%=request.servervariables("script_name")%>?pn=<%=npage%>>'>下页</a>  
<a href='<%=request.servervariables("script_name")%>?pn=<%=rs.pagecount%>'>未页</a>  
每页显示<%=rs.pagesize%>个网站，当前第<%=pn%>页，总共<%=rs.pagecount%>页  
<%  
else  
%>  
<a href='<%=request.servervariables("script_name")%>?pn=1'>首页</a>  
<a href='<%=request.servervariables("script_name")%>?pn=<%=ppage%>'>上页</a>  
<a href='<%=request.servervariables("script_name")%>?pn=<%=rs.pagecount%>'>未页</a>  
每页显示<%=rs.pagesize%>个网站，当前第<%=pn%>页，总共<%=rs.pagecount%>页  
<%
end if
else
Response.Write("没有找到记录")
end if
rs.close
end sub
sub classmain()
rs.open "select * from 84wz_my_url where username='"&username&"' and classid="&classid,conn,1,3
if not rs.eof then
%>
<table width="100%"  border="0" cellpadding="0" cellspacing="1" bgcolor="#62B0FF">
  <tr>
    <td bgcolor="#FFFFFF"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
      <tr align=center bgcolor="#BFDFFF">
        <td width="22%" height="20">&nbsp;网站名称</td>
        <td width="68%" height="20">&nbsp;备注</td>
        <td width="5%" height="20">&nbsp;编辑</td>
        <td width="5%" height="20">&nbsp;删除</td>
      </tr>
	<%if pn="" then pn=1
	rs.pagesize=15
	rs.absolutepage=pn
	rowcount=rs.pagesize
	while not rs.eof and not rs.bof and rowcount>0%>
      <tr class="urltr" title='网站名称：<%=rs("name")%>&#13;备&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;注：<%=rs("memo")%>'>
        <td height="20">&nbsp;<a href=<%=rs("url")%> target=_blank><%=left(rs("name"),10)%></a></td>
        <td height="20">&nbsp;<font color="#CCCCCC"><%=left(rs("memo"),25)%>...</font></td>
        <td height="20" title="编辑">&nbsp;
          <div align="center"><a href='url.asp?menu=upurl&urlid=<%=rs("id")%>'>编辑</a></div></td>
        <td height="20" title="删除">&nbsp;
          <div align="center"><a href='?menu=delurl&urlid=<%=rs("id")%>' onClick='return confirm("确定要删除此记录吗？");'>删除</a></div></td>
      </tr>
	  <%
	  rowcount=rowcount-1
	  rs.movenext
	  wend%>
    </table></td>
  </tr>
</table>
<%
ppage=pn-1
npage=pn+1
if pn=1 then
%>
<a href='<%=request.servervariables("script_name")%>?menu=classmain&id=<%=classid%>&pn=1'>首页</a>
<a href='<%=request.servervariables("script_name")%>?menu=classmain&id=<%=classid%>&pn=<%=npage%>'>下页</a>  
<a href='<%=request.servervariables("script_name")%>?menu=classmain&id=<%=classid%>&pn=<%=rs.pagecount%>'>未页</a>  
每页显示<%=rs.pagesize%>个网站，当前第<%=pn%>页，总共<%=rs.pagecount%>页  
<%  
elseif pn<rs.pagecount then  
%>  
<a href='<%=request.servervariables("script_name")%>?menu=classmain&id=<%=classid%>&pn=1'>首页</a>  
<a href='<%=request.servervariables("script_name")%>?menu=classmain&id=<%=classid%>&pn=<%=ppage%>'>上页</a>  
<a href='<%=request.servervariables("script_name")%>?menu=classmain&id=<%=classid%>&pn=<%=npage%>>'>下页</a>  
<a href='<%=request.servervariables("script_name")%>?menu=classmain&id=<%=classid%>&pn=<%=rs.pagecount%>'>未页</a>  
每页显示<%=rs.pagesize%>个网站，当前第<%=pn%>页，总共<%=rs.pagecount%>页  
<%  
else  
%>  
<a href='<%=request.servervariables("script_name")%>?menu=classmain&id=<%=classid%>&pn=1'>首页</a>  
<a href='<%=request.servervariables("script_name")%>?menu=classmain&id=<%=classid%>&pn=<%=ppage%>'>上页</a>  
<a href='<%=request.servervariables("script_name")%>?menu=classmain&id=<%=classid%>&pn=<%=rs.pagecount%>'>未页</a>  
每页显示<%=rs.pagesize%>个网站，当前第<%=pn%>页，总共<%=rs.pagecount%>页 
<%end if
else 
Response.write("没有找到记录")
Response.end
end if
rs.close
end sub
sub delurl()
conn.execute "delete from 84wz_my_url where id="&urlid
Response.Write("<script language=javascript>alert('记录已删除');this.location.href='main.asp';</script>")
end sub%>
</body>
</html>

