ASP

以下是menu.asp代碼 程式碼 <% '--------------------------------------- '作者:野 草 '日期:2006年4月24日 'Q Q:94440079 '--------------------------------------- '讀取XML檔案函數 Function YCMS_menu() dim menu_temp,m Set goxml=Server.CreateObject("Microsoft.XMLDOM")

rss的優點 1.您可以有選擇地瀏覽您感興趣的以及與您的工作相關的新聞。 2.您可以把需要的資訊從不需要的資訊（兜售資訊，垃圾郵件等）中分離出來。 3.您可以建立自己的新聞頻道，並將之發布到網際網路。 什麼是 RSS？ RSS 指 Really Simple Syndication（真正簡易聯合） RSS 使您有能力彙總（syndicate）網站的內容 RSS 定義了非常簡單的方法來共用和查看標題和內容 RSS 檔案可被自動更新 RSS 允許為不同的網站進行視圖的個人化 RSS 使用 XML

一般寫ASP PHP代碼的朋友都估計是採用直接操作SQL的吧~ 看以下的代碼 <% dim conn,rs set conn=CreateObject("Adodb.Connection") conn.open .... set rs=conn.execute("select * from news"); ... 遍曆 rs.... %> 這樣實現速度快是肯定的了,但是在結構邏輯上面1條半條語句當然不覺得怎樣！語句多了問題也就來了！ 參數沒過濾啊,SQL存在注入啊等等~OK

當地址欄沒有參數＂id＂時： 複製代碼 代碼如下:Request.QueryString["ID"] == null Convert.ToString(Request.QueryString["ID"]) == null 　　注意這樣會出錯： 　　Request.QueryString["ID"].ToString(); 　　當地址欄有參數＂id＂，但沒有賦值的時候： 複製代碼 代碼如下:Request.QueryString["ID"] == ""

複製代碼 代碼如下:'去掉字串頭尾的連續的斷行符號和空格 function trimVBcrlf(str) trimVBcrlf=rtrimVBcrlf(ltrimVBcrlf(str)) end function '去掉字串開頭的連續的斷行符號和空格 function ltrimVBcrlf(str) dim pos,isBlankChar pos=1 isBlankChar=true while isBlankChar if mid(str,pos,1)=" " then pos=pos+1

當然這應該屬於正常過濾手法，而還有一種過濾HTML標籤的最終極手法，則是將一對角括弧及角括弧中的所有字元均替換不顯示，該方法對於內容中必須描述有關角括弧內容過濾過頭了。 　　不過，總歸是有需要將所有角括弧中內容全部替換的時候，很顯然是需要進行正則的，有兩種代碼，第一種如下： 複製代碼 代碼如下:Function nohtml(str) dim re Set re=new RegExp re.IgnoreCase =true re.Global=True re.Pattern="(\<.[^

複製代碼 代碼如下:<% Rem xml緩衝類 '-------------------------------------------------------------------- '轉載的時候請保留著作權資訊 '作者:╰⑥月の雨╮ '版本:ver1.0 '本類部分借鑒 walkmanxml資料緩衝類，使用更為方便 歡迎各位交流進步 '-------------------------------------------------------------------- Class

預存程序採用的是select top 加 not in的方式完成，速度也算是相當快了 我測試過了百萬級資料量一般查詢在1秒一下，貼出來大家交流下，看有沒有什麼好的建議。 簡單幾句話就可以實現分頁功能,請看代碼： 最簡單使用方法（適用於任何資料表）： test.asp 複製代碼 代碼如下:<!--#include file="conn.asp"--> <!--#include file="Page.asp"--> <% Set My = New Page With

直接看代碼： 複製代碼 代碼如下:Class GoogleTranslator sub Class_Initialize() RURI="http://translate.google.com/translate_t?langpair={0}&text={1}" End Sub Private Opt_ ' Property Get Opt Opt=Opt_ End Property Property Let Opt(Opt_s) Opt_=Opt_s End Property Private

複製代碼 代碼如下:<%@ Language=VBScript %> <% Dim strIP strIP = request("IP") %> <FORM action=? method=post> 輸入IP：<input type=text value="<%=strIP%>" style="BORDER: #AAAAAA 1px solid;" name="IP"> <input type="submit"

