ASP网页编程之ASP完成备份sql server数据

只看该作者 · 发表于 2015-2-3 23:30:16

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

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

x

asp可以使用微软的activeX 使得网页功能无比强大，不过安全性也较差，而且是基于的windows服务器，所以性能稳定性也一般server|sql|备份|数据　　建个bak文件夹啊，放数据！
　　db.asp代码以下：
<%
dim conn
dim connstr
'on error resume next
set conn=server.CreateObject("adodb.connection")
connstr="Provider=SQLOLEDB;data source=192.168.2.1;UID=sa;Pwd=123;DataBase=test"
conn.Open connstr
if err<>0 then
  Response.Write "没法创立到数据库的毗连！"
end if
%>
　　backup.asp代码以下：

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<META NAME="Generator" CONTENT="EditPlus">
<TITLE> 数据备份体系 </TITLE>
<style type="text/CSS">
a{color:fff;text-decoration:none;}
a:hover{color:ccc;text-decoration:underline;}
ul{border-top:1px solid #fff;
border-left:1px solid #fff;
border-right:1px solid #fff;
margin:0px;
width:400px;}
li{list-style:none;border-bottom:1px solid #fff;height:25px;padding:4px;text-align:left;}
#box{list-style:none;border-bottom:1px solid #fff;height:25px;padding:4px;text-align:center;}
body{
background:#037EC5;
color:#fff;
font-size:12px;
text-align:center;
font-family:tahoma;
margin:0px;
}
#bak{position:absolute;
left:360px;
top:100px;
height:40px;
border:1px solid #ccc;
padding:20px;
FILTER: Alpha(opacity=75);
background:#fff;
color:#000;
}
</style>
</HEAD>
<BODY>
<%
Server.ScriptTimeOut=1000
ON error resume next
'====================
'=====xhtml制造=========
'=====2005-3-31======
function CreateFile(sql)
Dim fso, tf,filename
filename=replace(replace(now()," ","-"),":","-")&".sql"
filename=server.mappath("bak/"&table&filename)
Set fso = CreateObject("Scripting.FileSystemObject")
Set tf = fso.CreateTextFile(filename, True)
tf.WriteLine "SET IDENTITY_INSERT ["&table&"] ON"
tf.WriteLine sql
tf.WriteLine "SET IDENTITY_INSERT ["&table&"] OFF"
tf.Close
end function

'读取表名
  Set rs = conn.OpenSchema(20)
  Response.Write"<ul><li id='box'>SQL SERVER数据备份剧本</li>"
  Do While Not rs.EOF
   If rs("TABLE_TYPE") = "TABLE" Then
      Response.Write "<li>□ <a href='?table="&rs("TABLE_NAME")&"'>备份  "& rs("TABLE_NAME") &"</a></li>"
   End If
   rs.MoveNext
  Loop
  Response.Write"</ul>"
  Set rs = Nothing
  table=request.querystring("table")
  if table<>"" then
mysql="select * from "&table
set rs=server.createobject("adodb.recordset")
rs.open mysql,conn,1,1

' 将字段称号轮回读出
ColCount = Rs.Fields.Count
for intCount= 0 to ColCount-2

            sqlBak=sqlBak&rs.Fields(intCount).Name&","

      next
      '在最初的字段后加括号
      sqlBak=sqlBak&Rs.Fields(ColCount-1).Name&")"
      sqlHead="INSERT into ["&table&"]("&sqlBak&"values("
      do while not rs.eof
for intCount= 0 to ColCount-2
                     mainSTR=replace(Rs.Fields(intCount).Value,"'","''")
                     if Rs.Fields(intCount).type=3 then
                     sqlData=sqlData&mainSTR&","
                     else
                     sqlData=sqlData&"'"&mainSTR&"',"
                     end if

next
      '最初的字段
      '交换单引号
      lastSTR=replace(Rs.Fields(ColCount-1).Value,"'","''")
      if Rs.Fields(ColCount-1).type=3 then
                     sqlData=sqlData&lastSTR&")"&vblf&sqlHead
                     else
                     sqlData=sqlData&"'"&lastSTR&"')"&vblf&sqlHead
      end if

rs.movenext
loop
sqldata=sqlHead&sqldata
sqllong=len(sqldata)-len(vblf&sqlHead)
sqldata=left(sqldata,sqllong)
rs.close
set rs=nothing
conn.close
set conn=nothing
CreateFile(sqldata)
else
response.end
end if
%>
</BODY>
</HTML>
asp，你就只能等着微软给你解决，它不乐意你就只好悲催。而且asp跑在windows服务器上，windows服务器跟linux比起来简直弱爆了！

只看该作者 · 发表于 2015-2-4 00:04:16

Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write

只看该作者 · 发表于 2015-2-9 07:40:24

我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。

只看该作者 · 发表于 2015-2-26 09:05:28

ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。

只看该作者 · 发表于 2015-3-8 13:00:08

我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。

只看该作者 · 发表于 2015-3-13 01:08:17

那么，ASP.Net有哪些改进呢？

仓酷云 · 发表于 2015-3-20 08:06:41

ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。

只看该作者 · 发表于 2015-3-27 06:10:49

弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。

只看该作者 · 发表于 2015-3-27 20:08:36

作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。

只看该作者 · 发表于 2015-4-6 16:47:11

我想问如何掌握学习节奏(先学什么再学什么)最好详细点?

只看该作者 · 发表于 2015-4-8 03:57:15

另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件)

只看该作者 · 发表于 2015-4-12 14:18:48

Session:这个存储跟客户端会话过程的数据，默认20分钟失效

只看该作者 · 发表于 2015-4-14 06:02:38

如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。

只看该作者 · 发表于 2015-5-12 05:46:33

虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家，只是从一个例子告诉你怎么用。不会深入讨论，更不会将没有出现在例子里的方法都一一列举出来。

只看该作者 · 发表于 2015-5-12 07:40:19

Session:这个存储跟客户端会话过程的数据，默认20分钟失效

只看该作者 · 发表于 2015-6-3 21:33:25

如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。

只看该作者 · 发表于 2015-6-9 22:08:15

完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。

只看该作者 · 发表于 2015-6-12 05:34:10

代码逻辑混乱，难于管理：由于ASP是脚本语言混合html编程，所以你很难看清代码的逻辑关系，并且随着程序的复杂性增加，使得代码的管理十分困难，甚至超出一个程序员所能达到的管理能力，从而造成出错或这样那样的问题。

只看该作者 · 发表于 2015-6-29 06:31:44

在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。

		自动登录	找回密码
密码			立即注册

[学习教程] ASP网页编程之ASP完成备份sql server数据

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

相关帖子