1、一些ASP初学者常用的代码一些ASP初学者常用的代码1.获得系统时间: 2.取得来访用的IP: 3.获得系统,浏览器版本: window.document.write(版本:+navigator.appName+navigator.appVersion+ browser.) 4.去除IE混动条: 5.进入网站,跳出广告: !- window.open(http:/www.XXXXXX.com,height=200,width=300,top=0,left=30); / - 6.随机数: N为可改变数 7.向上混动代码: hhhhhhhhhhhhhhhhhhh 8.自动关闭网页: 本页10秒后自
2、动关闭,请注意刷新页面 9.随机背景音乐: bgsound src=mids/.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码再换就行 1
3、4.让层不被控件复盖代码: 前面 后面 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.OpenTextFil
4、e(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 = No
5、thing 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 objC
6、ountFile=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 lin
7、enum 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,Lin
8、econtent) 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 FSOla
9、stline(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 tempar
10、ray = 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 Di
11、m 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, fsoForRead
12、ing) 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 con
13、vert 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) * 2
14、56) 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 : : dept
15、h = 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
16、= 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
17、 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 = PNG Width = lngConvert2(GetBytes(flnm, 19, 2) Height = lngConvert2(GetBytes(flnm, 23, 2) Depth = getBytes(flnm,
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1