⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_data.asp

📁 本房地产网站功能强大
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 

%>
<%
Sub GetSpaceInfo()
Dim SysPath, FSO, F, FC, I, I2
%>
<table width='100%' border='0' align="center" cellpadding='2' cellspacing='1' class="border">
  <tr>
    <th height='25'>系统空间使用情况</th>
  </tr>
</table>
<table width='100%' border='0' align="center" cellpadding='2' cellspacing='1' class="tableBorder" oncontextmenu=""return false"">
  <tr>
    <td valign='top' class="tdbg">
<br><table width=98% border=0 align='center' cellpadding=2 cellspacing=1 bgcolor='#C4D8ED'>
<%    
SysPath = Server.MapPath(fcml) 
Set Fso=server.createobject("Scripting.FileSystemObject")
Set F = FSO.GetFolder(SysPath)
Set FC = F.SubFolders
		I = 1
		I2 = 1
For Each F In FC
%>
        <tr>
          <td height=25 bgcolor='#EEF8FE'><img src='Images/clsfld.gif' align='absmiddle'>&nbsp;<b><%=F.name%></b>&nbsp; 占用空间：&nbsp;<img src=Images/bar1.gif width="<%=Drawbar(fcml&F.name)%>" height=10>&nbsp;
<%ShowSpaceInfo (fcml&F.name)%>
          </td>
        </tr>
<%
I = I + 1
	If I2 < 10 Then
	I2 = I2 + 1
	Else
	I2 = 1
	End If
Next
%>						  
        <tr>
          <td height='25' bgcolor='#EEF8FE'> 程序文件占用空间：&nbsp;<img src='Images/bar1.gif' width="<%=Drawspecialbar%>" height=10>&nbsp;				
<%Showspecialspaceinfo ("Program")%>				
          </td>
        </tr>
      </table>
      <table width=90% border=0 align='center' cellpadding=3 cellspacing=1 bgcolor="#C4D8ED">
        <tr>
          <td height='28' align='right' bgcolor='#FFFFFF'><font color='#FF0066'><strong><font color='#006666'>系统占用空间总计：</font></strong>
<%Showspecialspaceinfo ("All")%>
            </font> </td>
        </tr>
      </table></td>
  </tr>
</table>
<%		End Sub
		Sub ShowSpaceInfo(drvpath)
        Dim FSO, d, size, showsize
        Set Fso=server.createobject("Scripting.FileSystemObject")
        Set d = FSO.GetFolder(Server.MapPath(fcml & drvpath))
        size = d.size
        showsize = size & "&nbsp;Byte"
        If size > 1024 Then
           size = (size \ 1024)
           showsize = size & "&nbsp;KB"
        End If
        If size > 1024 Then
           size = (size / 1024)
           showsize = size & "&nbsp;MB"
        End If
        If size > 1024 Then
           size = (size / 1024)
           showsize = size & "&nbsp;GB"
        End If
        Response.Write "<font face=verdana>" & showsize & "</font>"
      End Sub
	  Sub Showspecialspaceinfo(method)
			Dim FSO, d, FC, f1, size, showsize, drvpath
			Set Fso=server.createobject("Scripting.FileSystemObject")
			Set d = FSO.GetFolder(Server.MapPath(fcml))
			If method = "All" Then
				size = d.size
			ElseIf method = "Program" Then
				Set FC = d.Files
				For Each f1 In FC
					size = size + f1.size
				Next
			End If
			showsize = size & "&nbsp;Byte"
			If size > 1024 Then
			   size = (size \ 1024)
			   showsize = size & "&nbsp;KB"
			End If
			If size > 1024 Then
			   size = (size / 1024)
			   showsize = size & "&nbsp;MB"
			End If
			If size > 1024 Then
			   size = (size / 1024)
			   showsize = size & "&nbsp;GB"
			End If
			Response.Write "<font face=verdana>" & showsize & "</font>"
		End Sub
		Function Drawbar(drvpath)
			Dim FSO, drvpathroot, d, size, totalsize, barsize
			Set Fso=server.createobject("Scripting.FileSystemObject")
			Set d = FSO.GetFolder(Server.MapPath(fcml))
			totalsize = d.size
			Set d = FSO.GetFolder(Server.MapPath(drvpath))
			size = d.size
			
			barsize = CInt((size / totalsize) * 100)
			Drawbar = barsize
		End Function
		Function Drawspecialbar()
			Dim FSO, drvpathroot, d, FC, f1, size, totalsize, barsize
			Set Fso=server.createobject("Scripting.FileSystemObject")
			Set d = FSO.GetFolder(Server.MapPath(fcml))
			totalsize = d.size
			Set FC = d.Files
			For Each f1 In FC
				size = size + f1.size
			Next
			barsize = CInt((size / totalsize) * 100)
			Drawspecialbar = barsize
		End Function

