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

📄 admin_data.asp

📁 正版创力4.1SQL商业版!!!ASP版。
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
	<tr> 
	  <td height="22" colspan="2" class="title" align="center"><strong>数据库Sql执行程序</strong></td>
	</tr>
	<tr> 
	  <td class="tdbg" colspan="2" align="center"><font color="red">(警告：执行语句要万分小心！)</font><br /><font color="blue">提示：可批量执行SQL语句，每条SQL语句请用回车分开，但最后一条结尾不要加回车。</font></td>
	</tr>
	<tr> 
	  <td width="20%" class="tdbg"><strong>请输入SQL语句：</strong></td>
	  <td width="80%" class="tdbg"> 
		<textarea name="StrSql" style="width:100%" rows="12" id="StrSql"></textarea>
		<br /><a href="javascript:admin_Size(-5,'StrSql')"><img src="images/minus.gif" unselectable="on" border="0"></a> <a href="javascript:admin_Size(5,'StrSql')"><img src="images/plus.gif" unselectable="on" border="0"></a>
	  </td>
	</tr>
	<tr> 
	  <td class="tdbg" colspan="2" align="center"><input type="radio" name="DataBase" value="Article" <%if Session("DoSql")<>"User" then response.write "checked"%> >主数据库&nbsp;&nbsp;&nbsp;&nbsp;<input type="radio" name="DataBase" value="User" <%if Session("DoSql")="User" then response.write "checked"%> >用户表数据库</td>
	</tr>
	 <tr> 
	  <td height="40" colspan="2" align="center" class="tdbg"> 
		<input name="Action" type="hidden" id="Action" value="DoSql">
		<input name="cmdSave" type="submit" id="cmdSave" value="&nbsp;执行SQL语句&nbsp;">
	 </td>
	</tr>
</form>
</table>
<%
end sub
%>
</body>
</html>
<%
sub BackupData()
	dim bkfolder,bkdbname,fso
	bkfolder=Trim(request("bkfolder"))
	bkdbname=Trim(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(Trim(Cl.Web_Info(13)))
	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 & ".bak"
		response.write "<center>备份数据库成功，备份的数据库为 " & bkfolder & "\" & bkdbname & ".bak</center>"
		Cl.SaveAdminLog
		CloseAllObj
	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,"\"))
	on error resume next
	Set Conn = Nothing
	Set Conn_U = Nothing
	Set fso = Server.CreateObject(Trim(Cl.Web_Info(13)))
	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 "压缩成功!"
		Cl.SaveAdminLog
	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)
	on error resume next
	Set Conn = Nothing
	Set Conn_U = Nothing
	Set Fso=server.createobject(Trim(Cl.Web_Info(13)))
	if fso.fileexists(backpath) then                    
		fso.copyfile Backpath,Server.mappath(Dbpath)
		response.write "成功恢复数据！"
	else
		response.write "找不到指定的备份文件！" 
	end if
	Set Fso=Nothing
	Cl.SaveAdminLog
	CloseAllObj
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(Trim(Cl.Web_Info(13)))
	fso.DeleteFile(server.mappath(Document))
	response.write "成功删除数据库！"
	Set Fso=Nothing
	Cl.SaveAdminLog
	CloseAllObj
End sub

