|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
由于ASP还是一种Script语言所没除了大量使用组件外,没有办法提高其工作效率。它必须面对即时编绎的时间考验,同时我们还不知其背后的组件会是一个什么样的状况;xml|数据|数据库save.ASP
<!--#includefile="adoVBs.inc"-->
<%
Constantsfileincludedabove.
假如文件存在则删除
DimobjFSO
SetobjFSO=Server.CreateObject("Scripting.FileSystemObject")
IfobjFSO.FileExists(Server.MapPath("db_XML.xml"))Then
objFSO.DeleteFileServer.MapPath("db_xml.xml")
EndIF
SetobjFSO=Nothing
变量声明
DimcnnXMLADOconnection
DimrstXMLADOrecordset
创立数据毗连工具
SetcnnXML=Server.CreateObject("ADODB.Connection")
这是毗连Access数据库的例子:
cnnXML.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="_
&Server.MapPath("db_scratch.mdb")&";"
上面以Sqlserver为例子解说:
cnnXML.Open"Provider=SQLOLEDB;DataSource=10.2.1.214;"_
&"InitialCatalog=samples;UserId=samples;Password=password;"_
&"ConnectTimeout=15;NetworkLibrary=dbmssocn;"
SetrstXML=Server.CreateObject("ADODB.Recordset")
SetrstXML=cnnXML.Execute("SELECT*FROMscratchORDERBYid;")
Response.Write"<p>SavingdataasXML...</p>"&vbCrLf
保留至xml格局.
rstXML.SaveServer.MapPath("db_xml.xml"),adPersistXML
封闭工具、开释资本
rstXML.Close
SetrstXML=Nothing
cnnXML.Close
SetcnnXML=Nothing
Response.Write"<p>XMLfilewritten...</p>"&vbCrLf
Response.Write"<p>Click<ahref=""db_xml.xml"">here</a>toviewthefile.</p>"&vbCrLf
%>ASP.NET和ASP的比较,技术上比较已经没什么可说的了.新一代在大部分程度来说当然是比旧一代好了.关键看你对所做软件的理解了.因人而定.会写的话也可能比ASP.NET写得更有效率和更方便重用 |
|