ASP

此資訊未達到本站的審核.來源於網路.為了讓真正需要長期免費空間的朋友能有個穩定的空間。 所以互連港灣·推出了免費空間。 不過希望大家不要胡亂申請，需要用的朋友當然歡迎大家使用。 免費空間說明： 免費空間大小20-200M. 支援網域名稱綁定 支援asp.php.html.(最後一級免費空間支援MYSQL資料庫,支援N級綁定) 上傳方式 FTP(上傳下載速度不限) 免費空間特殊說明: 因為我們的免費空間和正式伺服器是在一起的,所以享受正式伺服器的速度和穩定.

前些天向lcx大哥求教關於web上傳的問題，說起利用stm來上傳，還能執行程式，不解，就給我了一段代碼： 見lcx大哥給的一段代碼 說儲存為stm或者shtml看看，運行如下: HTTP_ACCEPT:image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-powerpoint, application/vnd.ms-excel,

受<! #include file="filename.asp" --> 宏限制 必須存在該檔案並且會預先編譯（不管前面是否加以條件） 經常有這樣的要求，根據不同的需求要求include不同的檔案 如各個人的不同設定，所以要求能動態include檔案。 代碼如下： Function include(filename) Dim re,content,fso,f,aspStart,aspEnd set

第一個檔案 index.asp <script language="javascript"> var xmlHttp = false; //ajax使用 try { xmlHttp = new ActiveXObject("Msxml2.XMLHTTP"); } catch (e) { try { xmlHttp = new ActiveXObject("Microsoft.XMLHTTP"); } catch (e2) { xmlHttp =

