經常使用到有關資料庫的操作。包括串連代碼、SQL命令等等，又不曾刻意去記憶它們（我本人是不願意去記這東東），所以常常在用到的時候又去查書本，翻來翻去。一些比較少用的資料庫還不一定能順利找到，所以現在把它們全歸納到這裡，提供大家參考。（個人水平有限，有缺陷之處，歡迎大家指正。） <一>。資料庫的串連方法： 1.Access資料庫的DSN-less串連方法: set adocon=Server.Createobject("adodb.connection")
一些常用的輔助代碼 點擊返回上頁代碼: <form> <p><input TYPE="button" VALUE="返回上一步" ONCLICK="history.back(-1)"></p> </form> 彈出警告框代碼: <form> <p><input TYPE="button" VALUE="彈出警告框" ONCLICK="AlertButton()"></p>
發個個比較詳細的asp與jmail 實現發送郵件的代碼，前一段時間有發過一個簡單的JMAIL郵件發郵件的代碼，今天就把這個代碼做一個具體的註解，並增加了另外兩個格式的代碼，並舉幾個簡單的例子： 首先是jmail.smtpmail的核心代碼： 複製代碼 代碼如下:<% Set jmail = Server.CreateObject("JMAIL.SMTPMail") '建立一個JMAIL對象 jmail.silent = true
最近因工作需要，要在靜態頁面上實現分頁，想了下，決定用AJAX來實現，所以就搗鼓了下面這麼個東西，如下：複製代碼 代碼如下:<html> <head> <title>AJAX靜態分頁</title> <meta http-equiv="content-type" content="text/html;charset=gb2312"> <style type="text/css"> <!-- body
ASP編程常用的代碼 1. ASP與Access資料庫連接： 複製代碼 代碼如下:<% dim conn,mdbfile mdbfile=server.mappath("資料庫名稱.mdb") set conn=server.createobject("adodb.connection") conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=資料庫密碼;dbq="&mdbfile
有段字串： asdfasdlfajsodf{#kljlkkm#}ojgvjfkdsf{#wdfs#}llsdflksdf 沒任何規律的...我要把裡面的{#kljlkkm#}和{#wdfs#}尋找出來... 1、Split辦法： 複製代碼 代碼如下:<% Dim I, sCode, aCode, sNewCode sCode = "asdfasdlfajsodf{#kljlkkm#}ojgvjfkdsf{#wdfs#}llsdflksdf" aCode =
因為要做移動夢網WAP的一些介面，所以要用到這種方式，接下來會有ASP.net版本的，這個是ASP版本的，利用了MSXML2.XMLHTTP對像。 request.asp 複製代碼 代碼如下:dim Https set Https=server.createobject("MSXML2.XMLHTTP") '定義一個XMLHTTP對像 Https.open "POST","http://127.0.0.1/testpost/response.asp",false
即直接提示使用者下載而不是由瀏覽器開啟某些檔案。注意，下面的代碼拷貝到ASP檔案中後，不要再添加一些非ASP代碼在頁面中：如HTML和javascript用戶端的代碼。 複製代碼 代碼如下:<% '-------------------------------------------- Response.Buffer = True Dim strFilePath, strFileSize, strFileName Const adTypeBinary = 1 strFilePath = "
頁面永久性移走（301重新導向）是一種非常重要的“自動轉向”技術。 首先，給一個工具，是來檢測伺服器頭資訊的，簡單來說就是看看你的網站的301是否成功了。不要小看這個301，如果被做成了302什麼的，你的站可能就要讓你歡喜讓你憂了。 檢測地址：http://www.seoconsultants.com/tools/headers.asp#results 301重新導向可促進搜尋引擎最佳化效果
如何取得數組中的最大值(由71port_80連接埠提供) 該函數的作用是取得一組數組中最大的一個值，非常實用且精典，值得收藏! 複製代碼 代碼如下:snum="345,231,56,786,1100,356,1200,300,685,111,134,765" function GetMax(str) num=split(str,",") max=num(0) for ii=0 to ubound(num) if cint(num(ii))>cint(max) then
易心asp分頁類v1.0 複製代碼 代碼如下:<% class Ex_SplitPageCls '========================================================================== '易心asp分頁類v1.0 '作者:易心 QQ:343931221 '個人網站 www.ex123.net www.bo56.com '示範地址:www.ex123.net/show/page '轉載請保留此資訊 '======
複製代碼 代碼如下:'************************************************** '函數ID：0014[檢測ID是否為數字類型] '函數名：JCID '作 用：檢測ID是否為數字類型 '參 數：ParaValue ---- 被檢測的ID值 '傳回值：返回ID值，如果不為數字類型返回0 '************************************************** Function JCID(ByVal
asp中xmlhttp組件發包 寫的一個小偷函數，注意紅色代碼部分，其他的自己添加吧！ Function PostHttpPageFrom(HttpUrl,stra,FromUrl) Dim Http Set Http=server.createobject("MSXML2.XMLHTTP") Http.open "POST",HttpUrl,False Http.setrequestheader "content-length",len(stra)
複製代碼 代碼如下:有時候想為我們的網頁提供多語言支援，如果一種語言用一張網頁來做實在太麻煩了，幸好Google提供了語言工具功能，下面介紹如何利用它來實現網頁多種語言之間的轉換。 lan.htm <form> <select name="lan"> <option value="en|de">英語 翻譯成 德語</option> <option value="en|es">英語 翻譯成 西班牙語</option> <
最近經常有人問到這類問題,在此轉貼一下,內容: 1。資料庫表結構(Access)： UserID:Text(儲存上傳檔案的使用者ID) FileContentType:Text(用來儲存上傳檔案的類型，eg:"Application/msword"，主要用來使使用者能正確下載此檔案） FileContent:OLE Object（儲存檔案資料） 2。HTML檔案 muploadfile.htm <Form name="upload_file"
個人網站如有會員註冊模組+動網論壇的話，那網站要與動網論壇系統整合，實現不同Web系統之間的使用者資訊同步更新、登入等操作就不是件容易的事了，雖然動網已提供有詳細的"動網論壇系統Api介面開發人員指南"，但像我這樣的菜鳥一時半會可是參詳不透的，汗。不甘心，在對其登入、驗證等函數進行一番研究再加以測試後最終竟也小有所成，菜鳥也有菜鳥的辦法，哈哈。 一、網站檔案結構 wwwroot ┝ index.asp ┝ CheckUserLogin.asp ┕ bbs/ 二、整合原理
反正我現在用這個做了很多站，自己覺得還是滿有用的，所以拿出來和大家分享一下。支援三種資料庫連接：MSSQL2000，MSSQL2005，ACCESS 三種方法： select_table(sql) 表查詢，返回TRUE或FALSE 當SQL語句出錯，或空記錄時返回FALSE，否則TRUE update_table(SQL) 表更新，包括update,delete 成功執行返回TRUE，否則返回FALSE，updated為執行後影響記錄行數。
<% '名稱：asp通用採集函數冗餘版，要精品版的有心人自己改 '作者：柳永法 '日期：2007-6-23 Function getHTTPPage(Path) t = GetBody(Path) getHTTPPage = BytesToBstr(t, "GB2312") End Function Function GetBody(url) On Error Resume Next Set xmlhttp =
ASP簡潔的多重查詢的解決方案複製代碼 代碼如下:'subject 資訊標題 'company 發布資訊的公司名稱 'content 發布資訊的內容 'address 公司地址 'infomation 公司簡介 'note 相關說明 以上值均由FORM提交，然後通過:subject=trim(Request.Form("subject"))等得到相應的值。 <% '這個函數很關鍵！--------------------------- Function
為方便產生三維餅圖函數，我收集了asp下的產生三維餅圖的函數的代碼，方便大家特殊情況下的使用複製代碼 代碼如下:<% '參數含義(數組，橫座標，縱座標，圖表的寬度，圖表的高度,圖表標題,單位) function table2(stat_array,table_left,table_top,all_width,all_height,table_title,unit) dim bg_color(10),pie(10) bg_color(1)="#ff1919"
Start building with 50+ products and up to 12 months usage for Elastic Compute Service
1 on 1 presale consultation
24/7 Technical Support 6 Free Tickets per Quarter Faster Response
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.
A comprehensive suite of global cloud computing services to power your business
Payment Methods We Support
