马上注册,结交更多好友,享用更多功能,让你轻松玩转闽南师范大学。
您需要 登录 才可以下载或查看,没有账号?立即加入
×
< >哪个学长帮忙看如何用ASPVBScript写个学生登录信息验证</P>
" }: Y5 L2 r$ `' ?% @, x! v7 Z [< >错误转向错误页</P>
: Y) u; B& T% D! O* |< >正确转向主页,,,</P>6 F0 P* q5 [& L3 C1 I& g
< >或者帮我看看我的代码有没有错::</P>
1 @- t1 X2 c7 k. B0 @< ><% uid=request.Form(uid): `6 g8 X8 c3 u, U% B
pwd=request.Form(pwd)</P> A' `% G: m" k! u3 F
< >set conn =server.CreateObject("ADODB.Connection")
: q, Z# s1 ]( qconn.open="dsn=zuoye;uid=zuoye;pwd=000"</P>
, a- p/ B. j, e% d) a< >sql="select*from user where id='"&userid&"'", g7 e; `' B9 U$ s4 c: u/ ?
set.res=conn.execute(sql); u g) f d- G, H
if res.eof then 0 a5 @9 w! i5 W5 v9 n" [1 }+ ?3 T
response.redirect("error.asp")
1 G, j4 e7 \* `2 M* w# c, rresponse.end1 L* \7 ^5 X" J3 p6 u7 C. i% Q7 x! S
end if 4 E$ V1 [& M0 x& `. \& p! u
if res("mm")=pwd then
& |* w. z# N1 A6 r2 d. u/ x$ xsession("xm")=res("xm")
4 F$ z3 P+ E; k( l+ b% mresponse.redirect("main.asp")2 {2 U% v( Z, k& @* S7 Z) B, V
response.end# m! M, E, z& U$ O' B& w; T
else7 t- X" J, s$ Z& |* w) j
response.redirect("error.asp")
7 J, ^" B8 H, a" }* }* S2 X' _response.end& {% ?4 q3 p: z( ^* j3 w1 n! e
end if
t: i0 f m+ v/ c: ]* u3 }%></P> |