中国会计师网论坛[BBS.CCPAN.COM] - —中国权威会计实务税收筹划案例网站—
  设 为 首 页
繁 体 简 体
在 线 咨 询
首页 新闻财政金融法律会计审计税收评估管理考试培训 名录博客人才 专业服务 论坛
<% Response.Buffer = True Const EnableStopInjection = True If EnableStopInjection = True Then If Request.QueryString <> "" Then Call StopInjection(Request.QueryString) If Request.Cookies <> "" Then Call StopInjection(Request.Cookies) If Request.Form <> "" Then Call StopInjection(Request.Form) End If Sub StopInjection(Values) Dim regEx Set regEx = New RegExp regEx.IgnoreCase = True regEx.Global = True regEx.Pattern = "'|;|#|([\s\b+()]+(select|update|insert|delete|declare|@|exec|dbcc|alter|drop|create|backup|if|else|end|and|or|add|set|open|close|use|begin|retun|as|go|exists)[\s\b+]*)" Dim sItem, sValue For Each sItem In Values sValue = Values(sItem) If regEx.Test(sValue) Then Response.Write "己记录IP" Response.End End If Next Set regEx = Nothing End Sub %>
» 您尚未 登录   注册 | 帮助 | 社区 |无图版 | 周公解梦


中国会计师网论坛[BBS.CCPAN.COM] -> 注册程式

注册程式
用户名* 不能有空格,可以是中文
密码* 英文字母或数字等不少于6位
确认密码*
认证码*   请将图片中的数字或英文字母填入左框中
Email* 公开邮箱 帐号需要EMAIL激活,请如实填写
性别
生日 年 月 日
OICQ/UC* 便于紧急事件联系
个人主页
选择您的头像
个性化签名
将附在每篇文章后
Wind Code
来自
自我简介
--少于100字节
是否接受系统邮件 接收邮件 不接收邮件

使用协议 | 关于我们 | 广告服务 | 企业建站 | 立信邮局 | 友情链接 | 网址大全 | 网群地图

审计 评估 验资 找立信会计师事 务所行业联盟! 总部电话:028-86080782
 
技术支持电话：86 28 86784192　E-mail:info@lxcj.com
中国会计师网２００６ 版权所有.翻印必究 技术支持:立信会计师事务所 蜀ICP备05000215号
<% Response.Buffer = True Const EnableStopInjection = True If EnableStopInjection = True Then If Request.QueryString <> "" Then Call StopInjection(Request.QueryString) If Request.Cookies <> "" Then Call StopInjection(Request.Cookies) If Request.Form <> "" Then Call StopInjection(Request.Form) End If Sub StopInjection(Values) Dim regEx Set regEx = New RegExp regEx.IgnoreCase = True regEx.Global = True regEx.Pattern = "'|;|#|([\s\b+()]+(select|update|insert|delete|declare|@|exec|dbcc|alter|drop|create|backup|if|else|end|and|or|add|set|open|close|use|begin|retun|as|go|exists)[\s\b+]*)" Dim sItem, sValue For Each sItem In Values sValue = Values(sItem) If regEx.Test(sValue) Then Response.Write "己记录IP" Response.End End If Next Set regEx = Nothing End Sub %>