<& '--------版权说明------------------ 'SQL通用防注入程序 V3.0 '2.0强化版,对代码做了一点优化,加入自动封注入者Ip的功能!^_^ '3.0版,加入后台登陆查看注入记录功能,方便网站管理员查看非法记录,以及删除以前的记录,是否对入侵者Ip解除封锁! '火狐技术联盟 Neeao URL:http://www.wrsky.com 'Neeao站点:http://www.neeao.com 'Mail:neeaocn@Gamil.com '--------数据库连接部分-------------- dim dbkillSql,killSqlconn,connkillSql dbkillSql="../web#data#hxj#hyxr#mdb#hyjnh/Sql#In.mdb" 'On Error Resume Next Set killSqlconn = Server.CreateObject("ADODB.Connection") connkillSql="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbkillSql) killSqlconn.Open connkillSql If Err Then err.Clear Set killSqlconn = Nothing Response.Write "数据库连接出错,请检查连接字串。" Response.End End If '--------定义部份------------------ Dim Fy_Post,Fy_Get,Fy_In,Fy_Inf,Fy_Xh,Fy_db,Fy_dbstr,Kill_IP,WriteSql '自定义需要过滤的字串,用 "|" 分隔 Fy_In = "'|;|and|(|)|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare" Kill_IP=True WriteSql=True '---------------------------------- Fy_Inf = split(Fy_In,"|") '--------POST部份------------------ If Request.Form<>"" Then For Each Fy_Post In Request.Form For Fy_Xh=0 To Ubound(Fy_Inf) If Instr(LCase(Request.Form(Fy_Post)),Fy_Inf(Fy_Xh))<>0 Then If WriteSql=True Then killSqlconn.Execute("insert into SqlIn(Sqlin_IP,SqlIn_Web,SqlIn_FS,SqlIn_CS,SqlIn_SJ) values('"&Request.ServerVariables("REMOTE_ADDR")&"','"&Request.ServerVariables("URL")&"','POST','"&Fy_Post&"','"&replace(Request.Form(Fy_Post),"'","''")&"')") killSqlconn.close Set killSqlconn = Nothing End If Response.Write "" Response.Write "非法操作!系统做了如下记录↓
" Response.Write "操作IP:"&Request.ServerVariables("REMOTE_ADDR")&"
" Response.Write "操作时间:"&Now&"
" Response.Write "操作页面:"&Request.ServerVariables("URL")&"
" Response.Write "提交方式:POST
" Response.Write "提交参数:"&Fy_Post&"
" Response.Write "提交数据:"&Request.Form(Fy_Post) Response.End End If Next Next End If '---------------------------------- '--------GET部份------------------- If Request.QueryString<>"" Then For Each Fy_Get In Request.QueryString For Fy_Xh=0 To Ubound(Fy_Inf) If Instr(LCase(Request.QueryString(Fy_Get)),Fy_Inf(Fy_Xh))<>0 Then If WriteSql=True Then killSqlconn.Execute("insert into SqlIn(Sqlin_IP,SqlIn_Web,SqlIn_FS,SqlIn_CS,SqlIn_SJ) values('"&Request.ServerVariables("REMOTE_ADDR")&"','"&Request.ServerVariables("URL")&"','GET','"&Fy_Get&"','"&replace(Request.QueryString(Fy_Get),"'","''")&"')") killSqlconn.close Set killSqlconn = Nothing End If Response.Write "" Response.Write "非法操作!我们的系统已经做了如下记录↓
" Response.Write "操作IP:"&Request.ServerVariables("REMOTE_ADDR")&"
" Response.Write "操作时间:"&Now&"
" Response.Write "操作页面:"&Request.ServerVariables("URL")&"
" Response.Write "提交方式:GET
" Response.Write "提交参数:"&Fy_Get&"
" Response.Write "提交数据:"&Request.QueryString(Fy_Get) Response.Write "

请马上离开,谢谢!" Response.End End If Next Next End If If Kill_IP=True Then Dim Sqlin_IP,rsKill_IP,Kill_IPsql Sqlin_IP=Request.ServerVariables("REMOTE_ADDR") Kill_IPsql="select Sqlin_IP from SqlIn where Sqlin_IP='"&Sqlin_IP&"'" Set rsKill_IP=killSqlconn.execute(Kill_IPsql) If Not(rsKill_IP.eof or rsKill_IP.bof) Then Response.write "" Response.End End If rsKill_IP.close End If &> 河源天裕电子塑胶有限公司
  ·中文简体·繁体中文·ENGLISH
 
招聘中心
 
  首页   薪资福利

公司为保证各项制度顺利实施,达到奖优罚劣的目的,特制定了相关奖惩管理标准。该标准适用于公司全体员工,由公司办公室行政管理科负责。从业人员之奖励,分为嘉奖、记功、奖金及升迁、晋级四种。公司根据不同的具体情况给予员工应有的嘉奖、记功、记大功、升迁或加薪,具体奖励标准被写入公司07版管理制度汇编中。
公司在保证员工基本福利和激励体系的同时,也通过组织员工体育比赛,旅游,野外拓展项目等活动丰富员工的生活,帮助员工提升团队凝聚力和向心力,为员工个人的全面发展打下良好的基础。
社会保险:
签订劳动合同的员工一律参加养老、医疗、工伤、生育、失业等五项保险。
规定假期:
法定例假日,包括元旦、劳动节、国庆节、春节,除此之外,还有婚假、产假、公假、丧假、建房假和相关带薪假等。
福利待遇:
我们在报酬待遇上,坚定不移向优秀员工倾斜。
工资分配实行基于能力主义的职能工资制;奖金的分配与部门和个人的绩效改进挂钩;其他相关等福利的分配,依据员工工作态度的考评结果;医疗保险按贡献大小,对高级管理和资深专业员工与一般员工实行差别待遇,高级管理和资深专业人员除享受医疗保险外,还享受医疗保健等健康待遇。但是,我们不会牺牲公司的长期利益去满足员工短期利益分配的最大化,公司保证在经济景气时期与事业发展良好阶段,员工的人均年收入高于区域行业相应的最高水平。
职业发展:
每个员工通过努力工作,以及在工作中增长的才干,都可能获得职务或任职资格的晋升。与此相对应,保留职务上的公平竞争机制,坚决推行能上能下的干部制度。公司人才成长规律,依据客观公正的考评结果,让最有责任心的人担任重要的岗位。我们不拘泥于资历与级别,按公司组织目标与事业机会的要求,依据制度性程序,对有突出才干和突出贡献者实施破格晋升。但是,我们提倡循序渐进。

 
Copyright © 2016 www.sky-wealth.com All Rights Reserved. 河源天裕電子塑膠有限公司 版权所有
地址:河源市高新技术开发区兴工大道东面科七路南 电话:0762-2203101 传真:0762-2203100
网站备案:粤ICP备11067044号 技术支持:新锐网络-河源网站建设