个人总结的ASP中常用函数

 '----------------------------------------关闭数据库------------------------------------------------- 
    Sub Close_Rs(RS_N)
        RS_N.Close:Set RS_N=Nothing
    End Sub
 
    Sub Close_Link(RS_N)
        RS_N.Close:Set RS_N=Nothing
        Conn.Close:Set Conn=Nothing
    End Sub
'-------------------------------------------------------------------------------------------------

'----------------------------------------页面3秒钟自动跳转------------------------------------------------- 

操作成功，<span id="tiao">3</span>秒后自动跳转到管理页面…
<script language="javascript" type="text/javascript">
function countDown(secs)
{
 tiao.innerText=secs;
 if(--secs>0){
     setTimeout("countDown("+secs+")",1000);
     }
 else{
     location.href="目标地址"
     }
 }
 countDown(3);
</script>

'-------------------------------------------------------------------------------------------------