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

作者:课课家更新于： 2015-11-02 10:39:41

恍惚恍惚又来到了文章的学习，想必大家又有很多问题吧!
　　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（把#改为@）。
更多视频课程文章的课程，可到课课家官网查看。我在等你哟！！！