access mssql 批量替换数据库指定内容代码

通过Access数据库教程中的查询分析器来修改（这里我使用的是Access 2003）

1、打开需要修改的Access数据库

2、在数据库“对象”中点击“查询”

3、点击“在设计视图中创建查询”

4、在出现的界面中关闭“显示表”小窗口

5、点击“视图”菜单，选择“SQL视图”，此时将出现查询窗口，您可以在此输入SQL语句了

6、直接输入以下SQL语句：

Update 表 SET 字段=replace(字段,"原字符","替换字符")

您可根据实际情况，将上面红字换掉即可，这里举个例子，假设表为biao、字段为content、原字符为www.111com.net、替换字符为down1.111com.net，那么相应的SQL语句如下：
复制代码 代码如下:
Update biao SET content=replace(content,"sh.111com.net","111com.net") 

7、点击工具栏中的感叹号，运行即可。

方法二：用ASP程序来批量替换字符,上面的代码有字符长度限制的问题。这个没有限制。

下面直接给出ASP程序代码，大家一看即知道了：
复制代码 代码如下:
'这里省略数据库连接代码

Dim rs,sql,text
Set rs=Server.CreateObject("ADODB.Recordset")
sql="Select content From biao"
rs.Open sql,conn,1,3
Do While Not rs.Eof
text=Replace(rs("content"),"sh.111com.net","down1.111com.net")
rs("content")=text
rs.Update
rs.MoveNext
Loop
rs.Close
Set rs=Nothing

mssql 替换数据库内容

首先备份数据库，以防不必要的损失。而后对所有被挂马的小于8000字符的varchar字段执行

复制代码 代码如下:
update 表名 set 字段名=replace(字段名,'','')

其中为挂马字段。执行后挂马字段被清除。但是有部分字段，比如内容字段等大于8000字符的varchar字段则需要执行
复制代码 代码如下:
update 表名 set 表项=replace(cast(表项 as varchar(8000)),' ','')

来更新被挂马字段，而房产网由于内容比较多，执行以上语句的时候会发生假死现象，于是加个区间分两次进行，一次处理15000条得以解决。
复制代码 代码如下:
update 表名 set 表项=replace(cast(表项 as varchar(8000)),' ','') where id>1 and id<15000 

以上被挂马问题一般都是sql数据库，这是sql数据库特有的注入漏洞。换数据库不现实，只能针对以上情况进行防范。思路就是在所有数据库链接请求那里做相应的过滤。
复制代码 代码如下:

<%
Response.Buffer = True '缓存页面
'防范get注入
If Request.QueryString <> "" Then StopInjection(Request.QueryString)
'防范post注入
If Request.Form <> "" Then StopInjection(Request.Form)
'防范cookies注入
If Request.Cookies <> "" Then StopInjection(Request.Cookies)
'正则子函数
Function StopInjection(Values)
Dim regEx
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = True
regEx.Pattern = "'|;|#|([sb+()]+([email=select%7Cupdate%7Cinsert%7Cdelete%7Cdeclare%7C@%7Cexec%7Cdbcc%7Calter%7Cdrop%7Ccreate%7Cbackup%7Cif%7Celse%7Cend%7Cand%7Cor%7Cadd%7Cset%7Copen%7Cclose%7Cuse%7Cbegin%7Cretun%7Cas%7Cgo%7Cexists)[/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)[sb[/email]+]*)"
Dim sItem, sValue
For Each sItem In Values
sValue = Values(sItem)
If regEx.Test(sValue) Then
Response.Write ""
Response.End
End If
Next
Set regEx = Nothing
End function
%>