📄 delete.asp
字号:
<%
if session("logined")<>true then
response.redirect"login.asp"
end if
%>
<!--#include file="conn.asp"-->
<head>
<link rel="stylesheet" type="text/css" href="css/intereye.css">
<title></title>
</head>
<body topmargin="5" background="images/bg.gif" leftmargin="0">
<div align="left">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="650" height="87">
<tr>
<td width="758" align="center" colspan="7" height="25" valign="middle">
<p align="center"><font color="#800000">山西工程职业技术学院会计电算化40215班专用通讯录</font></td>
</tr>
<tr>
<td width="108" align="center" height="19" valign="middle" style="border-right-style: solid; border-right-width: 1; border-top-style: solid; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1">位置：<font color="#FF0000">同学录</font></td>
<td width="108" align="center" height="19" valign="middle" style="border-right-style: solid; border-right-width: 1; border-top-style: solid; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1">同学列表</td>
<td width="108" align="center" height="19" valign="middle" style="border-right-style: solid; border-right-width: 1; border-top-style: solid; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1">本班公告</td>
<td width="108" align="center" height="19" valign="middle" style="border-right-style: solid; border-right-width: 1; border-top-style: solid; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1"><a href="reg.asp">我要加入</a></td>
<td width="108" align="center" height="19" valign="middle" style="border-right-style: solid; border-right-width: 1; border-top-style: solid; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1"><a href="mailto:intereye@etang.com?subject=给徐伟写信!">给我写信</a></td>
<td width="109" align="center" height="19" valign="middle" style="border-right-style: solid; border-right-width: 1; border-top-style: solid; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1"><a href="../myguestbook/display.asp" target="_blank">给我留言</a></td>
<td width="109" align="center" height="19" valign="middle" style="border-top-style: solid; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1"><a href="login.asp" target="_blank">超级用户</a></td>
</tr>
<tr>
<td width="758" align="center" colspan="7" height="19" valign="middle">
<marquee scrollamount="3" scrolldelay="68">大家好呀！欢迎光临我的个人网站－－国际互联眼！我好想你们呀！呵呵……记得在学校的日日夜夜，至今仍是VERY怀念呀！可惜我已匆匆离去，不能与自己熟悉的人度过余光真是人生一大憾事，因此我做了这个网站推出同学录，希望能给自己留下一段美好的回忆!</marquee></td>
</tr>
<tr>
<td width="758" align="center" colspan="7" height="20" valign="middle">
<div align="left">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="45">
<tr bgcolor=#315888>
<td width="8%" align="center" height="21" bgcolor="#003366"><font color=#ffffff>姓名</font></td>
<td width="7%" align="center" height="21" bgcolor="#003366"><font color=#ffffff>昵称</font></td>
<td width="4%" align="center" height="21" bgcolor="#003366"><font color=#ffffff>性别</font></td>
<td width="12%" align="center" height="21" bgcolor="#003366"><font color=#ffffff>出生日期</font></td>
<td width="8%" align="center" height="21" bgcolor="#003366"><font color=#ffffff>邮件</font></td>
<td width="8%" align="center" height="21" bgcolor="#003366"><font color=#ffffff>主页</font></td>
<td width="10%" align="center" height="21" bgcolor="#003366"><font color=#ffffff>OICQ</font></td>
<td width="7%" align="center" height="21" bgcolor="#003366"><font color=#ffffff>操作</font></td>
</tr>
<tr>
<%
dim MaxPerPage
dim sql
dim totalPut
dim CurrentPage
dim TotalPages
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
%>
<%
sql="select * from myclass order by time DESC"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>
<br><p aligh="center" align="center"><font color="#ff0000">现在还没有同学加入!
<br><br><a href="reg.asp">我要加入</a></p>
<% else %>
<% rs.pagesize=26
totalput=rs.recordcount
totalpages=rs.pagecount
maxperpage=rs.pagesize
if currentpage<1 then
currentpage=1
end if
if currentpage>totalpages then
currentpage=totalpages
end if
if currentPage=1 then
showContent
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark
showContent
end if
end if
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
%>
<%
sub showContent
dim i
dim k
k=(totalPut-MaxPerPage*(currentPage-1))+1
i=0
do while not (rs.eof or err)
k=k-1
%>
</font>
<td width="8%" align="center" height="23"><%=trim(rs("name"))%> </td>
<td width="8%" align="center" height="23"><%=trim(rs("nichen"))%> </td>
<td width="8%" align="center" height="23"><%=trim(rs("sex"))%> </td>
<td width="10%" align="center" height="23">
<% if trim(rs("year"))="" and trim(rs("month"))="" then %>
〖未知〗
<% else %>
<%=trim(rs("year"))%>年<%=trim(rs("month"))%>月<%=trim(rs("day"))%>日
<% end if %>
</td>
<td width="8%" align="center" height="23">
<% if trim(rs("email"))="" then %>
〖未知〗
<% else %>
<a href="mailto:<%=trim(rs("email"))%>?subject=〖给<%=trim(rs("name"))%>写信!〗">给我写信</a>
<% end if %>
</td>
<td width="8%" align="center" height="23">
<% if trim(rs("url"))="" then %>
〖未知〗
<% else %>
<a href="<%=trim(rs("url"))%>" target="_blank">去我主页</a>
<% end if %>
</td>
<td width="10%" align="center" height="23">
<% if trim(rs("oicq"))="" then %>
〖未知〗
<% else %>
<%=trim(rs("oicq"))%>
<% end if %>
</td>
<td width="7%" align="center" height="23"><a href="deldata.asp?id=<%=rs("id")%>">删除资料</a></td>
</tr>
<%
i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
end sub
%>
</table>
</div>
</td>
</tr>
<tr>
<td width="758" align="center" colspan="7" height="19" valign="middle">
<p align="right"><% if currentpage<1 then %>
<% else %>
<% showpages %>
<% end if %>
</td>
</tr>
</table>
</div>
<%
sub showpages()
If currentPage <> 1 Then
Response.Write "<A HREF=index.asp>【第一页】</A> "
Response.Write "<A HREF=index.asp?Page=" & (currentPage-1) & ">【上一页】</A> "
Response.write "【共<font color=#ff0000>" & totalpages &"</font>页】"
End If
If currentPage <> totalpages Then
Response.Write "<A HREF=index.asp?Page=" & (currentPage+1) & ">【下一页】</A> "
Response.Write "<A HREF=index.asp?Page=" & totalPages & ">【最后一页】</A> "
Response.write "【共<font color=#ff0000>" & totalpages &"</font>页】"
End If
end sub
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -