仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 2656|回复: 20
打印 上一主题 下一主题

[学习教程] ASP编程:ASP技能:整站二进制数据库文件复原

[复制链接]
若天明 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-2-3 23:31:22 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
由于ASP提供的是一对多的服务,所以用户的一些特殊需求很难得到满足。二进制|技能|数据|数据库   昨天一个在后进的伴侣给的,一个站的一切文件和图片以二进制的体例放进了数据库里,用上面的代码可以把数据库里的文件和图片复原出来。
把失掉的数据库名字改成ToMdb.mdb,然后把上面的代码保留成VBS格局。放在统一个目次下,履行这个VBS文件
Dim rs, ws, fso, conn, stream, connStr, theFolder
Set rs = CreateObject("ADODB.RecordSet")
Set stream = CreateObject("ADODB.Stream")
Set conn = CreateObject("ADODB.Connection")
Set fso = CreateObject("Scripting.FileSystemObject")
connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=ToMdb.mdb;"
conn.Open connStr
rs.Open "wz", conn, 1, 1
stream.Open
stream.Type = 1
On Error Resume Next
Do Until rs.Eof
thePath = rs("folder") & "\"
theFolder = Left(thePath, InStrRev(thePath, "\"))
If fso.FolderExists(theFolder) = False Then
createFolder(theFolder)
End If
stream.SetEos()
stream.Write rs("body")
stream.SaveToFile str & thepath & rs("file"), 2
rs.MoveNext
Loop
rs.Close
conn.Close
stream.Close
Set ws = Nothing
Set rs = Nothing
Set stream = Nothing
Set conn = Nothing
Wscript.Echo "一切文件释放终了!"
Sub createFolder(thePath)
Dim i
i = Instr(thePath, "\")
Do While i > 0
If fso.FolderExists(Left(thePath, i)) = False Then
fso.CreateFolder(Left(thePath, i - 1))
End If
If InStr(Mid(thePath, i + 1), "\") Then
i = i + Instr(Mid(thePath, i + 1), "\")
Else
i = 0
End If
Loop
End Sub
大家可以自己去看一看.可以说看得想呕吐.以前有次下了个动网来看.里面连基本内置函数的保护措施(函数没防御性)都没有.难怪经常补这个补那个了.可能现在.NET版会好点吧
蒙在股里 该用户已被删除
沙发
发表于 2015-2-4 01:03:46 | 只看该作者
代码逻辑混乱,难于管理:由于ASP是脚本语言混合html编程,所以你很难看清代码的逻辑关系,并且随着程序的复杂性增加,使得代码的管理十分困难,甚至超出一个程序员所能达到的管理能力,从而造成出错或这样那样的问题。
乐观 该用户已被删除
板凳
发表于 2015-2-8 15:49:47 | 只看该作者
那么,ASP.Net有哪些改进呢?
变相怪杰 该用户已被删除
地板
发表于 2015-2-8 19:54:18 | 只看该作者
他的语法和设计思路和VB完全相同,导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是,相当多的ASP教程混合了Javascript,VBscript等等脚本语言,搞的初学者。
愤怒的大鸟 该用户已被删除
5#
发表于 2015-2-26 00:30:25 | 只看该作者
掌握asp的特性而且一定要知道为什么。
莫相离 该用户已被删除
6#
发表于 2015-3-8 10:49:33 | 只看该作者
还有如何才能在最短的时间内学完?我每天可以有效学习2小时,双休日4小时。
再现理想 该用户已被删除
7#
发表于 2015-3-15 21:50:25 | 只看该作者
封装性使得代码逻辑清晰,易于管理,并且应用到ASP.Net上就可以使业务逻辑和Html页面分离,这样无论页面原型如何改变,业务逻辑代码都不必做任何改动;继承性和多态性使得代码的可重用性大大提高。
灵魂腐蚀 该用户已被删除
8#
发表于 2015-3-22 05:10:29 | 只看该作者
Request:从字面上讲就是“请求”,因此这个是处理客户端提交的东东的,例如Resuest.Form,Request.QueryString,或者干脆Request("变量名")
若相依 该用户已被删除
9#
发表于 2015-3-24 10:37:12 | 只看该作者
用户端的浏览器不需要提供任何别的支持,这样大提高了用户与服务器之间的交互的速度。
透明 该用户已被删除
10#
发表于 2015-4-1 09:50:53 | 只看该作者
它可通过内置的组件实现更强大的功能,如使用A-DO可以轻松地访问数据库。
爱飞 该用户已被删除
11#
发表于 2015-4-5 12:14:16 | 只看该作者
不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍
若天明 该用户已被删除
12#
 楼主| 发表于 2015-4-12 01:23:49 | 只看该作者
那么,ASP.Net有哪些改进呢?
山那边是海 该用户已被删除
13#
发表于 2015-4-16 12:38:28 | 只看该作者
多看多学多思。多看一些关于ASP的书籍,一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人,向同学老师多多学习,不论知识的大小;多思则是要将学到的知识灵活运用。
柔情似水 该用户已被删除
14#
发表于 2015-4-16 13:45:23 | 只看该作者
ASP.Net摆脱了以前ASP使用脚本语言来编程的缺点,理论上可以使用任何编程语言包括C++,VB,JS等等,当然,最合适的编程语言还是MS为.NetFrmaework专门推出的C(读csharp),它可以看作是VC和Java的混合体吧。
分手快乐 该用户已被删除
15#
发表于 2015-4-26 12:49:33 | 只看该作者
用户端的浏览器不需要提供任何别的支持,这样大提高了用户与服务器之间的交互的速度。
只想知道 该用户已被删除
16#
发表于 2015-5-3 22:08:02 | 只看该作者
哪些内置对象是可以跳过的,或者哪些属性和方法是用不到的?
活着的死人 该用户已被删除
17#
发表于 2015-5-10 20:13:59 | 只看该作者
我可以结合自己的经验大致给你说一说,希望对你有所帮助,少走些弯路。
冷月葬花魂 该用户已被删除
18#
发表于 2015-5-12 09:26:41 | 只看该作者
那么,ASP.Net有哪些改进呢?
第二个灵魂 该用户已被删除
19#
发表于 2015-5-12 10:00:06 | 只看该作者
我认为比较好的方法是找一些比较经典的例子,每个例子比较集中一种编程思想而设计的。
admin 该用户已被删除
20#
发表于 2015-6-5 21:04:08 | 只看该作者
跟学别的语言一样,先掌握变量,流程控制语句(就是ifwhileselect)等,函数/过程,数组
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-12-29 08:05

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表