<form id="hz9zz"></form>
    • <form id="hz9zz"></form>
    

      

      <nobr id="hz9zz"></nobr>
      <form id="hz9zz"></form>
      3.   
          
      明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！
                   
        
                           
        
                        		  
        
                 
              
                
      一些ASP入門者常用的代碼
                
                  發表時間：2023-08-20             來源：明輝站整理相關軟件相關文章人氣：          
              
      [摘要]一些ASP初學者常用的代碼2003-01-31    sron    internet    點擊: 371.獲得系統時間:<%=now()%>2.取得來訪用的IP:<%=requ...

                              一些ASP初學者常用的代碼2003-01-31    sron    internet    點擊: 37
      1.獲得系統時間:
      <%=now()%>
      2.取得來訪用的IP:
      <%=request.serverVariables("remote_host")%>
      3.獲得系統,瀏覽器版本:
      <script>
      window.document.write("版本："+navigator.appName+navigator.appVersion+" browser.")
      </script>
      4.去除IE混動條:
      <body scroll="no"> 
      <body style="overflow-y:hidden">
      5.進入網站,跳出廣告:
      <script language="javascript">
      <!-- 
      <!-- 注意更改文件所在路徑-->
      window.open(''http://www.XXXXXX.com&#39;','''',''height=200,width=300,top=0,left=30'');
      // -->
      </script>
      6.隨機數:
      <%randomize%>
      <%=(int(rnd()*n)+1)%>
      N為可改變數
      7.向上混動代碼:
      <marquee direction="up" scrolldelay="200" style="font-size: 9pt; color: #FF0000; line-height: 150%; font-style:italic; font-weight:bold" scrollamount="2" width="206" height="207" bgcolor="#FFFF00">hhhhhhhhhhhhhhhhhhh</marquee>
      8.自動關閉網頁:
      <script LANGUAGE="javascript">
      <!--
      setTimeout(''window.close();'', 10000); //60秒后關閉
      // -->
      </script>
      <p align="center">本頁10秒后自動關閉,請注意刷新頁面</p>
      9.隨機背景音樂:
      <%randomize%>
      <bgsound src="mids/<%=(int(rnd()*60)+1)%>.mid" loop="-1">

      可以修改數字，限制調用個數，我這里是６０個．
      10.自動刷新本頁面:
      <script> 
      <!-- 

      var limit="0:10" 

      if (document.images){ 
      var parselimit=limit.split(":") 
      parselimit=parselimit[0]*60+parselimit[1]*1 
      } 
      function beginrefresh(){ 
      if (!document.images) 
      return 
      if (parselimit==1) 
      window.location.reload() 
      else{ 
      parselimit-=1 
      curmin=Math.floor(parselimit/60) 
      cursec=parselimit%60 
      if (curmin!=0) 
      curtime=curmin+"分"+cursec+"秒后重刷本頁！" 
      else 
      curtime=cursec+"秒后重刷本頁！" 
      window.status=curtime 
      setTimeout("beginrefresh()",1000) 
      } 
      } 

      window.onload=beginrefresh 
      file://--> 
      </script>
      11.ACCESS數據庫連接:
      <%
      option explicit
      dim startime,endtime,conn,connstr,db
      startime=timer()
      '更改數據庫名字
      db="data/dvBBS5.mdb"
      Set conn = Server.CreateObject("ADODB.Connection")
      connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
      '如果你的服務器采用較老版本Access驅動，請用下面連接方法
      'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
      conn.Open connstr
      function CloseDatabase
      Conn.close
      Set conn = Nothing
      End Function
      %>
      12.SQL數據庫連接:
      <%
      option explicit
      dim startime,endtime,conn,connstr,db
      startime=timer()
      connstr="driver={SQL Server};server=HUDENQ-N11T33NB;uid=sa;pwd=xsfeihu;database=dvbbs" 
      Set conn = Server.CreateObject("ADODB.Connection")
      conn.Open connstr
      function CloseDatabase
      Conn.close
      Set conn = Nothing
      End Function
      %>
      13.用鍵盤打開網頁代碼:
      <script language="javascript">
      function ctlent(eventobject)
      {
      if((event.ctrlKey && window.event.keyCode==13)
      (event.altKey && window.event.keyCode==83))
      {
      window.open('網址','','')
      }
      }
      </script>

      這里是Ctrl+Enter和Alt+S的代碼 自己查下鍵盤的ASCII碼再換就行
      14.讓層不被控件復蓋代碼:
      <div z-Index:2><object ***></object></div> ＃ 前面 
      <div z-Index:1><object ***></object></div> ＃ 后面 
      <div id="Layer2" style="position:absolute; top:40;width:400px; height:95px;z-index:2"><table height=100% width=100% bgcolor="#ff0000"><tr><td height=100% width=100%></td></tr></table><iframe width=0 height=0></iframe></div>
      <div id="Layer1" style="position:absolute; top:50;width:200px; height:115px;z-index:1"><iframe height=100% width=100%></iframe></div>
      15.動網FLASH廣告代碼:
      <object classid="clsid27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="468" height="60"><param name=movie value="images/yj16d.swf"><param name=quality value=high><embed src="images/dvbanner.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash";;; type="application/x-shockwave-flash" width="468" height="60"></embed></object>
      16.VBS彈出窗口小代碼:
      <script language=vbscript>
      msgbox"你還沒有注冊或登陸論壇","0","精品論壇"
      location.href = "login.asp"
      </script>
      16.使用FSO修改文件特定內容的函數
      function FSOchange(filename,Target,String)
      Dim objFSO,objCountFile,FiletempData
      Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
      Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)
      FiletempData = objCountFile.ReadAll
      objCountFile.Close
      FiletempData=Replace(FiletempData,Target,String)
      Set objCountFile=objFSO.CreateTextFile(Server.MapPath(filename),True)
      objCountFile.Write FiletempData 
      objCountFile.Close
      Set objCountFile=Nothing
      Set objFSO = Nothing
      End Function
      17.使用FSO讀取文件內容的函數
      function FSOFileRead(filename)
      Dim objFSO,objCountFile,FiletempData
      Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
      Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)
      FSOFileRead = objCountFile.ReadAll
      objCountFile.Close
      Set objCountFile=Nothing
      Set objFSO = Nothing
      End Function
      18.使用FSO讀取文件某一行的函數
      function FSOlinedit(filename,lineNum)
      if linenum < 1 then exit function
      dim fso,f,temparray,tempcnt
      set fso = server.CreateObject("scripting.filesystemobject")
      if not fso.fileExists(server.mappath(filename)) then exit function
      set f = fso.opentextfile(server.mappath(filename),1)
      if not f.AtEndofStream then
      tempcnt = f.readall
      f.close
      set f = nothing
      temparray = split(tempcnt,chr(13)&chr(10))
      if lineNum>ubound(temparray)+1 then
      exit function
      else
      FSOlinedit = temparray(lineNum-1)
      end if
      end if
      end function
      19.使用FSO寫文件某一行的函數
      function FSOlinewrite(filename,lineNum,Linecontent)
      if linenum < 1 then exit function
      dim fso,f,temparray,tempCnt
      set fso = server.CreateObject("scripting.filesystemobject")
      if not fso.fileExists(server.mappath(filename)) then exit function
      set f = fso.opentextfile(server.mappath(filename),1)
      if not f.AtEndofStream then
      tempcnt = f.readall
      f.close
      temparray = split(tempcnt,chr(13)&chr(10))
      if lineNum>ubound(temparray)+1 then
      exit function
      else
      temparray(lineNum-1) = lineContent
      end if
      tempcnt = join(temparray,chr(13)&chr(10))
      set f = fso.createtextfile(server.mappath(filename),true)
      f.write tempcnt
      end if
      f.close
      set f = nothing
      end function
      20.使用FSO添加文件新行的函數
      function FSOappline(filename,Linecontent)
      dim fso,f
      set fso = server.CreateObject("scripting.filesystemobject")
      if not fso.fileExists(server.mappath(filename)) then exit function
      set f = fso.opentextfile(server.mappath(filename),8,1)
      f.write chr(13)&chr(10)&Linecontent
      f.close
      set f = nothing
      end function
      21.讀文件最后一行的函數
      function FSOlastline(filename)
      dim fso,f,temparray,tempcnt
      set fso = server.CreateObject("scripting.filesystemobject")
      if not fso.fileExists(server.mappath(filename)) then exit function
      set f = fso.opentextfile(server.mappath(filename),1)
      if not f.AtEndofStream then
      tempcnt = f.readall
      f.close
      set f = nothing
      temparray = split(tempcnt,chr(13)&chr(10))
      FSOlastline = temparray(ubound(temparray))
      end if
      end function
      利用FSO取得BMP，JPG，PNG，GIF文件信息(大小，寬、高等)
      <%
      '::: BMP, GIF, JPG and PNG :::

      '::: This function gets a specified number of bytes from any :::
      '::: file, starting at the offset (base 1) :::
      '::: :::
      '::: Passed: :::
      '::: flnm => Filespec of file to read :::
      '::: offset => Offset at which to start reading :::
      '::: bytes => How many bytes to read :::
      '::: :::
      ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
      function GetBytes(flnm, offset, bytes)
      Dim objFSO
      Dim objFTemp
      Dim objTextStream
      Dim lngSize
      on error resume next
      Set objFSO = CreateObject("Scripting.FileSystemObject")

      ' First, we get the filesize
      Set objFTemp = objFSO.GetFile(flnm)
      lngSize = objFTemp.Size
      set objFTemp = nothing
      fsoForReading = 1
      Set objTextStream = objFSO.OpenTextFile(flnm, fsoForReading)
      if offset > 0 then
      strBuff = objTextStream.Read(offset - 1)
      end if
      if bytes = -1 then ' Get All!
      GetBytes = objTextStream.Read(lngSize) 'ReadAll
      else
      GetBytes = objTextStream.Read(bytes)
      end if
      objTextStream.Close
      set objTextStream = nothing
      set objFSO = nothing
      end function

      ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
      '::: :::
      '::: Functions to convert two bytes to a numeric value (long) :::
      '::: (both little-endian and big-endian) :::
      '::: :::
      ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
      function lngConvert(strTemp)
      lngConvert = clng(asc(left(strTemp, 1)) + ((asc(right(strTemp, 1)) * 256)))
      end function
      function lngConvert2(strTemp)
      lngConvert2 = clng(asc(right(strTemp, 1)) + ((asc(left(strTemp, 1)) * 256)))
      end function

      ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
      '::: :::
      '::: This function does most of the real work. It will attempt :::
      '::: to read any file, regardless of the extension, and will :::
      '::: identify if it is a graphical image. :::
      '::: :::
      '::: Passed: :::
      '::: flnm => Filespec of file to read :::
      '::: width => width of image :::
      '::: height => height of image :::
      '::: depth => color depth (in number of colors) :::
      '::: strImageType=> type of image (e.g. GIF, BMP, etc.) :::
      '::: :::
      ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
      function gfxSpex(flnm, width, height, depth, strImageType)
      dim strPNG 
      dim strGIF
      dim strBMP
      dim strType
      strType = ""
      strImageType = "(unknown)"
      gfxSpex = False
      strPNG = chr(137) & chr(80) & chr(78)
      strGIF = "GIF"
      strBMP = chr(66) & chr(77)
      strType = GetBytes(flnm, 0, 3)
      if strType = strGIF then ' is GIF
      strImageType = "GIF"
      Width = lngConvert(GetBytes(flnm, 7, 2))
      Height = lngConvert(GetBytes(flnm, 9, 2))
      Depth = 2 ^ ((asc(GetBytes(flnm, 11, 1)) and 7) + 1)
      gfxSpex = True
      elseif left(strType, 2) = strBMP then ' is BMP
      strImageType = "BMP"
      Width = lngConvert(GetBytes(flnm, 19, 2))
      Height = lngConvert(GetBytes(flnm, 23, 2))
      Depth = 2 ^ (asc(GetBytes(flnm, 29, 1)))
      gfxSpex = True
      elseif strType = strPNG then ' Is PNG
      strImageType = "PNG"
      Width = lngConvert2(GetBytes(flnm, 19, 2))
      Height = lngConvert2(GetBytes(flnm, 23, 2))
      Depth = getBytes(flnm, 25, 2)
      select case asc(right(Depth,1))
      case 0
      Depth = 2 ^ (asc(left(Depth, 1)))
      gfxSpex = True
      case 2
      Depth = 2 ^ (asc(left(Depth, 1)) * 3)
      gfxSpex = True
      case 3
      Depth = 2 ^ (asc(left(Depth, 1))) '8
      gfxSpex = True
      case 4
      Depth = 2 ^ (asc(left(Depth, 1)) * 2)
      gfxSpex = True
      case 6
      Depth = 2 ^ (asc(left(Depth, 1)) * 4)
      gfxSpex = True
      case else
      Depth = -1
      end select

      else
      strBuff = GetBytes(flnm, 0, -1) ' Get all bytes from file
      lngSize = len(strBuff)
      flgFound = 0
      strTarget = chr(255) & chr(216) & chr(255)
      flgFound = instr(strBuff, strTarget)
      if flgFound = 0 then
      exit function
      end if
      strImageType = "JPG"
      lngPos = flgFound + 2
      ExitLoop = false
      do while ExitLoop = False and lngPos < lngSize

      do while asc(mid(strBuff, lngPos, 1)) = 255 and lngPos < lngSize
      lngPos = lngPos + 1
      loop
      if asc(mid(strBuff, lngPos, 1)) < 192 or asc(mid(strBuff, lngPos, 1)) > 195 then
      lngMarkerSize = lngConvert2(mid(strBuff, lngPos + 1, 2))
      lngPos = lngPos + lngMarkerSize + 1
      else
      ExitLoop = True
      end if
      loop
      '
      if ExitLoop = False then
      Width = -1
      Height = -1
      Depth = -1
      else
      Height = lngConvert2(mid(strBuff, lngPos + 4, 2))
      Width = lngConvert2(mid(strBuff, lngPos + 6, 2))
      Depth = 2 ^ (asc(mid(strBuff, lngPos + 8, 1)) * 8)
      gfxSpex = True
      end if

      end if
      end function

      ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
      '::: Test Harness :::
      ':::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

      ' To test, we'll just try to show all files with a .GIF extension in the root of C:
      Set objFSO = CreateObject("Scripting.FileSystemObject")
      Set objF = objFSO.GetFolder("c:\")
      Set objFC = objF.Files
      response.write "<table border=""0"" cellpadding=""5"">"
      For Each f1 in objFC
      if instr(ucase(f1.Name), ".GIF") then
      response.write "<tr><td>" & f1.name & "</td><td>" & f1.DateCreated & "</td><td>" & f1.Size & "</td><td>"
      if gfxSpex(f1.Path, w, h, c, strType) = true then
      response.write w & " x " & h & " " & c & " colors"
      else
      response.write " "
      end if
      response.write "</td></tr>"
      end if
      Next
      response.write "</table>"
      set objFC = nothing
      set objF = nothing
      set objFSO = nothing

      %>
      24.點擊返回上頁代碼:
      <form>
      <p><input TYPE="button" value="返回上一步" onCLICK="history.back(-1)"></p>
      </form>
      24.點擊刷新代碼:
      <form>
      <p><input TYPE="button" value="刷新按鈕一" onCLICK="ReloadButton()"></p>
      </form>
      <script language="javascript"><!--
      function ReloadButton(){location.href="allbutton.htm";}
      // --></script>

      24.點擊刷新代碼2:
      <form>
      <p><input TYPE="button" value="刷新按鈕二" onClick="history.go(0)"> </p>
      </form>

      <form>
      <p><input TYPE="button" value="打開一個網站" onCLICK="HomeButton()"></p>
      </form>
      <script language="javascript"><!--
      function HomeButton(){location.) 

      END IF
      %>
      </BODY>
      </HTML> 



              
              
                 
              
                                            
                              		       
                          
                           		  
        
                            
      
日韩精品一区二区三区高清