马上注册,结交更多好友,享用更多功能,让你轻松玩转闽南师范大学。
您需要 登录 才可以下载或查看,没有账号?立即加入
×
< >哪个学长帮忙看如何用ASPVBScript写个学生登录信息验证</P>
0 G: s" v% {( ~ Y< >错误转向错误页</P>$ @) _! Q" u1 @& p
< >正确转向主页,,,</P>( |. Y" k2 T* v1 S% o
< >或者帮我看看我的代码有没有错::</P>! }# _, w |' s C/ t$ e" B/ {& L
< ><% uid=request.Form(uid)
$ a' V; c. S! D4 P6 g5 ppwd=request.Form(pwd)</P>
& n8 G: l, J8 g" w$ A" p! N< >set conn =server.CreateObject("ADODB.Connection")+ P) L6 ~2 N, W
conn.open="dsn=zuoye;uid=zuoye;pwd=000"</P>
6 }& Y A6 ^, U< >sql="select*from user where id='"&userid&"'"& e; j' w: w/ B$ Y
set.res=conn.execute(sql)
/ G6 ~; t \7 A% uif res.eof then & ]4 H" D: A- a
response.redirect("error.asp")
% y# R. j7 f/ y @7 }response.end1 F0 k" y& P+ w9 ~ f
end if
3 R7 _8 F" t4 m6 G3 ?; c8 dif res("mm")=pwd then
0 L o1 F3 I# _) \session("xm")=res("xm")
) H9 y* H" f: Dresponse.redirect("main.asp")
" I4 }7 f# W% O2 d6 |0 z5 `response.end( Q/ d% j9 u' w; b z
else
3 T6 H8 l7 T1 X3 d, P3 u% G$ _ f: H, ?response.redirect("error.asp")
4 z `0 \9 Y/ \* v, Z5 oresponse.end
. u1 s+ x* i/ N7 z8 Jend if
0 K U- B s6 d* w%></P> |