首頁 開發者

ASP

asp語言js寫法與vbscript寫法

串連資料庫VBS:<%dim conndim dbpathdim connstrSet conn =Server.CreateObject("adodb.connection")dbpath=Server.MapPath("data.mdb")connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&dbpathconn.open connstr%>JS:<

asp 防止外部提交方法

簡單方法一server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))if mid(server_v1,8,len(server_v2))<>server_v2 thenresponse.write

asp統計檔案空間大小代碼

Dim Fso,FsoFile,FileType,FileSize,FileTime,Path Dim Dir Action=Trim(Request("Action")) Set Fso=Server.CreateObject("Scripting.FileSystemObject") IsErr If Action = "Del" then  Call

asp 經典資料庫連接檔案 支援access,mssql server

asp 經典資料庫連接檔案 支援access,mssql serverDim Conn,ConnStringSub OpenConn() If DB_Type = "Access" Then  ConnString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(AccPath) ElseIf DB_Type = &

asp 產生驗證碼程式碼

<%Option ExplicitResponse.buffer = TrueNumCode (8)   '註：1,4,7,10,13,16為彩色背景型 2,5,8,11,14,17為黑白型 3,6,9,12,15,18為噪點型Function NumCode(CodeType)    Response.Expires = -1    Response.AddHeader "Pragma",

asp 產生圖片縮圖代碼

<%'======================================================' 檔案名稱 : Inc/ClsJpeg.asp' 檔案作用 : 浮水印+縮減類' 最後更新 : 2008.08.02'======================================================Dim

asp批量給使用者發送郵箱

<html><head><title>集合屬性應用</title></head><body><p>請選擇要操作的項目，提交資料後，將會顯示您選擇的項目。<form method="POST" action="set.asp"><br>1、<input type="checkbox"

asp sql超級防注入代碼

asp sql超級防注入代碼<%Function Safe(str)Dim s_BadStr, n, is_BadStr = "' 　&<>?%,;)`~!@#$^*{}[]|/+-="&Chr(34)&Chr(9)&Chr(32)n = Len(s_BadStr)Safe = TrueFor i = 1 To nIf Instr(str, Mid(s_BadStr, i, 1)) > 0 ThenSafe =

asp下載遠程伺服器檔案[rar,jpg,gif,zip,png]

asp下載遠程伺服器檔案[rar,jpg,gif,zip,png]< % function   downfilea(d_target,   s_target) On   Error   Resume   Next       dim   myhttp,   objstream   &

asp 仿md5密碼編譯演算法

function encrypt(ecode)　　Dim texts　　dim i　　for i=1 to len(ecode)　　texts=texts & chr(asc(mid(ecode,i,1))+i)　　next　　 encrypt = texts　　end function 　　function decrypt(dcode) 　　 dim texts　　dim i　　for i=1 to len(dcode)　　texts=texts &

asp 擷取遠程伺服器檔案[採集程式]

Function GetPage(Path)        t = GetBody(Path)        GetPage=BytesToBstr(t,"UTF-8")End functionFunction GetPage2(Path)        t =

asp 去除所有html標籤Regex

Function RemoveSpan(byval strContent) Dim objReg ,strTmp If strContent="" OR ISNull(strContent) Then Exit Function   Set objReg=new RegExp objReg.IgnoreCase

asp 判斷使用者瀏覽器類型程式

Thesoft=Request.ServerVariables("HTTP_USER_AGENT")If instr(thesoft,"Windows NT 5.0") Then vOS="Win2000"ElseIf instr(thesoft,"Windows NT 5.2") Then vOs="Win2003"ElseIf

asp分頁程式經典的分頁類

 '============================== '函 數 名：ShowPageCode '作    用：顯示頁碼 '參    數：連結PageUrl，當前頁Nows，記錄數AllCount，每頁數量Sizes，總頁數AllPage '============================== Public Function

asp利用xmlhttp取檔案亂碼問題

  '============================== '函 數 名：BytesToBstr '作    用：轉換編碼函數 '參    數：解碼字串Body，編碼Cset '==============================  Private Function BytesToBstr(Body,Cset)  Set

asp 擷取頁面原始碼函數xmlhttp

'============================== '函 數 名：GetHttpPage '作    用：擷取頁面原始碼函數 '參    數：採集連結HttpUrl '==============================  Public Function GetHttpPage(HttpUrl)  If

asp圖片檔案上傳代碼完全版

<!--#include file="upload_wj.inc"--><style>td{font-size:9pt;line-height:120%;color:#353535} body{font-size:9pt;line-height:120%}a:link          { color: #000000; text-decoration:

asp 資料庫連接程式

<%@ LANGUAGE = VBScript CodePage = 936%><!--#include file="safe.asp" --><%On Error Resume NextResponse.Buffer = Truedim startimedim conndim connstrdim sqldatabase,sql_pass_word,sql_User_ID,sql_Data_Sourcestartime=timer()Set

asp 通用UBB代碼轉換程式

<%const ImagePath="images/"function UBBCode(strContent)strContent= FilterJS(strContent)dim redim po,iidim reContentSet re=new RegExpre.IgnoreCase

asp ubb代碼轉換函式

<%function

總頁數： 1638 1 .... 1567 1568 1569 1570 1571 .... 1638 Go to: 前往

聯繫我們

該頁面正文內容均來源於網絡整理，並不代表阿里雲官方的觀點，該頁面所提到的產品和服務也與阿里云無關，如果該頁面內容對您造成了困擾，歡迎寫郵件給我們，收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容，歡迎發送郵件至： info-contact@alibabacloud.com 進行舉報並提供相關證據，工作人員會在 5 個工作天內聯絡您，一經查實，本站將立刻刪除涉嫌侵權內容。

熱門內容

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

Get Started for Free

  • Sales Support

    1 on 1 presale consultation

    Chat Contact Sales

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

    Open a Ticket

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.

    Learn More