首頁 開發者

ASP

asp實現線上剪下圖片代碼

<%DIM LEFT1,top1left1=request.Form("left")top1=request.Form("top")left1=left(left1,len(left1)-2)top1=left(top1,len(top1)-2)w=request.form("width")Set Jpeg = Server.CreateObject("Persits.Jpeg")Jpeg.RegKey = &

asp簡單加密碼演算法

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     

asp IP轉城市資料庫代碼下載

<%Dim IP_address,IP_rs,CIP,IP_conn,IP_connstr,IP_province,IP_cityConst DataType=1       '0為Access資料庫，1為SQL Server資料庫Const MdbPath="IP_Address.mdb"  '如果是SQL

簡單高效asp分頁程式

<%@ language = "vbscript" codepage = 936%><%'==========================================================================dim idcount'記錄總數dim pages'每頁條數dim pagec'總頁數dim page'頁碼dim pagenc '每頁顯示的分頁頁碼數量=pagenc*2+1pagenc=2dim pagenmax

asp高效分頁程式碼

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><!--#include file="Cls_ShowoPage.asp"--><%'-----------------------------------------------------------------------------------------------On Error Resume NextDIM

asp登入儲存資料到cookie

這裡是根據使用者的選擇是否允許把使用者名稱密碼儲存到cookie裡面哦，我們特別注意那代碼藍色的代碼哦。set rs=server.createobject("adodb.recordset") exec="select * from yrwl_tb_admin where yhm='"&yhm&"'" rs.open exec,conn,1,1 if not rs.eof

asp sql防注入程式與關鍵詞屏蔽程式

dim sql_injdata SQL_injdata = "exec|insert|select|delete|update|count|*|mid|master|truncate|char|declare" SQL_inj = split(SQL_Injdata,"|")If Request.QueryString<>"" Then  For Each SQL_Get In

asp 檔案下載代碼與擷取檔案名稱

function   download(f,n)     'f檔案全路徑，n下載檔案的檔案名稱       '  on   error   resume   next         Set  

asp 儲存遠程伺服器圖片到本地

'=================================================='過程名：SaveRemoteFile'作 用：儲存遠端檔案到本地'參 數：LocalFileName ------ 本地檔案名稱'參 數：RemoteFileUrl ------ 遠程檔案URL'==================================================sub

簡單ajax+asp投票系統源碼

/* *-------------------------------------------------------------------- * *建立一個XMLHttp執行個體 *return object

asp實現偽靜態代碼

利用Request.ServerVariables("QUERY_STRING")取得接收的值（?後的參數）。例如[url=http://www.111cn.net/?3-8.html]http://www.111cn.net/?3-8.html[/url]接收的就是3-8.html，對3-8.html進行過濾，只需要取得參數3和8， 根據3和8再去從資料庫中檢索資料，後面跟動態ASP相同。這樣既可實現asp的偽靜態html化。<%dim

asp 過濾html代碼程式

Function TransferHTML(ByVal source,para) Dim objRegExp '先換"&" If Instr(para,"[&]")>0 Then  source=Replace(source,"&","&amp;") If Instr(para,"[<]")>0

asp文章通用分頁函數

<%'------------------------------------------------------------'------------------------------------------------------------CLASS pagination PUBLIC pageSize    '每頁顯示多少記錄 PUBLIC absolutePage   '當前頁 

asp 驗正碼產生程式

<%Option ExplicitResponse.buffer=trueNumCodeFunction NumCode() Response.Expires = -1 Response.AddHeader "Pragma","no-cache" Response.AddHeader "cache-ctrol","no-cache" dim

asp 無組件檔案上傳類

<%'----------------------------------------------------------------------Dim oUpFileStream'----------------------------------------------------------------------'檔案上傳類Class UpFile_ClassDim Form,File,Version,ErrPrivate Sub

asp 進階資料連線方法

<%Session.CodePage = 936 Response.Buffer = True  Response.ExpiresAbsolute = Now() - 1  Response.Expires = 0  Response.CacheControl = "no-cache"  Response.AddHeader "Pragma", "No-Cache" 

asp 無組件檔案上傳代碼

<!--#include file="adoconn.asp"--><html><head><title>檔案上傳</title><meta name="Description" Content=""><link rel="stylesheet" href="manage.css"

asp根據IP判斷城市

<%Dim IP_address,IP_rs,CIP,IP_conn,IP_connstr,IP_province,IP_city,rs,IP_pyConst DataType=0              '0為Access資料庫，1為SQL Server資料庫Const

asp 天氣查詢系統代碼

 代碼如下複製代碼 <!--#include file=Function.asp--><%Dim Url,Html,timetime=Request("time")Url="http://weather.cncn.com/get_weather.php?action=get_city&time='"&time&"'"// 讀取cncn上的天氣資訊Html =

asp 產生圖片驗證碼程式碼

 代碼如下複製代碼 <%Call Com_CreatValidCode("code")Sub Com_CreatValidCode(pSN) ' 禁止緩衝 Response.Expires = -9999  Response.AddHeader "Pragma","no-cache" Response.AddHeader

總頁數： 1638 1 .... 296 297 298 299 300 .... 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