ASP简单登陆注册谁有。。。

       其实学ASP学主要的是自己要去写

       lysw能坚持一下午便是一个好的开始

       你不要急着一下子作多么好的页面，功能多么强大的页面

       一点一点的来。

       下面帮你理解一下注册和登录的原理。

       Register.asp

       开始不要收集太多用户信息

       先从基本的用户名、密码、秀色源码性别、QQ号码、地址开始

       用户提交页面代码省略

       主要是后台处理过程：

       <%

       '====省略数据库连接代码====

       Dim Rs,SQL

       Dim Username,PWD,PWD2,Password,sex,QQ,Address

       UserName=Trim(Request.form("Username")) '接受用户提交的用户名

       PWD1=Trim(Request.form("PWD1")) '接受用户提交的密码

       PWD2=Trim(Request.form("PWD2")) '用户名重复确认的密码

       Sex=Trim(Request.form("Sex")) '接受用户提交的性别

       Address=Trim(Request.form("Address")) '接受用户提交的地址

       '====先对提交的信息作基本判断==========

       '更多的功能比如检测Email是否正确等等

       '可以以后慢慢学，先看基本原理

       Dim Founderr,Errmsg

        '先定义一个founderr检查是否有错;errmsg定义错在什么地方

       Founderr=false '初始化founderr为flase（即解析到这里是没有错误的）

       if UserName="" or Len(UserName)> then

       founderr=true '发现错误

       errmsg="用户名不能为空并不得大于个字符"

       end if

       if PWD1="" or Len(PWD1)<6 then

       founderr=true '发现错误

       errmsg="密码必须大于6个字符"

       end if

       if PWD1<>PWD2 then

       founderr=true '发现错误

       errmsg="两次输入的密码不正确！"

       end if

       if Not(ISnumeric(QQ)) or Len(QQ)<4 or Len(QQ)> then

       founderr=true '发现错误

       errmsg="QQ号码不正确"

       end if

       '性别为单选，adbd源码默认有一个选中，所以不需要检验

       if Address="" then

       founderr=true '发现错误

       errmsg="您的地址没有填写！"

       end if

       if founderr then '如果出现错误

       Response.write Errmsg '提示错误类型

       else '没有错误则

       Sql="Select * from [User] where UserName='"&UserName&"'"

       Set Rs=Server.CreateObject("adodb.recordset")

       Rs.Open Sql,1,3 '以可写状态打开数据库

       if Not(Rs.eof or rs.bof) then '如果存在该用户

       Response.write Username&"已经被注册，请更换其他注册名"

       else

       Rs.addnew '添加纪录

       Rs("Username")=username '将username插入数据库Username字段中

       Rs("Password")=PWD1 '密码

       Rs("QQ")=QQ

       Rs("Address")=Address

       Rs("Sex")=sex

       Rs.update '更新数据库

       Response.write UserName&"成功注册！"

       end if

       Set rs=nothing

       end if

       %>

       登录页面Login.asp

       用户登录页面代码省略

       主要是源码构建后台处理过程：

       <%

       '同样从简单开始，只验证密码和用户名

       '验证码以后学习完善

       '====省略数据库连接代码====

       Dim Rs,SQL

       Dim Username,PWD

       Username=Trim(Request.form("Username"))

       PWD=Trim(Request.form("Password"))

       Set Rs=Server.createObjcet("adodb.recordset")

       '从数据库中查找用户提交的用户名和密码是否存在！

       Sql="select * from [User] where Username='"&Username&"' and Password='"&PWD&"'"

       Rs.open sql,conn,1,1 '只读方式打开，因为不需要更新数据库

       if RS.eof or rs.bof then '如果为空，即不存在

       Response.write"用户名密码错误"

       else '不为空则

       Session("Username")=Username '纪录用户登录信息

       Response.write"登录成功"

       end if

       Set Rs=nothing

       %>

       这样一个简单的登录和注册就完成了。

分享几个开源的vcmp源码Python游戏代码

       以下是一些开源的Python游戏代码分享：

       I wanna，源代码链接：pan.baidu.com/s/1DlULys...

       提取码：kh2h

       Covid-Hero，源代码github地址：github.com/zixinzeng-je...

       The Game of Purifier，源代码github地址：github.com/epcm/PURIFIE...

       进击的豌豆，源代码链接：pan.baidu.com/s/1YcojAC...

       提取码：tsfm

       以上游戏均采用Pygame Zero库（简称Pgzero）开发。Pgzero是Pygame的精简版本，能够实现Pygame库的主要功能，同时屏蔽了复杂的细节，对新手十分友好。

       若想快速了解Pgzero，可以参考下文：

       若要全面系统学习Pgzero，可以参考《趣学Python游戏编程》一书。该书通过十个经典游戏案例，深入浅出地介绍了游戏编程的基本原理，以及Pgzero的具体使用方法。相信学完这本书后你也能开发出上面这样精彩的Python游戏。