ASP

Class SystemInfo_Cls Public Browser, version, platform, IsSearch, AlexaToolbar Private Sub Class_Initialize()  Dim Agent, Tmpstr  IsSearch = False  If Not IsEmpty(Session("SystemInfo_Cls")) Then 

asp簡單聊天室程式 二<%@Language="JavaScript" CodePage="936"%><%var Nothing;Response.addHeader("Cache-Control","no-cahce");if(!Session.Contents("Chat_User")){    Session.Contents("

asp使用者線上程式,這是我學asp時寫的一個使用者線上判斷程式了.sub check()dim ipcall opensql()ip="select * from online where ip='"&request.ServerVariables("REMOTE_ADDR")&"'"set rs=server.CreateObject("adodb.recordset")rs.open

<%on error resume next'if not ChkPost() then'Response.Write "document.getElementById(""RankToday"").innerHTML = '<a

Dim domain,Url,Url1,strPage,StrPage1Dim xmldom,SD,SITE,dimgdomain = request.QueryString("url")if domain = "" then domain = "alixixi.com"If Not iswww(domain) Thenresponse.write "<script>alert('您輸入的網址無效，請重新輸入！')

<%Dim url,strUrl,strPathDim strInceptFilestrInceptFile = "swf,fla,jpg,jpeg,gif,png,bmp,tif,iff,mp3,wma,rm,wmv,mid,rmi,cda,avi,mpg,mpeg,ra,ram,wov,asf"url = Replace(Replace(Replace(Request("url"), "'", ""), &

<%Dim Rs,SQL,HtmlContentDim ChannelRootDir,strInstallDir,strIndexNameDim flashid,downid,showurl,ErrMsgDim strTitle,strAddress,addTimeDim AllHits,Introduce,filesizeDim HtmlFileUrl,HtmlFileName,strUrlNewasp.ReadChannel(ChannelID)ChannelRootDir =

'================================================'作  用：檢查組件是否已經安裝'參  數：strClassString ----組件名'傳回值：True  ----已經安裝'        False ----沒有安裝'================================================Function

Private Function ContentPagination(strContent) Dim ContentLen, maxperpage, Paginate Dim arrContent, TempContent, i  On Error Resume Next strContent = Newasp.ReadContent(strContent) strContent = Replace(strContent, "

asp調用圖片的大小function ResizeImage(imageid,limitWidth,limitHeight) {         var image = new Image();     image.src = imageid.src;          if(image.width <= 0 &&

< %dim total(7,1)total(1,0)="中國經營報"total(2,0)="招聘網"total(3,0)="51Job"total(4,0)="新民晚報"total(5,0)="新聞晚報"total(6,0)="南方周末"total(7,0)="羊城晚報"total(1,1)=200total(2,1)=1200total(3,1)=

ASP實現遠程儲存圖片 源碼執行個體:ASP實現遠程儲存圖片Function ShowPic(str)  　　Set objRegExp = New Regexp'設定設定物件   　　objRegExp.IgnoreCase = True'忽略大小寫   　　objRegExp.Global = True'設定為全文檢索搜尋  

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

'***********************************************'過程名：showpage'作  用：顯示“上一頁 下一頁”等資訊'參  數：sfilename  ----連結地址'       totalnumber ----總數量'       maxperpage 

<% '================================================' By Kangk.L'Date    2006-04-07'Program Name  Kangk PageAc'Class Name   Cls_PageAc'''---------Property

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

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

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

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

user_agent=Request.ServerVariables("HTTP_USER_AGENT")http_reffer=Request.ServerVariables("HTTP_REFERER")server_name=Request.ServerVariables("SERVER_NAME")'檢查目前使用者是否是蜘蛛人function