?? 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 + -