方式一: 複製代碼 代碼如下:<% Function IsSelfRefer() Dim formUrl,relUrl formUrl=LCase(Trim(request.ServerVariables("HTTP_REFERER"))) If formUrl="" Then IsSelfRefer = False Else relUrl="http://" &
“Everything is Object”,在物件導向的程式設計語言中誰都知道這句話,但對我來說這是一種感覺,只可意會很難言傳。由於我對JavaScript和薄弱,所以在看Asp.net Ajax類庫的同時也翻出了ECMAScript順便學習學習。在.NET中所有類都是繼承自Object,同樣在JS中也一樣說有都繼承Object,因此如果對Object進行了擴充,那所有繼承Object類的後代肯定會擁有祖先的血緣。
你是否為自己設計的資料庫感到滿足了呢?你確信就不要對其再處理?比如建立立資料庫表,比如建立或者修改某個欄位……當然這些都屬於設計資料庫之列。那麼,你正常的操作又是不是下載資料庫到本機,然後開啟之進行修改,接著再上傳上去?十有八九都是如此-_-!現在,你可以接觸下有關於此的資訊了,畢竟代碼的功能是為手動的操作省了不少時間。不過代碼的產生也還不是手工?呵呵:)1,建立資料庫檔案cnbruce.mdb(不設計任何錶)建立資料庫的代碼:<% Option Explicit dim
首先,瞭解下原理。1,提供文字框進行查詢內容的輸入2,將查詢資訊提交頁面程式處理3,程式頁主要作用:接受查詢資訊,根據此資訊調用特定的SQL查詢語句,得出查詢結果並能顯示。其實,主要精髓就是SQL語句的寫法上。之前的提取為 "select * form whattable where id="&id插入為 "insert into whattable(xx_rs) values(' "&content&" ')"刪除為 "delete from whattable
複製代碼 代碼如下:<% Function CopyMyFolder(FolderName,FolderPath) sFolder=server.mappath(FolderName) oFolder=server.mappath(FolderPath) set fso=server.createobject("scripting.filesystemobject") if fso.folderexists(server.mappath(FolderName))
複製代碼 代碼如下:TempSource,TempEnd必須用絕對路徑 rootPath=Request.ServerVariables("APPL_PHYSICAL_PATH") ‘擷取當前程式絕對路徑 Function CopyFiles(TempSource,TempEnd) Dim FSO Set FSO = Server.CreateObject("Scripting.FileSystemObject") IF FSO.FileExists(TempEnd)
1.記錄集關閉之前再次開啟:------------------------------------sql="select * from test"rs.open sql,conn,1,1if not rs.eof thendim myNamemyName=rs("name")end ifsql="select * from myBook"rs.open sql,conn,1,1-------------------------------------解決:在第二次rs.open之前先關閉
複製代碼 代碼如下:<% dim objXML dim objRootElement dim strValue dim strInetURL dim strXML dim item strInetURL ="http://pf.inetsolution.com/inetactive2001/inetactive2001news.xml" Dim HttpReq set HttpReq =
上次說到的上傳圖片是採用稻香老農開發的無組件上傳。其上傳過程是將圖片先儲存到指定檔案夾,與此同時將該路徑儲存至資料庫欄位的。顯示圖片則是根據資料庫表中的路徑欄位對應顯示的。當然有關圖片的管理,比如刪除:只刪除了路徑,實際的圖片需要根據該路徑通過FSO進行刪除……那有沒有這樣一種情況:將圖片直接作為一個欄位的值儲存。對圖片的操作就象是對資料欄位的操作一樣熟練。答案是肯定的,只是將該欄位的類型設為OLE對象知識點:OLE 對象欄位用來儲存諸如 Microsoft Word 或 Microsoft