📄 fun.asp
字号:
<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''版权：野马原创 ''''
''''联系：ctplr@163.com ''''
''''说明：需要新功能联系我 ''''
''''QQ:2643148 ''''
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%>
<!--#include file="conn.asp"-->
<!--#include file="ubbcode.asp"-->
<!--#include file="webinfo.asp"-->
<link href=../css.css rel=stylesheet>
<%
sub jianjie()
sql="select * from webset "
rs.open sql,cn,1,1
text=rs("jianjie")
rs.close
if trim(text)<>"" then
response.write ubbcode(text)
else
response.write "没有简介"
end if
end sub
%>
<%
'##########################|| 论 坛 新 贴 ||########################################
sub bbs()
%>
<center><font color=red>您可以修改fun.asp里面的bbs子过程来替换这里的内容。</font></center>
<%end sub
'##########################|| 论 坛 新 贴 结 束||########################################
%>
<%
'##########################|| 公 告 开 始 ||########################################
sub annouce()
sql="select * from annouce order by id DESC"
rs.open sql,cn,1,1
do while not rs.eof
title=rs("title")
id=rs("id")
response.write "<img src=images/go.gif> <a href=annouceview.asp?ggid="&id&" target=_blank>"&title&"</a>"
rs.movenext
loop
if (rs.eof and rs. bof) then
response.write "还没有公告"
end if
rs.close
end sub
'##########################|| 公 告 结 束 ||########################################
%>
<%'##########################|| 字符过滤开始 ||########################################
function guolv(Str)
if not isnull(Str) then
Dim re,po,ii
'Str = replace(Str, """", "\""")
Str = Replace(Str, CHR(9), " ")
Str = Replace(Str, CHR(39), "'")
Str = Replace(Str, CHR(13), "")
Str = Replace(Str, CHR(10) & CHR(13), "</P><P> ")
Str = Replace(Str, CHR(10), "")
Str = Replace(Str, "‘", "'")
Str = Replace(Str, "’", "'")
'网友冷情圣郎提供
Str = Replace(Str, "\", "\\")
Str = Replace(Str, CHR(32), " ")
Str = Replace(Str, CHR(34), "\""")
Str = Replace(Str, CHR(39), "'")
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
po=0
ii=0
re.Pattern="(javascript)"
Str=re.Replace(Str,"<I>javascript</I>")
re.Pattern="(jscript:)"
Str=re.Replace(Str,"<I>jscript:</I>")
re.Pattern="(js:)"
Str=re.Replace(Str,"<I>js:</I>")
re.Pattern="(</SCRIPT>)"
Str=re.Replace(Str,"</script>")
re.Pattern="(<SCRIPT)"
Str=re.Replace(Str,"<script")
Str = replace(Str, ">", ">")
Str = replace(Str, "<", "<")
Str = replace(Str, """", """)
Str = Replace(Str, CHR(32), " ")
Str = Replace(Str, CHR(9), " ")
Str = Replace(Str, CHR(34), """)
Str = Replace(Str, CHR(39), "'")
Str = Replace(Str, CHR(13), "")
Str = Replace(Str, CHR(10) & CHR(10), "</P><P> ")
Str = Replace(Str, CHR(10), "<BR>")
Str=ChkBadWords(Str)
guolv = Str
End if
end Function
'##########################|| 字符过滤结束 ||########################################
%>
<%
'##########################|| 未审核人员 ||########################################
sub noshenhe()
rs.PageSize=shenhenum
if Request.QueryString("page")<>"" then
curpage=cint(Request.QueryString("page"))
else
curpage=1
end if
sql="select * from ct_sql where noshenhe=0"
rs.Open sql,cn,1,1
pagenum=rs.PageCount
if curpage>pagenum then
curpage=pagenum
end if
rs.AbsolutePage =curpage
if (rs.eof and rs.bof) then
response.write "没有记录"
else
%>
<table border=1 bordercolor=#3399ff bgcolor=#E4F7FE>
<tr>
<td align=center bgcolor=#eeeeee >真实姓名</td>
<td align=center bgcolor=#eeeeee > 签到状况</td>
<td bgcolor=#eeeeee align=center >奖励得分</td>
<td bgcolor=#eeeeee align=center >惩罚失分</td>
<td bgcolor=#eeeeee align=center >账号状态</td>
<td bgcolor=#eeeeee align=center >工资情况</td>
<td bgcolor=#eeeeee align=center title="今天是<%=date()%>">本月签到</td>
<td bgcolor=#eeeeee align=center >备 注</td>
</tr>
<% do while not rs.eof and shenhenum>0
name=rs("realname")
%>
<tr>
<td align=center>
<% if lockstaut=-1 then %><font color=red title="被锁定">
<b ><%=name %></b >
<%else%>
<%=name %>
<%end if%>
</td>
<td align=center>
<% if noshenhe=0 then %><font color=#aaaaaa title="等待审核……">
0
<%else%>
0
<%end if%>
</td>
<td align=center>
<% if noshenhe=0 then %><font color=#aaaaaa title="等待审核……">
0
<%else%>
0
<%end if%>
</td>
<td align=center>
<% if noshenhe=0 then %><font color=#aaaaaa title="等待审核……">
0
<%else%>
0
<%end if%>
</td>
<td align=center>
<% if noshenhe=0 then %>
<a href=login.asp title="登陆看看具体情况"><font color=red>等待审核……</font></a>
<%else%>
正常
<%end if%>
</td>
<% if isquexi=0 then %>
<td align=center width=50>
<% if noshenhe=0 then %><font color=#aaaaaa title="等待审核……">
0
<%else%>
0
<%end if%>
</td>
<%end if%>
<% if iswenzhang=0 then %>
<td align=center width=50>
<% if noshenhe=0 then %><font color=#aaaaaa title="等待审核……">
0
<%else%>
0
<%end if%>
</td>
<%end if%>
<% if ispaiming=0 then %>
<td align=center>
<% if noshenhe=0 then %><font color=#aaaaaa title="等待审核……">
0 <%else%>
0
<%end if%>
<%end if%>
</td>
</tr>
<% rs.movenext
shenhenum=shenhenum-1
loop
response.write"</table>"
end if
rs.close
set rs=nothing
Response.Write "<center>一共有[<font color=red>"&pagenum&"</font>]页 | "
Response.Write "[<a href=noshenhe.asp?page=1>首 页</a>] "
if curpage>1 then
Response.Write "[<b><a name=up href=noshenhe.asp?page=" & (curpage-1) & " >上一页</a></b> ] "
end if
if curpage<pagenum then
Response.Write "[<b><a name=down href=noshenhe.asp?page=" & (curpage+1) & " >下一页</a></b>] "
end if
Response.Write " [<a href=noshenhe.asp?page="&pagenum&">尾 页</a>]"
Response.Write " 当前是第[<font color=red>"&curpage&"</font>]页</center>"
rs.Close
set rs=nothing
cn.close
set cn=nothing
end sub
'##########################|| 自助注册 || ###############################
sub sign()
if zizhusign=0 then
%>
<p align=center><font color=white size=7><br><br>系统没有开放<br><br><br><br>自助注册</font></p>
<%else
usernamea=request.form("username")
sql="select username from ct_sql where username='"&usernamea&"'"
rs.open sql,cn,1,1
if not rs.eof then
response.write "<script>alert('该用户名存在，请重新选择！');history.back();</script>"
else
%>
<center><br>
<strong><font color=white><img src="images/Arrow002.gif" width="29" height="11">注意：本自动注册只是为了减轻管理员添加人员负担。非本系统人员请不要注册，以免加重管理员维护数据负担！<br>
<font color=#ffeeff>通过自助注册的人员默认为状态为<font color=yellow>尚未审核 </font> 密码为 <font color=yellow>1234</font></font></strong>
</font><form action="?action=signloginin" method=post>
<table border=1 bgcolor=#E4F7FE bordercolor=#3399ff><br>
<tr align="center" >
<td height="23" colspan="4" background="images/NavBG.gif"> <img src="images/User.gif" width="19" height="20"><font color=ffaa00>自助注册页面</font></td>
</tr>
<tr >
<td height="5" colspan="4" align="center" bordercolor="#FF9900" background="images/loginLine.gif" > </td>
</tr>
<tr><td width=80>登陆帐号</td><td><input type=text name=pname size=12 readonly value=<%=request.form("username")%> class=bbox></td>
<td width=80>职务</td><td><input type=radio name=zw value="员工" checked>员 工
<input type=radio name=zw value="组管理者" >组管理者</td></tr>
<tr><td width=80>真实姓名</td><td><input type=text name='prealname' size=12></td><td width=80>工作组</td><td>
<select name="ptype" >
<option value=0>--选择--</option>
<%
sql="select * from type"
rs1.open sql,cn,1,1
do while not rs1.eof
tname=rs1("typename")
%>
<option value=<%=rs1("type")%> ><%=tname%>
<%
rs1.movenext
loop
rs1.close
%>
</select>
</td></tr>
<tr>
<td width=80 bgcolor="#aaccff" >您的 QQ</td>
<td bgcolor="#aaccff"><input type text name=QQ size=12></td>
<td width=80 bgcolor="#aaccff">身 份 证</td>
<td bgcolor="#aaccff"><input type text name=lifecode size=20 maxlength=18 ></td></tr>
<tr>
<td width=80>您的电话</td>
<td><input type text name=phone size=12 maxlength=12></td>
<td width=80>您的地址</td>
<td><input type text name=address size=20 ></td></tr>
<tr>
<td width=80 bgcolor="#aaccff">您的手机</td>
<td bgcolor="#aaccff"><input type text name=mobile size=12 maxlength=11></td>
<td width=80 bgcolor="#aaccff">您的email</td>
<td bgcolor="#aaccff"><input type text name=email size=20 ></td>
</tr>
<tr>
<td >您的年龄 </td>
<td> <input type text name=age size=8 maxlength=3></td>
<td >您的性别 </td>
<td>
<input type=radio name=sex value="男" checked>男<input type=radio name=sex value="女">女</td>
</tr>
<tr>
<td colspan="2" bgcolor="#aaccff">取回密码问题 </td>
<td colspan="2" bgcolor="#aaccff"> <input name=passask type=text >建议填写 </td>
</tr>
<tr>
<td colspan="2">取回密码答案 </td>
<td colspan="2"> <input name=passanwser type=text >建议填写 </td>
</tr>
<tr >
<td height="5" colspan="4" align="center" bordercolor="#FF9900" background="images/bj.gif"> <input type=submit value="提交" class=ibox> <input type=reset value="重置" class=ibox> </td>
</tr>
<tr >
<td height="5" colspan="4" align="center" bordercolor="#FF9900" background="images/loginLine.gif" > </td>
</tr>
</table> </form>
</center>
<%
end if
end if
end sub
'##########################|| 自助注册 end || ###############################
%>
<%
'##########################|| 账户信息 || ###############################
sub zhinf()
aid=session("id")
sql="select * from ct_sql where id="&aid
rs.open sql,cn,1,1
payall=rs("payall")
monthpay=rs("monthpay")
todaypay=rs("todaypay")
shenhe=rs("noshenhe")
todayallworktime=rs("todayallworktime")
lastpay=rs("lastpay")
mustqdok=rs("mustqdok")
yestodaypay=rs("yestodaypay")
qdstuts=datediff("d",oldtime,nowtime)
todayworktime=rs("todayworktime")
monthworktime=rs("monthworktime")
allworktime=rs("allworktime")
todayusefulworktime=rs("todayusefulworktime")
todayqd=rs("todayqd")
%>
<%if shenhe=1 then
%>
<div align=left>
<table width="40%" bgcolor="#f8f8f8">
<tr>
<td align=center bgcolor="#f8f8f8" ><font color=red>工作和账户</font></td>
<td bgcolor="#e8e8e8" align=center onmouseover="javascript:this.bgColor='#ddccff'" onmouseout="javascript:this.bgColor='#e8e8e8'"><a href=qdinf.asp>签到明细</a></td>
<td bgcolor="#e8e8e8" align=center onmouseover="javascript:this.bgColor='#ddccff'" onmouseout="javascript:this.bgColor='#e8e8e8'"><a href=cdinf.asp>迟到明细</a></td>
</tr>
</table>
</div>
<center>
<%if ispayshow=1 then%>
<table width="100%" height="132" border="1" bordercolor="#3399ff" bgcolor="#f8f8f8">
<tr>
<tr><td colspan=6 align=center>我目前的月工资是<font color=red><%=syssetpay%></font>元 | 我目前的日工资是<font color=red><%=daypay%></font>元</td></tr>
<tr>
<td align="center">上次结算 <br>
<font color=red><%=lastpay%></font>元</td>
<td align="center">今日所有结算款额<% if todayqd=1 then %><br><Font color=#666666>您尚未注销！</font〉<%else%> <br>
<font color=red><%=todaypay%></font>元<%end if%></td>
<td align="center">本月结算款额 <br>
<font color=red><%=monthpay%></font>元</td>
</tr>
<tr>
<td align="center" >今日工作时间 <br>
<font color=red><%=todayusefulworktime%>分钟</font><font color=#889988>( <%=ROUND((todayusefulworktime/60),2)%>小时)</td>
<td align="center" >本月工作时间 <br>
<font color=red><%=monthworktime%>分钟 </font><font color=#889988>( <%=ROUND((monthworktime/60),2)%>小时)</font></td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -