2008年6月28日
摘要: 由JavaScript 自定义多级联动下拉菜单得到的灵感，做了个浮动菜单。特点：1.根据自定义菜单结构生成菜单；2.多级联动功能；3.自定义浮动位置（上下左右）；4.自定义延迟效果；5.js控制编辑菜单；6.可根据需要自动生产容器对象；也有一些要求和问题，例如样式有些要求，位置取不准等。效果：var $ = function (id) { return "string" == typeof id ...
阅读全文
posted @
2008-06-28 11:32 cloudgamer 阅读(1732) |
评论 (16) |
编辑
2008年6月24日
摘要: 能够根据自定义的菜单数据和select，自动设置联级的下拉菜单，可定义默认值。效果：.sel select{ width:100px;}var $ = function (id) { return "string" == typeof id ? document.getElementById(id) : id;};function addEventHandler(oTarget, sEventTy...
阅读全文
posted @
2008-06-24 10:52 cloudgamer 阅读(270) |
评论 (0) |
编辑
2008年6月18日
sub ListFolderContents(path)
dim fs, folder, file, item, url
set fs = CreateObject("Scripting.FileSystemObject")
set folder = fs.GetFolder(path)
if not CheckValidFolder(folder.Name) then exit sub
Response.Write("<li><b>" & folder.Name & "</b> - " & folder.SubFolders.Count & " directories." & vbCrLf & "<ul>" & vbCrLf)
for each item in folder.SubFolders
ListFolderContents(item.Path)
next
for each item in folder.Files
if CheckValidExt(item.Name) then
Response.Write("<li><a href=""" & MapURL(item.path) & """ target='_blank'>" & item.Name & "</a> - " & item.Path & "</li>" & vbCrLf)
response.Flush()
end if
next
Response.Write("</ul>" & vbCrLf & "</li>" & vbCrLf)
end sub
function MapURL(path)
MapURL = Replace(Right(path, Len(path) - Len(Server.MapPath("/"))), "\", "/")
end function
' 检测有效扩展名
function CheckValidExt(filename)
Dim i, aExt, sExt
sExt = Mid(filename,InStrRev (filename, ".")+1)
CheckValidExt = False
aExt = Split("jpg|jpeg|gif|phg|bmp", "|")
For i = 0 To UBound(aExt)
If LCase(aExt(i)) = LCase(sExt) Then
CheckValidExt = True
Exit function
End If
Next
End function
' 检测无效文件夹
function CheckValidFolder(foldername)
Dim i, aExt
CheckValidFolder = true
aExt = Split("ad|shop|Scripts|UploadFile", "|")
For i = 0 To UBound(aExt)
If LCase(aExt(i)) = LCase(foldername) Then
CheckValidFolder = false
Exit function
End If
Next
End function
ListFolderContents("E:\car\web\")posted @
2008-06-18 16:09 cloudgamer 阅读(29) |
评论 (0) |
编辑
2008年5月23日
摘要: 仿照常见的那个图片切换flash做的效果，纯js。不过滤镜切换只对应ie，ff只能看到一般的切换效果：#idPicShow img {width:265px;height:200px;border:1px solid #eee;}#idPicText {background:#eee;line-height:25px;text-align:center;font-weight:bold;width...
阅读全文
posted @
2008-05-23 12:02 cloudgamer 阅读(2255) |
评论 (12) |
编辑
2008年5月17日
摘要: 上次做图片滑动展示效果时做了减速效果，就想怎么做一个加速效果。就做了下面这个东西，当然只是类似弹簧，而不是真正的弹簧。原理很简单，用GetStep获取定点之间渐变步长的集合，当减速时从大到小获取，加速反之。var $ = function (id) { return "string" == typeof id ? document.getElementById(id) : id;};functio...
阅读全文
posted @
2008-05-17 14:41 cloudgamer 阅读(2067) |
评论 (18) |
编辑
2008年5月16日
摘要: 这里说的滑移其实就是减速效果，能根据设定的坐标平面移动。var $ = function (id) { return "string" == typeof id ? document.getElementById(id) : id;};function Event(e){ var oEvent = document.all ? window.event : e; if (document.all)...
阅读全文
posted @
2008-05-16 15:14 cloudgamer 阅读(1402) |
评论 (8) |
编辑
2008年5月13日
摘要: 看到jQuery实例：图片展示效果 后我也想写一个，思路还是差不多的，不过我没有用框架来做，性能应该我这个好点。还有一些控制功能。欢迎指点效果: var $ = function (id) { return "string" == typeof id ? document.getElementById(id) : id;};function Event(e){ var oEvent = docum...
阅读全文
posted @
2008-05-13 01:34 cloudgamer 阅读(2776) |
评论 (23) |
编辑
2008年4月30日
摘要: 根据无缝滚动和八向滚动修改而来，特点是能同一程序中分别向四个方向移动。对滚动框内的样式设置有些要求。效果：var $ = function (id) { return "string" == typeof id ? document.getElementById(id) : id;};var Class = { create: function() { return function() { t...
阅读全文
posted @
2008-04-30 14:17 cloudgamer 阅读(1263) |
评论 (3) |
编辑
2008年4月29日
摘要: <!DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><htmlxmlns="http://www.w3.org/1999/xhtml"><head><metahttp-equiv="...
阅读全文
posted @
2008-04-29 17:50 cloudgamer 阅读(268) |
评论 (0) |
编辑
摘要: <!DOCTYPEhtmlPUBLIC"-//W3C//DTDXHTML1.0Transitional//EN""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><htmlxmlns="http://www.w3.org/1999/xhtml"><head><metahttp-equiv="...
阅读全文
posted @
2008-04-29 15:27 cloudgamer 阅读(298) |
评论 (2) |
编辑