电子商务网站规划 asp课程设计论文

4.1.4 用户验证源代码

<%@ Language=VBScript%> <%

dim Nick,Password

Nick=Request.Form(\

Passw=Request.Form(\Set conn=Application(\

Set rs=Server.CreateObject(\

sql=\rs.Open sql,conn,0,1

if rs.BOF AND rs.EOF Then rs.Close

Set rs=Nothing

str1=\登录名不存在');history.back();\ Response.Write str1

Elseif rs(\ rs.Close

Set rs=Nothing

str1=\密码错误');history.back();\ Response.Write str1 Else

Session(\

Session(\ rs.Close

Set rs=Nothing

str1=\成功登入');\ Response.Redirect \ end if %>

12