clip.asp

时代购物系统 4.0功能升级说明 <1>完善了3.0的VIP

<%
if session("admin")="" then
response.Write "<script language='javascript'>alert('请先登录！');history.go(-1);</script>"
response.End
else
if session("rank")>1 then
response.Write "<div align=center><font size=5 color=red><b>你的权限不够！</b></font></div>"
response.End
end if
end if
%>
<title>查看剪贴板</title>
<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>