收藏

下载资源 加入VIP,免费下载

第1页 / 共17页

第2页 / 共17页

第3页 / 共17页

第4页 / 共17页

第5页 / 共17页

absolute; top:

40;width:

400px; height:

95px;z-index:

2"> 

absolute; top:

50;width:

200px; height:

115px;z-index:

1"> 

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.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 

利用FSO取得BMP，JPG，PNG，GIF文件信息（大小，宽、高等） 

<% 

':

:

:

 BMP, GIF, JPG and PNG :

:

:

':

:

:

 This function gets a specified number of bytes from any :

:

:

':

:

:

 file, starting at the offset （base 1） :

:

:

':

:

:

 :

:

:

':

:

:

 Passed:

 :

:

:

':

:

:

 flnm => 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 

Dim 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, fsoForReading） 

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 convert 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）） * 256））） 

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 :

:

:

':

:

:

 depth => 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 = "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 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