📄 db_hf.asp

📁 医药进销存管理系统全代码很详细可惜没有数据库可供参考

💻 ASP

字号:

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include virtual="/manage/include/top.asp"-->
<style type="text/css">
</style>
<tr bgcolor="#dddddd">
  <td height="1" colspan="4"></td>
</tr>
<tr>
  <td height="34" colspan="2" bgcolor="#efefef"><span class="style8">　<img src="../images/borrow.gif"><span class="style2"><strong>数据库恢复</strong></span></span></td>
  <td height="19">&nbsp;</td>
  <td height="19">&nbsp;</td>
</tr>
<tr valign="middle">
  <td height="184" colspan="4">
<body> 
<script language="javascript">
function jiancha(){
	document.form1.submit();
}
</script> 
  <%
    Dim fs, folderpara, folderArray        '声明3个变量
	folderpara=server.mappath("../backup") 
%> 
<form action="db_hfcz.asp" name="form1" method="post"> 
  <table align="center"> 
    <tr> 
      <td width="275" class="css"><div align="center"><span class="css"> 请选择要恢复的数据： </span></div></td> 
    </tr> 
    <tr> 
      <td  height="27" > <div align="center"> 
          <%
    Call ShowFolderList(folderpara)
%> 
        </div></td> 
    </tr> 
    <tr> 
      <td> <div align="center"> 
          <input type="button" name="hf" value="开始恢复" onclick="return jiancha();"> 
        </div></td> 
    </tr> 
  </table> 
  <%
    Set fs = CreateObject("Scripting.FileSystemObject")
    set fs = Nothing       '将对象中的数据在系统内存中清除
    Sub ShowFolderList(folderspec)
    Dim f, f1, fc, s,fs
    Set fs=Server.CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(folderspec)
    Set fc = f.SubFolders
    Set fs=f.Files
       For Each f1 in fs
       		s = f1.name
       		if right(s,4)=".sql" then
    			response.write "<input type='radio' value='" & s & "' name='hf'>" & s & "<br>"
       		end if
       Next
end sub
%> 
  <p class="css">&nbsp;</p> 
</form> 
</td> 
</tr> 
</table> 
<!--#include virtual="/manage/include/bottom.asp"-->

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -