select case   简单一点的例子比如会员登陆，然后点完提交出现登陆成功的界面

Dim action
action = Request.QueryString("action")
Select Case action
Case "ChkLogin" : Call ChkLogin()
Case Else : Call Login()
End Select

Sub Login()
Rem 这里是登录表单
Response.Write("<form id=""login"" name=""login"" method=""post"" action=""?action=ChkLogin"">")
..........
..........
..........
Response.Write("<form>")
End Sub

Sub ChkLogin()
Rem 这里获取参数并做验证
.......
End Sub

楼主可能仅需要这样的一段代码…………

set rs=server.createobject("adodb.recordset")
sql="select * from D_Member where M_User='"&user&"'"
rs.open sql,conn,1,3
'set session
session.Timeout=180
session("jUser")=user
session("jPass")=pass
session("jClass")=rs("MClass")
session("jVip")=rs("Vip")
rs("LastLogin")=now()
rs("LoginTimes")=rs("LoginTimes")+1
rs("LastIP")=request.servervariables("remote_addr")
rs.update
rs.close
set rs=nothing

MClass=session("jClass")
'开始条件跳转
SELECT CASE Mclass

CASE "1"
' Below is the redirect command
Response.redirect "buyer.asp"

CASE "3"
' Below is the redirect command
Response.redirect "Merchandiser.asp"

CASE "2"
' Below is the redirect command
Response.redirect "supplier.asp"

CASE "4"
' Below is the redirect command
Response.redirect "adroot.asp"


CASE ELSE
Response.Write("Error,You are not welcome!")
END SELECT

end if

谢谢拉，，我已经高明白了，哈哈就着点东西看到了打半夜，，累死了，，以后的路途艰难啊