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.让层不被控件复盖代码:
#前面
#后面 xml:namespace prefix = div id="Layer2" style="position />
idth=100% bgcolor="#ff0000">
15.动网 FLASH 广告代码: 16.VBS 弹出窗口小代码: 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 >>>---------我想分页!--这么长的文章,在这里来个分页多好啊!哈哈----------<<< 1. oncontextmenu="window.event.returnValue=false" 将彻底屏蔽鼠标右键