ASP网页编程之ASP编写的复杂上岸体系

asp可以使用微软的activeX 使得网页功能无比强大，不过安全性也较差，而且是基于的windows服务器，所以性能稳定性也一般   　　分注册 信息修正 上岸 三局部。access数据库 当地机测试根基正常表单必填项目用JS在htm页限制完 在asp页就没有管。

　　1.注册
<%
'获得用户填写的帐号 暗码
UNamethis=request("UName")
UPwsthis=request("UPws")
UPws2this=request("UPws2")
'创立数据库毗连
set conobject=server.createobject("adodb.connection")
conobject.open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath( "/data/webjxbbs.mdb")
'创立数据纠合 挑选前提是帐号等于用户填写的帐号
set rs=server.createobject("adodb.recordset")
rs.open"SELECT * FROM tbuser WHERE UName='" & WordStr(UNamethis,"'","''") & "'",conobject,1,3
'判别下面创立的数据纠合是不是为空 如不是 申明数据库中有此用户 则不答应再注册不异帐号 转向注册掉败页
If Not rs.EOF Or Not rs.BOF Then
response.redirect"regfail.htm"
response.end
end if
'挪用addnew办法添加新用户 有一些是选填项目 判别其VALUE非空才添加
rs.addnew
rs("UName")=UNamethis
rs("UPws")=UPwsthis
rs("UPws2")=UPws2this
if request("UEmail") <> "" then
rs("UEmail")=request("UEmail")
end if
if request("UQq") <> "" then
rs("UQq")=request("UQq")
end if
if request("UWebsite") <> "" then
rs("UWebsite")=request("UWebsite")
end if
if request("UIntroduce") <> "" then
rs("UIntroduce")=request("UIntroduce")
end if
'挪用Update
rs.update
rs.close
conobject.close
'创立Session对象
session("username")=UNamethis
'转到胜利页
response.redirect"userinfo.asp"
%>
　　2.胜利页显示
<%
'取session对象值
UNamethis=session("username")
'创立数据毗连
set conobject=server.createobject("adodb.connection")
conobject.open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath( "/data/webjxbbs.mdb")
'创立数据纠合 挑选前提是帐号等于session对象值
set rs=server.createobject("adodb.recordset")
rs.open"SELECT * FROM tbuser WHERE UName='" & WordStr(UNamethis,"'","''") & "'",conobject,1,3
%>
　　3.信息修正
<%
'获得反对修正的暗码
UPwsthis=request("UPws")
UPws2this=request("UPws2")
'获得session对象值
UNamethis=session("username")
'创立数据毗连 创立数据纠合 挑选前提是帐号等于session值
set conobject=server.createobject("adodb.connection")
conobject.open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath( "/data/webjxbbs.mdb")
set rs=server.createobject("adodb.recordset")
rs.open"SELECT * FROM tbuser WHERE UName='" & WordStr(UNamethis,"'","''") & "'",conobject,1,3
'挪用update办法修正用户项目 非必填项目判别为非空再修正草案
rs("UPws")=UPwsthis
rs("UPws2")=UPws2this
if request("UEmail") <> "" then
rs("UEmail")=request("UEmail")
end if
if request("UQq") <> "" then
rs("UQq")=request("UQq")
end if
if request("UWebsite") <> "" then
rs("UWebsite")=request("UWebsite")
end if
if request("UIntroduce") <> "" then
rs("UIntroduce")=request("UIntroduce")
end if
rs.update
rs.close
conobject.close
'转向修正胜利页
response.redirect"userinfo.asp"
%>
　　4.上岸
<%
'获得用户填写的帐号和暗码
UNamethis=request("UName")
UPwsthis=request("UPws")
'毗连数据库
set conobject=server.createobject("adodb.connection")
conobject.open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath( "/data/webjxbbs.mdb")
'创立数据纠合 挑选前提是帐号 暗码和用户填写的分歧 并用replace函数避免上岸破绽
set rs=server.createobject("adodb.recordset")
rs.open"SELECT * FROM tbuser WHERE UName='" & WordStr(UNamethis,"'","''") & "' and UPws='" & WordStr(UPwsthis,"'","''") & "'",conobject,1,3
'判别下面创立的数据纠合是不是为空 如不是 申明数据库中有此用户 创立Session对象 转到准确页面 如是 申明数据库中没有此用户 转到上岸掉败页面
If Not rs.EOF Or Not rs.BOF Then
session("username")=UNamethis
response.redirect"../bbs/catalog.asp"
response.end
end if
response.redirect"loginfail.htm"
response.end
%>
ASP最大的缺点在于网络的安全性和可靠性，企业将经营数据放在开放的平台上，最大的担忧就是如何保证这些数据不被其他人破坏。

如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:

Session:这个存储跟客户端会话过程的数据，默认20分钟失效

ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。

ASP.Net和ASP的最大区别在于编程思维的转换，而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程，而那些脚本语言属于弱类型、面向结构的编程语言，而非面向对象，这就明显产生以下几个问题：

还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。

尽管MS自己讲C#内核中更多的象VC，但实际上我还是认为它和Java更象一些吧。首先它是面向对象的编程语言，而不是一种脚本，所以它具有面向对象编程语言的一切特性，比如封装性、继承性、多态性等等，这就解决了刚才谈到的ASP的那些弱点。

还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。

ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。

不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍

最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。

以上是语言本身的弱点，在功能方面ASP同样存在问题，第一是功能太弱，一些底层操作只能通过组件来完成，在这点上是远远比不上PHP/JSP，其次就是缺乏完善的纠错/调试功能，这点上ASP/PHP/JSP差不多。

代码的可重用性差：由于是面向结构的编程方式，并且混合html，所以可能页面原型修改一点，整个程序都需要修改，更别提代码重用了。

他的语法和设计思路和VB完全相同，导致很多ASP的书都留一句“相关内容请参考VB的相关教材....”更糟糕的是，相当多的ASP教程混合了Javascript,VBscript等等脚本语言，搞的初学者。

接下来就不能纸上谈兵了，最好的方法其实是实践。实践，只能算是让你掌握语言特性用的。而提倡做实际的Project也不是太好，因为你还没有熟练的能力去综合各种技术，这样只能使你自己越来越迷糊。

先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习

Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件

仓酷云

另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件)

运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。

学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点: