主頁 > 知識庫 > 替換數(shù)據(jù)庫內(nèi)容

替換數(shù)據(jù)庫內(nèi)容

熱門標(biāo)簽:vue 地圖標(biāo)注拖拽 電話機(jī)器人銷售公司嗎 土地證宗地圖標(biāo)注符號 客服外呼系統(tǒng)呼叫中心 鎮(zhèn)江云外呼系統(tǒng)怎么樣 保定電銷機(jī)器人軟件 電話機(jī)器人案例 自動外呼系統(tǒng)怎么防止封卡 成都銷售外呼系統(tǒng)公司

%
'####################################
'替換數(shù)據(jù)庫內(nèi)容 lamking 2005-8-22
'更新修正:2006-6-28
'http://www.imbbs.cn QQ:628557
'出售空間域名。網(wǎng)頁制作。
'####################################
'以下請根據(jù)你的不同情況做修改
Const S1="admin" '要被替換的字符串
Const S2="1234" '替換為的字符串
Const Db="lamking.mdb" '數(shù)據(jù)庫
Const IgnoreCase=True '忽略大小寫
'以下數(shù)據(jù)無需更改
Dim oRs,oRs2,conn,I
 Set conn=Server.CreateObject("Adodb.Connection")
  conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="server.mappath(Db)
 Set oRs=conn.OpenSchema(20)
  Do While not oRs.Eof
   If Ucase(oRs("TABLE_TYPE"))="TABLE" Then '如果是用戶表
     '循環(huán)替換該表的每一個字段
      Set oRs2=Server.CreateObject("Adodb.RecordSet")
       oRs2.Open "select * from ["ors("TABLE_NAME")"]",conn,1,3
        Do While Not oRs2.Eof
         For I=0 To oRs2.Fields.Count-1
          '如果是OLE對象或者自動編號字段,則不替換
           If oRs2(I).Properties("ISAUTOINCREMENT")=False And ors2(I).type>205 Then
            oRs2(oRs2(I).Name)=MyReplace(oRs2(I).value)
           End If

         Next
         oRs2.update
        oRs2.MoveNext
        Loop
     oRs2.close
     set oRs2=Nothing
    End If
 oRs.Movenext
 Loop
 oRs.close
 Set oRs=nothing
Conn.close
Set Conn=nothing
Response.Write"替換完成"

Function myreplace(byval Tstr)
Dim RegEx
If Tstr="" Or isnull(Tstr) Then  Exit Function
 Set RegEx=New RegExp
  RegEx.Global = True
  RegEx.IgnoreCase = IgnoreCase
  RegEx.MultiLine = True
  RegEx.Pattern=S1
  myReplace=RegEx.Replace(TStr,S2)
 Set RegEx=Nothing
End Function
%>

標(biāo)簽:內(nèi)江 公主嶺 臺灣 天津 重慶 麗江 懷化 成都

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《替換數(shù)據(jù)庫內(nèi)容》,本文關(guān)鍵詞  替換,數(shù)據(jù)庫,內(nèi)容,替換,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《替換數(shù)據(jù)庫內(nèi)容》相關(guān)的同類信息!
  • 本頁收集關(guān)于替換數(shù)據(jù)庫內(nèi)容的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章