由於代碼比較短，這裡就不進行注釋了 複製代碼 代碼如下:<% '當目標頁面的包含檔案即#include的頁面裡邊存在response.End()的時候本程式有問題 '注意：本檔案一定要放在20041227111723.htm指向的檔案的同一目錄下 dim hughchiu_rtcode Function get_exe_code(20041227111723.htm) dim execode dim tmp_str Dim

1.首先，我們需要過濾所有用戶端提交的內容,其中包括?id=N一類,另外還有提交的html代碼中的操作資料庫的select及asp檔案操作文法,大家可以把提交的字元轉義,然後再存入資料庫。 2.然後需要對訪問Access資料庫的頁面進行授權,針對顯示資料頁面只能使用select語句,過濾其他的update,asp檔案則分為許可訪問資料庫頁面和限制訪問頁。 3.修改數庫據串連檔案名稱conn.asp為類似123ljuvo345l3kj34534v.asp檔案。 4.修改資料庫名為類似q397d03

如果在session級儲存一個dictionary對象會降低系統的效能，而在application級儲存一個dictionary對象會導致web伺服器崩潰，關於這個就不在多說了。 現在我們要考慮的是dictionary對象在單頁的時候，有哪些設計時的缺陷： 大家可以這麼試試 set rs=server.createobject("adodb.recordset") sql="select * from table" rs.open sql,conn,1,3 set

Function getIpvalue(clientIP)'得到用戶端的IP轉換成長整型，傳回值getIpvalue On Error Resume Next Dim strIp, array_Ip strIp=0 array_Ip = Split(clientIP,".") If UBound(array_Ip)<>3 Then getIpvalue=0 Exit Function End If For i=0 To 3 strIp=strIp+(CInt(array_Ip(i))

假設在搜尋方塊search中輸入：“asp 編程” 先得到輸入框中的內容：search=request("search") 然後將這兩個值分別取出來 s=split(search," ") '構造sql函數 sql="select * from news" for i=0 to ubound(s) m=m&" or title='"&s(i)&"'" next '在這裡會發現得到的m前面多了一個or，所以要去掉 m=right(m,len(m)-3) '將m串連到sql語句上 sql=sql&"

程式碼： 以下為引用的內容： 複製代碼 代碼如下:'關鍵字的搜尋 str="select * from tableName where id>4" if srhKey<>"" then keyArr=split(srhKey," ") j=UBound(keyArr) t=0 dim keystrArr() for i=0 to j if keyArr(i)<>"" then redim preserve keystrArr(t)

修改檔案的名字 使用“FileSystemObject(檔案系統對象)”的GetFile函數得到一個“檔案對象”，然後修改這個“檔案對象”的name屬性 複製代碼 代碼如下:set fso=Server.CreateObject("Scripting.FileSystemObject") set file=fso.GetFile(Server.MapPath("/folder/old_name.asp")) file.name="new_name.asp" 修改檔案夾的名字

星期五寫了個分類資訊的小東東!在資料庫裡只有ip地址,一般訪客不太清楚IP地址來源於哪個城市.如果在表裡多一個列儲存城市又沒有真實性可言.如果能把IP地址變成城市多好呀.當然可以去down下資料庫.可就為這個需求覺得有點浪費.還好了有好多網站提供查詢.如果能把它的結果變成我的.問題解決. 需要一個js函數.當每出來一條記錄時,就把ip替換為城市: 複製代碼 代碼如下:<script type="text/javascript"> function

作用：用ASP程式將頁面中的電話號碼產生圖片格式。 複製代碼 代碼如下:<% Call Com_CreatValidCode(Request.QueryString("tel")) Public Sub Com_CreatValidCode(pTel) '----------禁止緩衝 Response.Expires = 0 Response.AddHeader "Pragma","no-cache" Response.AddHeader "cache-ctrol","no-cache"

<%@ language=vbscript codepage=65001%> <% 'Filename must be input if Request("Filename")="" then response.write "<h1>Error:</h1>Filename is empty!<p>" else call downloadFile(replace(replace(Request("Filename"),"\",""),"/","