摘要：获得系统时间；取得来访用的IP；获得系统,浏览器版本；去除IE混动条；进入网站,跳出广告；随机数；向上混动代码；自动关闭网页；随机背景音乐；自动刷新本页面……
关键字：ASP 代码 
正文：
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 = getBytes(flnm, 25, 2)
select case asc(right(Depth,1))
case 0
Depth = 2 ^ (asc(left(Depth, 1)))
gfxSpex = True
case 2
Depth = 2 ^ (asc(left(Depth, 1)) * 3)
gfxSpex = True
case 3
Depth = 2 ^ (asc(left(Depth, 1))) 8
gfxSpex = True
case 4
Depth = 2 ^ (asc(left(Depth, 1)) * 2)
gfxSpex = True
case 6
Depth = 2 ^ (asc(left(Depth, 1)) * 4)
gfxS
[1][2][3][4][5][6][7][8][9]

上一篇：ASP连接数据库的全能代码 下一篇：如何防止ASP木马在服务器上运行