设为首页收藏本站新闻投稿

MOD中国同盟社

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1788|回复: 3

【原创】易语言以ASP为中介做用户登陆注册实例.   [复制链接]

Modchina声望-崇敬

Hatsune Miku

Rank: 10Rank: 10Rank: 10

帖子
492
精华
1
声望
4923 点
金币
347 Mold
被赞许
35 次
注册时间
2008-5-31
发表于 2011-8-5 17:56:12 |显示全部楼层
本帖最后由 毅毅 于 2011-8-5 18:06 编辑

好久也没做教程了.
今天无聊就来个实例吧.
前几天做了一个小系统= =(VIP系统,商城系统,邮件系统,用户系统)
QQ截图20110805180459.png

都是用于登录器的..
我就拿登陆和注册来开源吧
做登录器的人想必也很想要这个功能吧.那我就写出来吧..自己理解= =!
我也不说明什么了.应该可以看懂的.其实很简单.
我也不开易语言了.直接写.可能有些BUG.你们自己看着办吧~

数据库:sky^&date%.mdb
USER表
内有表: USER(用户名) PASS(密码 MD5加密) NAME(名称) LEVEL(游戏等级)
-ASP-
CONN.ASP(数据库连接)
  1. <%@ LANGUAGE = VBScript CodePage = 936%>
  2. <%Option Explicit%>
  3. <%
  4. dim conn,connstr,db
  5. db="sky^&date%.mdb"
  6. Set conn = Server.CreateObject("ADODB.Connection")
  7. connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
  8. conn.Open connstr
  9. %>
复制代码
无需解释了吧~
login.asp(登陆系统)
  1. <!--#include file = "conn.asp"-->
  2. <%
  3. dim rs,sql,sum,i
  4. dim viewstr


  5. viewstr="密码或账号错误"
  6. set rs=server.createobject("ADODB.recordset")
  7. sql="SELECT  * from [User] where User='"&Request("user")&"' and Pass='"&Request("pass")&"'"  ’查询账号和密码是否正确
  8. rs.open sql,conn,1,3
  9. sum=rs.recordcount
  10. if rs.eof then%>
  11.                     <%=viewstr%>
  12. <%
  13. else%>
  14. csosky
  15. |<%for i=1 to  sum%>
  16. <%=rs("user")%>@<%=rs("name")%>@<%=rs("level")%>|   ‘查询数据库并且列出所查询的值
  17. <%
  18. rs.MoveNext
  19. if rs.eof then exit for
  20. next
  21. %>
  22. <%End IF
  23. Rs.Close
  24. Set Rs=Nothing %>   
复制代码
reg.asp(注册系统)
  1. <!--#include file = "conn.asp"-->
  2. <%
  3. dim rs,sql
  4. set rs=server.createobject("ADODB.recordset")
  5. sql="SELECT  * from [User] where [user]='"&Request("user")&"'"
  6. rs.open sql,conn,1,3
  7. if rs.eof then
  8. Rs.Close
  9. Set Rs=Nothing
  10. set rs=server.createobject("ADODB.recordset")
  11. sql="SELECT  * from [User]"
  12. rs.open sql,conn,1,3
  13. rs.AddNew
  14. rs("user")=Request("user")
  15. rs("Pass")=Request("pass")
  16. rs("name")=Request("name")
  17. rs("level")=Request("level")
  18. rs.update
  19. Rs.Close
  20. Set Rs=Nothing
  21. response.Redirect("ok.htm") '注册成功返回OK.HTM页面
  22. else
  23. Response.write("ThisUserReg")
  24. Rs.Close
  25. Set Rs=Nothing
  26. end if
  27. %>
复制代码
OK.HTM
  1. OK
复制代码

-ASP END-

-易语言 登陆窗体-
控件:账号框 密码框 登陆按钮

-登录按钮 子程序 -
[容器-文本型]

如果真(账号框.内容=“”)
  信息框(“请输入账号”,,)
  返回()
如果真(密码框.内容=“”)
  信息框(“请输入密码”,,)
  返回()
容器=到文本(HTTP读文件(“127.0.0.1\LOGIN.ASP?user=”+删首尾空(账号框.内容)+"&pass=”+删首尾空(密码框.内容)))
判断(寻找文本(容器,”错误“)>0)
│ -信息框(”密码或账号错误!“,,)
│ -返回()
└─信息框("登陆成功",,)
-易语言 登陆窗体END-

-易语言 注册窗体-
[容器-文本型]
控件: 账号框 密码框 名称框 确认按钮
-确认按钮 子程序-
如果真(账号框.内容=“”)
  信息框(“请输入账号”,,)
  返回()
如果真(密码框.内容=“”)
  信息框(“请输入密码”,,)
  返回()
如果真(名称框.内容=“”)
  信息框(“请输入名称”,,)
  返回()
容器=到文本(HTTP读文件(“127.0.0.1\reg.ASP?user=”+删首尾空(账号框.内容)+"&pass=”+删首尾空(密码框.内容+"name="+删首尾空(名称框.内容)+”leave=0“)))
判断(寻找文本(容器,”OK“)>0)
│ -信息框(”注册成功!“,,)
└─信息框("注册失败",,)
-易语言 注册窗体END-

因为是直接输入的.没用易语言.所以有什么问题可以回帖..
大家可以做个防注入ASP.我这里就不写出来了
已有 4 人评分声望 金币 被赞许 收起 理由
我是Jacy + 1
Mr.nice + 15 + 8 + 1 原创奖励
Marshal + 20 + 20 + 1
915958523 + 15 比我的好,可惜新人看不懂…….

总评分: 声望 + 50  金币 + 28  被赞许 + 3   查看全部评分

使用道具 举报

Honorary Member

菜鸟级C/C++党

Rank: 7Rank: 7Rank: 7

帖子
1419
精华
0
声望
4509 点
金币
454 Mold
被赞许
14 次
注册时间
2009-4-4

热心会员奖 黑暗使者 Modchina元老 懒人勋章

发表于 2011-8-5 18:14:57 |显示全部楼层
这易语言能赶得上说明书,嗯...这说明书不错...

使用道具 举报

Moderator

传说中MOD第一萝莉控

Rank: 8Rank: 8

帖子
665
精华
2
声望
1847 点
金币
270 Mold
被赞许
87 次
注册时间
2010-11-27

可爱小猫 懒人勋章

发表于 2011-8-5 21:04:01 |显示全部楼层
这个教程写的很不错,顶你一下吧……

使用道具 举报

Rank: 2

帖子
13
精华
0
声望
159 点
金币
50 Mold
被赞许
0 次
注册时间
2008-10-25
发表于 2012-1-30 10:04:39 |显示全部楼层
不错不错,学了点点!

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

回顶部