Time of Update: 2018-12-08
FSO產生靜態HTML檔案的時候替換模板標籤一直是一個很麻煩的問題,至少我是這麼認為的,還要別外做一個模板,麻煩!,我今天看見有一個方法可以解決這個問題 如一個正常的index.asp頁面,並且用ASP代碼調出資料庫中的內容,另建一個makehtml.asp的頁面,加入一個textarea域,假設為name="body",將index.asp在textarea裡調出來,如: <textarea name="body"><!--#include
Time of Update: 2018-12-08
記錄集內隨機取記錄的代碼 <% ' Moving to random record - Steven Jones' Extension If Not(記錄集名稱.bof and 記錄集名稱.eof) Then ' reset the cursor to the beginning If (記錄集名稱.CursorType > 0) Then 記錄集名稱.MoveFirst Else 記錄集名稱.Requery End If 記錄集名稱_totalrn = -1
Time of Update: 2018-12-08
防止從外部提交資料的方法 第一種做法,屏蔽特殊字元和關鍵字 fqys=request.servervariables("query_string") dim nothis(18) nothis(0)="net user" nothis(1)="xp_cmdshell" nothis(2)="/add" nothis(3)="exec%20master.dbo.xp_cmdshell" nothis(4)="net localgroup administrators" nothis(
Time of Update: 2018-12-08
最簡潔的多重查詢的解決方案 [前言] 我們經常會遇到多重查詢問題,而長長的SQL語句往往讓人丈二和尚摸不著頭腦。特別是用戶端部分填入查詢條件時,如用普通方法將更是難上加難。 以下巧妙地利用"where 1=1"的恒等式(事實上很多,讓它值為TRUE即可)解決此問題。 [本文概要] 'subject 資訊標題 'company 發布資訊的公司名稱 'content 發布資訊的內容 'address 公司地址 'infomation 公司簡介 'note 相關說明 以上值均由FORM提交,然後通過:
Time of Update: 2018-12-08
令人抱憾的一個現象,今天一個同事說我的網路編程欄目下的asp編程,竟然沒有帶來任何ip,我的站的好多asp編程資料都是手工從各大比較好的asp編寫的系統中提取出來的asp的精華代碼,網上轉載了我的全站資訊的網站有很多,我的站的asp編程,asp下fso操作,asp小偷與採集,asp
Time of Update: 2018-12-08
存貯過程(SQL樣版) 今天發個SQL存貯過程給大家認識 複製代碼 代碼如下:CREATE PROCEDURE login_verify ( @community_id int, --拿值 @username varchar(20), @password varchar(40), @result tinyint output ) AS set nocount ON declare @service_deadline_date smalldatetime,@community_
Time of Update: 2018-12-08
最近經常有人問到這類問題,在此轉貼一下,內容: 1。資料庫表結構(Access): UserID:Text(儲存上傳檔案的使用者ID) FileContentType:Text(用來儲存上傳檔案的類型,eg:"Application/msword",主要用來使使用者能正確下載此檔案) FileContent:OLE Object(儲存檔案資料) 2。HTML檔案 muploadfile.htm <Form name="upload_file"
Time of Update: 2018-12-08
您可以在ASP程式中使用Server.Execute(path)方法調用Path指定的ASP程式,待被調用的程式執行完畢之後再返回原來的程式,繼續接下來的指令。這個作用類似#include。正是由於Server.Execute函數調用的這個特點,我們可以把經常用到的函數寫成ASP程式,然後在需要用此函數的ASP程式使用Server.Execute進行調用,這樣就不用寫相同的程式碼。
Time of Update: 2018-12-08
'================================================== '過程名:SaveRemoteFile '作 用:儲存遠端檔案到本地 '參 數:LocalFileName ------ 本地檔案名稱 '參 數:RemoteFileUrl ------ 遠程檔案URL '================================================== Function
Time of Update: 2018-12-08
附件是破解的ASP原始碼,如果你的空間支援ASP,那麼直接傳到你空間去就可以了,當然,這裡我們為了方便會員,給大家一個統一的就行了! QUOTE: 眾所周知,163相簿速度是非常快的。簡直是QQ相簿的好幾倍。現在還有個上傳工具,可以一次性上傳很多張圖片。 但是有個很大缺點,就是不能別的地方連結相簿裡的圖片(這個就稱為防盜鏈系統),這個當然是163考慮到自己利益所以才防盜鏈的。 不過,現在我便要把相簿裡的圖片在論壇顯示出來 嘿 下面這張圖片,就是我的一張相片,放在163的相簿裡 QUOTE:
Time of Update: 2018-12-08
'************************************************** '函數名:CreateKeyWord '作 用:由給定的字串產生關鍵字 '參 數:Constr---要產生關鍵字的原字串 '傳回值:產生的關鍵字 '************************************************** Function CreateKeyWord(byval Constr,Num) If Constr="" or
Time of Update: 2018-12-08
在Asp中如何得到所有表單的名稱跟對應的值。其實,這個問題很簡單,但是可能還是有很多人不知道該怎麼做,所以特地寫下來,僅供參考。在Asp程式中,用來獲得用戶端資料的對象是 Request,這個對象給我們提供了很多的方法以及屬性。比如,有這樣一個Form,<FORM METHOD=POST name=cqq ACTION=""> <INPUT TYPE="text" NAME="username"> <INPUT TYPE="text" NAME="password"
Time of Update: 2018-12-08
'================================================ '函數名:ReSaveRemoteFile '作 用:尋找檔案儲存替換 '參 數:Str ----原字串 '參 數:url ----當然網站URL '參 數:Dir -----儲存目錄 '參 數:InSave ------是否儲存,True,False '傳回值:格式化取後的字串 '=================
Time of Update: 2018-12-08
<% @LANGUAGE = VBSCRIPT %><%Option Explicit%><%'以下程式批量改名檔案夾中的檔案名稱,並將所有檔案移動到新的檔案夾;Response.Write "<html>" & VbCrLf & "<head>" & VbCrLfResponse.Write "<title>批量檔案改名</title>" & VbCrLfResponse.Write "</head>" & VbCrLf & "<body>" &
Time of Update: 2018-12-08
asp之日期和時間函數樣本可以使用日期和時間函數來得到各種格式的日期和時間函數文法說明樣本NowNow()取得系統當前的日期和時間Dim MyVar MyVar = Now' MyVar 包含當前的日期和時間。DateDate()取得系統當前的日期Dim MyDate MyDate = Date' MyDate 包含當前系統日期。TimeTime()取得系統當前的時間Dim MyTime MyTime = Time ' 返回當前系統時間。YearYear(Date)取得給定日期的年份Dim
Time of Update: 2018-12-08
<% '********************************************** 'vbs Cache類 ' 屬性valid,是否可用,取值前判斷 ' 屬性name,cache名,建立對象後賦值 ' 方法add(值,到期時間),設定cache內容 ' 屬性value,返回cache內容 ' 屬性blempty,是否未設定值 ' 方法makeEmpty,釋放記憶體,測試用 ' 方法equal(變數1),判斷cache值是否和變數1相同 '
Time of Update: 2018-12-08
******************** '函數作用:根據條件真假返回選定值中的某個 '參數:blnCondition:條件變數,varResultTrue:條件為真時傳回值,varResultFalse:條件為假時傳回值 Function IIF(blnCondition, varResultTrue,varResultFalse) If CBool(blnCondition) Then IIF = varResultTrue Else IIF =
Time of Update: 2018-12-08
可能"極好的"又會帶來很多的非議,但是我認為這確實很好,我看了大約20個無重新整理的連動下拉式清單,他們在firefox下面就一團糟.為了這個我差不多搞了兩天,就是如果提交表單後如何保持第二個列表框的值,因為通過js 給下拉框添加條目那麼他的狀態是不會被儲存的測試平台:ie6,firefox 功能:二級無重新整理連動 特點:跨瀏覽器;提交表單取第二下拉框的值;資料來源於資料庫;以xmlhttp來發送請求,實現無重新整理
Time of Update: 2018-12-08
<% '=================================================================== 'XDOWNPAGE ASP版本 '版本 1.00 'Code by zykj2000 'Email: zykj_2000@163.net 'BBS: http://bbs.513soft.net '本程式可以免費使用、修改,希望我的程式能為您的工作帶來方便 '但請保留以上請息 ' '程式特點
Time of Update: 2018-12-08
By zkxp 2/15/2006 http://zkxp.cnblogs.com ‘受屏蔽IP地址(段)集合,星號為萬用字元,通常儲存於設定檔中。 <% Const BadIPGroup = "220.200.59.136|220.205.168.141" If IsForbidIP(BadIPGroup) = True Then Response.Write(GetUserIP &"IP地址禁止訪問") Response.End() End If '******