複製代碼 代碼如下:<% Response.Cookies("Cookie1")("key1") = "KeyValue2" %> <script language="javascript"> String.prototype.get = function(name){ var reg = new RegExp("(^|&|\\?)" + name + "=([^&]*)(&|$)"),r; if(r=this.match(

<% '------------------------------------------------- '函數名稱:ReadTextFile '作用:利用AdoDb.Stream對象來讀取UTF-8格式的文字檔 '---------------------------------------------------- function ReadFromTextFile (FileUrl,CharSet) dim str set

功能: 讀取資料庫內容的表格.讀取資料方式為ajax,分頁也是.代碼寫得不好.呵呵.供一些學習ajax的朋友參考參考.如有不妥請大家跟貼糾正.我會根據大家的提議不斷修正代碼. 目前還有一個小問題,如果有朋友有興趣幫我解決一下在下不勝感激 你翻到最後一頁的時候如果只有一行會出現空白和undefined.這個問題我試了很多方法一直沒有很妥當的解決. 注:下面一些地方出現笑臉表情的是 大寫的d 其實很多地方都可以根據asp檔案中輸出的字元來控制.目前還沒有往那方面完善.比如說一列顯示多少行等.

資料庫欄位:id(自動編號),class_name(菜單名),parentID(父菜單id) 複製代碼 代碼如下:<% dim m m=0 call ShowTree(0)%> <% Sub ShowTree(parentID) dim s m=m+1 Dim rs Set rs = Server.CreateObject("ADODB.RecordSet") sql="Select class_id,class_name

複製代碼 代碼如下:<% Class cBuffer Private objFSO, objFile, objDict Private m_strPathToFile, m_TableBGColor, m_StartTime Private m_EndTime, m_LineCount, m_intKeyMin, m_intKeyMax Private m_CodeColor, m_CommentColor, m_StringColor, m_TabSpaces Private Sub

複製代碼 代碼如下:<% Function Newtxt(sz,strtxt,cityid) Dim ali,icount,i Dim ali2 ali=split(sz,",") ali2=split(strtxt,",") icount=UBound(ali) cityid = Request.QueryString("cityid") if Request.QueryString("cityid") ="" then cityid="234" end if

以網上down了一個ASP動態產生Form驗證javascript的代碼，自己擴容了一下。作者的大名我給忘了，不過我記得清楚，從第一條至第九條的代碼都是該作者的原創。至於九至第十五條卻是本人自己加的哦。而且由於本人水平有限，從第九條至第十五條不見得會條條生效啊？呵呵，其實把它貼在這裡沒有什麼必要的，因為這點小會伎倆誰都會用的，我把它的作用定位為：開發時找不到該函數時到這裡拷貝一下就可以了。呵，因為我即沒有燒錄機也沒有移動硬碟。實在是沒有辦法把這些代碼隨身攜帶，不過還好，在北京到處都可以上網。所以

複製代碼 代碼如下:<!--#include file="conn.asp"--> <% set js = server.CreateObject("ADODB.RecordSet") sql="select top 10 * from article order by id desc" set js = conn.Execute (Sql) do while not js.eof title=js("title") addate=js("addate")

複製代碼 代碼如下:<%@ Language = VBSCRIPT %> <% Option Explicit %> <% rem 在asp中通過getrows實現資料庫記錄分頁的一段代碼 Dim iStart, iOffset iStart = Request("Start") iOffset = Request("Offset") if Not IsNumeric(iStart) or Len(iStart) = 0 then

asp下載防盜鏈代碼第一種: 終於對下載系統做了個防盜鏈措施，在下載的頁面頭部做了如下代碼，相關代碼如下： 複製代碼 代碼如下:<% From_url = Cstr(Request.ServerVariables("HTTP_REFERER")) Serv_url = Cstr(Request.ServerVariables("SERVER_NAME")) if mid(From_url,8,len(Serv_url)) <> Serv_url and mid(

問：為什麼我的記錄集的RecordCount值總是返回-1？ 答：你應當使用這種模式來開啟存取資料庫的記錄集： 　　　　 rec.open strSQL,conn,1,1 　　　　 其中的strSQL是操作資料庫的SQL語句;conn是聯結資料庫的Connection 變數。 問：我在ASP指令碼中寫了很多的注釋，這會不會影響伺服器處理ASP檔案的速度？ 答：經國外技術人員測試，帶有過多注釋的ASP檔案整體效能僅僅會下降0.1%，也就是說基本上不會影響到伺服器的效能下降的。

經常聽說的ASP上傳漏洞，即是將一些木馬檔案修改尾碼名（修改為影像檔尾碼），進行上傳。 針對此情況使用下列函數進行辨別：複製代碼 代碼如下:<% '****************************************************************** 'CheckFileType 函數用來檢查檔案是否為圖片檔案 '參數filename是本地檔案的路徑 '如果是檔案jpeg,gif,bmp,png圖片中的一種，函數返回true，否則返回false '******

response.buffer=true' 應用緩衝技術.dim lostnum' 防止dmax過大而dstep過小.dim shownumdelayshow(dstep,dmax)sub delayshow(dstep,dmax)' dmax表示要處理多少dmax(步)才能完成全過程，dstep表示已處理的佔全過程的大致百分比. dim total ' 顯示所有畫面.dim dtemp ' 過渡變數.total=100dtemp=dstepdstep=dstep+lostnumif

<%set xlApp = Server.CreateObject("Excel.Application")xlApp.Visible = false' 使服務端不出現Excel視窗.set myWorkbook = xlApp.Workbooks.Add' 建立一個worksheet.set myWorksheet = myWorkbook.Worksheets(1)myWorksheet.Range("A1").Value =

<!--#include file="top.inc"--><%u_title=request.form("u_title")' 檢查標題是否被輸入.if u_title = "" then%><form method="POST" action="<%= request.servervariables("script_name") %>"> <!--當沒有標題輸入時顯示輸入框--> <p>檔案標題<br>

一個方法是利用Index Server query object和參數：<% Set Q= Sever.CreatObject("ixsso.Query")' 建立查詢對象. Set Util= Sever.CreatObject("ixsso.Util") Q.Query= Request("SearchString")' 查詢欄位. Q.SortBy="rank[d] "' 按照符合程度降序排列