asp.net (vb)编写登陆页面（100分）

答案：system.data.sqlclient,而access则是引用的system.data.oledb
  
 sub qd1(sender as object,e as eventargs)
  dim user,pas as string
  user = xm.text
  pas = mm.text
  
 dim myconn as string
  myconn = "provider=microsoft.jet.oledb.4.0;" & "data source="& server.mappath("data/fang.mdb")
  dim xm1,zw,qx as string
  '检查用户名是否为空
  if xm.text<>"" then
  try
  dim mysql as string
  mysql="select * from 管理 where 用户名='"& user &"' and 密码='"& mm &"'"
  dim mycmd as oledbdataadapter = new oledbdataadapter(mysql,myconn)
  dim ds as dataset = new dataset()
  mycmd.fill(ds,"管理")
  dim mytable1 as datatable
  mytable1=ds.tables("管理")
  if user=mytable1.rows(0).item(1) and pas=mytable1.rows(0).item(3) then
  
 xm.text=""
  else
  message.text="请重新输入！"
  end if
  catch ex as exception
  message.text="用户名或密码有问题，请确认后重新输入！"
  end try
  else
  message.text="用户名或密码有问题，请确认后重新输入！"
  
 end if
  end sub
  
 下面是注册用的，可以同时检查是否有重名。
  
 dim myconn as oledbconnection
  dim mycmd,mycmd1,mycmd2,mycmd3 as oledbcommand
  dim strcon as string
  dim strsql,strsql1,strsql2 as string
  
 strcon ="provider=microsoft.jet.oledb.4.0;"&"data source="&server.mappath("data/fang.mdb")
  myconn = new oledbconnection(strcon)
  myconn.open()
  strsql = "select * from 管理 where 管理.用户名='"& m_1 &"'"
  mycmd = new oledbcommand(strsql,myconn)
  dim reader as oledbdatareader
  reader = mycmd.executereader()
  if reader.read() then '若存在
  message.text="您输入的用户名已存在，请重新输入！"
  reader.close()
  myconn.close()
  else '不存在，写入数据库
  reader.close()
  if m_4="管理员" then
  strsql1="insert into 管理() values()"
  mycmd1 = new oledbcommand(strsql1,myconn)
  mycmd1.executenonquery
  myconn.close()
  message.text="您已成功注册！"
  else
  strsql2="insert into 管理() values()"
  mycmd2 = new oledbcommand(strsql2,myconn)
  mycmd2.executenonquery
  myconn.close()
  message.text="您已成功注册！"
  end if
  end if
  
 else
  message.text = "请检查页面中是否有错误！"
  end if
  end if
  end sub

上一个：ASP.NET创建连接字符串的时候遇到的错误
下一个：ASP.NET 如何获取带有返回值的存储过程