asp操作数据库代码

 set conn=server.createobject("adodb.connection")
 conn.open "driver={microsoft access driver (*.mdb)};dbq=F:\\ajaxpro\\App_Data\\server.mdb"
 
 Dim StrSQL,RS
 StrSQL="SELECT*from Manager WHERE ID='"&username&"'"
 StrSQL=StrSQL&"AND Pin='"&password&"'"
 set rs=server.createobject("adodb.recordset")
 rs.open StrSQL,conn,1,1
 If rs.EOF then
  response.write("<script>alert('用户名或密码错误');history.back();</script>")
  response.End()
 else
  response.Write( "<script>location.href='IP_Address.asp'</script>") 
  response.End()   
 End If