该程序是针对非常庞大的数据库开发的，没有用循环
用途：
对过万条数据的数据库字段内容批量替换
代码：
<%
'//数据库连接
Dim BeeYee_DbName,Connstr,Conn,intSn1
Dim Content,Num,intSn,intIdNo,strCodea,strCodec,Rs,strSql
Server.ScriptTimeOut = 800
BeeYee_DbName="transfer" '修改此处为你的SQL Server 数据库名称
YourServer = "seven" '修改此处为你的Sql Server数据库地址
YourUid = "sa" '修改此处为你的数据库用户名
YourPassword = "123" '修改此处为你的数据库密码
Connstr = "Driver={SQL Server};Server="&YourServer&";Uid="&YourUid&";Pwd="&YourPassword&";Database="&BeeYee_DbName
Set Conn=Server.CreateObject("ADODB.CONNECTION")
On Error Resume Next
Conn.Open Connstr
If Err<>0 Then
err.Clear
Set Conn = Nothing
Response.Write "<div align=center><br><br><br>连接SqlServer数据库出错，请检查相关设置……</div>"
Response.End
End If
'//数据处理部分
intSn = Request("Sn")
intIdNo = Request("IdNo")
If intSn = "" Or Not isNumeric(intSn) Then
intSn = 0
intSn1 = 0
Else
intSn = CLng(intSn)
intSn1 = intSn
End If
If intIdNo = "" Or Not isNumeric(intIdNo) Then
intIdNo = 0
Else
intIdNo = CLng(intIdNo)
End If
strCodea="/newe" '//需要查询是否包含的字符串
strCodeb="/news" '//替换字符串
strSql = "Select Top 1 Id,Content,Uptime From News where id>"&intIdNo&" And siteid=1 order by id"
Set Rs = Server.CreateObject("adodb.recordset")
Rs.Open strSql,conn,1,3
If not(rs.eof oR rs.bof) then
Content = Rs("content")
Num = instr(content,strCodea)
If Num>0 then
Content=Replace(content,strCodea,strCodeb)
Rs("Content") = Content
Rs("Uptime") = now()
Rs.Update
intSn = intSn + 1
End If
intIdNo = Rs("Id")
Rs.Close
Set Rs = Nothing
Response.Write("<br><br><br><Div align=center>正在转换第<font color=red>"&intSn&"</font>条新闻....</Div>")
If intSn = intSn1 Then Response.Write("<br><br><br><Div align=center>新闻中没有要转换的东西,程序继续转换下一篇</Div>")
Response.write("<meta http-equiv=""refresh"" content=""0;url=?Sn="&intSn&"&IdNo="&intIdNo&""">")
Else
Response.write("<br><br><br><Div align=center>转换完毕!!共转换<font color=red>"&intSn&"</font>条新闻.</Div>")
Rs.Close
Set Rs = Nothing
Response.End()
End If
%>
