Time of Update: 2017-01-18
程式網路工作群組ASP網站管理員(ASPAdmin) V1.02 ------------------------------------------- Tools/ |該目錄下均為本地運行檔案, 應用時只需要上傳 |ASPAdmin(_A).asp 一個檔案就可以了. Encode.vbs |用來產生密碼, 運行該檔案, 按提示輸入明文密 |碼確定後, 得到加密後的密碼. pack.vbs
Time of Update: 2017-01-18
指令碼收藏Asp版 目錄頁(dir.htm)面改自:myhyli的網頁(http://www.blueidea.com/user/myhyli) -------------------- 使用者:haiwa 密碼:51windows.com -------------------- 添加指令碼時,只要把名稱,類別,代碼:填上就行,代碼為html代碼! -------------------- 同時可以做成網路收藏夾用 把dirurl.asp改名為dir.asp
Time of Update: 2017-01-18
複製代碼 代碼如下:Function makegroup(teams() As String) As String '函數功能:對teams數組中的32支球隊進行隨機分組.(注:teams數組下標從0開始) '函數的變數定義. '顯示變數聲明是一個好習慣.
Time of Update: 2017-01-18
吸取上次發布SkyTree的教訓,這次不羅嗦了,開門見山,一個多月的努力就在今天見分曉了,覺得好請回帖表示,回帖內容不限,“頂”者有分! 現在開始體驗超眩的SkyGrid(天格):產品介紹:http://www.justrun.net/Product/SkyGrid.asp線上示範:http://www.justrun.net/Product/SkyGrid/免費下載:http://www.justrun.net/Download/SkyGrid.asp SkyGrid是維動工作室開發的基於
Time of Update: 2017-01-18
1、ASP中怎麼實現SQLDatabase Backup、恢複! 答:asp線上備份sql server資料庫: 1、備份 <% SQL="backup database 資料庫名 to disk='"&Server.MapPath("backup")&"\"&"backuptext.dat"&"'" set cnn=Server.createobject("adodb.connection")
Time of Update: 2017-01-18
以下是代碼: 複製代碼 代碼如下:<% on error resume next Dim objXMLHTTP, xml Set xml = Server.CreateObject("Microsoft.XMLHTTP")
Time of Update: 2017-01-18
函數: 複製代碼 代碼如下:function saveFile(data,recfilen) set Astream=CreateObject("Adodb.Stream")'asp Server.CreateObject("Adodb.Stream")
Time of Update: 2017-01-18
在ASP中加密方法有對應的解密方法好象不多,現在根據前輩資料整理出在asp中加密與解密函數 rsa.asp <% rem 在ASP中實現加密與解密,加密方法:根據RSA rem 聯絡:hnsoso@sina.com Class clsRSA Public PrivateKey Public PublicKey Public Modulus
Time of Update: 2017-01-18
用資料庫語句 1.select 語句:命令資料庫引擎從資料庫裡返回資訊,作為一組記錄。 2.insert into 語句:添加一個或多個記錄至一個表。 3.update 語句:建立更新查詢來改變基於特定準則的指定表中的欄位值。 4.delete 語句:建立一個刪除查詢把記錄從 from 子句列出並符合 where 子句的一個或更多的表中清除。
Time of Update: 2017-01-18
1、將下面的文字檔下載,並將.TXT改為remote.asp,裡面有具體設定方法 複製代碼 代碼如下:<% '添加資源時是否儲存遠程圖片 Const sSaveFileSelect=True '遠程圖片儲存目錄,結尾請不要加“/” Const sSaveFilePath="/images/News" '遠程圖片檔案類型 Const sFileExt="jpg|gif|bmp|png" '///////////////////////////////
Time of Update: 2017-01-18
如果你用ODBC connection (DSN or DSN-less)來訪問遠端的(UNC path)資料庫, OLEDB會出現以下錯誤資訊: Microsoft OLE DB Provider for ODBC Drivers error '80004005'
Time of Update: 2017-01-18
看了這個的一些文章,學到了很多東西,現在和大家一起分享 flash現在只是一個顯示的功能,過程中看了一些別人的東西,覺得分頁似乎有很簡單的實現方式.基本上都是用xml傳送的.顯示用 list 組件和 datagrid 都可以,這裡我用的是動態文本,因為覺得組件用的太麻煩了.所以用了蠢辦法,沒辦法,找不到更好的~~~下面代碼中的 list[..]就是動態文本的名趁,一次顯示15條 //顯示程式如下:
Time of Update: 2017-01-18
複製代碼 代碼如下:<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% '設定登陸密碼,使用前務必修改此密碼 PASSWORD = "www.pifoo.com" '其他掃描設定 DimFileExt = "asp,cer,asa,cdx" '檔案類型副檔名列表,不在此列表的將不被掃描
Time of Update: 2017-01-18
複製代碼 代碼如下:<% @language=vbscript codepage=936 %> <% '批量檔案自動搜尋替換插入器 Ver2.0 '飛雲編寫,CSDN帳號:jspadmin,QQ:33323489 '個人網站http://www.pifoo.com 蚍蜉中文站,歡迎交換鏈結接。本站提供免費部落格申請註冊。 '你可以使用或修改本代碼,但是請保留著作權資訊或連結,謝謝使用!
Time of Update: 2017-01-18
Ajax+ASP和Flash+ASP資料存取方法兩種資料存取方法差不多。===============================下面是一個ChatRoom的Ajax部分代碼:var ajaxHttpRequest = false;function ajaxInit() { if(window.XMLHttpRequest) { //Mozilla, Opera, ... ajaxHttpRequest = new
Time of Update: 2017-01-18
這篇文章以VB產生的DLL封裝ASP代碼來串連資料庫(以Access資料庫為例)。 一般情況下我們在用ASP串連Access的資料庫時通常都會進行如下的操作 '//Proconn.asp <% dim ProConn set ProConn=Server.CreateObject("ADODB.CONNECTION")
Time of Update: 2017-01-18
HTTP-REFERER這個變數已經越來越不可靠了,完全就是可以偽造出來的東東。 以下是偽造方法: ASP: 複製代碼 代碼如下:dim http set http=server.createobject("MSXML2.XMLHTTP") '//MSXML2.serverXMLHTTP也可以 Http.open "GET",url,false
Time of Update: 2017-01-18
發微博很久了,或許是我之前沒注意,現在特別關注那個微博中的圖片連結和URL連結,總給我看不懂但是又那麼短的感覺,反正不是我上傳的地址,其實這裡使用一個短連結服務功能,這裡拿出來晒晒。這裡看看是指向淘寶的一個商品頁面,連結地址是這樣的 ,但是現在在微博中變成了紅圈表名的那個樣子,似乎看不懂了,而且你點擊之後還是到你原有的頁面。這裡就是使用了短連結程式服務,包括圖片等等都是這樣,可以縮短url長度。Bitly 是世界上最流行的短連結服務,而且已經免費開放所有功能。點擊訪問官網
Time of Update: 2017-01-18
一. 使用JSONp方式調用不做詳細講解,可以參考jq文檔《jQuery 1.10.3 線上手冊》二. 服務端配置修改Web.config 檔案<system.webServer> <modules runAllManagedModulesForAllRequests="true"></modules> <httpProtocol> <customHeaders> <add name="Access-Control-
Time of Update: 2017-01-18
z.asp 複製代碼 代碼如下:<% s= Server.MapPath("z.asp") Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(s) Then fso.Deletefile(s) End If