save.asp
<!-- #include file="adovbs.inc" -->
<%
' Constants file included above.
' 如果文件存在则删除
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(Server.MapPath("db_xml.xml")) Then
objFSO.DeleteFile Server.MapPath("db_xml.xml")
End IF
Set objFSO = Nothing
'变量声明
Dim cnnXML ' ADO connection
Dim rstXML ' ADO recordset
'创建数据连接对象
Set cnnXML = Server.CreateObject("ADODB.Connection")
' 这是连接access数据库的例子:
'cnnXML.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" _
' & Server.MapPath("db_scratch.mdb") & ";"
' 下面以Sqlserver为例子讲解:
cnnXML.Open "Provider=SQLOLEDB;Data Source=10.2.1.214;" _
& "Initial Catalog=samples;User Id=samples;Password=password;" _
& "Connect Timeout=15;Network Library=dbmssocn;"
Set rstXML = Server.CreateObject("ADODB.Recordset")
Set rstXML = cnnXML.Execute("SELECT * FROM scratch ORDER BY id;")
Response.Write "<p>Saving data as XML...</p>" & vbCrLf
' 保存至xml格式.
rstXML.Save Server.MapPath("db_xml.xml"), adPersistXML
' 关闭对象、释放资源
rstXML.Close
Set rstXML = Nothing
cnnXML.Close
Set cnnXML = Nothing
Response.Write "<p>XML file written...</p>" & vbCrLf
Response.Write "<p>Click <a href=""db_xml.xml"">here</a> to view the file.</p>" & vbCrLf
%>
asp下将数据库中的信息存储至XML文件中_应用技巧
时间： 2024-09-21 22:12:38
asp下将数据库中的信息存储至XML文件中_应用技巧的相关文章
ASP将数据库中的信息存储至XML文件中
xml|数据|数据库 save.ASP <!-- #include file="adoVBs.inc" --> <% ' Constants file included above. ' 如果文件存在则删除 Dim objFSO Set objFSO = Server.CreateObject("Scripting.FileSystemObject") If objFSO.FileExists(Serve
asp access数据库并生成XML文件范例_应用技巧
首先来看,ASP读取ACCESS数据库. 复制代码 代码如下: <% @language="VBScript" @codepage="65001"%> <% '开启显式变量声明 Option Explicit '设置输出类型 Response.contentType="text/xml" '定义三个变量,conn(Connection对象).connstr(ConnectionString).sql(一个SQL语句) dim c
asp下用fso和ado.stream写xml文件的方法
asp按关键字查询XML的问题 '------------------------------------------------------ '读取文件 ReadTxtFile(FileName) '------------------------------------------------------ Function ReadTxtFile(FileName) Dim fso,f1,ts,FilePath FilePath=server.mappath(FileName) Set fs
Asp 操作Access数据库时出现死锁.ldb的解决方法_应用技巧
于是我登陆主机的管理面板,重启了网站服务,ldb文件就消失了,网站打开也正常了,但过了数小时后,网站又再次出现以上情况,此种情况持续了好一段时间,网站后来被虚拟主机的供应商屏蔽了,反馈给我的说法是因为我的网站运行时大量占用CPU资源,所以予暂时屏蔽,让我对网站程序或数据库进行优化. 在百度上搜索了一下这方面的情况,结果也不少,总结下来主要都是因为对数据库存取完后,没有及时释放记录集和断开数据库连接,以下谈谈操作Access数据库的标准方法: 1.数据库连接方法:Conn.asp <% dim c
asp下如何在ADO服务器端利用好缓存技术？_应用技巧
请看下面示例,这是一个用来显示图书分类的例子程序: displayBooks.asp < %@ LANGUAGE=JavaScript % > < html > < body > < form method=post > 图书分类: < %= getBooksListBox() % > < p> < input type=submit > < % function getBooksListBox()
asp下实现记录集内随机取记录的代码_应用技巧
记录集内随机取记录的代码 <% ' Moving to random record - Steven Jones' Extension If Not(记录集名称.bof and 记录集名称.eof) Then ' reset the cursor to the beginning If (记录集名称.CursorType > 0) Then 记录集名称.MoveFirst Else 记录集名称.Requery End If 记录集名称_totalrn = -1 记录集名称_totalrn =
asp下用datediff实现计算两个时间差的函数_应用技巧
计算两个时间差的函数 '****************************** '||Function TimeDiff(sBegin, sEnd) '||本函数计算两个时间的差,可以不用更改直接使用 '||作者:machinecat 2001/10/26 '****************************** '****************************** '注:首先需要判断用户输入的sBegin与sEnd之间的大小 '可以通过DataDiff函数获得两者之间的时
asp下取得客户端IP地址函数 转换IP地址函数_应用技巧
<% '****************************** '函数:Userip() '参数:无 '作者:阿里西西 '日期:2007/7/12 '描述:取得客户端IP地址 '示例:<%=Userip()%> '****************************** Function Userip() Dim GetClientIP '如果客户端用了代理服务器,则应该用ServerVariables("HTTP_X_FORWARDED_FOR")方法 G
asp下返回以千分位显示数字格式化的数值_应用技巧
<% '****************************** '函数:comma(str) '参数:str,待处理的数字 '作者:阿里西西 '日期:2007/7/12 '描述:返回以千分位显示数字格式化的数值 '示例:<%=comma("120300")%> '****************************** function comma(str) if not(isnumeric(str)) or str = 0 then result =