ASP编程：激烈向初学者保举：ASP+SQL对数据库的各...

优点：简单易学、开发速度快、有很多年“历史”，能找到非常多别人做好的程序来用、配合activeX功能强大，很多php做不到的asp+activeX能做到，例如银行安全控件asp+|sql|初学|数据|数据库＜%
//查询办法
//----------------------------(1)-------------------------------
SetRsWorkUserInfo=Server.CreateObject("ADODB.RecordSet")
StrSql="SelectUsersId,LoginName,UserName,Password"
StrSql=StrSql&"FromUsers"
StrSql=StrSql&"WhereUsersId="&SqlStr(tUserID)
IfRsWorkUserInfo.State=1Then
RsWorkUserInfo.Close
EndIf
RsWorkUserInfo.OpenStrSql,Conn,1,1
IfNotRsWorkUserInfo.EofThen
LoginName=RsWorkUserInfo("LoginName")
UserName=RsWorkUserInfo("UserName")
Password=RsWorkUserInfo("Password")
Endif
RsWorkUserInfo.Close
SetRsWorkUserInfo=Nothing
//----------------------------(2)-------------------------------
StrSql="SelectUsersId,LoginName,UserName,Password"
StrSql=StrSql&"FromUsers"
StrSql=StrSql&"WhereUsersId="&SqlStr(tUserID)
SetRsFind=Conn.Execute(StrSql)
IfNotRsFind.EofThen
LoginName=RsFind("LoginName")
UserName=RsFind("UserName")
Password=RsFind("Password")
Endif
RsFind.Close
SetRsFind=Nothing
//修正办法
//----------------------------(1)-------------------------------
SetRsWorkUserInfo=Server.CreateObject("ADODB.RecordSet")
StrSql="SelectUsersId,LoginName,UserName,Password"
StrSql=StrSql&"FromUsers"
StrSql=StrSql&"WhereUsersId="&SqlStr(tUserID)
IfRsWorkUserInfo.State=1Then
RsWorkUserInfo.Close
EndIf
RsWorkUserInfo.OpenStrSql,Conn,1,3
IFNotRsWorkUserInfo.EofThen
RsWorkUserInfo("LoginName")=LoginName
RsWorkUserInfo("UserName")=UserName
RsWorkUserInfo("Password")=Md5(Password)
RsWorkUserInfo.Update
Update=True
Else
Update=False
Endif
RsWorkUserInfo.Close
SetRsWorkUserInfo=Nothing
//----------------------------(2)-------------------------------
StrSql="UpdateUsers"
StrSql=StrSql&"SetLoginName="&SqlStr(LoginName)&",UserName="&SqlStr(UserName)&",Password="&SqlStr(Password)
StrSql=StrSql&"WhereUsersId="&SqlStr(tUserID)
Conn.Execute(StrSql)
//增加办法
//----------------------------(1)-------------------------------
SetRsWorkUserInfo=Server.CreateObject("ADODB.RecordSet")
StrSql="SelectUsersId,LoginName,UserName,Password"
StrSql=StrSql&"FromUsers"
StrSql=StrSql&"WhereUsersId="&SqlStr(tUserID)
IfRsWorkUserInfo.State=1Then
RsWorkUserInfo.Close
EndIf
RsWorkUserInfo.OpenStrSql,Conn,1,3
IfRsWorkUserInfo.EofThen
RsWorkUserInfo.AddNew
RsWorkUserInfo("UsersID")=tUserId
RsWorkUserInfo("LoginName")=LoginName
RsWorkUserInfo("UserName")=UserName
RsWorkUserInfo("Password")=Md5(Password)
RsWorkUserInfo.Update
NewRecord=True
Else
NewRecord=False
Endif
RsWorkUserInfo.Close
SetRsWorkUserInfo=Nothing
//----------------------------(2)-------------------------------
StrSql="InsertIntoUsers(UsersId,LoginName,UserName,Password)"
StrSql=StrSql&"Values("&SqlStr(tUserID)&","&SqlStr(LoginName)&","&SqlStr(UserName)&","&SqlStr(Password)&")"
Conn.Execute(StrSql)

//删除办法
//----------------------------(1)-------------------------------
SetRsWorkUserInfo=Server.CreateObject("ADODB.RecordSet")
StrSql="DeleteFromUsers"
StrSql=StrSql&"WhereUsersId="&SqlStr(tUserID)
IfRsWorkUserInfo.State=1Then
RsWorkUserInfo.Close
EndIf
RsWorkUserInfo.OpenStrSql,Conn,1,3
RsWorkUserInfo.Close
SetRsWorkUserInfo=Nothing
//----------------------------(2)-------------------------------
StrSql="DeleteFromUsers"
StrSql=StrSql&"WhereUsersId="&SqlStr(tUserID)
Conn.Execute(StrSql)
%＞
大家可以自己去看一看.可以说看得想呕吐.以前有次下了个动网来看.里面连基本内置函数的保护措施(函数没防御性)都没有.难怪经常补这个补那个了.可能现在.NET版会好点吧

下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。

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

用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。

下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。

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

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

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