config.asp

一个小型ASP做的工资管理系统,这也是别人做的,我觉得他很地干静.

set rs=server.createobject("adodb.recordset")
sql="delete from log"
rs.open sql,conn,1,3
response.Redirect("?menu=log")
end if
%>
<table width="95%" border="0" align="center" cellpadding="5" cellspacing="1" class="a2">
  <tr>
    <td colspan="3" class="a1"><div align="center" class="STYLE1">员工登陆信息</div></td>
  </tr>
  <tr>
    <td width="14%" class="a4"><div align="center">姓名</div></td>
    <td width="43%" class="a4"><div align="center">IP地址</div></td>
    <td width="43%" class="a4"><div align="center">登陆时间</div></td>
  </tr>
  <%do while not rs.eof%>
  <tr>
    <td class="a4"><div align="center"><%=rs("name")%> </div></td>
    <td class="a4"><div align="center"><%=rs("ip")%></div></td>
    <td class="a4"><div align="center"><%=rs("time")%></div></td>
  </tr>
  <%rs.movenext
                  loop
                  rs.close
                  set rs=nothing
                  %>
  <tr>
    <td colspan="3" class="a4"><div align="center"><a href="?menu=log&ad=del">清空数据</a></div></td>
  </tr>
</table>
<%end if%>
<%if menu="shen" then
Set rsj = Server.CreateObject("ADODB.Recordset")
sql="select * from [admin] where name='"&user&"'"
rsj.open sql,conn,1,1
if rsj.eof then
Response.Write("<div align=center><br><br><br><br><br><br><br>·不存在该用户或者该用户已经是管理员<br><br><a href='javascript:history.go(-1)'><img border=0 src=menu/face12.gif align=absmiddle><font color=#000000>返回重新填写!</font></a></div>")
else
fen=rsj("fen")
lei=split(fen,"|")
if lei(8)="0" then
Response.Write("<div align=center><img src=menu/face12.gif>贴心提示:“7.可能是您的后台等级不适和该操作;因此系统已自动将其保留,望以后多努力哦!”</div>")
response.End
end if
end if
shen="no"
set rs=server.createobject("adodb.recordset")
sql="select * from [user] where ok='"&shen&"'" 
rs.open sql,conn,1,1

if ad="save" then
name=request("name")
set rsa=server.createobject("adodb.recordset")
sql="select * from [user] where name='"&name&"'" 
rsa.open sql,conn,1,3
rsa("ok")="yes"
rsa.update
rsa.close
response.Redirect("?menu=shen")
end if
%>
<table width="95%" border="0" align="center" cellpadding="5" cellspacing="1" class="a2">
  <tr>
    <td colspan="6" class="a1"><div align="center" class="STYLE1">等待审核信息</div></td>
  </tr>
  <tr>
    <td width="11%" class="a4"><div align="center">姓名</div></td>
    <td width="10%" class="a4"><div align="center">性别</div></td>
    <td width="11%" class="a4"><div align="center">年龄</div></td>
    <td width="21%" class="a4"><div align="center">电话</div></td>
    <td width="30%" class="a4"><div align="center">联系地址</div></td>
    <td width="17%" class="a4"><div align="center">审核</div></td>
  </tr>
  <%do while not rs.eof%>
  <tr>
    <td class="a4"><div align="center"><%=rs("name")%> </div></td>
    <td class="a4"><div align="center"><%=rs("sex")%></div></td>
    <td class="a4"><div align="center"><%=rs("age")%></div></td>
    <td class="a4"><div align="center"><%=rs("tel")%></div></td>
    <td class="a4"><div align="center"><%=rs("add")%></div></td>
    <td class="a4"><div align="center"><a href="?menu=shen&ad=save&name=<%=rs("name")%>">通过</a></div></td>
  </tr>
  <%rs.movenext
                  loop
                  rs.close
                  set rs=nothing
                  %>
