主頁 > 知識庫 > ASP實現(xiàn)頭像圖像隨機變換

ASP實現(xiàn)頭像圖像隨機變換

熱門標簽:虛擬電話外呼系統(tǒng) 成都ai外呼系統(tǒng)線路 長春公司外呼系統(tǒng)中心 鄢陵學校如何做地圖標注 沈陽電話機器人公司 鄭州智能外呼電銷機器人廠家 云南便宜外呼系統(tǒng)平臺 廣東語音外呼系統(tǒng)公司 沈陽三五防封電銷卡
復制代碼 代碼如下:

%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
%>


標簽:平頂山 湖北 遼陽 防城港 孝感 四平 朝陽 馬鞍山

巨人網(wǎng)絡通訊聲明:本文標題《ASP實現(xiàn)頭像圖像隨機變換》,本文關鍵詞  ASP,實現(xiàn),頭像,圖像,隨機,;如發(fā)現(xiàn)本文內(nèi)容存在版權問題,煩請?zhí)峁┫嚓P信息告之我們,我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《ASP實現(xiàn)頭像圖像隨機變換》相關的同類信息!
  • 本頁收集關于ASP實現(xiàn)頭像圖像隨機變換的相關信息資訊供網(wǎng)民參考!
  • 推薦文章