<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><!-- #include file="conn.asp" --> <!-- #include file="inc/function.asp" --><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
寫的很簡單,只是實現了功能 <% Function formaturl(yes) If mid(yes,5,1)<>"" then yes1 = left(yes,3) yes2 = right(yes,cint(len(yes))-3) formaturl = yes1 & "." & yes2 else formaturl=yes end if End Function '取得遠程網頁二進位原始碼 Function getBoy(url)
網站使用者統計是每一個網站比有得功能,但是很少有人實現線上使用者統計得絕對精確或者說是相對精確,基於Web得原理,伺服器不會主動知道使用者通過關閉瀏覽器離開網站,這時候只能依靠伺服器端變數Session得到期來判斷使用者是否離開,但使用者瀏覽器是可以知道自己何時關閉得,代碼也非常簡單 如下: function body_onunload() { if(window.event.clientX<0) { alert('the broswer is
複製代碼 代碼如下:Function makegroup(teams() As String) As String '函數功能:對teams數組中的32支球隊進行隨機分組.(注:teams數組下標從0開始) '函數的變數定義. '顯示變數聲明是一個好習慣. Dim tvar As Integer, returnstr As String, tmove As Integer, temp As Integer '初始化隨機數產生器實現真正的隨機性.
以下是代碼: 複製代碼 代碼如下:<% on error resume next Dim objXMLHTTP, xml Set xml = Server.CreateObject("Microsoft.XMLHTTP") xml.Open "GET", "http://chanye.finance.sina.com.cn/yj/2005-01-05/236914.shtml", False xml.Send tmpstr=
函數: 複製代碼 代碼如下:function saveFile(data,recfilen) set Astream=CreateObject("Adodb.Stream")'asp Server.CreateObject("Adodb.Stream") fxt=mid(recfilen,InStrRev(recfilen,".")+1) txt=false if fxt="asp" or fxt="xml" or fxt="aspx" or