ASP實(shí)現(xiàn)頭像圖像隨機(jī)變換
更新時(shí)間：2007年02月07日 00:00:00 作者：
復(fù)制代碼 代碼如下:
<%On Error Resume Next%>
<%
dim p, ppic, id, body, myCache
randomize
p=Int((3*rnd)+1)
id= Request.QueryString("id")
HttpUrl="http://sms.2e7.net/可愛卡通0"&p&".gif"
Set myCache = new cache
myCache.name = "picindex"&id
If myCache.valid Then
body = myCache.value
Else
body = GetWebData(HttpUrl)
myCache.add body,dateadd("d",1,now)
End If
If Err.Number = 0 Then
Response.CharSet = "UTF-8"
Response.ContentType = "application/octet-stream"
Response.BinaryWrite body
Response.Flush
Else
Wscript.Echo Err.Description
End if
'取得數(shù)據(jù)
Public Function GetWebData(ByVal strid)
Dim cidpath
cidpath = Mid(strid,1,Instr(8,strid,"/"))
Dim Retrieval
Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", strid, False,"",""
.setRequestHeader "Referer", cidpath
.Send
GetWebData =.ResponseBody
End With
Set Retrieval = Nothing
End Function
%>
相關(guān)文章
實(shí)例學(xué)習(xí)如何在ASP中調(diào)用DLL
實(shí)例學(xué)習(xí)如何在ASP中調(diào)用DLL...2006-12-12
ASP,vbs正則輪翻在文章段落后加上網(wǎng)址等內(nèi)容
ASP,vbs正則輪翻在文章段落后加上網(wǎng)址，網(wǎng)站名稱，網(wǎng)站介紹等內(nèi)容2008-06-06
巧用FileSystem組件實(shí)現(xiàn)WEB應(yīng)用中的本地特定打印的方法
巧用FileSystem組件實(shí)現(xiàn)WEB應(yīng)用中的本地特定打印的方法...2007-04-04
2008-01-01
ASP(Active Server Page)是Microsoft公司推出的基于PWS(Personal Web Server)&IIS(Internet Information Server)平臺(tái)的、基于ISAPI(InternetServiceAPI)原理的動(dòng)態(tài)網(wǎng)頁(yè)開發(fā)技術(shù)，目前日趨成熟完善。在這里僅就代碼優(yōu)化進(jìn)行一些簡(jiǎn)單討論。2015-09-09
ASP XMLDom在服務(wù)器端操作XML文件的主要方法和實(shí)現(xiàn)
我曾經(jīng)測(cè)試過不用數(shù)據(jù)庫(kù)，把網(wǎng)站的會(huì)員信息，商品數(shù)據(jù)信息，交易信息，網(wǎng)站定制信息全部存放在三個(gè)xml文件中，運(yùn)行結(jié)果十分正常，感覺上比數(shù)據(jù)庫(kù)快多了，不過沒有作測(cè)試，不能確定。2010-02-02
這篇文章主要介紹asp與js的類型轉(zhuǎn)換函數(shù)，需要的朋友可以參考下2013-03-03
javascript css實(shí)現(xiàn)三級(jí)目錄(簡(jiǎn)單的)
本篇文章主要介紹了javascript css實(shí)現(xiàn)三級(jí)目錄(簡(jiǎn)單的)，這是一款不錯(cuò)的CSS樹形菜單，樹狀列表，當(dāng)然不全是CSS實(shí)現(xiàn)，部分功能還使用了JavaScript代碼進(jìn)行配合，感興趣的小伙伴們可以參考一下2007-12-12
asp獲取當(dāng)前完整路徑(url)的函數(shù)代碼
這篇文章主要介紹了asp獲取當(dāng)前完整路徑(url)的函數(shù)代碼,有時(shí)候我么您需要獲取網(wǎng)址，端口、路徑文件名、參數(shù)等，這里就為大家分享一下這個(gè)函數(shù)代碼，需要的朋友可以參考下2020-02-02
SmartHTTP 簡(jiǎn)易HttpRequest類(ASP)
SmartHTTP 簡(jiǎn)易HttpRequest類(ASP),需要的朋友可以參考下。2011-03-03