一些基本的ASP及JS脚本函数

最近在写一个后台，发现有些函数已经忘了，所以查了相关资料又记起来了，干脆把这些重要的函数贴下来：

'这个是FSO删除的用法

pic_path=server.MapPath("..")
  pic_path=Cstr(pic_path)&cstr("/product/"&rs.fields("pic_link"))
 
    set fso=server.CreateObject("Scripting.FileSystemObject")
    if fso.FileExists(pic_path)=True then  '表明已存在该文件 
    fso.DeleteFile pic_path
 end if
 set fso=nothing

'这个是文件拷贝函数用法

fso.CopyFile source_data_path,data_dir&"/"&data_name,1

'这个是从右边开始找到指定str的位置

dot=instrRev(form_product.product_img.value,"/")

'经典javascript函数

<script language="javascript">
    function SelectBigClass(value)
    {
       window.location.href="add_product.asp?BigClass="+value;
    }
    function SelectSmallClass(bigclass,value)
    {
       window.location.href="add_product.asp?BigClass="+bigclass+"&SmallClass="+value;
    }
    
</script>

'经典函数，删除相关

<script language="Javascript">

 function delrec(id,account_name,adminflag)
 
 {
  if (adminflag=="sys_admin"){alert("系统管理员帐号不能删除！")}
  else
  {
  if (confirm('您确认要删除用户'+account_name+' 吗？')==true)
  {
  window.location.href="go_delete_account.asp?id="+id
  }
  }
 }
 </script>