整理了一些ASP初学者常用的代码.docx

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.向上混动代码:hhhhhhhhhhhhhhhhhhh8.自动关闭网页:本页10秒后自动关闭,请注意刷新页

2、面9.随机背景音乐:bgsoundsrc=mids/.midloop=-1可以修改数字，限制调用个数，我这里是个10.自动刷新本页面:11.ACCESS数据库连接:12.SQL数据库连接:13.用键盘打开网页代码:functionctlent(eventobject)if(event.ctrlKey&window.event.keyCode=13)(event.altKey&window.event.keyCode=83)window.open(网址,)这里是Ctrl+Enter和Alt+S的代码自己查下键盘的ASCII码再换就行14.让层不被控件复盖代码:前面后面15.动网FLASH广告代码

3、:16.vbs弹出窗口小代码:msgbox你还没有注册或登陆论坛,0,精品论坛location.href=login.asp16.使用FSO修改文件特定内容的函数functionFSOchange(filename,Target,String)DimobjFSO,objCountFile,FiletempDataSetobjFSO=Server.CreateObject(scripting.FileSystemObject)SetobjCountFile=objFSO.OpenTextFile(Server.MapPath(filename),1,True)FiletempData=objCo

4、untFile.ReadAllobjCountFile.CloseFiletempData=Replace(FiletempData,Target,String)SetobjCountFile=objFSO.CreateTextFile(Server.MapPath(filename),True)objCountFile.WriteFiletempDataobjCountFile.CloseSetobjCountFile=NothingSetobjFSO=NothingEndFunction17.使用FSO读取文件内容的函数functionFSOFileRead(filename)Dimobj

5、FSO,objCountFile,FiletempDataSetobjFSO=Server.CreateObject(scripting.FileSystemObject)SetobjCountFile=objFSO.OpenTextFile(Server.MapPath(filename),1,True)FSOFileRead=objCountFile.ReadAllobjCountFile.CloseSetobjCountFile=NothingSetobjFSO=NothingEndFunction18.使用FSO读取文件某一行的函数functionFSOlinedit(filename

6、,lineNum)iflinenumubound(temparray)+1thenexitfunctionelseFSOlinedit=temparray(lineNum-1)endifendifendfunction19.使用FSO写文件某一行的函数functionFSOlinewrite(filename,lineNum,Linecontent)iflinenumubound(temparray)+1thenexitfunctionelsetemparray(lineNum-1)=lineContentendiftempcnt=join(temparray,chr(13)&chr(10)s

7、etf=fso.createtextfile(server.mappath(filename),true)f.writetempcntendiff.closesetf=nothingendfunction20.使用FSO添加文件新行的函数functionFSOappline(filename,Linecontent)dimfso,fsetfso=server.CreateObject(scripting.filesystemobject)ifnotfso.fileExists(server.mappath(filename)thenexitfunctionsetf=fso.opentextfi

8、le(server.mappath(filename),8,1)f.writechr(13)&chr(10)&Linecontentf.closesetf=nothingendfunction21.读文件最后一行的函数functionFSOlastline(filename)dimfso,f,temparray,tempcntsetfso=server.CreateObject(scripting.filesystemobject)ifnotfso.fileExists(server.mappath(filename)thenexitfunctionsetf=fso.opentextfile(

9、server.mappath(filename),1)ifnotf.AtEndofStreamthentempcnt=f.readallf.closesetf=nothingtemparray=split(tempcnt,chr(13)&chr(10)FSOlastline=temparray(ubound(temparray)endifendfunction利用FSO取得BMP，JPG，PNG，GIF文件信息(大小，宽、高等)Filespecoffiletoread:offset=Offsetatwhichtostartreading:bytes=Howmanybytestoread:fun

10、ctionGetBytes(flnm,offset,bytes)DimobjFSODimobjFTempDimobjTextStreamDimlngSizeonerrorresumenextSetobjFSO=CreateObject(scripting.FileSystemObject)First,wegetthefilesizeSetobjFTemp=objFSO.GetFile(flnm)lngSize=objFTemp.SizesetobjFTemp=nothingfsoForReading=1SetobjTextStream=objFSO.OpenTextFile(flnm,fsoF

11、orReading)ifoffset0thenstrBuff=objTextStream.Read(offset-1)endififbytes=-1thenGetAll!GetBytes=objTextStream.Read(lngSize)ReadAllelseGetBytes=objTextStream.Read(bytes)endifobjTextStream.ClosesetobjTextStream=nothingsetobjFSO=nothingendfunction:Functionstoconverttwobytestoanumericvalue(long):(bothlitt

12、le-endianandbig-endian):functionlngConvert(strTemp)lngConvert=clng(asc(left(strTemp,1)+(asc(right(strTemp,1)*256)endfunctionfunctionlngConvert2(strTemp)lngConvert2=clng(asc(right(strTemp,1)+(asc(left(strTemp,1)*256)endfunction:Thisfunctiondoesmostoftherealwork.Itwillattempt:toreadanyfile,regardlesso

13、ftheextension,andwill:identifyifitisagraphicalimage.:Passed:flnm=Filespecoffiletoread:width=widthofimage:height=heightofimage:depth=colordepth(innumberofcolors):strImageType=typeofimage(e.g.GIF,BMP,etc.):functiongfxSpex(flnm,width,height,depth,strImageType)dimstrPNGdimstrGIFdimstrBMPdimstrTypestrTyp

14、e=strImageType=(unknown)gfxSpex=FalsestrPNG=chr(137)&chr(80)&chr(78)strGIF=GIFstrBMP=chr(66)&chr(77)strType=GetBytes(flnm,0,3)ifstrType=strGIFthenisGIFstrImageType=GIFWidth=lngConvert(GetBytes(flnm,7,2)Height=lngConvert(GetBytes(flnm,9,2)Depth=2(asc(GetBytes(flnm,11,1)and7)+1)gfxSpex=Trueelseifleft(strType,2)=strBMPthenisBMPstrImageType=BMPWidth=lngConvert(GetBytes(flnm,19,2)Height=lngConvert(GetBytes(flnm,23,2)Depth=2(asc(GetBytes(flnm,29,1)gfxSpex=TrueelseifstrType=strPNGthenIsPNGstrImageType=PNGWidth=lngConvert2(GetBytes(flnm,19,2)Height=lngConvert2(GetBytes(flnm,23,2)Depth