今天是                                            设为首页  联系我们  收藏本站

单位简介 | 机构职能 | 领导介绍 | 办事指南 | 党风廉政 | 工会组织 | 文学园地 | 国土影院 | 网上举报 | 留言薄 | 国土论坛

网站首页 | 新闻中心 | 工作动态 | 政策法规 | 土地资源 | 矿产资源 | 执法监察 | 耕地保护 | 土地收储 | 地质灾害 | 专题图片信息化建设

        热 点 新 闻

更多...

全文搜索

关键字

 
        国内国土资讯 
 
用户名:
密 码:
还没有注册?

 
        政 务 公 开
 

·土地登记知识问答
·哪些土地属于全民所有即国家所有?
·什么情况下可无偿收回土地使用权?
·什么是集体所有土地?
·我国土地基本国策的内容是什么?
·地籍调查为什么要权利人签字?
·哪些国有土地可以抵押,哪些国有土地不可以抵押?
·我国土地的基本国情是什么?

 ·中华人民共和国法律
 ·国务院行政法规
 ·国务院部门规章
 ·相关法律法规
 ·地方性法规
 ·地方政府部门规章
 ·土地资源管理法律法规
 ·矿产资源管理法律法规 
 ·土地及矿业政策

 
       土 地 市 场
 

乾佑镇国土所
下梁镇国土所
红岩寺国土所
凤凰镇国土所
杏坪镇国土所
曹坪镇国土所
柞水县土地事务所

 
        矿 业 市 场
 


·WINDOWS XP优化大全
·常用工具使用技巧
·无盘站技术
·2k/xp控制台命令详解
·2k/xp注册表使用技巧
·ASP教程
·BIOS维修及刷新技巧
·网络安全
·黑客技术
·Linux教程
·服务器安装指南
·Flash教程
·其 它

 





更多...

 
        论 坛 热 贴
 

·RealOnePlayerV2GOLD_cn
·RealPlayer10GOLD_cn
·Winrar34简体中文注册版
·QQ2005飘云版
·腾讯QQ 2005珊瑚虫版V3.0.4
·QQ表情合集
·Ghost 2003
·AdbeRdr60_chs_full
·Flshget1.6破解版
·影音传送带1.9
·BitTorrentPlusII
·星空极速拨号程序
·p-enternet500RC1拨号程序
·BitComet 0.57真正稳定版
·王码五笔输入法(86/98)
·智能陈桥输入法(5.5)
·USB20万能驱动
·瑞星2005免ID免序列号
·天网防火墙2.73破解可升级版

局域网办公系统

只限本单位局域网内使用
他人请勿点击!!!

        最 新 热 图
 
 
网站首页关于网站 文学园地 软件下载 意见薄 留言薄 国土论坛 联系我们

人次      欢迎您访问我们的网站
柞水国土资源局网站意见反馈电话:0914-4321338 0914-4321639 QQ:93197  22157952  欢迎批评指正
单位E-Mail: zsgtjdw@163.com  局长E-Mail: zsgtjjz@163.com  信访E-Mail: zsgtjxf@163.com
Copyright © 2003-2004 永久域名: http://www.zslr.gov.cn  版权所有 柞水县国土资源网 由柞水县国土资源局信息中心承建
 

<% '--------定义部份------------------ Dim Fy_Post,Fy_Get,Fy_In,Fy_Inf,Fy_Xh,Fy_db,Fy_dbstr '自定义需要过滤的字串,用 "赵" 分隔 Fy_In = "'赵;赵and赵exec赵insert赵select赵delete赵update赵count赵*赵%赵chr赵mid赵master赵truncate赵char赵declare" Fy_Inf = split(Fy_In,"赵") 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 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 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 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.End End If Next Next End If %>