ASP编程：暑期绚丽巨献之~------完成撑持逻辑搜刮...
Windows本身的所有问题都会一成不变的也累加到了它的身上。安全性、稳定性、跨平台性都会因为与NT的捆绑而显现出来；关头字//ROOT1.嘿嘿!!!//以下代码由于是间接在自己主页上COPY上去的,已和页面分离,以是对照丢脸懂.由于这个文件我是对照久之前写的..如今弄到本人也看得不年夜懂了~~呵呵!!!由于比来筹办把电脑给临时戒了,好勤学习.以是把自己写过的一些本人以为过得往的代码贴出来...呵呵
---------迟点偶然间我再把处置SQL语句得ASP文件COPY下去--------
---------依据网友输出的搜刮前提静态天生SQL语句的VBS文件-----
SubShow(numbers)
DimStr
SelectCasenumbers
Case1
Str="∷启动按作者搜刮∷"
window.document.all("show").innerHTML=Str
Case2
Str="∷启动按单词搜刮∷"
window.document.all("show").innerHTML=Str
Case3
Str="∷启动按词组搜刮∷"
window.document.all("show").innerHTML=Str
Case4
Str="∷启动按逻辑搜刮∷"
window.document.all("show").innerHTML=Str
Case5
Str="∷按复合逻辑搜刮∷"
window.document.all("show").innerHTML=Str
EndSelect
EndSub
----------------------------------------------全局变量
Dima7
a7=""
-------------------------------------------------------
Functioncheckhaha(haha)
text=replace(trim(haha.search.value),"","")
Iftext=""Then
alert("Sorry.请输出你的搜刮关头字")
haha.search.value=""
haha.search.focus()
ExitFunction
Endif
haha.search.value=text
haha.SearchString.value=GetText(text,haha)
haha.submit()
EndFunction
FunctionGetText(text,haha)
Dimreg
Dimres
Dimsky
Ifhaha.radiobutton.checkedThen*************************************假如按作者则提交推出
CallShow(1)
GetText="name="&text&""
ExitFunction
Endif
*********************************************************************
Setreg=newregexp
reg.IgnoreCase=true
reg.Global=True
reg.Pattern="s"
res=reg.test(text)
*********************************************************假如关头字不包括空格就举行单词搜刮
IfNotresThen
CallShow(2)
GetText="(题目+文章)like%"&text&"%"
ExitFunction
Endif
********************************************************************************************
reg.Pattern="sand|sor"
res=reg.test(text)
IfresThen*************************************************反省逻辑表达式,准确则前往SQL语句,不然前往假,按词组搜刮
sky=check(reg,text)
Ifsky=falseThen**************************************假如逻辑搜刮不准确则举行词组搜刮
GetText=wahaha(reg,text)
Else**************************************************提交逻辑搜刮
GetText=sky
Endif
Else****************************************************假如没有AND大概OR关头字就举行词组搜刮
GetText=wahaha(reg,text)
Endif
EndFunction
Functionwahaha(reg,text)*****************************************词组搜刮
Dimter
Dimter1
Dimlikes
Dimors
ter=""
ter1=""
likes="or((题目+文章)like%"
ors="%)"
reg.Pattern="(S*S)"
Setre=reg.Execute(text)
foreachiinre
ter=ter&likes&i&ors
ter1=ter1&i&a7
next
CallShow(3)
wahaha=mid(ter,4)
EndFunction
Functioncheck(reg2,text2)
Dimre
Dimi
Dimbbb
Dimtru
Dimre1
Dimre2
Dimre3
Dimstr
Dimstr1
Dima1
Dima2
Dima3
Dima4
str="(题目+文章)like%"
str1="%"
tru=true
bbb=true
reg2.Pattern="^(.+)s(and|or)s"
re=reg2.test(text2)
reg2.Pattern="s(and|or)s(.+)$"
re3=reg2.test(text2)
Ifreandre3Then***********************************假如为全复合逻辑,就前往SQL语句
reg2.Pattern="^((S*S)(or|and)(S*S))(and|or)((S*S)(or|and)(S*S))$"
Setre1=reg2.Execute(text2)
Ifre1.count<1Then
check=false
ExitFunction
Endif
Setre2=re1(0)
Ifre2.submatches.count<6Then
check=false
ExitFunction
Endif
a1=re2.submatches(0)
a2=re2.submatches(2)
</p>缺点：安全性不是太差了，还行，只要你充分利用系统自带的工具；唯一缺点就是执行效率慢，如何进行网站优化以后，效果会比较好。 ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。 如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助: 在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。 学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。 如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助: Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名") ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。 运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。
页:
[1]