MOD中国同盟社

 找回密码
 
查看: 1806|回复: 3

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

Modchina声望-崇敬

Hatsune Miku

Rank: 10Rank: 10Rank: 10Rank: 10Rank: 10Rank: 10Rank: 10Rank: 10Rank: 10Rank: 10

帖子
492
精华
1
4923
347
35
本帖最后由 毅毅 于 2011-8-5 18:06 编辑

好久也没做教程了.
今天无聊就来个实例吧.
前几天做了一个小系统= =(VIP系统,商城系统,邮件系统,用户系统)
QQ截图20110805180459.png (10.33 KB, 下载次数: 57)
都是用于登录器的..
我就拿登陆和注册来开源吧
做登录器的人想必也很想要这个功能吧.那我就写出来吧..自己理解= =!
我也不说明什么了.应该可以看懂的.其实很简单.
我也不开易语言了.直接写.可能有些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.我这里就不写出来了

Honorary Member

菜鸟级C/C++党

Rank: 7Rank: 7Rank: 7Rank: 7Rank: 7Rank: 7Rank: 7

帖子
1419
精华
0
4509
454
14

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

这易语言能赶得上说明书,嗯...这说明书不错...:lol

Moderator

传说中MOD第一萝莉控

Rank: 8Rank: 8Rank: 8Rank: 8Rank: 8Rank: 8Rank: 8Rank: 8

帖子
665
精华
2
1847
270
87

可爱小猫 懒人勋章

这个教程写的很不错,顶你一下吧……

Rank: 2Rank: 2

帖子
13
精华
0
159
50
0
{:5_143:}不错不错,学了点点!
回顶部