iewclip.asp 化境ASP文件管理系统 1.1源码程序 - ASP源码程序

www.gusucode.com > 化境ASP文件管理系统 1.1源码程序 > viewclip.asp
    <html>
<head>
<title>查看剪贴板</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<p>查看剪贴板<br><br><br><span style="font:9 pt"> 
  <%
  if Request.QueryString("act")="clear"  then
   Session("bufferdir")=""
   Session("bufferfile")=""
  end if
  
  if Session("bufferdir")="" and Session("bufferfile")="" then 
   response.write "<script language=javascript>window.opener.refreshit();</script><br><br><p align=center>无数据 [<a href=javascript:window.close();>关闭</a>]</p>"
   response.end
  end if
  sArr=split(Session("bufferdir"),"|")  
  if sArr(0)="cut" then
   response.write "<font color=#0000ff>操作方式:</font>剪切"
  else
   response.write "操作方式:拷贝"
  end if
  response.write "<br><br><font color=#0000ff>选中的目录:</font>"
  for i=2 to ubound(sArr)
     sStr=sArr(1)&sArr(i)
	 response.write "<br>&nbsp;"&sArr(1)&sArr(i)
  next
   response.write"<br><br><font color=#0000ff>选中的文件:</font>"
  sArr=split(Session("bufferfile"),"|")
  for i=2 to ubound(sArr)
     sStr=sArr(1)&sArr(i)
	 response.write "<br>&nbsp;"&sArr(1)&sArr(i)
  next
%>
  </span></p>
<p><span style="font:9 pt"> 
  <input type="button" name="submit" value="清空剪贴板" onclick="clearit();">
  <input type="button" name="submit2" value="关闭" onClick="window.close();">
  <script language=javascript>
function clearit()
{
 location.href='<%=Request.ServerVariables("SCRIPT_NAME")%>?act=clear';
 }
</script>
  </span> </p>
</body>
</html>