asp怎么替换数据库内容呢

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
asp ห้องสมุดไป่ตู้么替换数据库内容呢
欢迎大家在这里学习 asp 怎幺替换数据库内容!这里是我们给大家整理出 来的精彩内容。我相信，这些问题也肯定是很多朋友在关心的，所以我就给 大家谈谈这个! ‘#################################### ‘替换数据库内容 lamking 2005-8-22 ‘更新修正：2006-6-28 ‘imbbs QQ:628557 ‘出售空间域名。网页制作。 ‘#################################### ‘以下请根据你的不同情况做修改 Const S1=“admin” ‘要被替换的字符串 Const S2=“1234” ‘替换为的字符串
RegEx.IgnoreCase = IgnoreCase RegEx.MultiLine = True RegEx.Pattern=S1 myReplace=RegEx.Replace(TStr,S2) Set RegEx=Nothing End Function %>; 好了，asp 怎幺替换数据库内容内容就给大家介绍到这里了。希望大家学业 有成，工作顺利
Const Db=“lamking.mdb” ‘数据库 Const IgnoreCase=True ‘忽略大小写 ‘以下数据无需更改 Dim oRs,oRs2,conn,I Set conn=Server.CreateObject(“Adodb.Connection”) conn.Open Source=“&server.mappath(Db) Set oRs=conn.OpenSchema(20) Do While not oRs.Eof If Ucase(oRs(“TABLE_TYPE”))=“TABLE” Then ‘如果是用户表 ‘循环替换该表的每一个字段 Set oRs2=Server.CreateObject(“Adodb.RecordSet”) oRs2.Open “select * from [“&ors(“TABLE_NAME”)&”]”,conn,1,3 “Provider=Microsoft.Jet.OLEDB.4.0;Data
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