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