在线客服:  

「南宁烟寒网络」提供南宁网站建设、网站策划、南宁网页制作、网站设计、网站改版、南宁SEO优化、网站维护、南宁网站优化、南宁网站推广、广告设计等服务..

咨询热线

在线客服

24小时免费咨询电话:18978941786

客服时间:上午9:30~下午6点

当前位置:首页>> 技术文章 >> ASP学习 >> ASP自动替换数据库中的字符串技巧

ASP自动替换数据库中的字符串技巧

收藏 分享 发布日期:2012-2-12 16:30:50    编辑:admin  文章来源:  点击率:

<%
'####################################
'替换数据库内容 lamking 2005-8-22
'http://www.lamking.com QQ:628557
'####################################
Dim Db,Connstr,conn,rs,rs2,str1,str2,I
str1="abcd" '要替换的字符串
str2="1234" '替换为的字符串
Db="lamking.mdb"
Set conn=Server.CreateObject("ADODB.Connection")
ConnStr="PRovider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath(Db)
Conn.Open ConnStr
Set rs = conn.OpenSchema(20)
  Do While Not rs.eof
    If rs("TABLE_TYPE")="TABLE" Then
  Set Rs2=Server.Createobject("adodb.recordset")
   Rs2.Open "select * from ["&rs("TABLE_NAME")&"]",conn,1,3
   Do While Not Rs2.Eof
    For I=0 to Rs2.fields.count-1
     If Rs2(i).Properties("ISAUTOINCREMENT") = False Then
      Rs2(Rs2(i).name)=Myreplace(Rs2(i).value)
     End If
    Next
   Rs2.Movenext
   Loop
  Rs2.Close
  Set Rs2=nothing
 End If
Rs.Movenext
Loop
Rs.close
Set Rs=nothing
Conn.close
Set Conn=nothing
Response.Write"替换完成"
Function myreplace(byval Tstr)
If Tstr="" Or isnull(Tstr) Then
 Exit Function
Else
 myReplace=replace(Tstr,str1,str2)
End If
End Function
%>
本文章由南宁网站建设南宁网站优化南宁网络公司整理,转载请注明出处:http://www.yanhan89.com/

关于我们 | 域名主机 | 建站套餐 | 企业动态 | 成功案例 | 网站推广 | 建站知识 | 常见问题 | 联系我们

南宁烟寒网络竭诚为您免费提供南宁网站建设南宁网站设计南宁网站优化、维护以及网站技术很方面的网络服务!

南宁网站建设南宁网络公司咨询热线电话:0771-5306126 18967841786(24小时全天电话)

烟寒网络 - 让你进一步走向成功