manage_jobbook.asp

烈火之家整站程序 本程序集商业娱乐一体,本来是给自己用的但是我的国外空间支持不够好,就送给大家了. 1. 栏目包括 最新信息,下载,影音娱乐,作品展示,定制业务,支持服务,留言,关于本站. 2.管理员

<%@ LANGUAGE="VBScript" %>
<!--#include file="admin.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="../inc/articlechar.inc"-->
<!-- #include file="../Inc/Head.asp" -->
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
  <tr class=a4> 
    <td align="center" valign="top">
      <table width="550" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td height="20"> <div align="center"><strong>业务管理
              </strong></div></td>
        </tr>
        <tr> 
			<td><div align="center"> 
			<% 
const MaxPerPage=5 '分页显示的纪录个数 
dim sql 
dim rs 
dim totalPut 
dim CurrentPage 
dim TotalPages 
dim i,j 
 
 
if not isempty(request("page")) then 
currentPage=cint(request("page")) 
else 
currentPage=1 
end if 
set rs=server.createobject("adodb.recordset") 
sql="select * from jobbook order by id desc" 
rs.open sql,conn,1,1 
 
if rs.eof and rs.bof then 
response.write "<p align='center'>还没有任何业务信息!</p>" 
else 
totalPut=rs.recordcount 
totalPut=rs.recordcount 
if currentpage<1 then 
currentpage=1 
end if 
if (currentpage-1)*MaxPerPage>totalput then 
if (totalPut mod MaxPerPage)=0 then 
currentpage= totalPut \ MaxPerPage 
else 
currentpage= totalPut \ MaxPerPage + 1 
end if 
end if 
if currentPage=1 then 
showpages 
showContent 
showpages 
else 
if (currentPage-1)*MaxPerPage<totalPut then 
rs.move (currentPage-1)*MaxPerPage 
dim bookmark 
bookmark=rs.bookmark 
showpages 
showContent 
showpages 
else 
currentPage=1 
showContent 
end if 
end if 
rs.close 
end if 
set rs=nothing 
conn.close 
set conn=nothing 
sub showContent 
dim i 
i=0 
do while not (rs.eof or err) %>
                
              <table width="100%" border="0" cellspacing="2" cellpadding="3">
                <tr bgcolor="#C0C0C0"> 
                  <td width="16%" height="25" bgcolor="#C0C0C0"> <div align="center">定制业务</div></td>
                  <td colspan="2" bgcolor="#C0C0C0">&nbsp;<b><%=rs("jobname")%></b> 
                    &nbsp; </td>
                  <td bgcolor="#C0C0C0"><a href="Deljobbook.asp?id=<%=rs("ID")%>">删除</a>&nbsp;&nbsp;&nbsp;<a href="Sendmail.asp?email=<%=rs("email")%>">发信</a> 
                  </td>
                </tr>
                <%if rs("email")<>"" then%>
                <tr bgcolor="#E3E3E3"> 
                  <td height="10"> <div align="center">公司/企业</div></td>
                  <td width="41%" bgcolor="#E3E3E3">&nbsp;<%=rs("school")%>&nbsp;</td>
                  <td width="13%" bgcolor="#E3E3E3"><div align="center"><font color="#FF0000">定制日期</font></div></td>
                  <td width="30%" bgcolor="#E3E3E3"><font color="#FF0000"><%=rs("time")%></font></td>
                </tr>
                <tr bgcolor="#E3E3E3"> 
                  <td height="22" bgcolor="#E3E3E3"> <div align="center">电话</div></td>
                  <td bgcolor="#E3E3E3">&nbsp;<%=rs("telephone")%></td>
                  <td bgcolor="#E3E3E3"><div align="center">联系人</div></td>
                  <td bgcolor="#E3E3E3"><%=rs("mane")%></td>
                </tr>
                <tr bgcolor="#E3E3E3"> 
                  <td height="22"><div align="center">联系地址</div></td>
                  <td colspan="3" bgcolor="#E3E3E3">&nbsp;<%=rs("address")%></td>
                </tr>
                <tr bgcolor="#E3E3E3"> 
                  <td height="22"><div align="center">E-mail</div></td>
                  <td bgcolor="#E3E3E3">&nbsp;<a href="Sendmail.asp?email=<%=rs("email")%>"><%=rs("email")%></a></td>
                  <td bgcolor="#E3E3E3"><div align="center">QQ号</div></td>
                  <td bgcolor="#E3E3E3"><%=rs("specialty")%></td>
                </tr>
                <tr bgcolor="#E3E3E3"> 
                  <td height="22"><div align="center">借 鉴 一</div></td>
                  <td bgcolor="#E3E3E3">&nbsp;<a href=<%=rs("gradyear")%> target=_blank><%=rs("gradyear")%></td>
                  <td bgcolor="#E3E3E3"><div align="center">邮编</div></td>
                  <td bgcolor="#E3E3E3"><%=rs("studydegree")%></td>
                </tr>
                <tr bgcolor="#E3E3E3"> 
                  <td height="22"><div align="center">借 鉴 二</div></td>
                  <td colspan="3" bgcolor="#E3E3E3">&nbsp;<a href=<%=rs("birthday")%> target=_blank><%=rs("birthday")%></a></td>
                </tr>
                <%end if%>
                <tr bgcolor="#C0C0C0"> 
                  <td height="25" bgcolor="#C0C0C0"><div align="center">网站风格</div></td>
                  <td height="25" colspan="3">&nbsp;<%=rs("ability")%></td>
                </tr>
                <tr bgcolor="#E3E3E3"> 
                  <td height="25" bgcolor="#C0C0C0"> <div align="center">需要栏目</div></td>
                  <td height="25" colspan="3" bgcolor="#C0C0C0">&nbsp;<%=rs("resumes")%></td>
                </tr>
              </table>
              </div></td>
        </tr>
      </table>
      <br>
      <table width="550" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td><div align="center"><% i=i+1 
if i>=MaxPerPage then exit do 
rs.movenext 
loop 
end sub 
sub showpages() 
dim n 
if (totalPut mod MaxPerPage)=0 then 
n= totalPut \ MaxPerPage 
else 
n= totalPut \ MaxPerPage + 1 
end if 
if n=1 then 
response.write "业务管理页面" 
 
exit sub 
end if 
dim k 
response.write "<p align='left'>&gt;&gt; 分页 " 
for k=1 to n 
if k=currentPage then 
response.write "[<b>"+Cstr(k)+"</b>] " 
else 
response.write "[<b>"+"<a href='Manage_JobBook.asp?page="+cstr(k)+"'>"+Cstr(k)+"</a></b>] " 
end if 
next 
end sub 
%></div></td>
        </tr>
      </table> 
      <br>
      <br>
    </td>
  </tr>
</table>
<!-- #include file="../Inc/Foot.asp" -->