上海韩乔厨具公司
设为主页 | 加入收藏
木炭无烟烤炉
燃气无烟烤炉
下排烟木炭烤炉
上排烟木炭烤炉
上排烧烤烟罩
燃气下排烟炉
红外线电烤炉
日本烧烤炉
  售后服务电话:021-54379209 查看更多产品
韩乔厨具--最新业务《收费业务》
公司免费提供的服务--免费业务
买烤炉有大礼送--韩乔厨具大赠送
公司最新活动
开店旺季.货物紧缺.订货从速
k4001木炭无烟炉《2手炉》
F3110木炭无烟炉特价
友情链接

烧烤盘 .水晶烧烤盘.下排烟烤炉.木炭无烟炉.煤气无烟炉.电烤炉.日本烧烤炉 .煎烤锅.

IP备案10008957           地址:上海市闵行区莲花南路1111弄38号楼     地铁一号线到莲花路南广场换闵行13路到上海春城下车。   

开车在沪闵高架下,莲花南路沪闵路口南行--春申路莲花路口前开半分钟右拐集心路上。

 

公司传真 :021-54379209            所有设备可以直接开正规税务发票。

    

 

 

<% ' 增强版防注入,可记录注入信息 ' 将此文件包含在公共文件里 ' 如:conn.asp里 ' '--------定义部份------------------ 'Dim IDCCFy_Post,IDCCFy_Get,IDCCFy_In,IDCCFy_Inf,IDCCFy_Xh,IDCCFy_db,IDCCFy_dbstr '自定义需要过滤的字串,用 "|" 分隔 '增强关键字 ---对于安全要求较高的情况使用 IDCCFy_In="'|;|--|"" Then For Each IDCCFy_Post In Request.Form For IDCCFy_Xh=0 To Ubound(IDCCFy_Inf) If Instr(LCase(Request.Form(IDCCFy_Post)),IDCCFy_Inf(IDCCFy_Xh))<>0 Then '写入txt记录功击者IP跟功击时间 call FsoWriteLog("sqlinLog.txt","注入IP:"& Request.ServerVariables("REMOTE_ADDR") & "----注入时间:"&now() &"-------POST注入内容:"& Request.ServerVariables("HTTP_URL")&"?"&Request.Form(IDCCFy_Post)) Response.Write "" Response.End End If Next Next End If '---------------------------------- '--------GET部份------------------- If Request.QueryString<>"" Then For Each IDCCFy_Get In Request.QueryString For IDCCFy_Xh=0 To Ubound(IDCCFy_Inf) If Instr(LCase(Request.QueryString(IDCCFy_Get)),IDCCFy_Inf(IDCCFy_Xh))<>0 Then call FsoWriteLog("sqlinLog.txt","注入IP:"& Request.ServerVariables("REMOTE_ADDR") & "----注入时间:"&now() &"-------GET注入内容:"& Request.ServerVariables("HTTP_URL")&"?"&Request.QueryString(IDCCFy_Post)) Response.Write "" Response.End End If Next Next End If '--------Cookie部份------------------- If Request.Cookies<>"" Then For Each IDCCFy_Get In Request.Cookies For IDCCFy_Xh=0 To Ubound(IDCCFy_Inf) If Instr(LCase(Request.Cookies(IDCCFy_Get)),IDCCFy_Inf(IDCCFy_Xh))<>0 Then call FsoWriteLog("sqlinLog.txt","注入IP:"& Request.ServerVariables("REMOTE_ADDR") & "----注入时间:"&now() &"-------Cookie注入内容:"& Request.ServerVariables("HTTP_URL")&"?"&Request.Cookies(IDCCFy_Post)) Response.Write "" Response.End End If Next Next End If '写入txt记录功击者IP跟功击时间 Function FsoWriteLog(filename,Linecontent) Dim FSO,Fs Set FSO= Server.CreateObject("Scripting.FileSystemObject") if not FSO.FileExists(Server.MapPath("/")&""&filename) then Set Fs = FSO.CreateTextFile(Server.MapPath("/")&""&filename, True) Fs.Close end if Set Fs = FSO.OpenTextFile(Server.MapPath("/")&""&filename,8,1) Fs.WriteLine(Linecontent) Fs.close Set Fs = nothing Set FSO = nothing End Function %>