asp conndb

<%
Dim DBpath,ConnStr,Conn
DBpath =DBpath & "xxxxxxx.mdb"  '数据库
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath(DBPath)
On Error Resume Next    'ﾆﾃｴ﨔ｦﾀ昕ﾌﾐ・
set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnStr
'=====================
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "<p>&nbsp;</p><p align='center'>ﾊｾﾝｿ簔ｬｽﾓｳ惞ｬﾇ・・鮹ｴｽﾓﾂｷｾｶｺﾍﾊｾﾝｿ篥﨤ﾆ｣｡</p>"
Response.End
End If
'======================
On Error GoTo 0 
sub CloseConnDB()
Conn.Close
set conn=nothing '关闭连接
end sub
%>
<%
'=================================================
'ｹｳﾌﾃ訒ｺShowUserLogin
'权限制限简单思路设计
'ｲﾎ  ﾊ｣ｺﾎﾞ    call ShowUserLogin()
'=================================================
sub ShowUserLogin()
 dim strLogin
 If Session("UserName")="" Then
     strLogin= "<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
  strLogin=strLogin & "<form action='UserLogin.asp' method='post' name='UserLogin' onSubmit='return CheckForm();'>"
        strLogin=strLogin & "<tr><td height='25' align='right'>ﾓﾃｻｧﾃ訒ｺ</td><td height='25'><input name='UserName' type='text' id='UserName' size='10' maxlength='20'></td></tr>"
        strLogin=strLogin & "<tr><td height='25' align='right'>ﾃﾜ&nbsp;&nbsp;ﾂ・ｺ</td><td height='25'><input name='Password' type='password' id='Password' size='10' maxlength='20'></td></tr>"
        strLogin=strLogin & "<tr align='center'><td height='25' colspan='2'><input name='Login' type='submit' id='Login' value=' ｵﾇﾂｼ '> <input name='Reset' type='reset' id='Reset' value=' ﾇ蟲 '>"
        strLogin=strLogin & "</td></tr>"
        strLogin=strLogin & "<tr><td height='20' align='center' colspan='2'><a href='UserReg.asp' target='_blank'>ﾐﾂﾓﾃｻｧﾗ｢ｲ・/a>&nbsp;&nbsp;<a href='GetPassword.asp' target='_blank'>ﾍ・ﾇﾃﾜﾂ・ｿ</a></td></tr>"     
  strLogin=strLogin & "<tr><td height='20' align='center' colspan='2'><a href='zy.asp?id=7' target='_blank'>ｻ瞞ｱﾏ桄ﾜﾈｨﾀ・/a></td></tr>"
        strLogin=strLogin & "</form></table>"
  response.write strLogin
%>
<script language=javascript>
 function CheckForm()
 {
  if(document.UserLogin.UserName.value=="")
  {
   alert("ﾇ・菠・ﾃｻｧﾃ訒｡");
   document.UserLogin.UserName.focus();
   return false;
  }
  if(document.UserLogin.Password.value == "")
  {
   alert("ﾇ・菠・ﾜﾂ・｡");
   document.UserLogin.Password.focus();
   return false;
  }
 }
</script>
<%
 Else
 '===========================================Hardhearted Gunner=============================================================================
 set rq=server.createobject("adodb.recordset")
    sqlaa="select * from [user] where UserName='"&session("UserName")&"'"
 rq.open sqlaa,conn,1,1
 if not rq.eof then
 uid=rq("LockUser")
 set rq=nothing
 select case uid
 case "1"
 info="ｻｶﾓｭﾐﾂﾗ｢ｲ盻瞞ｱ!"
 case "2"
 info="ｻｶﾓｭﾆﾕﾍｨｻ瞞ｱ!"
 end select
 end if
 '===============================================End============================================================================
  response.write"<br><center><strong>" &info & "</strong></center><br><center><font color=red size=4>"&Session("UserName") & "</font></center><br><br>"
  response.write "<center><a href='UserLogout.asp'><b>ﾍﾋｳﾇﾂｼ</b></a></center><br><br>"
 end if
end sub

'=================================================
'ｹｳﾌﾃ訒ｺShowUserLogina
'ﾗ・ ﾓﾃ｣ｺﾏﾔﾊｾﾓﾃｻｧｵﾇﾂｼｱ昉･
'ｲﾎ  ﾊ｣ｺﾎﾞ
'=================================================
%>

<style type="text/css">
<!--CSS-->
</style>