ASP网站制作之Asp与Sql构建网站体系中对数据库的各类...

仓酷云

使用filesystemobject，可以对服务器上的文件进行操作，浏览、复制、移动、删除等。有ado的支持，asp对数据库的操作非常得心应手。你甚至可以像使用本地数据库那样，管理远程主机上的数据库，对表格、记录进行各种操作。数据|数据库<%

//查询办法
//----------------------------(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")

StrSq</p>减少客户内IT专业人才缺乏带来的影响。ASP的客户员工利用浏览器进入相关的应用软件，简单易用，无需专业技术支持。

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

弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。

Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名")

封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。

ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。　　因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。

运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。

不能只是将它停留在纸上谈兵的程度上。

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

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