</table>
<%end if%>
<%if menu="gonggao" then
Set rsj = Server.CreateObject("ADODB.Recordset")
sql="select * from [admin] where name='"&user&"'"
rsj.open sql,conn,1,1
if rsj.eof then
Response.Write("<div align=center><br><br><br><br><br><br><br>·不存在该用户或者该用户已经是管理员<br><br><a href='javascript:history.go(-1)'><img border=0 src=menu/face12.gif align=absmiddle><font color=#000000>返回重新填写!</font></a></div>")
else
fen=rsj("fen")
lei=split(fen,"|")
if lei(10)="0" then
Response.Write("<div align=center><img src=menu/face12.gif>贴心提示:“9.可能是您的后台等级不适和该操作;因此系统已自动将其保留,望以后多努力哦!”</div>")
response.End
end if
end if
set rs=server.createobject("adodb.recordset")
sql="select * from [gonggao]" 
rs.open sql,conn,1,3
if ad="save" then
rs.addnew
rs("title")=request("title")
rs("content")=request("content")
rs("name")=request("name")
rs.update
rs.close
response.write "<script>alert('公告添加成功。');location.href='?menu=gonggao'</script>"
end if
%>
<table width="95%" border="0" align="center" cellpadding="5" cellspacing="1" class="a2">
  <form name="form1" method="post" action="?menu=gonggao&ad=save">
    <tr>
      <td colspan="2" class="a1"><div align="center" class="STYLE1">添加公告</div></td>
    </tr>
    <tr>
      <td width="17%" class="a4">公告主题：</td>
      <td width="83%" class="a4"><input name="title" type="text" id="title" size="40" maxlength="15"></td>
    </tr>
    <tr>
      <td class="a4">公告说明：</td>
      <td width="83%" class="a4"><textarea name="content" cols="40" rows="5" id="content"></textarea></td>
    </tr>
    <tr>
      <td class="a4">发布人：</td>
      <td width="83%" class="a4"><input name="name" type="text" id="name" value="<%=user%>" maxlength="10"></td>
    </tr>
    <tr>
      <td colspan="2" class="a4"><div align="center">
        <input type="submit" name="Submit223" value="提交">
      </div></td>
    </tr>
  </form>
</table>
<%end if%>
<%if menu="glist" then
Set rsj = Server.CreateObject("ADODB.Recordset")
sql="select * from [admin] where name='"&user&"'"
rsj.open sql,conn,1,1
if rsj.eof then
Response.Write("<div align=center><br><br><br><br><br><br><br>·不存在该用户或者该用户已经是管理员<br><br><a href='javascript:history.go(-1)'><img border=0 src=menu/face12.gif align=absmiddle><font color=#000000>返回重新填写!</font></a></div>")
else
fen=rsj("fen")
lei=split(fen,"|")
if lei(11)="0" then
Response.Write("<div align=center><img src=menu/face12.gif>贴心提示:“10.可能是您的后台等级不适和该操作;因此系统已自动将其保留,望以后多努力哦!”</div>")
response.End
end if
end if
set rs=server.createobject("adodb.recordset")
sql="select * from [gonggao]" 
rs.open sql,conn,1,1

if ad="save" then
id=request("id")
set rsa=server.createobject("adodb.recordset")
sql="delete * from [gonggao] where id="&id 
rsa.open sql,conn,1,3
response.Redirect("?menu=glist")
end if
%>
<table width="95%" border="0" align="center" cellpadding="5" cellspacing="1" class="a2">
  <tr>
    <td colspan="5" class="a1"><div align="center" class="STYLE1">公告信息</div></td>
  </tr>
  <tr>
    <td width="17%" class="a4"><div align="center">标题</div></td>
    <td width="39%" class="a4"><div align="center">内容</div></td>
    <td width="11%" class="a4"><div align="center">发布者</div></td>
    <td width="21%" class="a4"><div align="center">发布时间</div></td>
    <td width="12%" class="a4"><div align="center"></div></td>
  </tr>
  <%do while not rs.eof%>
  <tr>
    <td class="a4"><div align="center"><%=rs("title")%> </div></td>
    <td class="a4"><div align="center"><%if len(rs("content"))>20 then
					  Response.Write left(rs("content"),20)+"....."
					  else
					  Response.Write rs("content")
					  end if
					  %></div></td>
    <td class="a4"><div align="center"><%=rs("name")%></div></td>
    <td class="a4"><div align="center"><%=rs("time")%></div></td>
    <td class="a4"><div align="center"><a href="?menu=glist&ad=save&id=<%=rs("id")%>">删除</a></div></td>
  </tr>
  <%rs.movenext
                  loop
                  rs.close
                  set rs=nothing
                  %>
</table>
<%end if%>
<%if menu="gbook" then
Set rsj = Server.CreateObject("ADODB.Recordset")
sql="select * from [admin] where name='"&user&"'"
rsj.open sql,conn,1,1
if rsj.eof then
Response.Write("<div align=center><br><br><br><br><br><br><br>·不存在该用户或者该用户已经是管理员<br><br><a href='javascript:history.go(-1)'><img border=0 src=menu/face12.gif align=absmiddle><font color=#000000>返回重新填写!</font></a></div>")
else
fen=rsj("fen")
lei=split(fen,"|")
if lei(12)="0" then
Response.Write("<div align=center><img src=menu/face12.gif>贴心提示:“13.可能是您的后台等级不适和该操作;因此系统已自动将其保留,望以后多努力哦!”</div>")
response.End
end if
end if
set rs=server.createobject("adodb.recordset")
sql="select * from [gbook] where sname='"&user&"'" 
rs.open sql,conn,1,1

