ASP编程：会员办理体系中会员类的完成
对于中小型web应用来说,php有很强的竞争力,linux+apache+mysql+php(lamp)的组合几乎可以胜任绝大多数网站的解决方案,对于大型应用来讲,对于系统架构要求更高,需要有成熟的框架支持,jsp的struts是个不错的框架,国内介绍它的资料也非常多,应用逐渐广泛起来。asp就不用说了，会员办理第一:数据库计划:(数据库为Access)会员信息表user_info
字段
申明
范例(长度)
备注
Id
会员标识
主动编号
自增加
User_Name
用户名
文本
User_Password
暗码
文本
Question
暗码提醒成绩
文本
Answer
谜底
文本
Name
称号
文本
Sex
性别
文本
Birthday
出身年代
日期型
Region
区域
文本
City
乡村
文本
Address
地点
文本
Phone
德律风
文本
文本
Ciertified
是不是认证
文本
CType
会员范例
文本
User_Grade
会员品级
文本
二:代码完成:
<%
dimConn,connstring,dbfile
dbfile=server.MapPath("/Database/db.mdb")
setConn=server.createobject("ADODB.Connection")
connstring="Provider=Microsoft.Jet.OLEDB.4.01;DataSource="&dbfile
connstring="Driver={MicrosoftAccessDriver(*.mdb)};DBQ="&dbfile
Conn.openconnstring
界说用户类
ClassUser_Info
dimID,User_Name,User_Password,Question,Answer,Name,Sex,Birthday,Region,City,Address
dimPhone,Email,Ciertified,CType,User_Grade
类初始化
PrivateSubClass_Initialize
ID=0
User_Name=""
User_password=""
Question=""
Answer=""
Name=""
Sex=""
Birthday="1910-01-01"
Region=""
City=""
Address=""
Phone=""
Email=""
Ciertified="否"
CType="一般会员"
User_Grade="铜牌"
EndSub
加载用户信息
PublicSubLoad(ByValUserName)
dimrs,sql
sql="select*fromUser_InfoWhereUser_Name="&UserName&""
setrs=Conn.execute(sql)
ifnot(rs.bofandrs.eof)then
ID=rs("ID")
User_Name=rs("User_Name")
User_Password=rs("User_Password")
Question=rs("Question")
Answer=rs("Answer")
Name=rs("Name")
Sex=rs("Sex")
Birthday=rs("birthday")
Region=rs("Region")
City=rs("City")
Address=rs("Address")
Phone=rs("Phone")
Email=rs("Email")
Ciertified=rs("Ciertified")
CType=rs("CType")
User_Grade=rs("User_Grade")
endif
rs.close
setrs=Nothing
EndSub
检测用户是不是存在数据库中
前往值:True存在,False不存在;
PublicFunctionIsExist()
dimrs,sql,flag
sql="SELECT*FROMUser_InfoWhereUser_Name="&User_Name&""
Setrs=Conn.execute(sql)
ifnot(rs.bofandrs.eof)then
flag=True
else
flag=False
endif
rs.close
setrs=Nothing
IsExist=flag
EndFunction
登录时判别用户暗码是不是准确
前往值:True准确,False前往
PublicFunctionIsPassed()
dimrs,sql,Flag
ifUser_Name""andUser_Password""then
sql="select*fromUser_InfowhereUser_Name="&User_Name&"andUser_Password="&Password&""
setrs=Conn.execute(sql)
ifnot(rs.bofandrs.eof)then
Flag=True
else
Flag=False
endif
rs.close
setrs=Nothing
else
Flag=False
endif
IsPassed=Flag
EndFunction
增加新用户
PublicFunctionAdd()
dimstrSQL
ifIsExist()=Truethen
Add=False
exitfunction
endif
ifUser_Name=""orUser_Password=""orQuestion=""orAnswer=""then
Add=False
exitfunction
endif
strSQL="InsertintoUser_Info(User_Name,User_Password,Question,Answer,Name,Sex,Birthday,Region,City,Address,Phone,Email,Ciertified,CType,User_Grade)"
strSQL=strSQL&"Values("&User_Name&</p>由于ASP还是一种Script语言所没除了大量使用组件外，没有办法提高其工作效率。它必须面对即时编绎的时间考验，同时我们还不知其背后的组件会是一个什么样的状况； 那么，ASP.Net有哪些改进呢？ 掌握asp的特性而且一定要知道为什么。 最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。 交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。 运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。 跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组 接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。 Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点) 弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。
页:
[1]