乐观 发表于 2015-1-16 22:31:52

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:30

运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改,找出你觉得可以提高性能的地方,加上自己的设计,那就更上一个层次了,也就会真正地感到有所收获。

飘灵儿 发表于 2015-2-7 17:33:34

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

冷月葬花魂 发表于 2015-2-22 19:53:28

ASP主要是用好六个对象,其实最主要的是用好其中两个:response和request,就可以随心所欲地控制网页变换和响应用户动作了。

蒙在股里 发表于 2015-3-7 01:51:18

那么,ASP.Net有哪些改进呢?

乐观 发表于 2015-3-14 07:21:37

另外因为asp需要使用组件,所以了解一点组件的知识(ADODB也是组件)

莫相离 发表于 2015-3-21 01:16:51

Application:这个存储服务端的数据,如果不清除,会直到web应用程序结束才清除(例如重启站点)
页: [1]
查看完整版本: ASP教程之用ASP编程完成疾速查找一例