ASP网页编程之ASP、VB和XML建互联网使用程序

问题是他们究竟是喜欢他们是使用软件时,速度快还是速度慢好.(当然在3秒以内).无论是他们输入资料时,查找资料时,分析资料时.后面我们已先容了利用ASP和XML夹杂编程，那是由于ASP页面可以很简单让我们看清使用程序正在做甚么，可是你假如你不想利用ASP的话，你也能够利用任何你熟习的手艺往创立一个客户端程序。上面，我供应了一段VB代码，它的功效和ASP页面一样，也能够显现不异的数据，可是这个VB程序不会创立发送到服务器的XML字符串。它经由过程运转一个名叫Initialize的存储历程，从服务器取回XML字符串，来查询ClientCommands表的内容。
<P>　　ClientCommands表包含两个域：command_name域和command_xml域。客户端程序必要三个特定的command_name域:getCustomerList,CustOrderHist和RecentPurchaseByCustomerID。每个命令的command_xml域包含程序发送到getData.asp页面的XML字符串，如许，就能够会合把持XML字符串了，就象存储历程名字所体现的意义一样，在发送XML字符串到getData.asp之前，客户端程序利用XMLDOM来设置存储历程的参数值。我供应的代码，包括了用于界说Initialize历程和用于创立ClientCommands表的SQL语句。
　　我供应的例程中还申明了怎样利用XHTTPRequest工具完成我在本文一入手下手时许下的答应:任何远程的呆板上的使用程序都能够会见getData.asp；固然，你也能够经由过程设置IIS和NTFS权限来限定会见ASP页面；你能够在服务器上而不是客户机上存储全局使用程序设置；你能够制止经由过程收集发送数据库用户名和暗码所带来的隐患性。另有，在IE中，使用程序能够只显现必要的数据而不必革新全部页面。
　　在实践的编程过程当中，你们应该利用一些办法使使用程序加倍有高效性。你能够把ASP中的关于获得数据的代码端搬到一个COM使用程序中往然后创立一个XSLT变更来显现前往的数据。好，我未几说了，如今你所要做的就是试一试吧！
<P>　　OptionExplicit
　　　PrivateRCommandsAsRecordset
　　　PrivateRCustomersAsRecordset
　　　PrivateRCustAsRecordset
　　　PrivatesCustListCommandAsString
　　　PrivateConstdataURL=http://localhost/XHTTPRequest/getData.asp
　　　PrivatearrCustomerIDs()AsString
　　　PrivateEnumActionEnum
　　　VIEW_HISTORY=0
　　　VIEW_RECENT_PRODUCT=1
　　EndEnum
　　PrivateSubdgCustomers_Click()
　　　DimCustomerIDAsString
　　　CustomerID=RCustomers(CustomerID).Value
　　　IfCustomerID＜＞Then
　　　　IfoptAction(VIEW_HISTORY).ValueThen
　　　　　CallgetCustomerDetail(CustomerID)
　　　　Else
　　　　　CallgetRecentProduct(CustomerID)
　　　　EndIf
　　　EndIf
　　EndSub
　　PrivateSubForm_Load()
　　　Callinitialize
　　　CallgetCustomerList
　　EndSub
　　Subinitialize()
　　　从数据库前往命令名和响应的值
　　　DimsXMLAsString
　　　DimvRetAsVariant
　　　DimFAsField
　　　sXML=＜?xmlversion=1.0?＞
　　　sXML=sXML&＜command＞＜commandtext＞Initialize＜/commandtext＞
　　　sXML=sXML&＜returnsdata＞True＜/returnsdata＞
　　　sXML=sXML&＜/command＞
　　　SetRCommands=getRecordset(sXML)
　　　DoWhileNotRCommands.EOF
　　　　ForEachFInRCommands.Fields
　　　　　Debug.PrintF.Name&=&F.Value
　　　　Next
　　　　RCommands.MoveNext
　　　Loop
　　EndSub
　　FunctiongetCommandXML(command_nameAsString)AsString
　　　RCommands.MoveFirst
　　　RCommands.Findcommand_name=&command_name&,,adSearchForward,1
　　　IfRCommands.EOFThen
　　　　MsgBoxCannotfindanycommandassociatedwiththename&command_name&.
　　　　ExitFunction
　　　Else
　　　　getCommandXML=RCommands(command_xml)
　　　EndIf
　　EndFunction
　　SubgetRecentProduct(CustomerIDAsString)
　　　DimsXMLAsString
　　　DimxmlAsDOMDocument
　　　DimNAsIXMLDOMNode
　　　DimproductNameAsString
　　　sXML=getCommandXML(RecentPurchaseByCustomerID)
　　　Setxml=NewDOMDocument
　　　xml.loadXMLsXML
　　　SetN=xml.selectSingleNode(command/param[name=CustomerID]/value)
　　　N.Text=CustomerID
　　　Setxml=executeSPWithReturn(xml.xml)
　　　productName=xml.selectSingleNode(values/ProductName).Text
　　　显现text域
　　　txtResult.Text=
　　　Me.txtResult.Visible=True
　　　dgResult.Visible=False
　　　显现product名
　　　txtResult.Text=比来的产物是:&productName
　　EndSub
　　SubgetCustomerList()
　　　DimsXMLAsString
　　　DimiAsInteger
　　　DimsAsString
　　　sXML=getCommandXML(getCustomerList)
　　　SetRCustomers=getRecordset(sXML)
　　　SetdgCustomers.DataSource=RCustomers
　　EndSub
　　SubgetCustomerDetail(CustomerIDAsString)
　　　找出列表中相干联的ID号
　　　DimsXMLAsString
　　　DimRAsRecordset
　　　DimFAsField
　　　DimsAsString
　　　DimNAsIXMLDOMNode
　　　DimxmlAsDOMDocument
　　　sXML=getCommandXML(CustOrderHist)
　　　Setxml=NewDOMDocument
　　　xml.loadXMLsXML
　　　SetN=xml.selectSingleNode(command/param[name=CustomerID]/value)
　　　N.Text=CustomerID
　　　SetR=getRecordset(xml.xml)
　　　埋没text,由于它是一个纪录集
　　　txtResult.Visible=False
　　　dgResult.Visible=True
　　　SetdgResult.DataSource=R
　　EndSub
　　FunctiongetRecordset(sXMLAsString)AsRecordset
　　　DimRAsRecordset
　　　DimxmlAsDOMDocument
　　　Setxml=getData(sXML)
　　　　Debug.PrintTypeName(xml)
　　　OnErrorResumeNext
　　　SetR=NewRecordset
　　　R.Openxml
　　　IfErr.Number＜＞0Then
　　　　MsgBoxErr.Description
　　　　ExitFunction
　　　Else
　　　　SetgetRecordset=R
　　　EndIf
　　EndFunction
　　FunctionexecuteSPWithReturn(sXMLAsString)AsDOMDocument
　　　DimdAsNewDictionary
　　　DimxmlAsDOMDocument
　　　DimnodesAsIXMLDOMNodeList
　　　DimNAsIXMLDOMNode
　　　Setxml=getData(sXML)
　　　Ifxml.documentElement.nodeName=valuesThen
　　　　SetexecuteSPWithReturn=xml
　　　Else
　　　　产生毛病
　
　　　　SetN=xml.selectSingleNode(response/data)
　　　　IfNotNIsNothingThen
　　　　　MsgBoxN.Text
　　　　　ExitFunction
　　　　Else
　　　　　MsgBoxxml.xml
　　　　　ExitFunction
　　　　EndIf
　　　EndIf
　　EndFunction
　　FunctiongetData(sXMLAsString)AsDOMDocument
　　　DimxhttpAsNewXMLHTTP30
　　　xhttp.OpenPOST,dataURL,False
　　　xhttp.sendsXML
　　　Debug.Printxhttp.responseText
　　　SetgetData=xhttp.responseXML
　　EndFunction
　　PrivateSuboptAction_Click(IndexAsInteger)
　　　CalldgCustomers_Click
　　EndSub

　　
代码2、getData.asp
<P>　　　＜%@Language=VBScript%＞
　　　＜%optionexplicit%＞
　　　＜%
　　　　SubresponseError(sDescription)
　　　　Response.Write＜response＞＜data＞Error:&sDescription&＜/data＞＜/response＞
　　　　Response.end
　　　EndSub
　　　Response.ContentType=text/xml
　　　dimxml
　　　dimcommandText
　　　dimreturnsData
　　　dimreturnsValues
　　　dimrecordsAffected
　　　dimparam
　　　dimparamName
　　　dimparamType
　　　dimparamDirection
　　　dimparamSize
　　　dimparamValue
　　　dimN
　　　dimnodeName
　　　dimnodes
　　　dimconn
　　　dimsXML
　　　dimR
　　　dimcm
　　　创立DOMDocument工具
　　　Setxml=Server.CreateObject(msxml2.DOMDocument)
　　　xml.async=False
　　　装载POST数据
　　　xml.LoadRequest
　　　Ifxml.parseError.errorCode＜＞0Then
　　　　CallresponseError(不克不及装载XML信息。形貌:&xml.parseError.reason&＜br＞行数:&xml.parseError.Line)
　　　EndIf
　　　客户端必需发送一个commandText元素
　　　SetN=xml.selectSingleNode(command/commandtext)
　　　IfNIsNothingThen
　　　　CallresponseError(Missing＜commandText＞parameter.)
　　　Else
　　　　commandText=N.Text
　　　EndIf
　　　客户端必需发送一个returnsdata大概returnsvalue元素
　　　setN=xml.selectSingleNode(command/returnsdata)
　　　ifNisnothingthen
　　　　setN=xml.selectSingleNode(command/returnsvalues)
　　　　ifNisnothingthen
　　　　　callresponseError(Missing＜returnsdata＞or＜returnsValues＞parameter.)
　　　　else
　　　　　returnsValues=(lcase(N.Text)=true)
　　　　endif
　　　else
　　　　returnsData=(lcase(N.Text)=true)
　　　endif
　　　setcm=server.CreateObject(ADODB.Command)
　　　cm.CommandText=commandText
　　　ifinstr(1,commandText,,vbBinaryCompare)＞0then
　　　　cm.CommandType=adCmdText
　　　else
　　　　cm.CommandType=adCmdStoredProc
　　　endif
　　　创立参数
　　　setnodes=xml.selectNodes(command/param)
　　　ifnodesisnothingthen
　　　　假如没有参数
　　　elseifnodes.length=0then
　　　　　假如没有参数
　　　else
　　　　　foreachparaminnodes
　　　　　　Response.Writeserver.HTMLEncode(param.xml)&＜br＞
　　　　　　onerrorresumenext
　　　　　　paramName=param.selectSingleNode(name).text
　　　　　　iferr.number＜＞0then
　　　　　　　callresponseError(创立参数:不克不及发明称号标签。)
　　　　　　endif
　　　　　　paramType=param.selectSingleNode(type).text
　　　　　　paramDirection=param.selectSingleNode(direction).text
　　　　　　paramSize=param.selectSingleNode(size).text
　　　　　　paramValue=param.selectSingleNode(value).text
　　　　　　iferr.number＜＞0then
　　　　　　　　callresponseError(参数名为&paramName&的参数短少需要的域)
　　　　　　endif
　　　　　　cm.Parameters.Append　　　　　　　　　　　　　　　　　　　cm.CreateParameter(paramName,paramType,paramDirection,paramSize,paramValue)
　　　　　　iferr.number＜＞0then
　　　　　　　callresponseError(不克不及创立或增加名为&paramName&的参数.&　err.description)
　　　　　　　Response.end
　　　　　　endif
　　　　　next
　　　　　onerrorgoto0
　　　　endif
　　　翻开保持
　　　setconn=Server.CreateObject(ADODB.Connection)
　　　conn.Mode=adModeReadWrite
　　　conn.openApplication(ConnectionString)
　　　iferr.number＜＞0then
　　　　callresponseError(保持堕落:&Err.Description)
　　　　Response.end
　　　endif
　　保持Command工具
　　setcm.ActiveConnection=conn
　　实行命令
　　ifreturnsDatathen
　　　用命令翻开一个Recordset
　　　　setR=server.CreateObject(ADODB.Recordset)
　　　　R.CursorLocation=adUseClient
　　　　R.Opencm,,adOpenStatic,adLockReadOnly
　　else
　　　　cm.ExecuterecordsAffected,,adExecuteNoRecords
　　endif
　　　iferr.number＜＞0then
　　　　callresponseError(实行命令毛病&Commandtext&:&Err.Description)
　　　　Response.end
　　　endif
　　　ifreturnsDatathen
　　　　R.SaveResponse,adPersistXML
　　　　iferr.number＜＞0then
　　　　　callresponseError(数据集产生存储毛病，在命令&CommandText&:&Err.Description)
　　　　　Response.end
　　　　endif
　　　elseifreturnsValuesthen
　　　　sXML=＜?xmlversion=1.0encoding=gb2312?＞&vbcrlf&＜values＞
　　　　setnodes=xml.selectNodes(command/param[direction=2])
　　　　foreachNinnodes
　　　　　nodeName=N.selectSingleNode(name).text
　　　　　sXML=sXML&＜&nodename&＞&cm.Parameters(nodename).Value&&＜/&nodename&＞
　　　　　next
　　　　　sXML=sXML&＜/values＞
　　　　　Response.WritesXML
　　　endif
　　　setcm=nothing
　　　conn.Close
　　　setR=nothing
　　　setconn=nothing
　　　Response.end
　　%＞

楼上说交互性不好，太牵强了吧。在微软提供的一套框架中，利用asp做网站，开发效率高，使用人数少，减少不必要的开销。交互性是互动方式，是有开发人员决定的。

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

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

在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。

完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。

我就感觉到ASP和一些常用的数据库编程以及软件工程方面的思想是非常重要的。我现在也在尝试自己做网页，这其中就用到了ASP，我想它的作用是可想而知的。

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

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

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