首页 >> 读书频道 >> 电脑 >> asp实现数据记录的备份及恢复
 
· 在linux上用ASP
· 在程序中直接设定待连接的
· ADO 事件模型
· Global.asa 参
· Session对象在各浏
· asp分页显示详论讨
· 关于ASP程序中日期型数
· 用几行Asp代码实现防止
· 在Asp中使用存储过程
· 复杂表单的动态生成与动态
· ASP中实用的广告交替组
· IIS5中asp详细出错
 
· 红楼梦:120回全本[清
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
· 武林寓言故事
· 2006高考录取规则
· 首批中国世界名牌产品和2
· 济南美食大全
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

asp实现数据记录的备份及恢复


查看有无更新版本

关键字:ASP 2006-8-28

 

保存数据记录到文件中:
set fs=server.CreateObject("Scripting.FileSystemObject")
FilePath=server.MapPath("backup.txt")
OldFilePath=server.MapPath("oldbackup.txt")
fs.DeleteFile OldFilePath,true
fs.MoveFile FilePath,OldFilePath
set f=fs.OpenTextFile(FilePath,8,true)
f.writeline rs.RecordCount
f.writeline rs.Fields.count
for i=1 to rs.RecordCount
'f.writeline i
for j=0 to rs.Fields.count-1
tt=rs.Fields(j)
if Len(rs.Fields(j)) then '对非空记录
tt=cstr(tt)
tt=replace(tt,chr(13)&chr(10),chr(35)&chr(35)) '替换记录中的换行符
end if
f.writeline rs.fields(j).name&"="&tt
next
rs.movenext
next
以下是恢复数据记录到库中:
其中用到的函数:
function rsname(str) '取字段名称
str=cstr(str)
tt=instr(1,str,"=")
rsname=left(str,tt-1)
end function
function rsvalue(str) '取字段值
str=cstr(str)
tt=instr(1,str,"=")
rsvalue=replace(mid(str,tt+1),chr(35)&chr(35),chr(13)&chr(10)) '恢复回车符
end function
function DelPoint(sql) '去掉sql中最后一个","
l=len(sql)
l=l-1
sql=Left(sql,l)
delpoint=sql
end function
<%
sum=f.readline
sum=cint(sum) '总记录数
fields=f.readline
fields=cint(fields)'列数
dim str()
for n=1 to sum
for m=0 to fields-1
redim preserve str(m)
str(m)=f.readline
next
sql1="insert into gajjsj ("
sql2=" values ("
for m=0 to fields-1
sql1=sql1&rsname(str(m))&","
sql2=sql2&rsvalue(str(m))&","
next
sql1=Delpoint(sql1)&") "
sql2=Delpoint(sql2)&")"
sql=sql1&sql2
Response.Write "第"&n&"条记录:"&"<br>sql:"&sql&"<br><br>"
conn.Execute (sql) '自定义函数执行sql
redim str(1)
next
%>

asp实现数据记录的备份及恢复

[ 1 ]
asp实现数据记录的备份及恢复 num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