仓酷云

标题: ASP网页编程之ASP做查询剖析器(Query Analyzer)(I) [打印本页]

作者: 变相怪杰 时间: 2015-1-16 23:33
标题: 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
没有坚实的理论做基础，那么我们连踏入社会第一步的资本都没有，特别对于计算机专业的学生学好专业知识是置关重要的。在这里我侧重讲一下如何学习ASP，从平时的学习过程中。

作者: 小妖女 时间: 2015-1-21 07:17
不能只是将它停留在纸上谈兵的程度上。

作者: 分手快乐 时间: 2015-1-25 21:27
完全不知道到底自己学的是什么。最后，除了教程里面说的几个例子，还是什么都不会。

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

作者: 柔情似水 时间: 2015-2-5 12:19
Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名")

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

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

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

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

作者: 谁可相欹 时间: 2015-3-25 02:34
Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write

欢迎光临仓酷云 (http://ckuyun.com/)