%></body>
</html>
<%
sub BackupData()
	dim bkfolder,bkdbname,fso
	bkfolder=replace(request("bkfolder"),".","")
	bkdbname=replace(request("bkdbname"),".","")
	if bkfolder="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>请指定备份目录！</li>"
	end if
	if bkdbname="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>请指定备份文件名</li>"
	end if
	if FoundErr=True then exit sub
	bkfolder=server.MapPath(bkfolder)
	Set Fso=server.createobject("Scripting.FileSystemObject")
	if fso.FileExists(server.mappath(dbpath)) then
		If fso.FolderExists(bkfolder)=False Then
			fso.CreateFolder(bkfolder)
		end if
		fso.copyfile server.mappath(dbpath),bkfolder & "\" & bkdbname & ".mdb"
		
		response.write "<center>备份数据库成功，备份的数据库为 " & bkfolder & "\" & bkdbname & ".mdb</center>"
	Else
		response.write "<center>找不到源数据库文件，请检查Conn.asp中的配置。</center>"
	End if
end sub

sub CompactData()
	Dim fso, Engine, strDBPath
	DbPath=Server.mappath(Dbpath)
	response.write "主数据库"
	strDBPath = left(dbPath,instrrev(DBPath,"\"))
	
	Set Conn = Nothing
	Set Conn_U = Nothing
	Set fso = Server.CreateObject("Scripting.FileSystemObject")
	If fso.FileExists(dbPath) Then
		Set Engine = CreateObject("JRO.JetEngine")
		Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath," Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb"
		fso.CopyFile strDBPath & "temp.mdb",dbpath
		fso.DeleteFile(strDBPath & "temp.mdb")
		Set fso = Nothing
		Set Engine = Nothing
		response.write "压缩成功!"
	Else
		response.write "没有找到!"
	End If
end sub

sub RestoreData()
	dim backpath,fso
	backpath=request.form("backpath")
	if backpath="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>请指定原备份的数据库文件名！<li>"
		exit sub	
	end if
	backpath=server.mappath(backpath)
	
	Set Conn = Nothing
	Set Conn_U = Nothing
	Set Fso=server.createobject("Scripting.FileSystemObject")
	if fso.fileexists(backpath) then  					
		fso.copyfile Backpath,Server.mappath(Dbpath)
		response.write "成功恢复数据！"
	else
		response.write "找不到指定的备份文件！"	
	end if
	Set Fso=Nothing
end sub

Sub DelBackup()
	dim Document,fso
	Document=request.form("Document")
	if Document="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>请指定备份的数据库文件名！<li>"
		exit sub	
	end if
	Set Fso=server.createobject("Scripting.FileSystemObject")
	fso.DeleteFile(server.mappath(Document))
	response.write "成功删除数据库！"
	Set Fso=Nothing
End sub

Sub ShowSpaceInfo(drvpath)
	dim fso,d,size
	set fso=server.createobject("Scripting.FileSystemObject") 		
	drvpath=server.mappath(drvpath) 		 		
	set d=fso.getfolder(drvpath) 		
	size=d.size
	response.write "<font face=verdana>" & GetSize(size,"b") & "</font>"
End Sub	
Function GetSize(size,unit)
		if isEmpty(size) or Not Isnumeric(size) then Exit Function
		size=CheckUnit(size,unit)
 		if size>1024 then
 			size=(size/1024)
 			getsize=formatnumber(size,2) & " MB"
		else
			getsize=size & " KB"
			Exit Function
 		end if
 		if size>1024 then
 			size=(size/1024)
 			getsize=formatnumber(size,2) & " GB"
 		end if
	End Function
	Function CheckUnit(size,unit)
		Select Case Lcase(Unit)
		Case "b"
			CheckUnit = formatnumber(size/1024,2)
		Case "k"
			CheckUnit = size
		Case "m"
			CheckUnit = (size*1024)
		Case "g"
			CheckUnit = (size*1024*1024)
		Case Else
			CheckUnit = size
		End Select
	End Function


sub SQLUserReadme()
%>
		<table border="0"  cellspacing="1" cellpadding="5" height="1" align=center width="95%" class="Border">			<tr>
  					<td height=25 class="title">
  					&nbsp;&nbsp;SQL数据库数据处理说明
  					</td>
  				</tr> 	
 				<tr>
 					<td class="tdbg"> 			
 			<blockquote>
<B>一、备份数据库</B>
<BR><BR>
1、打开SQL企业管理器，在控制台根目录中依次点开Microsoft SQL Server<BR>
2、SQL Server组-->双击打开你的服务器-->双击打开数据库目录<BR>
3、选择你的数据库名称（如网站数据库fy_Web）-->然后点上面菜单中的工具-->选择备份数据库<BR>
4、备份选项选择完全备份，目的中的备份到如果原来有路径和名称则选中名称点删除，然后点添加，如果原来没有路径和名称则直接选择添加，接着指定路径和文件名，指定后点确定返回备份窗口，接着点确定进行备份
<BR><BR>
<B>二、还原数据库</B><BR><BR>
1、打开SQL企业管理器，在控制台根目录中依次点开Microsoft SQL Server<BR>
2、SQL Server组-->双击打开你的服务器-->点图标栏的新建数据库图标，新建数据库的名字自行取<BR>
3、点击新建好的数据库名称（如网站数据库fy_Web）-->然后点上面菜单中的工具-->选择恢复数据库<BR>
4、在弹出来的窗口中的还原选项中选择从设备-->点选择设备-->点添加-->然后选择你的备份文件名-->添加后点确定返回，这时候设备栏应该出现您刚才选择的数据库备份文件名，备份号默认为1（如果您对同一个文件做过多次备份，可以点击备份号旁边的查看内容，在复选框中选择最新的一次备份后点确定）-->然后点击上方常规旁边的选项按钮<BR>
5、在出现的窗口中选择在现有数据库上强制还原，以及在恢复完成状态中选择使数据库可以继续运行但无法还原其它事务日志的选项。在窗口的中间部位的将数据库文件还原为这里要按照你SQL的安装进行设置（也可以指定自己的目录），逻辑文件名不需要改动，移至物理文件名要根据你所恢复的机器情况做改动，如您的SQL数据库装在D:\Program Files\Microsoft SQL Server\MSSQL\Data，那么就按照您恢复机器的目录进行相关改动改动，并且最后的文件名最好改成您当前的数据库名（如原来是fy_Web_data.mdf，现在的数据库是fy_Web，就改成fy_Web_data.mdf），日志和数据文件都要按照这样的方式做相关的改动（日志的文件名是*_log.ldf结尾的），这里的恢复目录您可以自由设置，前提是该目录必须存在（如您可以指定d:\sqldata\fy_Web_data.mdf或者d:\sqldata\fy_Web_log.ldf），否则恢复将报错<BR>
6、修改完成后，点击下面的确定进行恢复，这时会出现一个进度条，提示恢复的进度，恢复完成后系统会自动提示成功，如中间提示报错，请记录下相关的错误内容并询问对SQL操作比较熟悉的人员，一般的错误无非是目录错误或者文件名重复或者文件名错误或者空间不够或者数据库正在使用中的错误，数据库正在使用的错误您可以尝试关闭所有关于SQL窗口然后重新打开进行恢复操作，如果还提示正在使用的错误可以将SQL服务停止然后重起看看，至于上述其它的错误一般都能按照错误内容做相应改动后即可恢复<BR><BR>

<B>三、收缩数据库</B><BR><BR>
一般情况下，SQL数据库的收缩并不能很大程度上减小数据库大小，其主要作用是收缩日志大小，应当定期进行此操作以免数据库日志过大<BR>
1、设置数据库模式为简单模式：打开SQL企业管理器，在控制台根目录中依次点开Microsoft SQL Server-->SQL Server组-->双击打开你的服务器-->双击打开数据库目录-->选择你的数据库名称（如网站数据库fy_Web）-->然后点击右键选择属性-->选择选项-->在故障还原的模式中选择“简单”，然后按确定保存<BR>
2、在当前数据库上点右键，看所有任务中的收缩数据库，一般里面的默认设置不用调整，直接点确定<BR>
3、<font color=blue>收缩数据库完成后，建议将您的数据库属性重新设置为标准模式，操作方法同第一点，因为日志在一些异常情况下往往是恢复数据库的重要依据</font>
<BR><BR>

<B>四、设定每日自动备份数据库</B><BR><BR>
<font color=red>强烈建议有条件的用户进行此操作！</font><BR>
1、打开企业管理器，在控制台根目录中依次点开Microsoft SQL Server-->SQL Server组-->双击打开你的服务器<BR>
2、然后点上面菜单中的工具-->选择数据库维护计划器<BR>
3、下一步选择要进行自动备份的数据-->下一步更新数据优化信息，这里一般不用做选择-->下一步检查数据完整性，也一般不选择<BR>
4、下一步指定数据库维护计划，默认的是1周备份一次，点击更改选择每天备份后点确定<BR>
5、下一步指定备份的磁盘目录，选择指定目录，如您可以在D盘新建一个目录如：d:\databak，然后在这里选择使用此目录，如果您的数据库比较多最好选择为每个数据库建立子目录，然后选择删除早于多少天前的备份，一般设定4－7天，这看您的具体备份要求，备份文件扩展名一般都是bak就用默认的<BR>
6、下一步指定事务日志备份计划，看您的需要做选择-->下一步要生成的报表，一般不做选择-->下一步维护计划历史记录，最好用默认的选项-->下一步完成<BR>
7、完成后系统很可能会提示Sql Server Agent服务未启动，先点确定完成计划设定，然后找到桌面最右边状态栏中的SQL绿色图标，双击点开，在服务中选择Sql Server Agent，然后点击运行箭头，选上下方的当启动OS时自动启动服务<BR>
8、这个时候数据库计划已经成功的运行了，他将按照您上面的设置进行自动备份
<BR><BR>
修改计划：<BR>
1、打开企业管理器，在控制台根目录中依次点开Microsoft SQL Server-->SQL Server组-->双击打开你的服务器-->管理-->数据库维护计划-->打开后可看到你设定的计划，可以进行修改或者删除操作
<BR><BR>
<B>五、数据的转移（新建数据库或转移服务器）</B><BR><BR>
一般情况下，最好使用备份和还原操作来进行转移数据，在特殊情况下，可以用导入导出的方式进行转移，这里介绍的就是导入导出方式，导入导出方式转移数据一个作用就是可以在收缩数据库无效的情况下用来减小（收缩）数据库的大小，本操作默认为您对SQL的操作有一定的了解，如果对其中的部分操作不理解，可以咨询动网相关人员或者查询网上资料<BR>
1、将原数据库的所有表、存储过程导出成一个SQL文件，导出的时候注意在选项中选择编写索引脚本和编写主键、外键、默认值和检查约束脚本选项<BR>
2、新建数据库，对新建数据库执行第一步中所建立的SQL文件<BR>
3、用SQL的导入导出方式，对新数据库导入原数据库中的所有表内容<BR>
 			</blockquote> 	
 					</td>
 				</tr>
 			</table>
<%
end sub

Sub ServerInfo()
'
%>
<br>
<SCRIPT language="JScript" runat="server">
function getJVer(){
  //获取JScript 版本
  return ScriptEngineMajorVersion() +"."+ScriptEngineMinorVersion()+"."+ ScriptEngineBuildVersion();
}
</SCRIPT>
<table border="0" cellspacing="1" cellpadding="5" align=center class="Border">
	<tr class="title">
		<td height=25 colspan=4 align=center>系统信息检测情况</td>
	</tr>
	<tr class="tdbg">
		<td width="25%" height=23>网站名称:</td>
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -