• 主网站
    • 网站案例
    • 域名主机
    • 网站建设
    • 网站推广
    • 系统开发
    • 设计文章
    • 联系我们
    • 网站制作教程
    • ASP+CSS实现网页随机背景
    • 文字在网页上面的应用
    • 用CSS实现无图片圆角效果
    • 什么样是合理的网页设计
    • CSS样式表的优化与技巧
    • CSS样式表的命名规范
    • XHTML代码的基本应用
    • 内容自动添加到指定的JS
    • 一组常用的弹出窗口
    • 查看网站更新的代码
    • JS刷新页面
    • 突破IIS6上传文件尺寸限制
    • 批量处理数据库
    • 用ASP判断Email地址
    • 新闻内容分页
    • ASP邮件发送程序
    • 网页防盗代码
    • ASP时间代码
    • 开始→运行→命令集锦!
    • 会员登陆的检测代码
    • Win2003的远程桌面连接端口
    • 更改apache的默认页
    • 网站制作中常用的CSS
    • DOC下常见的端口
    • xp下安装sql2000企业版
    • Thumbs.db文件是什么
    • msn随outlook启动
    • js调用ASP程序
    • 常用的JS代码!
    • 在网站制作中flash背景透明
    • 如何制作网站??
    • 限制数据库文件大小的方法
    • MYSQL中对数据库的操作
    • 保护邮件地址防垃圾有巧招
    • 解决MSSQL占用过多内存
    • 会员登陆的检测代码 -- (网站制作教程)

    •     以XML样式显示

      <%
      '////////////////////////// 获取From的值

      if Request.ServerVariables("Request_Method")="POST" then
       set Rs=server.createobject("adodb.recordset")
       Username=trim(request.form("name"))
       psw=trim(request.form("password"))

       '/////////////////////////// 判断不能为空

       if Username="" or psw="" then
        Response.write "<script>alert('用户名和登陆密码不能为空');</script>"
        Response.write "<script>history.go(-1);</script>"
        Response.end
       end if

       '/////////////////////////// 用Session来限制错误输入次数(3次)

       if Session("err")>=3 then
        errorr=1
        errmsg="你已经重试这么多次了,累了吧,请歇会再来,或者联系管理员!"
       else
       sql="select * from WebMaster where UserName='"&UserName&"'"
       Rs.open sql,cn,3,1
       if Rs.eof and Rs.bof then
        errorr=1
        Session("err")=Session("err")+1
        errmsg="用户名不存在,请返回重新填写确认!"
        Rs.close
       elseif psw<>Rs("PassWord") then
        errorr=1
        Session("err")=Session("err")+1
        errmsg="用户名和密码不符,请确认后再输一次!"
        Rs.close
       end if
       end if

       if errorr=1 then
        Response.write "<script>alert('"&errmsg&"');</script>"
        Response.write "<script>history.go(-1);</script>"
        Rs.close
        Set Rs=Nothing
        Cn.Close
        Response.end
       end if

       '/////////////////////////// 检验成功赋值给Session,后重定向页面。

       Response.cookies("UserName")=Rs("UserName")
       Response.cookies("UserKey")=Rs("UserKey")
       Rs.close
       Set Rs=Nothing
       Cn.Close
       Session("err")=0
       Response.write "<script>location.href='MasterMain.asp';</script>"
      end if
      %>