jacky0752

复制内容到剪贴板
代码:
objRs.open "Select * From [t4dmin] where cP4ssword='" & MD5(strPass)& "'",conn,1,1
     If objRs.eof and objRs.bof Then
          fError()
     Else
          bolIs = False
          For i = 1 to objRs.RecordCount
              If objRs("c4dmin")=strName then
                   bolIs = True
                   Exit For
              End If
          Next
     
          If bolIs = False Then
              fError()
          Else
              session("IsAdmin")=True
              response.Redirect("admin.asp")
          End If
     End If
objRs.close那些好像永远都不会停的雪。那一季永远不结束的冬天。
帖子38 精华2 积分95 阅读权限100 性别男 来自BugCenterTeam 在线时间33 小时 注册时间2005-3-3 最后登录2008-1-18 查看个人网站
查看详细资料TOP

haicao
技术核心组