推荐:揭秘解决杀毒软件误删asp文件的方法一些杀毒软件经常会把某些asp文件当成病毒删除,有时简直防不胜防,程序莫名其妙的就不能用了,因为少了文件呀~~。这主要是因为,杀毒软件将某些asp代码当成木马关键词,记录保存着,所以遇到有这个关键词,就会禁止运行或删除。 解决的方法是将这些关键词给
首先建一个access 数据库,库中有一个URLINDEX表,其中URL和Keywords字段分别添加了索引,如下:| URL 文本(索引:有(无重复)) Title文本 Description文本 Summary文本 Keywords文本(索引:有(无重复)) |
程序文件doquery.asp,代码:
| <HTML><HEAD><TITLE>简单搜索引擎</TITLE></HEAD> <BODYBGCOLOR=#ffffffMARGINWIDTH=0MARGINHEIGHT=0 LEFTMARGIN=0TOPMARGIN=0> <FORMMETHOD=postACTION=doquery.asp?act=search> Query:<INPUTTYPE=TextNAME=QueryString><BR> <INPUTTYPE=SubmitVALUE=Submit> </FORM> </CENTER> <% dimact act=request(act) if(act=search)then QueryString=Request.form(QueryString) QueryWords=Split(QueryString) strIndent= ’如果搜索为空则返回 IfQueryString=Then Response.Redirect(default.asp) EndIf Session.timeout=2 IfIsObject(Session(sitesearch_conn))Then Setconn=Session(sitesearch_conn) Else Setconn=Server.CreateObject(ADODB.Connection) conn.opendriver={MicrosoftAccessDriver(*.mdb)};dbq=&Server.MapPath(database/SiteSearch.mdb),, SetSession(sitesearch_conn)=conn EndIf ’查询语句 sql=SELECT*FROM[URLIndex]WHERE ’搜索Description字段 sql=sql&([Description]LIKE ’%&QueryWords(0)&% ’ ’First Fori=LBound(QueryWords)+1toUBound(QueryWords) IfQueryWords(i)<>andUCase(QueryWords(i))<>ORandUCase(QueryWords(i))<>ANDThen IfuCase(QueryWords(i-1))=ORThen sql=sql&OR[Description]LIKE ’%&QueryWords(i)&% ’ Else sql=sql&AND[Description]LIKE ’%&QueryWords(i)&% ’ EndIf EndIf Next ’搜索Keywords字段 sql=sql&)OR([Keywords]LIKE ’%&QueryWords(0)&% ’ Fori=LBound(QueryWords)+1toUBound(QueryWords) IfQueryWords(i)<>andUCase(QueryWords(i))<>ORandUCase(QueryWords(i))<>ANDThen IfuCase(QueryWords(i-1))=ORThen sql=sql&OR[Keywords]LIKE ’%&QueryWords(i)&% ’ Else sql=sql&AND[Keywords]LIKE ’%&QueryWords(i)&% ’ EndIf EndIf Next ’搜索Title字段 sql=sql&)OR([Title]LIKE ’%&QueryWords(0)&% ’ Fori=LBound(QueryWords)+1toUBound(QueryWords) IfQueryWords(i)<>andUCase(QueryWords(i))<>ORandUCase(QueryWords(i))<>ANDThen IfuCase(QueryWords(i-1))=ORThen sql=sql&OR[Title]LIKE ’%&QueryWords(i)&% ’ Else sql=sql&AND[Title]LIKE ’%&QueryWords(i)&% ’ EndIf EndIf Next |
分享:揭秘17个ASP编程基础典型代码1.ASP取得表格输入数据的方法:GETPOST 一.get:用户端将数据加到URL后,格式为”?字段1=输入数据1字段2=输入数据2...,再将其送到服务器。如:action为www.abc.com,字段Name输入数据为jack,字段age的数据为15,则用get方法为http://www.abc.com?Name=jackAge=
共2页上一页12下一页