moban.asp

人才招聘系统,用asp做的

<!--#include file=../conn.asp-->
<!--#include file=usercookies.asp-->
<!--#include file=onlinerz.asp-->
<meta http-equiv="Content-Language" content="zh-cn">
<link rel="stylesheet" type="text/css" href="../1.css">
<%
dim rs,sql,rs1,sql1,k
if request("ok")<>1 then
list
else
ok
end if
%>
<%sub list()%>
<div align="center">
<form action="?ok=1" method="POST">
  <center>
  <table border="1" cellspacing="1" style="border-collapse: collapse; border-bottom-width: 0" bordercolor="#99CCFF" width="60%">
    <tr>
      <td width="35%" style="border-right-style: none; border-right-width: medium; border-bottom-style: none; border-bottom-width: medium" height="30" bgcolor="#E1F0FF">
      <p align="center">模板名称：</td>
      <td width="65%" style="border-left-style: none; border-left-width: medium; border-bottom-style: none; border-bottom-width: medium" height="30" bgcolor="#E1F0FF">&nbsp;<input type="text" name="name" size="29" maxlength="20"> 
      例：<font color="#FF0000">夕阳彩虹</font></td>
    </tr>
    <tr>
      <td width="35%" style="border-right-style: none; border-right-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium" height="30" bgcolor="#E1F0FF">
      <p align="center">模板文件名：</td>
      <td width="65%" style="border-left-style: none; border-left-width: medium; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium" height="30" bgcolor="#E1F0FF">&nbsp;<input type="text" name="filename" size="29" maxlength="20"> 
      例：<font color="#FF0000">1.asp</font></td>
    </tr>
    <tr>
      <td width="100%" colspan="2" style="border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium" height="30" bgcolor="#E1F0FF">
      <p align="center"><font color="#FF0000">
      模板文件名不要和person/skin/下的文件同名，所有的SKIN上传到该目录下</font></td>
    </tr>
    <tr>
      <td width="100%" colspan="2" style="border-top-style: none; border-top-width: medium; border-bottom-width: 1" bordercolor="#99CCFF" bgcolor="#E1F0FF">
      <p align="center">
      <input border="0" src="../img/x_1.gif" name="I1" type="image"></td>
    </tr>
  </table>
  </center>
  </form>
</div>
<table border="0" cellspacing="1" style="border-collapse: collapse" bordercolor="#111111" width="100%">
  <tr>
    <td width="100%">
    <p align="center">下面显示了已经上传的SKIN</td>
  </tr>
</table>
<div align="center">
  <center>
  <table border="1" cellspacing="1" style="border-collapse: collapse" bordercolor="#E1F0FF" width="60%" height="57" bgcolor="#E1F0FF">
    <tr>
<%
set rs1=server.createobject("adodb.recordset")
sql1="select * from [moban] order by filename desc"
rs1.open sql1,conn,1,1
%>
      <td width="10%" style="border-bottom-style: none; border-bottom-width: medium" height="25" bgcolor="#99CCFF">
      <p align="left">编号</td>
      <td width="27%" style="border-bottom-style: none; border-bottom-width: medium" height="25" bgcolor="#99CCFF">
      模板名称</td>
      <td width="32%" style="border-bottom-style: none; border-bottom-width: medium" height="25" bgcolor="#99CCFF">
      文件名</td>
      <td width="31%" style="border-bottom-style: none; border-bottom-width: medium" height="25" bgcolor="#99CCFF">
      上传日期</td>
    </tr>
<%
k=1
do while not rs1.eof%>
    <tr>
      <td width="10%"  height="25" bgcolor="#ECF5FF"><%=k%></td>
      <td width="27%"  height="25" bgcolor="#ECF5FF"><%=rs1("name")%></td>
      <td width="32%"  height="25" bgcolor="#ECF5FF"><%=rs1("filename")%></td>
      <td width="31%"  height="25" bgcolor="#ECF5FF"><%=rs1("data")%></td>
    </tr>
<%
rs1.movenext
k=k+1
loop
rs1.close
set rs1=nothing
%>
    <tr>
    </tr>
  </table>
  </center>
</div>

<%end sub%>
<%
sub ok()
if request("name")="" or request("filename")="" then
response.write "<li>请填写完整！"
response.write "<meta http-equiv=refresh content=""1;URL=moban.asp"">"
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select * from [moban] where Name='"&request("Name")&"' and filename='"&request("filename")&"'"
rs.open sql,conn,1,3
if rs.eof or rs.bof then
rs.addnew
rs("name")=request("name")
rs("filename")=request("filename")
rs("data")=now()
rs.update
rs.close
set rs=nothing
else
response.write "<li>名称重复！"
response.end
response.write "<meta http-equiv=refresh content=""1;URL=moban.asp"">"
end if
response.write "<li>添加模板成功！"
response.write "<br>"+"<li>正在返回管理系统....请稍等!!!!!"
response.write "<meta http-equiv=refresh content=""2;URL=moban.asp"">"
end sub
closedb
%>