哈工大威海 电子商务实验报告

jiancedenglu.asp

<%

d1=Request.Form(\d2=Request.Form(\

Session(\

Set Conn=Server.CreateObject(\Conn.open\if conn.State = 1 then

Response.Write \数据库连接成功！\ else

Response.redirect(\End if

Set rs=Server.CreateObject(\

rs.Open \Set rs1=Server.CreateObject(\if rs.eof or rs.bof then else

rs1.Open \Session(\Session(\end if

if rs.eof or rs.bof then

Response.Write \用户名或密码错误，请重新登录！ \

Response.Write( \else

Response.Write \用户登录成功！\

Response.Write( \end if

conn.Close %>