[推荐]一些ASP初学者常用的代码

晴川

                  1.获得系统时间:
                  
                  2.取得来访用的IP:
                  
                  3.获得系统,浏览器版本:
                  
                  window.document.write("版本："+navigator.appName+navigator.appVersion+"
                  browser.")
                  
                  4.去除IE混动条:
                  
                  
                  5.进入网站,跳出广告:
                  
                  
                  window.open(''（失效外链已清理）
                  // -->
                  
                  6.随机数:
                  
                  
                  N为可改变数
                  7.向上混动代码:
                  hhhhhhhhhhhhhhhhhhh
                  8.自动关闭网页:
                  
                  
                  
                  本页10秒后自动关闭,请注意刷新页面
                  9.随机背景音乐:
                  
                  .mid" loop="-1">　

                  可以修改数字，限制调用个数，我这里是６０个．
                  10.自动刷新本页面:
                  
                  
                  
                  11.ACCESS数据库连接:
                  
                  12.SQL数据库连接:
                  
                  13.用键盘打开网页代码:
                  
                  function ctlent(eventobject)
                  {
                  if((event.ctrlKey && window.event.keyCode==13)||(event.altKey
                  && window.event.keyCode==83))
                  {
                  window.open('网址','','')
                  }
                  }
                  　

                  这里是Ctrl+Enter和Alt+S的代码 自己查下键盘的ASCII码再换就行
                  14.让层不被控件复盖代码:
                   ＃ 前面
                   ＃ 后面
                  
                  
                  15.动网FLASH广告代码:
                  
                  16.VBS弹出窗口小代码:
                  
                  msgbox"你还没有注册或登陆论坛","0","精品论坛"
                  location.href = "login.asp"
                  
                  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 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 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文件信息(大小，宽、高等)
                   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 = "NG"
                  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  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 ""
                  For Each f1 in objFC
                  if instr(ucase(f1.Name), ".GIF") then
                  response.write "" & f1.name & "" &
                  f1.DateCreated & "" & f1.Size & ""
                  if gfxSpex(f1.Path, w, h, c, strType) = true then
                  response.write w & " x " & h & " " & c & " colors"
                  else
                  response.write " "
                  end if
                  response.write ""
                  end if
                  Next
                  response.write ""
                  set objFC = nothing
                  set objF = nothing
                  set objFSO = nothing　

                  %>
                  24.点击返回上页代码:
                  
                  
                  
                  24.点击刷新代码:
                  
                  
                  
                  　

                  24.点击刷新代码2:
                  
                  
                  
                  　

                  
                  
                  
                  　

                  25.弹出警告框代码:
                  
                  
                  
                  　

                  26.状态栏信息
                  
                  
                  
                  　

                  27.背景色变换
                  
                  
                  
                  function BgButton(){
                  if (document.bgColor=='#00ffff')
                  {document.bgColor='#ffffff';}
                  else{document.bgColor='#00ffff';}
                  }
                  　

                  28.点击打开新窗口
                  
                  
                  
                  
                  29.分页代码:
                  
                  
                  
                  
                  
                  
                  分页示例
                  
                  //点击"[第一页]"时响应：
                  function PageFirst()
                  {
                  document.MyForm.CurrentPage.selectedIndex=0;
                  document.MyForm.CurrentPage.onchange();
                  }
                  //点击"[上一页]"时响应：
                  function PagePrior()
                  {
                  document.MyForm.CurrentPage.selectedIndex--;
                  document.MyForm.CurrentPage.onchange();
                  }
                  //点击"[下一页]"时响应：
                  function PageNext()
                  {
                  document.MyForm.CurrentPage.selectedIndex++;
                  document.MyForm.CurrentPage.onchange();
                  }
                  //点击"[最后一页]"时响应：
                  function PageLast()
                  {
                  document.MyForm.CurrentPage.selectedIndex=document.MyForm.CurrentPage.length-1;
                  document.MyForm.CurrentPage.onchange();
                  }
                  //选择"第？页"时响应：
                  function PageCurrent()
                  { //Pages.asp是本程序的文件名
                  document.MyForm.action=&#39ages.asp?Page='+(document.MyForm.CurrentPage.selectedIndex+1)
                  document.MyForm.submit();
                  }
                  
                  
                  　

                  [数据库中没有记录！]")
                  ELSE
                  ''指定当前页码
                  If Request("CurrentPage")="" Then
                  rs.AbsolutePage=1
                  Else
                  rs.AbsolutePage=CLng(Request("CurrentPage"))
                  End If 　

                  ''创建表单MyForm,方法为Get
                  Response.Write("")
                  Response.Write("")
                  ''设置翻页超链接
                  if rs.PageCount=1 then
                  Response.Write("[第一页] [上一页] [下一页] [最后一页] ")
                  else
                  if rs.AbsolutePage=1 then
                  Response.Write("[第一页] [上一页] ")
                  Response.Write("[下一页] ")
                  Response.Write("[最后一页] ")
                  else
                  if rs.AbsolutePage=rs.PageCount then
                  Response.Write("[第一页] ")
                  Response.Write("[上一页] ")
                  Response.Write("[下一页] [最后一页] ")
                  else
                  Response.Write("[第一页] ")
                  Response.Write("[上一页] ")
                  Response.Write("[下一页] ")
                  Response.Write("[最后一页] ")
                  end if
                  end if
                  end if　

                  ''创建下拉列表框，用于选择浏览页码
                  Response.Write("第")
                  For i=1 to rs.PageCount
                  if rs.AbsolutePage=i then
                  Response.Write(""&i&"") ''当前页码
                  else
                  Response.Write(""&i&"")
                  end if
                  Next
                  Response.Write("页/共"&rs.PageCount&"页
                  共"&rs.RecordCount&"条记录")
                  Response.Write("")　

                  ''创建表格，用于显示
                  Response.Write("")　

                  Response.Write("") 　

                  Set Columns=rs.Fields 　

                  ''显示表头
                  For i=0 to Columns.Count-1
                  Response.Write("")
                  Response.Write(""&Columns(i).name&"")
                  Next
                  Response.Write("")
                  ''显示内容
                  For i=1 to rs.PageSize
                  Response.Write("")
                  For j=0 to Columns.Count-1
                  Response.Write(""&Columns(j)&"")
                  Next
                  Response.Write("")　

                  rs.movenext
                  if rs.EOF then exit for
                  Next　

                  Response.Write("") 　

                  END IF
                  %>
                  
                  

关某