ASP网页设计用ASP主笔数据库纪录
asp对于服务器的要求较高，一般的服务器如果访问量一大就垮了，不得不重启。数据|数据库<%Definingsomeconstantstomakemylifeeasier!(SameasSample1&2)BeginConstantDefinition
DBConfigurationconstants
FakeconstsowecanusetheMapPathtomakeitrelative.
Afterthis,strictlyusedasifitwereaConst.
DimDB_CONNECTIONSTRING
DB_CONNECTIONSTRING="DRIVER={MicrosoftAccessDriver(*.mdb)};DBQ="&Server.Mappath
("./db_scratch.mdb")&";"
Wedontusethese,butwecouldifweneeededto.
ConstDB_USERNAME="username"
ConstDB_PASSWORD="password"
NowweoverridetheabovesettingstouseourSQLserver.
DeletethefollowinglinetousethesampleAccessDB.
DB_CONNECTIONSTRING=Application("SQLConnString")&"UID="&Application("SQLUsername")
&";PWD="&Application("SQLPassword")&";"
ADODBConstants
Youcanfindtheseintheadovbs.incfile
Doasearchforitanditshouldturnupsomewhereontheserver
Ifyoucantfindityoucandownloadourcopyfromhere:
http://www.asp101.com/samples/download/adovbs.inc
Itmaynotbethemostrecentcopysouseitatyourownrisk.
%>
<!--#INCLUDEFILE="adovbs.inc"-->
<%
EndConstantDefinition
%>
<%
DimIStandardloopingvar
DimiRecordToUpdateIdofdeletedrecord
Weregoingtokeepthisassimpleaswecan.
1.CreateaRecordsetobject
2.ConnecttheRecordsettothetable
3.Findtherecordtoupdate
4.Updatetherecord
5.Updatethetable
6.ClosetheRecordset
Step1:
DimobjRecordset
SetobjRecordset=Server.CreateObject("ADODB.Recordset")
Step2:
Thesyntaxfortheopencommandis
recordset.OpenSource,ActiveConnection,CursorType,LockType,Options
objRecordset.Open"scratch",DB_CONNECTIONSTRING,adOpenKeyset,adLockPessimistic,adCmdTable
objRecordset.CacheSize=15CutsdownonroundtripstoourSQLServer
Step3:
iRecordToUpdate=CLng(Request.QueryString("id"))
IfiRecordToUpdate0Then
IfNotobjRecordset.EOFThen
objRecordset.MoveFirst
DoUntilobjRecordset.Fields("id")=iRecordToUpdate
objRecordset.MoveNext
Loop
Step4:
Onlyupdateiftheyvetoldusto,o/wweneverrunthis
String/TextDataType
objRecordset.Fields("text_field")=CStr(WeekdayName(WeekDay(Date())))
IntegerDataType
objRecordset.Fields("integer_field")=CInt(Day(Now()))
Date/TimeDataType
objRecordset.Fields("date_time_field")=Now()
Step5:
Onlyupdateiftheyvetoldusto,o/wweneverrunthis
objRecordset.Update
EndIf
EndIf
ShowTable
Feelfreetoskipthisarea.(Ignorethemanbehindthecurtain!)
ImjustshowingtheRSsoyouhavesomethingtolookatwhen
youviewthesample.
Response.Write"<TABLEBORDER=""1""CELLSPACING=""2""CELLPADDING=""2"">"&vbCrLf
Response.WritevbTab&"<TR>"&vbCrLf
Response.WritevbTab&vbTab&"<TD>id</TD>"&vbCrLf
Response.WritevbTab&vbTab&"<TD>text_field</TD>"&vbCrLf
Response.WritevbTab&vbTab&"<TD>integer_field</TD>"&vbCrLf
Response.WritevbTab&vbTab&"<TD>date_time_field</TD>"&vbCrLf
Response.WritevbTab&"</TR>"&vbCrLf
IfNotobjRecordset.EOFThen
objRecordset.MoveFirst
Showdata
DoWhileNotobjRecordset.EOF
Response.WritevbTab&"<TR>"&vbCrLf
ForI=0ToobjRecordset.Fields.Count-1
Response.WritevbTab&vbTab&"<TD><AHREF=""db_update.asp?id="&
objRecordset.Fields("id")&""">"&objRecordset.Fields(I)&"</TD>"&vbCrLf
Next
Response.WritevbTab&"</TR>"&vbCrLf
objRecordset.MoveNext
Loop
EndIf
Response.Write"</TABLE>"&vbCrLf</p>在实现ERP等高端的ASP应用时，用户需要提供核心的经营资料，需要ASP商有很高的信用度。楼上说交互性不好，太牵强了吧。在微软提供的一套框架中，利用asp做网站，开发效率高，使用人数少，减少不必要的开销。交互性是互动方式，是有开发人员决定的。 在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。 我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。 封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。 不能只是将它停留在纸上谈兵的程度上。 Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件 运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。 掌握asp的特性而且一定要知道为什么。 交流是必要的，不管是生活还是学习我们都要试着去交流，通过交流我们可以学到很多我们自己本身所没有的知识，可以分享别人的经验甚至经历。 跟学别的语言一样，先掌握变量，流程控制语句(就是ifwhileselect)等，函数/过程，数组 Server:这个表示的服务器，操作服务器的一些东西使用这个，如Server.Mappath转换服务器路径,Server.CreateObject实例化一个组件
页:
[1]