盼盼资源网-亲测资源网-盼盼的家园www.panpan.org

 找回密码
 立即注册
查看: 58|回复: 0

[普通] ASP+ACCESS字符串查找替换工具

[复制链接]

2273

主题

2377

帖子

40万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
408047
发表于 2020-3-8 18:16:52 | 显示全部楼层 |阅读模式
ASP+ACCESS字符串查找替换工具

功能:
用asp脚本批量替换access数据库中指定字段内指定字符串



1:使用该工具替换之时建议勾选备份数据库功能选项,备份好你的数据库,以免出错!
2:本程序适合ASP+ACCESS版本的网站程序,SQL版本不适用。
3:必须完整填写所有的表单,才能够顺利替换内容。
4:程序经过严格的测试完美无错。
5:使用完该程序以后,建议从服务器删除该文件,以免被恶意利用!

源代码如下:
  1. <head>
  2. <title>ASP字符串查找替换工具</title>
  3. </head>
  4. <style type="text/css">
  5. <!--
  6. body,td,th {
  7.         font-size: 12px;
  8.         color: #000000;
  9. }
  10. body {
  11.         background-color: #FFFFFF;
  12. }
  13. a {
  14.         font-size: 12px;
  15.         color: #0000CC;
  16. }
  17. A:link {
  18.         TEXT-DECORATION: none
  19. }
  20. a:visited {
  21.         color: #FF0000;TEXT-DECORATION: none
  22. }
  23. .STYLE1 {
  24.         color: #FFFFFF;
  25.         font-size: 36px;
  26. }
  27. .STYLE2 {color: #FF0000}
  28. -->
  29. </style>
  30. <script language=JavaScript>
  31. function check(theform)                     
  32. {                        
  33.                                     
  34.     if (theform.datapath.value=="")                     
  35.     {                     
  36.         alert("请正确填写数据库路径!");                        
  37.         theform.datapath.focus();                     
  38.          return(false);                        
  39.     }
  40.         else if (theform.tablename.value=="")                     
  41.     {                     
  42.         alert("请正确填写表单名字!");                        
  43.         theform.tablename.focus();                     
  44.          return(false);                     
  45.     }
  46.         else if (theform.fieldname.value=="")                     
  47.     {                     
  48.         alert("请正确填写字段名字!");                        
  49.         theform.fieldname.focus();                     
  50.          return(false);                     
  51.     }
  52.         else if (theform.keyword1.value=="")                     
  53.     {                     
  54.         alert("请输入要查找的关键字!");                        
  55.         theform.keyword1.focus();                     
  56.          return(false);                     
  57.     }                                      
  58.     else if (theform.keyword2.value=="")                     
  59.     {                     
  60.         alert("请输入要替换的关键字!");                        
  61.         theform.keyword2.focus();                     
  62.          return(false);                     
  63.     }               
  64.   }                     
  65. </script>
  66. <div align=center top="0">
  67. <table border="1" width="54%" id="table1" cellspacing="1" bordercolor="#000000" style="border-collapse: collapse">
  68.          <form name="replace" method="post" action="replace.asp?action=update"   onsubmit="return check(this);">
  69.         <tr>
  70.                 <td colspan="2" bgcolor="#003366">
  71.                 <p align="center"><b><font size="5" color="#FFFFFF">ASP字符串查找替换工具</font></b></td>
  72.         </tr>
  73.         <tr>
  74.                 <td width="93%" height="20" colspan="2" bgcolor="#D0E8FF">1:使用该工具替换之时建议勾选备份数据库功能选项,备份好你的数据库,以免出错!<br>
  75.                 2:本程序适合ASP+ACCESS版本的网站程序,SQL版本不适用。<br>3:必须完整填写所有的表单,才能够顺利替换内容。<br>4:程序经过严格的测试完美无错,如有问题,欢迎光临我的博客和我交流!<br>5:使用完该程序以后,建议从服务器删除该文件,以免被恶意利用!</td>
  76.         </tr>
  77.         <tr>
  78.                 <td width="17%" height="20" align="right" bgcolor="#FFE8F3">数据库路径:</td>
  79.                 <td width="73%" height="20" bgcolor="#FFE8F3">
  80.                 <input type="text" name="datapath" size="20" value="<%if request.cookies("datapath")<>"" then
  81. response.write request.cookies("datapath")
  82. end if%>">
  83.                 如:database/data.mdb【请填写相对路径!】</td>
  84.         </tr>
  85.         <tr>
  86.                 <td width="17%" height="20" align="right" bgcolor="#FFE8F3">表单名字:</td>
  87.                 <td width="73%" height="20" bgcolor="#FFE8F3">
  88.                 <input type="text" name="tablename" size="20" value="<%if request.cookies("tablename")<>"" then
  89. response.write request.cookies("tablename")
  90. end if%>">
  91.                 如:webuser【ACCESS保留名字如:user不用加中括号!】</td>
  92.         </tr>
  93.         <tr>
  94.                 <td width="17%" height="20" align="right" bgcolor="#FFE8F3">字段名字:</td>
  95.                 <td width="73%" height="20" bgcolor="#FFE8F3">
  96.                 <input type="text" name="fieldname" size="20" value="<%if request.cookies("fieldname")<>"" then
  97. response.write request.cookies("fieldname")
  98. end if%>">
  99.                 如:username【ACCESS保留名字如:user不用加中括号!】</td>
  100.         </tr>
  101.         <tr>
  102.                 <td width="17%" height="20" align="right" bgcolor="#FFE8F3">查找内容:</td>
  103.                 <td width="73%" height="20" bgcolor="#FFE8F3">
  104.                 <input type="text" name="keyword1" id="keyword1" size="20" value="<%if request.cookies("key1")<>"" then
  105. response.write request.cookies("key1")
  106. end if%>">
  107.                 如:兄弟</td>
  108.         </tr>
  109.         <tr>
  110.                 <td width="17%" height="20" align="right" bgcolor="#FFE8F3">替 换 成:</td>
  111.                 <td width="73%" height="20" bgcolor="#FFE8F3">
  112.                 <input type="text" name="keyword2" id="keyword2" size="20" value="<%if request.cookies("key2")<>"" then
  113. response.write request.cookies("key2")
  114. end if%>">
  115.                 如:好兄弟【如替换成空,请按一下空格键】</td>
  116.         </tr>
  117.         <tr>
  118.                 <td width="93%" height="20" align="right" bgcolor="#FFE8F3" colspan="2">
  119.                 <p align="center"><input type=checkbox name="backcheck" value="1">备份数据库  <input class=input2 name=B2 type=reset value="重填">  <input name="Submit" type="Submit" id="Submit" value="替换"> <a href="?action=delcookies">清空COOKIES记录</a></td>
  120.         </tr>
  121.                 <tr>
  122.                 <td width="93%" height="22" align="right" bgcolor="#003366" colspan="2">
  123.                 <p align="center"><font color="#FFFFFF" size="3"><b>Copyright 2010-2012
  124.                 @ <a href="http://www.030904.com/blog/default.asp">
  125.                 <font color="#FFFFFF" size="3">兄弟的博客</font></a></b></font></td>
  126.         </tr>
  127. </form>
  128. </table></div>
  129. <%if request("action")="update" then%>
  130. <%
  131. Function CheckDir(FolderPath)
  132.     dim fso1
  133.     folderpath=Server.MapPath(".")&""&folderpath
  134.     Set fso1 = Server.CreateObject("Scripting.FileSystemObject")
  135.     If fso1.FolderExists(FolderPath) then
  136.         CheckDir = True
  137.     Else
  138.         CheckDir = False
  139.     End if
  140.     Set fso1 = nothing
  141. End Function

  142. Server.ScriptTimeout=9999999
  143. Dim datapath,tablename,fieldname,Conn,rs,sql,key1,key2,backcheck
  144. backcheck=request.form("backcheck")
  145. datapath=request.form("datapath")
  146.   If backcheck="1" then
  147.   bkfolder=left(datapath,InstrRev(datapath,"/")-1)
  148.   Dim DateYear,DateMonth,DateDay,DateHour,DateMinute,DateSecond
  149.   dbpath=server.mappath(datapath)
  150.   DateYear=Year(Now())
  151.   DateMonth=Month(Now())
  152.   DateDay=Day(Now())
  153.   DateHour=Hour(Now())
  154.   DateMinute=Minute(Now())
  155.   DateSecond=Second(Now())
  156.   If Len(DateMonth)<2 Then DateMonth="0"&DateMonth
  157.   If Len(DateDay)<2 Then DateDay="0"&DateDay
  158.   If Len(DateHour)<2 Then DateHour="0"&DateHour
  159.   If Len(DateMinute)<2 Then DateMinute="0"&DateMinute
  160.   If Len(DateSecond)<2 Then DateSecond="0"&DateSecond
  161.   bkdbname=DateYear&DateMonth&DateDay&DateHour&DateMinute&DateSecond
  162.   Set Fso=server.createobject("scripting.filesystemobject")
  163.    If fso.fileexists(dbpath) then
  164.      If CheckDir(bkfolder) = True Then
  165.      fso.copyfile dbpath,bkfolder& ""& bkdbname &".asp"
  166.      End if
  167.    End if
  168.   End if
  169. tablename=request.form("tablename")
  170. fieldname=request.form("fieldname")
  171. key1=request.form("keyword1")
  172. key2=request.form("keyword2")
  173. Response.cookies("datapath")=datapath
  174. Response.cookies("tablename")=tablename
  175. Response.cookies("fieldname")=fieldname
  176. Response.cookies("key1")=key1
  177. Response.cookies("key2")=key2
  178. If datapath="" or tablename="" or fieldname="" or key1="" or key2="" then
  179. response.write"<SCRIPT language=JavaScript>alert('对不起!你的数据没有填写完整!');"
  180. response.write"javascript:location.href='replace.asp';</SCRIPT>"
  181. else
  182. Set Conn = Server.CreateObject("ADODB.Connection")
  183. Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(datapath)
  184. Set rs = Server.Createobject("ADODB.Recordset")
  185. sql="Select * from ["&tablename&"] where "&fieldname&" like '%"&key1&"%'"
  186. rs.open sql,conn,1,3
  187. while not rs.eof
  188. rs(""&fieldname&"")=replace(rs(""&fieldname&""),key1,key2)
  189. rs.update
  190. rs.movenext
  191. wend
  192. rs.close
  193. set rs=nothing
  194. conn.close
  195. set conn=nothing
  196. response.write"<SCRIPT language=JavaScript>alert('恭喜你!数据替换成功!');"
  197. response.write"javascript:location.href='replace.asp';</SCRIPT>"
  198. end if
  199. %>
  200. <%end if%>
  201. <%
  202. if request("action")="delcookies" then
  203. Response.cookies("datapath")=""
  204. Response.cookies("tablename")=""
  205. Response.cookies("fieldname")=""
  206. Response.cookies("key1")=""
  207. Response.cookies("key2")=""
  208. response.write"<SCRIPT language=JavaScript>alert('恭喜你!清理COOKIES记录成功!');"
  209. response.write"javascript:location.href='replace.asp';</SCRIPT>"
  210. end if
  211. %>
复制代码

成品如下:
ASP字符串查找替换工具:
https://545c.com/file/4000752-427250156

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|民间故事|新华字典|周公解梦|实用工具|加密解密|便民服务|盼盼工具箱|闹钟|默笙工具箱|易经风水|Archiver|手机版|小黑屋|盼盼资源网