当前位置:天才代写 > tutorial > 其他教程 > ASP初学者常用源代码的大总结

ASP初学者常用源代码的大总结

2018-05-23 08:00 星期三 所属: 其他教程 浏览:770

恍惚恍惚又来到了文章的学习,想必大家又有很多问题吧!
  1.获得系统时间:
  <%=now()%> 
  2.取得来访用的IP:
  <%=request.serverVaRIAbles(“remote_host”)%> 
  3.获得系统,浏览器版本:
编程语言(programming language),
是用来定义计算机程序的形式语言。
它是一种被标准化的交流技巧,
用来向计算机发出指令。
一种计算机语言让程序员能够准确地定义计算机所需要使用的数据
,并精确地定义在不同情况下所应当采取的行动。[1]
最早的编程语言是在电脑发明之后产生的,
当时是用来控制提花织布机及自动演奏钢琴的动作
。在电脑领域已发明了上千不同的编程语言,而且每年仍有新的编程语言诞生。
很多编程语言需要用指令方式说明计算的程序
,而有些编程语言则属于声明式编程,说明需要的结果,而不说明如何计算。
  

汇编语言教程
  4.去除IE混动条: 
   
  或
   
  5.进入网站,跳出广告:  
  

  6.随机数: 
  <%randomize%> 
  <%=(int(rnd()*n)+1)%>
  N为可改变数
  7.向上混动代码: 
  hhhhhhhhhhhhhhhhhhh 
  8.自动关闭网页:
  汇编语言

 
  

本页10秒后自动关闭,请注意刷新页面
 
  9.随机背景音乐:
  <%randomize%> 
   
  可以修改数字,限制调用个数,我这里是60个.
  10.自动刷新本页面:
  

 
  
  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.用键盘打开网页代码: 
  

  这里是Ctrl+Enter和Alt+S的代码 自己查下键盘的ASCII码再换就行
汇编教程
  
  14.让层不被控件复盖代码:
  

 

# 前面 
  

 

# 后面 
  

 

 
  

  
  15.动网FLASH广告代码:
   
  16.VBS弹出窗口小代码: 
  c语言编程入门

 
  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     请作者联系本站,及时附注您的姓名。联系邮箱:edu#chinaz.com(把#改为@)。
更多视频课程文章的课程,可到课课家官网查看。我在等你哟!!!

 

    关键字:

天才代写-代写联系方式