这个代码怎么解

3.3 程序设计

管理员在进入网上购物系统主页后点击“管理员”按钮就会进入管理员登陆界面。

只有管理员才有权限进入后台修改数据库，其部分代码如下：

Session("ShopAdmin")=""

Session("INIT")=""

Dim myconn

msg=""

ShopOpenDatabase myconn

on error resume next

If Request("Submit")<>"" Then

SQL = "SELECt * FROM tblUser WHERe fldUserName=“" & Request("UserName")&"“ANDfldPassword=“"&Request("Password")& "“"

Set rs = myconn.Execute(SQL)

if err.number>0 then

msg=Session("Openerror")

else

If Not rs.EOF Then

Session("ShopAdmin") = rs("fldUserName")

LogUser Session("ShopAdmin"), "in", myconn

Shopclosedatabase myconn

response.redirect "shopadmin1.asp"

Else