sub ClearData()
	dim z,sClass,sInfo,sSpecial,sComment,sJs,sTempID
	sClass      = Replace(Trim(request("AllClass"))," ","")
	sInfo       = Replace(Trim(request("AllInfo"))," ","")
	sSpecial    = Replace(Trim(request("AllSpecial"))," ","")
	sComment    = Replace(Trim(request("AllComment"))," ","")
	sJs         = Replace(Trim(request("AllJs"))," ","")
	z           = 0
	response.write "<div><ol>"
	if sClass<>"" and IsNumeric(Replace(sClass,",","")) then
		sTempID=Split(sClass,",")
		For i=0 to Ubound(sTempID)
			Cl.Execute("delete From Cl_Class where ChannelID="&Clng(sTempID(i))&"")
			response.write "<li>成功清除了选定频道ID为 "&Clng(sTempID(i))&" 的栏目！<br />"
			response.Flush
			z=z+1
		Next
	end if
	if sInfo<>"" and IsNumeric(Replace(sInfo,",","")) then
		sTempID=Split(sInfo,",")
		For i=0 to Ubound(sTempID)
			Select Case Cl.Execute("Select ModuleID From Cl_Channel Where ChannelID="&Clng(sTempID(i))&"")(0)
			Case 1
				Cl.Execute("delete From Cl_Article where ChannelID="&Clng(sTempID(i))&"")
			Case 2
				Cl.Execute("delete From Cl_Soft where ChannelID="&Clng(sTempID(i))&"")
			Case 3
				Cl.Execute("delete From Cl_Photo where ChannelID="&Clng(sTempID(i))&"")
			Case 4
				Cl.Execute("delete From Cl_Movie where ChannelID="&Clng(sTempID(i))&"")
			Case 5
				Cl.Execute("delete From Cl_Product where ChannelID="&Clng(sTempID(i))&"")
			End Select
			response.write "<li>成功清除了选定频道ID为 "&Clng(sTempID(i))&" 的内容！<br />"
			response.Flush
			z=z+1
		Next
	end if
	if sSpecial<>"" and IsNumeric(Replace(sSpecial,",","")) then
		sTempID=Split(sSpecial,",")
		For i=0 to Ubound(sTempID)
			Cl.Execute("delete From Cl_Special where ChannelID="&Clng(sTempID(i))&"")
			response.write "<li>成功清除了选定频道ID为 "&Clng(sTempID(i))&" 的专题！<br />"
			response.Flush
			z=z+1
		Next
	end if
	if sComment<>"" and IsNumeric(Replace(sComment,",","")) then
		sTempID=Split(sComment,",")
		For i=0 to Ubound(sTempID)
			Cl.Execute("delete From Cl_Comment where ChannelID="&Clng(sTempID(i))&"")
			response.write "<li>成功清除了选定频道ID为 "&Clng(sTempID(i))&" 的评论！<br />"
			response.Flush
			z=z+1
		Next
	end if
	if sJs<>"" and IsNumeric(Replace(sJs,",","")) then
		sTempID=Split(sJs,",")
		For i=0 to Ubound(sTempID)
			Cl.Execute("delete From Cl_Js where ChannelID="&Clng(sTempID(i))&"")
			response.write "<li>成功清除了选定频道ID为 "&Clng(sTempID(i))&" 的JS！<br />"
			response.Flush
			z=z+1
		Next
	end if
	if request("PublicSpecial")="yes" then
		Cl.Execute("delete From Cl_Special where ChannelID=-1 or ChannelID=0")
		response.write "<li>成功清除了选定频道ID为 -1 0 的专题！<br />"
		response.Flush
		z=z+1
	end if
	if request("Announce")="yes" then
		Cl.Execute("delete from Cl_Announce")
		response.write "<li>成功清除了所有公告！<br />"
		response.Flush
		z=z+1
	end if
	if request("Ads")="yes" then
		Cl.Execute("delete from Cl_Ads")
		response.write "<li>成功清除了所有广告！<br />"
		response.Flush
		z=z+1
	end if
	if request("Vote")="yes" then
		Cl.Execute("delete from Cl_Vote")
		response.write "<li>成功清除了所有调查！<br />"
		response.Flush
		z=z+1
	end if
	if request("LinkSite")="yes" then
		Cl.Execute("delete from Cl_LinkSite")
		response.write "<li>成功清除了所有友情链接！<br />"
		response.Flush
		z=z+1
	end if
	if request("LinkClass")="yes" then
		Cl.Execute("delete from Cl_LinkClass")
		response.write "<li>成功清除了所有友情链接栏目！<br />"
		response.Flush
		z=z+1
	end if
	if request("Label")="yes" then
		Cl.Execute("delete from Cl_Label")
		response.write "<li>成功清除了所有自定义标签！<br />"
		response.Flush
		z=z+1
	end if
	if request("KeyWord")="yes" then
		Cl.Execute("delete from Cl_KeyWord")
		response.write "<li>成功清除了所有网站关键字！<br />"
		response.Flush
		z=z+1
	end if
	if request("Message")="yes" then
		Cl.Execute_U("delete from "&Db.MessageTable&"")
		response.write "<li>成功清除了所有短消息！<br />"
		response.Flush
		z=z+1
	end if
	if request("BookMark")="yes" then
		Cl.Execute("delete from Cl_BookMark")
		response.write "<li>成功清除了所有收藏！<br />"
		response.Flush
		z=z+1
	end if
	if request("Guest")="yes" then
		Cl.Execute("delete from Cl_Guest")
		response.write "<li>成功清除了所有留言！<br />"
		response.Flush
		z=z+1
	end if
	if request("User")="yes" then
		Cl.Execute_U("delete from " & Db.UserTable & " where " & Db.UserGroupID & "<>1 ")
		response.write "<li>成功清除了所有用户（除管理员）！<br />"
		response.Flush
		z=z+1
	end if
	if request("PlusCz")="yes" then
		Cl.Execute("delete from Cl_UserCz")
		response.write "<li>成功清除了所有充值卡！<br />"
		response.Flush
		z=z+1
	end if
	if request("AdminLog")="yes" then
		Cl.Execute_L("delete from Cl_AdminLog where Datediff('d',LogTime,'"&Now&"')>2")
		response.write "<li>成功清除了所有管理LOG记录！<br />"
		response.Flush
		z=z+1
	end if
	if request("SQLLog")="yes" then
		Cl.Execute_L("delete from Cl_SQLLog")
		response.write "<li>成功清除了所有SQLLOG记录！<br />"
		response.Flush
		z=z+1
	end if
	if request("UpLoadLog")="yes" then
		Cl.Execute("delete from Cl_UpFileLog")
		response.write "<li>成功清除了所有上传LOG记录！<br />"
		response.Flush
		z=z+1
	end if

	response.write "</ol></div>"
	if z>0 then
		response.write "<font color=#0000ff><b>" &cstr(z) & "个数据库被清空，你可以开始添加新内容。</b></font>"
	else
		response.write "<font color=#0000ff><b>你没有选择任何数据库，0个数据库被清空。</b></font>"
	end if
	Cl.SaveAdminLog
	CloseAllObj
end sub

Sub ShowSpaceInfo(drvpath)
	dim fso,d,size
	set fso=server.createobject(Trim(Cl.Web_Info(13)))      
	drvpath=server.mappath(drvpath)                 
	set d=fso.getfolder(drvpath)        
	size=d.size
	response.write "<font face=verdana>" & Cl.GetSize(size,"b") & "</font>"
End Sub 

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

<B>三、收缩数据库</B><br /><br />
一般情况下，SQL数据库的收缩并不能很大程度上减小数据库大小，其主要作用是收缩日志大小，应当定期进行此操作以免数据库日志过大<br />
1、设置数据库模式为简单模式：打开SQL企业管理器，在控制台根目录中依次点开Microsoft SQL Server-->SQL Server组-->双击打开你的服务器-->双击打开数据库目录-->选择你的数据库名称（如网站数据库Cl_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 DoSql()
	Cl.SaveAdminLog
	Dim StrSql,DataBase,StrMsg
	StrSql=Replace(Request("StrSql"),vbcrlf,"@$@$@")
123

⌨️ 快捷键说明

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