初学者问关于用户登陆的问题,那位高手帮忙看看,先谢谢了!在线等待!

Question

还有是使用VB,VS下工作的!
帮忙看看的!先谢谢了!

Answer 1

你这是什么问题啊？
Dim strSQL As String 
  strSQL = "select password, Type from users where username='" & username & "'"
  看一下取出来的数据里面有没有行
  If 没有去处数据 Then
    response.write("<script language='javascript'>alert('用户名不存在.')</script>")  
    Exit Sub
  Else
     Select Case type字段
         Case "教师"
           response.redirect("js.aspx")         Case "学生"
           response.redirect("xs.aspx")
         Case ...
     End Select
  End If