仓酷云

标题: ASP教程之用ASP编程完成疾速查找一例 [打印本页]

作者: 乐观 时间: 2015-1-16 22:31
标题: ASP教程之用ASP编程完成疾速查找一例
ActiveServerPage技术为应用开发商提供了基于脚本的直观、快速、高效的应用开发手段，极大地提高了开发的效果。在讨论ASP的安全性问题之前，让我们来看看ASP是怎么工作的。　你要作的第一步，是在global.asa文件中创建一个初始变量，安排在你的SubSession_onStart()程序中。<P>　　SubSession_onStart()
　　Referer=Trim(Request.ServerVariables("HTTP_REFERER"))
　　IfReferer=""Then
　　Referer="None"
　　EndIf
　　Session("Referer")=Referer
　　EndSub

　　接着我们来动手看看怎样完成程序的次要功效。
　　由于url经由了编码，以是起首要把来访者主机的指向数据复原成对我们有效的器材。创建一个ASP页面，叫它decode.asp，是我们程序的骨干。第一个功效是要对编码过的指向头举行解码。程序有点长，并且很间接，没有甚么迂回曲折，假如你嫌贫苦，不如到www.popunet.com的"网虫学习班"下面找到本文，用"拷贝/粘贴"年夜法吧。
　　源代码
　　第二件要作的事变是：从URL头信息里分别出查询部分--这个才是我们必要的。
从指向URL平分离查询字段。
　　FunctionisProduct(pStr)
　　IfpStr＜＞""AndlCase(pStr)＜＞"none"Then
　　向后搜刮字段
　　temp=inStrRev(pStr,"/")
　　失掉目次分别的地位
　　tempStr=Right(pStr,temp)
　　失掉有关数据长度
　　temp2=Len(pStr)
　　失掉查询数据行
　　pStr=Mid(pStr,temp,temp2)
　　设定前往功效的值
　　isProduct=pStr
　　Else
　　isProduct=""
　　EndIf
　　EndFunction
　　接着是要建立查找的明白尺度。为到达这个目标，创建两个静态空间"指?查找指向数据
　　FunctionFinder(byRefprodList,byValrefList)
　　含混查询
　　refList=lCase(refList)
　　经由过程指针轮回查找婚配字段
　　Fori=0TouBound(prodList)-1
　　IfinStr(refList,lCase(prodList(i,0)))Then
　　找到婚配
　　tHolder=tHolder&"AreYoulookingFor"_
　　&""_
　　&prodList(i,0)&"
　　"
　　EndIf
　　第二次轮回
　　Next
　　前往了局
　　Finder=tHolderEndFunction
　　经由过程一个inclue，把我们做好的decode.asp放到必要此功效的任何页面，半途而废啦。
详细以下：
　　假如指向头不为空，修改此功效IflCase(Session("Referer"))＜＞"none"ORSession("Referer")＜＞""Then剖析指向数据Response.WritevbCrLf&"
　　"_&Finder(pArray,URLDecode(isProduct(Session("Referer"))))_&"
　　"&vbCrLf
　　EndIf(公共收集报/karry)

asp，你就只能等着微软给你解决，它不乐意你就只好悲催。而且asp跑在windows服务器上，windows服务器跟linux比起来简直弱爆了！

作者: 柔情似水 时间: 2015-1-19 16:11
运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。

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

作者: 冷月葬花魂 时间: 2015-2-22 19:53
ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。

作者: 蒙在股里 时间: 2015-3-7 01:51
那么，ASP.Net有哪些改进呢？

作者: 乐观 时间: 2015-3-14 07:21
另外因为asp需要使用组件，所以了解一点组件的知识(ADODB也是组件)

作者: 莫相离 时间: 2015-3-21 01:16
Application:这个存储服务端的数据，如果不清除，会直到web应用程序结束才清除(例如重启站点)

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