变相怪杰 发表于 2015-1-16 23:33:17

ASP网页编程之ASP做查询剖析器(Query Analyzer)(I)

Access是一种桌面数据库,只适合数据量少的应用,在处理少量数据和单机访问的数据库时是很好的,效率也很高。但是它的同时访问客户端不能多于4个。access数据库有一定的极限,如果数据达到100M左右,很容易造成服务器iis假死,或者消耗掉服务器的内存导致服务器崩溃。查询剖析sqlultimate.asp--PartA

<%@LANGUAGE=VBScript%>
<%
OptionExplicit
Response.Buffer=True
Session.Timeout=1
Response.ContentType="text/html;charset=iso-8859-1"

--------------------------------------------------------------
---Declarations
--------------------------------------------------------------

DimstrQueryType
DimstrClipStringtodisplayworkspace
DimstrDBStringtodisplayrelativedatabasepath
DimstrTableStringtoholdthetablename
DimnumTableValue
DimstrDBName
Dimstrdbpath
DimstrConnect
DimstrSQL
DimboolTableInfo
DimstrServer
DimstrUserID
DimstrPassword
Dimcount
DimintSpacer
DimstrIdentity
DimstrQuery
DimstrLoad
DimstrCreate
DimstrTableName
DimstrQOption,strQOption1,strQOption2,strQOption3

--------------------------------------------------------------
---Initialization
--------------------------------------------------------------

strTable=request("schema")

strClip=Trim(Request.Form("strClip"))

Ifrequest("selectdb")="SelectDB"Then
strSQL=""
Else
strSQL=Trim(Request.Form("strSQL"))
strSQL=replace(strSQL,vbCrLf,"")
strClip=Trim(Request("strClip"))getworkspacevaluesfromform
EndIf

strLoad=request("Load")

Ifrequest("submitquery")="SubmitQuery"Then
strSQL=Trim(request("strSQL"))
strSQL=replace(strSQL,vbCrLf,"")
strClip=Trim(Request("strClip"))getworkspacevaluesfromform
ElseIfstrLoad="Load"Then
strSQL=request("strSQLLoad")
strSQL=replace(strSQL,vbCrLf,"")
EndIf

strServer=request("sqlServer")

strUserID=request("log_in")

strPassword=request("user_password")

strDB=request("choosetable")

Ifrequest("tableinfo")="TableInfo"Then
boolTableInfo="True"
ElseIfrequest("saveMyQuery")="Save"Then
booltableinfo=request("booltableinfo")
ElseIfrequest("createSQLStatement")="Create"Then
booltableinfo=request("booltableinfo")
ElseIfrequest("Load")="Load"Then
booltableinfo=request("booltableinfo")
ElseIfrequest("createTable")="createTable"Then
booltableinfo=request("booltableinfo")
EndIf

strConnect="Provider=SQLOLEDB.1;Password="&strPassword&";UserID="&strUserID&";InitialCatalog="&strDB&";DataSource="&strServer&";"

strIdentity=request.cookies(strDB&"strCookieIdentity")

strquery=request("savequery")

strCreate=request("sqlType")

strTableName=request("strTableName")


strQOption=""
strQOption1=""
strQOption2=""
strQOption3=""

Ifrequest("sqlType")=""Then
strQOption="Selected"
ElseIfrequest("sqlType")="Select"Then
strQOption1="Selected"
ElseIfrequest("sqlType")="Insert"Then
</p>asp可以轻松地实现对页面内容的动态控制,根据不同的浏览者,显示不同的页面内容。而浏览者一点觉察不出来,就像为他专门制作的页面一样。使用各种各样的组件,asp可以完成无比强大的功能。

小女巫 发表于 2015-1-17 20:29:40

没有坚实的理论做基础,那么我们连踏入社会第一步的资本都没有,特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP,从平时的学习过程中。

小妖女 发表于 2015-1-21 07:17:40

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

分手快乐 发表于 2015-1-25 21:27:36

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

精灵巫婆 发表于 2015-1-28 06:04:16

作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。

柔情似水 发表于 2015-2-5 12:19:58

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

不帅 发表于 2015-2-11 19:57:55

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

admin 发表于 2015-3-2 17:51:18

兴趣爱好,那么你无须学编程,申请一个域名和空间,在网上下载一些免费开源的CMS系统,你不用改代码,只须熟悉它们的后台操作,像office一样简单方便,很快就能建一个站点,很多站长都是这样做的

爱飞 发表于 2015-3-11 04:53:50

作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。

透明 发表于 2015-3-17 20:56:06

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

谁可相欹 发表于 2015-3-25 02:34:34

Response:从字面上讲是“响应”,因此这个是服务端向客户端发送东西的,例如Response.Write
页: [1]
查看完整版本: ASP网页编程之ASP做查询剖析器(Query Analyzer)(I)