if ad="save" then
id=request("id")
set rsa=server.createobject("adodb.recordset")
sql="delete * from [gbook] where id="&id 
rsa.open sql,conn,1,3
response.Redirect("?menu=gbook")
end if
%>
<table width="95%" border="0" align="center" cellpadding="5" cellspacing="1" class="a2">
  <tr>
    <td colspan="5" class="a1"><div align="center" class="STYLE1">留言信息管理</div></td>
  </tr>
  <tr>
    <td width="17%" class="a4"><div align="center">标题</div></td>
    <td width="39%" class="a4"><div align="center">内容</div></td>
    <td class="a4"><div align="center">发布者</div></td>
    <td width="11%" class="a4"><div align="center">发布时间</div></td>
    <td width="12%" class="a4"><div align="center"></div></td>
  </tr>
  <%do while not rs.eof%>
  <tr>
    <td class="a4"><div align="center"><%=rs("title")%> </div></td>
    <td class="a4"><div align="center"><%=rs("content")%></div></td>
    <td class="a4"><div align="center"><%=rs("name")%></div></td>
    <td class="a4"><div align="center"><%=rs("time")%></div></td>
    <td class="a4"><div align="center"><a href="?menu=gbook&ad=save&id=<%=rs("id")%>">删除</a></div></td>
  </tr>
  <%rs.movenext
                  loop
                  rs.close
                  set rs=nothing
                  %>
</table>
<%end if%>

<%if menu="gbook2" then
Set rsj = Server.CreateObject("ADODB.Recordset")
sql="select * from [admin] where name='"&user&"'"
rsj.open sql,conn,1,1
if rsj.eof then
Response.Write("<div align=center><br><br><br><br><br><br><br>·不存在该用户或者该用户已经是管理员<br><br><a href='javascript:history.go(-1)'><img border=0 src=menu/face12.gif align=absmiddle><font color=#000000>返回重新填写!</font></a></div>")
else
fen=rsj("fen")
lei=split(fen,"|")
if lei(13)="0" then
Response.Write("<div align=center><img src=menu/face12.gif>贴心提示:“14.可能是您的后台等级不适和该操作;因此系统已自动将其保留,望以后多努力哦!”</div>")
response.End
end if
end if
qun=request("qun")
set rs=server.createobject("adodb.recordset")
sql="select * from [gbook]" 
rs.open sql,conn,1,3

if ad="save" then
rs.addnew
rs("title")=request("title")
rs("content")=request("content")
rs("name")=Request.Cookies("aduser")
rs("sname")=request("sname")
rs.update
rs.close
response.write "<script>alert('留言发送成功。');location.href='?menu=gbook2'</script>"
end if

if ad="qun" then

set rsvl=server.createobject("adodb.recordset")
sql="select * from [user]" 
rsvl.open sql,conn,1,3
do while not rsvl.eof
sname=rsvl("name")
rs.addnew
rs("title")=request("title")
rs("content")=request("content")
rs("name")=Request.Cookies("aduser")
rs("sname")=sname
rs.update

rsvl.movenext
loop
rsvl.close
set rsvl=nothing
response.write "<script>alert('群发留言发送成功。');location.href='?menu=gbook2'</script>"
end if

set rsvl=server.createobject("adodb.recordset")
sql="select * from [user]" 
rsvl.open sql,conn,1,3
%>
<table width="95%" border="0" align="center" cellpadding="5" cellspacing="1" class="a2">
  <form name="form1" method="post" action="?menu=gbook2">
    <tr>
      <td colspan="2" class="a1"><div align="center" class="STYLE1">发布留言</div></td>
    </tr>
    <tr>
      <td width="17%" class="a4">主 题：</td>
      <td width="83%" class="a4"><input name="title" type="text" id="title" size="40"></td>
    </tr>
    <tr>
      <td class="a4">信息内容：</td>
      <td width="83%" class="a4"><textarea name="content" cols="40" rows="5" id="content"></textarea></td>
    </tr>
    <tr>
      <td class="a4">接收人：</td>
      <td width="83%" class="a4"><select name="sname" id="sname">
        <%do while not rsvl.eof%>
        <option value="<%=rsvl("name")%>"><%=rsvl("name")%> - <%=rsvl("zhiwei")%></option>
        <%rsvl.movenext
                  loop
                  rsvl.close
                  set rsvl=nothing
                  %>
      </select></td>
    </tr>
    <tr>
      <td class="a4">发给所有员工：</td>
      <td width="83%" class="a4"><input type="radio" name="ad" value="qun">
        群发
          <input name="ad" type="radio" value="save" checked>
        普通</td>
    </tr>
    <tr>
      <td colspan="2" class="a4"><div align="center">
        <input type="submit" name="Submit2232" value="提交">
      </div></td>
    </tr>
  </form>
</table>
<%end if%>
<%if menu="zhiwei" then
Set rsj = Server.CreateObject("ADODB.Recordset")
sql="select * from [admin] where name='"&user&"'"
rsj.open sql,conn,1,1
if rsj.eof then
Response.Write("<div align=center><br><br><br><br><br><br><br>·不存在该用户或者该用户已经是管理员<br><br><a href='javascript:history.go(-1)'><img border=0 src=menu/face12.gif align=absmiddle><font color=#000000>返回重新填写!</font></a></div>")