level 1
吕中布
楼主
易达CMS3.2X的版本,YIDAcmsBY 这里一修改就变成空白的了,求教!!!
YIDAcmsBY = Chr("32")&Chr("45")&Chr("32")&Chr("80")&Chr("111")&Chr("119")&Chr("101")&Chr("114")&Chr("101")&Chr("100")&Chr("32")&Chr("98")&Chr("121")&Chr("32")&Chr("89")&Chr("105")&Chr("100")&Chr("97")&Chr("67")&Chr("109")&Chr("115")
end Function
*对 get query 值 的过滤.
if request.QueryString<>"" then
adoData=split(YIDAcmsData,"|")
FOR EACH YIDAcmsName IN Request.QueryString
for i=0 to ubound(adoData)
If Instr(LCase(request.QueryString(YIDAcmsName)),adoData(i))<>0 Then
Response.Write "<Script Language=javascript>alert(*请不要提交非法字符*);location.href=*/index.asp*;</Script>"
2014年08月19日 01点08分
1
YIDAcmsBY = Chr("32")&Chr("45")&Chr("32")&Chr("80")&Chr("111")&Chr("119")&Chr("101")&Chr("114")&Chr("101")&Chr("100")&Chr("32")&Chr("98")&Chr("121")&Chr("32")&Chr("89")&Chr("105")&Chr("100")&Chr("97")&Chr("67")&Chr("109")&Chr("115")
end Function
*对 get query 值 的过滤.
if request.QueryString<>"" then
adoData=split(YIDAcmsData,"|")
FOR EACH YIDAcmsName IN Request.QueryString
for i=0 to ubound(adoData)
If Instr(LCase(request.QueryString(YIDAcmsName)),adoData(i))<>0 Then
Response.Write "<Script Language=javascript>alert(*请不要提交非法字符*);location.href=*/index.asp*;</Script>"