本文目录一览：
- 1、asp网站，360查出来有漏洞：跨站脚本攻击（XSS），代码如下，怎么解决？谢谢。
- 2、ASP网站的XSS跨站漏洞出现原因及解决办法？
- 3、XSS跨站脚本漏洞怎样修复
- 4、求助：ASP跨站攻击漏洞（XSS）修复方法。
- 5、关于ASP网站XSS漏洞,请帮忙过滤一下，谢谢
- 6、XSS安全漏洞的几种修复方式
asp网站，360查出来有漏洞：跨站脚本攻击（XSS），代码如下，怎么解决？谢谢。
你可以到360论坛发帖或通过邮件把问题发送到邮箱fk@360，会有360工作人员帮您解答的。
ASP网站的XSS跨站漏洞出现原因及解决办法？
Xss漏洞主要利用的是把输出的内容信息转化成脚本信息，这就需要把输出信息做过滤，这方面的过滤API可以考虑OWASP的ESAPI。这个API有面向ASP的版本，去OWASP官网去找吧。
恶意攻击者往Web页面里插入恶意html代码，当用户浏览该页之时，嵌入其中Web里面的html代码会被执行，从而达到恶意用户的特殊目的。
ASP
漏洞代码示例：
%
Dim param
Set param=Request.QueryString(“dd”)
response.write param
%
修复范例：
%
Dim param
Set param=Request.QueryString(“dd”)
response.write Server.HTMLEnCode(param)
%
PHP
漏洞代码示例：
?php
$aa=$_GET['dd'];
echo $aa.”123″;
?
修复范例：
?php
$aa=$_GET['dd'];
echo htmlspecialchars($aa).”123″;
?
XSS跨站脚本漏洞怎样修复
尝试过滤参数，对用户输出进行转义或者过滤。一般/\^"'这些如果不需要都过滤一遍，其对应的转义也记得过滤一下，安全性就会提高吧。
我水平有限。这是我当前水平下可以做出的回答。
求助：ASP跨站攻击漏洞（XSS）修复方法。
字段值=server.HTMLEncode(rs("字段"))
或
字段值=安全检测模块("字段")
另外，用SESSION代替COOKIE会更好
SQL语中不要直接代入COOKIE，应该先处理
如： "select * from 表 where 字段 = '"request.Cookies(名1)(名2)"'"
这是不安全的，应该改为：
"select * from 表 where 字段='" 安全检测模块(request.Cookies(名1)(名2)) "'"
关于ASP网站XSS漏洞,请帮忙过滤一下，谢谢
Function Checkxss(byVal ChkStr)
Dim Str
Str = ChkStr
If IsNull(Str) Then
CheckStr = ""
Exit Function
End If
Str = Replace(Str, "", "")
Str = Replace(Str, "'", "´")
Str = Replace(Str, """", """)
Str = Replace(Str, "", "")
Str = Replace(Str, "", "")
Str = Replace(Str, "/", "/")
Str = Replace(Str, "*", "*")
Dim re
Set re = New RegExp
re.IgnoreCase = True
re.Global = True
re.Pattern = "(w)(here)"
Str = re.Replace(Str, "$1here")
re.Pattern = "(s)(elect)"
Str = re.Replace(Str, "$1elect")
re.Pattern = "(i)(nsert)"
Str = re.Replace(Str, "$1nsert")
re.Pattern = "(c)(reate)"
Str = re.Replace(Str, "$1reate")
re.Pattern = "(d)(rop)"
Str = re.Replace(Str, "$1rop")
re.Pattern = "(a)(lter)"
Str = re.Replace(Str, "$1lter")
re.Pattern = "(d)(elete)"
Str = re.Replace(Str, "$1elete")
re.Pattern = "(u)(pdate)"
Str = re.Replace(Str, "$1pdate")
re.Pattern = "(\s)(or)"
Str = re.Replace(Str, "$1or")
re.Pattern = "(\n)"
Str = re.Replace(Str, "$1or")
'----------------------------------
re.Pattern = "(java)(script)"
Str = re.Replace(Str, "$1script")
re.Pattern = "(j)(script)"
Str = re.Replace(Str, "$1script")
re.Pattern = "(vb)(script)"
Str = re.Replace(Str, "$1script")
'----------------------------------
If Instr(Str, "expression") 0 Then
Str = Replace(Str, "expression", "expression", 1, -1, 0) '防止xss注入
End If
Set re = Nothing
Checkxss = Str
End Function
使用方法：Checkxss(request.QueryString("变量"))，或者Checkxss(request.form("表单名"))
XSS安全漏洞的几种修复方式
打开腾讯电脑管家——工具箱——修复漏洞，进行漏洞扫描和修复。
建议设置开启自动修复漏洞功能，开启后，电脑管家可以在发现高危漏洞（仅包括高危漏洞，不包括其它漏洞）时，第一时间自动进行修复，无需用户参与，最大程度保证用户电脑安全。尤其适合老人、小孩或计算机初级水平用户使用。开启方式如下：进入电脑管家“修复漏洞”模块—“设置”，点击开启自动修复漏洞即可。