推薦:揭秘解決殺毒軟件誤刪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下一頁