|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
写软件都是想的时间比写的时间要长的.如果反过来了就得看看是什么原因了.另外大家可以回去问问公司里的小MM.(一般企业里,跟你们交付软件接触得最多的是她们)本人能够修正myreplace函数,完成庞大的交换.呵呵,好象用途不年夜.次要是看看怎样读取access表和字段列表
<%
####################################
交换数据库内容lamking2005-8-22
http://www.lamking.comQQ:628557
####################################
DimDb,Connstr,conn,rs,rs2,str1,str2,I
str1="abcd"要交换的字符串
str2="1234"交换为的字符串
Db="lamking.mdb"
Setconn=Server.CreateObject("ADODB.Connection")
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&server.mappath(Db)
Conn.OpenConnStr
Setrs=conn.OpenSchema(20)
DoWhileNotrs.eof
Ifrs("TABLE_TYPE")="TABLE"Then
SetRs2=Server.Createobject("adodb.recordset")
Rs2.Open"select*from["&rs("TABLE_NAME")&"]",conn,1,3
DoWhileNotRs2.Eof
ForI=0toRs2.fields.count-1
IfRs2(i).Properties("ISAUTOINCREMENT")=FalseThen
Rs2(Rs2(i).name)=Myreplace(Rs2(i).value)
EndIf
Next
Rs2.Movenext
Loop
Rs2.Close
SetRs2=nothing
EndIf
Rs.Movenext
Loop
Rs.close
SetRs=nothing
Conn.close
SetConn=nothing
Response.Write"交换完成"
Functionmyreplace(byvalTstr)
IfTstr=""Orisnull(Tstr)Then
ExitFunction
Else
myReplace=replace(Tstr,str1,str2)
EndIf
EndFunction
%>
缺点:正版成本价格贵(盗版就不说了)、不够安全,大多数服务器用windows系统,没有linux安全 |
|