📄 myresume.asp

📁 学校用的班级网站
💻 ASP
字号:
<%t1=now%>
<!-- #include file="inc/db.inc" -->
<!-- #include file="inc/func.inc" -->
<!-- #include file="char.asp" -->
<%
userid=session("myuserid")
password=session("mypwd")
if isman(userid,password)=0 then
%>
<script>
alert("你不是管理员，无权进入！");
parent.location.href="index.asp";
</script>
<%
else%>
<html>
<head>
<title>个人简历管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="jscs/css.CSS" type=text/css rel=stylesheet>
<script language="JavaScript" src="jscs/jsfun.js"></script>
</head>
<%
sub alldelete()


sql="select id from [resume]"
set rs=conn.execute(sql)

if rs.eof then
	errmsg="操作失败！目前没有个人简历！\n"
	call error(errmsg,"javascript:history.back()")
	exit sub
end if

i=0
do until rs.eof
	call delresume(rs(0))
	rs.movenext
	i=i+1
loop

set rs=nothing

stitle="删除简历"
smsg="您已经成功的删除了"&i&"条简历！\n"
call success(stitle,smsg,"myresume.asp")
end sub

sub seldelete()
   

dim idlist,idarr,id

If request("id")="" then
	Errmsg="请选择所要删除的个人简历！\n"
	call error(errmsg,"javascript:history.back()")
	exit sub
end if

idlist=request("id")

if instr(idlist,",")>0 then
	idArr=split(idlist)
	for i = 0 to ubound(idarr)
		id=clng(idarr(i))
		call delresume(id)
	next
else
	call delresume(clng(idlist))
end if


stitle="删除个人简历"
smsg="您已经成功删除了个人简历！"
call success(stitle,smsg,"myresume.asp")

End sub


sub delresume(id)

sql="delete from [resume] where id="&id
conn.execute(sql)

end sub

sub showresume()
	
%>      
<table width="75%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#0099CC">
  <form action="myresume.asp" method="post" name="notice">
    <tr bgcolor="#99CCFF"> 
      <td colspan="4"> <div align="center"><strong>:::个人简历管理:::</strong></div>
        <div align="center"></div></td>
    </tr>
    <tr bgcolor="#D2E9FE"> 
      <td width="25%"><div align="center"><strong>时间</strong></div></td>
      <td width="25%"><div align="center"><strong>发布者</strong></div></td>
      <td width="25%"><div align="center"><strong>查看次数</strong></div></td>
      <td width="25%" bgcolor="#D2E9FE"><div align="center"><strong>操作</strong></div></td>
    </tr>
    <%
	set rs=server.createobject("ADODB.Recordset")
	sql="select * from resume order by id desc"
	rs.open sql,conn,1,1
	if rs.eof or rs.bof then%>
<tr><td colspan="4">目前没有个人简历</td></tr>
<%
	else
	Rs.Pagesize =5
	Pageno = CLng(Request("page")) 
	If Pageno < 1 Then Pageno = 1
	If Pageno > Rs.PageCount Then Pageno = Rs.PageCount
	If pageNo = "" Then Pageno = 1
		'Sub Showpage(Rs,pageno) 
		Rs.AbsolutePage = Pageno
		for I =1 To Rs.PageSize
		%>
    <tr bgcolor="#D2E9FE"> 
      <td> <div align="center"><%=rs("regtime")%></div></td>
      <td> <div align="center"><%=rs("userid")%></div></td>
      <td><div align="center"><%=rs("lookcnt")%></div></td>
      <td> <div align="center"> 
          <input type="checkbox" name="id" value="<%=rs("id")%>">
        </div></td>
    </tr>
    <%
Rs.Movenext
If Rs.Eof Then Exit For
Next
'end sub
end if%>
    <% 'showpage rs,pageno %>
    <tr bgcolor="#99CCFF"> 
      <td colspan="4"><div align="right"> 
 <input type=checkbox name=chkall value=on onClick="return CheckAll(this.form)">选中所有显示记录&nbsp;<input type=submit name=action onClick="{if(confirm('确定删除选定的纪录吗?')){this.document.notice.submit();return true;}return false;}" value="删除所选">&nbsp;<input type=submit name=action onClick="{if(confirm('确定清除所有的纪录吗?')){this.document.notice.submit();return true;}return false;}" value="全部删除">
        </div></td>
    </tr>
  </form>
</table>

<table width="80%" border="0" align="center">
  <tr>
    <td><div align="right"><%
If Pageno <>1 Then
	Response.Write "&nbsp;<A href=mynotes.asp>首页</A>&nbsp;"
	Response.Write "&nbsp;<A href=mynotes.asp?page=" & (Pageno-1) & ">前页</A>&nbsp;"
Else
	Response.Write "&nbsp;首页&nbsp;"
	Response.Write "&nbsp;前页&nbsp;"
End If
If Pageno <> rs.PageCount Then
	Response.Write "&nbsp;<A href=mynotes.asp?page=" & (Pageno+1) & ">后页</A>&nbsp;"
	Response.Write "&nbsp;<A href=mynotes.asp?page=" & (Rs.PageCount) & ">末页</A>&nbsp;"
Else
	Response.Write "&nbsp;后页&nbsp;"
	Response.Write "&nbsp;末页&nbsp;"
End If
%>位置<%=pageno%>/<%=rs.pagecount%></div></td>
  </tr>
</table>
<%end sub%>

<body bgcolor="#F2F8FF">
<br><br><Br>
  <%if request("action")="全部删除" then
	call alldelete()
elseif request("action")="删除所选"then
	call seldelete()
elseif request("action")="发布公告" then
	'call upform()
elseif request("action")="upload" then
	'call addnow()
else
	call showresume()
end if%>
<br>
<!--#include file="inc/footer.inc"-->
<%t2=now()
response.write "页面执行时间:"&formatnumber( (t2-t1)*24*60*60,5)&"秒 </div>"
response.end
%>
</body>
</html>
<%end if%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -