|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
在实现ERP等高端的ASP应用时,用户需要提供核心的经营资料,需要ASP商有很高的信用度。楼上说交互性不好,太牵强了吧。在微软提供的一套框架中,利用asp做网站,开发效率高,使用人数少,减少不必要的开销。交互性是互动方式,是有开发人员决定的。access|数据|数据库|字符串本人能够修正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
%>
</p>ASP.NET和ASP的比较,技术上比较已经没什么可说的了.新一代在大部分程度来说当然是比旧一代好了.关键看你对所做软件的理解了.因人而定.会写的话也可能比ASP.NET写得更有效率和更方便重用 |
|