<%
'//  数据库连接设置  //

   dim tc_conn,tc_connstr,tc_db
   tc_db = "data/plus_tc.mdb"          '//  修改数据库路径、名称  //
   on error resume next
   Set tc_conn = Server.CreateObject("ADODB.Connection")
   tc_connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(tc_db)
   if err then 
      err.clear
   else
        tc_conn.open tc_connstr 
        if err then 
           err.clear
        end if
   end if

%>
<script language="javascript">
function checkclick(msg){if(confirm(msg)){event.returnValue=true;}else{event.returnValue=false;}}
</script>