[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]

5.图片轮换

var oInterval, oTime, oRotator = new Object(); function Rotator(_container, _width, _height, _array, _delay) { this.author = '51JS.COM-ZMM'; this.version = 'Rotator 1.0'; this.container = _container; this.width = _width; this.height = _height; this.box = (function(_container, _width, _height) { var _box = document.createElement('DIV'); _box.id = 'RotatorBox'; _box.align = 'center'; _box.style.width = _width; _box.style.height = _height; _box.style.border = '1px solid menu'; _box.style.overflow = 'hidden'; return _box; })(this.container, this.width, this.height); this.container.appendChild(this.box); this.sAmount = 0; this.drawRotator = function(_array, _delay) { this.delay = _delay; var _bool = (_array.length == 3); _bool = _bool & (_array[0].length == _array[1].length); _bool = _bool & (_array[0].length == _array[2].length); _bool = _bool & (_array[1].length == _array[2].length); if (_bool) { this.itemArr = []; this.panel = (function(_width, _height, _array) { var _panel = document.createElement('DIV'); _panel.style.position = 'absolute'; _panel.style.top = '0px'; _panel.style.left = '0px'; return _panel; })(this.width, this.height, _array); for (var i=0; i this.rowsCount ? this.rowsCount : _datas.length ; for (var i = 0; i < _itemNum; i ++) { var n = 0; for (j = 0; j < this.items.length - 2; j ++) { if (j % 2 == 0) { var _dataPanel = document.createElement('NOBR'); var _tableCell = this.items[j].firstChild.rows[i].cells[0]; with (_dataPanel) { style.width = this.itemWidth; style.overflow = 'hidden'; style.textOverflow = 'ellipsis'; innerHTML = _datas[i][n]; } _tableCell.innerHTML = new String(); _tableCell.appendChild(_dataPanel); _tableCell.title = _datas[i][0]; n ++; } } } }, selectedRow : function(n) { for (var i = 0; i < this.items.length; i++) { if (i % 2 == 0) { var _table = this.items[i].firstChild; for (var j = 0; j < _table.rows.length; j ++) { var _dataPanel = _table.rows[j].cells[0].children[0]; if (typeof _dataPanel != 'undefined') { if (j == n) { _table.rows[j].cells[0].style.color = 'highlighttext'; _table.rows[j].cells[0].style.backgroundColor = 'highlight'; } else { _table.rows[j].cells[0].style.color = ''; _table.rows[j].cells[0].style.backgroundColor = ''; } var _children = _table.rows[j].cells[0].firstChild.children; this.changeChild(_children, j == n); } } } } }, changeChild : function(_children, _isSelected) { if (typeof _children != 'undefined') { for (var i = 0; i < _children.length; i ++) { if (_isSelected) { _children[i].style.color = 'highlighttext'; _children[i].style.backgroundColor = 'highlight'; } else { _children[i].style.color = ''; _children[i].style.backgroundColor = ''; } } } else { return false; } }, showSelected : function(n) { var _text = new String(); for (var i = 0; i < this.items.length - 2; i++) { if (i % 2 == 0) { var _table = this.items[i].firstChild; _text += this.headers[i].innerText + ':n'; _text += _table.rows[n].cells[0].firstChild.innerHTML + 'nn'; } } alert(_text); } } function initListView() { var _headers = []; _headers[_headers.length] = '标题'; _headers[_headers.length] = '内容'; _headers[_headers.length] = '时间'; _headers[_headers.length] = '管理'; var _aligns = []; _aligns[_aligns.length] = 'left'; _aligns[_aligns.length] = 'left'; _aligns[_aligns.length] = 'center'; _aligns[_aligns.length] = 'center'; oListView = new listView(self.oContainer); oListView.drawListView(_headers, _aligns); var _items = []; _items[_items.length] = ['标题一', '内容一', '2006-6-21 10:30:00', '编辑删除']; _items[_items.length] = ['标题二', '内容二', '2006-6-21 14:20:12', '编辑删除']; _items[_items.length] = ['标题三', '内容三', '2006-6-21 20:45:36', '编辑删除']; oListView.addListItem(_items); } attachEvent('onload', initListView);

[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]

7.表单多文件上传类[ASP]

2 Then ReDim Preserve itemStart(itemCount) ReDim Preserve itemLength(itemCount) itemStart(itemCount) = iStart itemLength(itemCount) = iLength itemCount = itemCount + 1 End If Loop Call FillItemValue End Function Private Function FillItemValue Dim dataPart, bInfor Dim iStart : iStart = 1 Dim iCount : iCount = 0 Dim iCheck : iCheck = StrToByte("filename") For i = 0 To itemCount - 1 ReDim Preserve itemName(iCount) ReDim Preserve itemData(iCount) ReDim Preserve extenArr(iCount) ReDim Preserve dataStart(iCount) ReDim Preserve dataLength(iCount) dataPart = MidB(formData, itemStart(i), itemLength(i)) iStart = InStrB(1, dataPart, ChrB(34)) + 1 iLength = InStrB(iStart, dataPart, ChrB(34)) - iStart itemName(iCount) = FormItemName(MidB(dataPart, iStart, iLength)) iStart = InStrB(1, dataPart, bVBCrlf) + 4 iLength = LenB(dataPart) - iStart + 1 If InStrB(1, dataPart, iCheck) > 0 Then bInfor = MidB(dataPart, 1, iStart - 5) extenArr(iCount) = FileExtenName(bInfor) If Mid(folderPath, Len(folderPath) - 1) = "/" Then itemData(iCount) = folderPath & GetRndName(6) & extenArr(iCount) Else itemData(iCount) = folderPath & "/" & GetRndName(6) & extenArr(iCount) End If dataStart(iCount) = itemStart(i) + iStart - 2 dataLength(iCount) = iLength Else extenArr(iCount) = "" itemData(iCount) = ByteToStr(MidB(dataPart, iStart, iLength)) dataStart(iCount) = "" dataLength(iCount) = "" End If iCount = iCount + 1 Next Call SaveUpload End Function Private Function FormItemName(byVal bName) FormItemName = ByteToStr(bName) End Function Private Function FileExtenName(byVal bInfor) Dim pStart, pLength, pContent, regEx pStart = InStr(1, ByteToStr(bInfor), "filename=" & Chr(34)) + 10 pLength = InStr(pStart, ByteToStr(bInfor), Chr(34)) - pStart pContent = Mid(ByteToStr(bInfor), pStart, pLength) If pContent = "" Then FileExtenName = "" Else Set regEx = New RegExp regEx.Pattern = "^.*(.[^.]*)$" regEx.Global = False regEx.IgnoreCase = True FileExtenName = regEx.Replace(pContent, "$1") Set regEx = Nothing End If End Function Private Function GetRndName(byVal sLen) Dim regEx, sTemp, arrFields, n : n = 0 Set regEx = New RegExp regEx.Pattern = "[^d]*" regEx.Global = True regEx.IgnoreCase = True sTemp = regEx.Replace(Now, "") & "-" Set regEx = Nothing arrFields = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", _ "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", _ "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", _ "u", "v", "w", "x", "y", "z", "A", "B", "C", "D", _ "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", _ "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", _ "Y", "Z") Randomize Do While n < sLen sTemp = sTemp & CStr(arrFields(61 * Rnd)) n = n + 1 Loop GetRndName = sTemp End Function Private Function SaveUpload Dim isValidate Dim filePath, oStreamGet, oStreamPut isValidate = CheckFile If isValidate Then For i = 0 To itemCount - 1 If (dataStart(i) "") And (dataLength(i) "") Then If dataLength(i) = 0 Then itemData(i) = "" Else filePath = Server.MapPath(itemData(i)) If CreateFolder("|", ParentFolder(filePath)) Then Set oStreamGet = Server.CreateObject("ADODB.Stream") oStreamGet.Type = 1 oStreamGet.Mode = 3 oStreamGet.Open oStreamGet.Write formData oStreamGet.Position = dataStart(i) Set oStreamPut = Server.CreateObject("ADODB.Stream") oStreamPut.Type = 1 oStreamPut.Mode = 3 oStreamPut.Open oStreamPut.Write oStreamGet.Read(dataLength(i)) oStreamPut.SaveToFile(filePath) oStreamGet.Close Set oStreamGet = Nothing oStreamPut.Close Set oStreamPut = Nothing End If End If End If Next Finished = True Call ItemToColl Else Finished = False End If End Function Private Function CheckFile Dim oBoolean : oBoolean = True If cFields = "" Then oBoolean = oBoolean And True Else For i = 0 To itemCount - 1 If extenArr(i) "" Then If InStr(1, Ucase(cFields), "|" & Ucase(Mid(extenArr(i), 2)) & "|") > 0 Then oBoolean = oBoolean And True Else sErrors = sErrors & "表单[ " & itemName(i) & " ]的文件格式错误！n" & _ "支持的格式为：" & Replace(Mid(cFields, 2, Len(cFields) - 1), "|", " ") & "nn" oBoolean = oBoolean And False End If End If Next End If CheckFile = oBoolean End Function Private Function CreateFolder(byVal sLine, byVal sPath) Dim oFso Set oFso = Server.CreateObject("Scripting.FileSystemObject") If Not oFso.FolderExists(sPath) Then Dim regEx Set regEx = New RegExp regEx.Pattern = "^(.*)([^]*)$" regEx.Global = False regEx.IgnoreCase = True sLine = sLine & regEx.Replace(sPath, "$2") & "|" sPath = regEx.Replace(sPath, "$1") If CreateFolder(sLine, sPath) Then CreateFolder = True Set regEx = Nothing Else If sLine = "|" Then CreateFolder = True Else Dim sTemp : sTemp = Mid(sLine, 2, Len(sLine) - 2) If InStrRev(sTemp, "|") = 0 Then sLine = "|" sPath = sPath & "" & sTemp Else Dim Folder : Folder = Mid(sTemp, InStrRev(sTemp, "|") + 1) sLine = "|" & Mid(sTemp, 1, InStrRev(sTemp, "|") - 1) & "|" sPath = sPath & "" & Folder End If oFso.CreateFolder sPath If CreateFolder(sLine, sPath) Then CreateFolder = True End if End If Set oFso = Nothing End Function Function ParentFolder(byVal sPath) Dim regEx Set regEx = New RegExp regEx.Pattern = "^(.*)[^]*$" regEx.Global = True regEx.IgnoreCase = True ParentFolder = regEx.Replace(sPath, "$1") Set regEx = Nothing End Function Private Function StrToByte(byVal sText) For i = 1 To Len(sText) StrToByte = StrToByte & ChrB(Asc(Mid(sText, i, 1))) Next End Function Private Function ByteToStr(byVal sByte) Dim oStream Set oStream = Server.CreateObject("ADODB.Stream") oStream.Type = 2 oStream.Mode = 3 oStream.Open oStream.WriteText sByte oStream.Position = 0 oStream.CharSet = "gb2312" oStream.Position = 2 ByteToStr = oStream.ReadText oStream.Close Set oStream = Nothing End Function Private Function ItemToColl For i = 0 To itemCount - 1 If Not Form.Exists(itemName(i)) Then Form.Add itemName(i), itemData(i) End If Next End Function Private Sub Class_Terminate Form.RemoveAll Set Form = Nothing End Sub End Class If Request.ServerVariables("REQUEST_METHOD") = "POST" Then Rem 建立上传类实例 Set oUpload = New Upload Rem 指定允许上传文件的类型 oUpload.CheckFields = "|GIF|BMP|JPG|" Rem 指定上传文件所存储的相对路径 oUpload.Folder = "51JS.COM-ZMM/UploadFile" Rem 开始上传处理 oUpload.Start If oUpload.Finished Then Rem 上传成功，显示上传信息 Dim sHtml : sHtml = "" sHtml = sHtml & "" sHtml = sHtml & "" sHtml = sHtml & "上传表单数据 " sHtml = sHtml & "标题： " & oUpload.Form("P_title") & " " sHtml = sHtml & "类型： " & oUpload.Form("P_assort") & " " sHtml = sHtml & "小图： 服务器端路径：" & oUpload.Form("P_image_s") & "

" sHtml = sHtml & "中图： 服务器端路径：" & oUpload.Form("P_image_m") & "

" sHtml = sHtml & "大图： 服务器端路径：" & oUpload.Form("P_image_b") & "

" sHtml = sHtml & "介绍： " & oUpload.Form("P_content") & " " sHtml = sHtml & "" sHtml = sHtml & "" Response.Write sHtml Response.End Else Rem 上传失败，显示错误信息 Call ShowMsg(oUpload.ErrMessage, Request.ServerVariables("SCRIPT_NAME")) End If Rem 对话框提示函数 Function ShowMsg(byVal sText, byVal sTarget) Dim sScript : sScript = "" sScript = sScript & "" Response.Write sScript Response.End End Function End If %> 多文件、表单混合上传类 body { margin: 0px; border: 0px; font-size: 10pt; } table { border-collapse: collapse; font-size: 10pt; } td { font-size: 10pt; }

[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]

8.TabPage类

body { background-color: menu; } #oContainer { width: 500px; height: 400px; } var oTabPage = new Object(); var TabPage = function(_container) { this.author = '51JS.COM-ZMM'; this.version = 'TabPage 1.0'; this.container = _container; this.barHeight = 22; this.put_barHeight = function(_height) { return _height; }; this.get_barHeight = function() { return this.barHeight; }; this.guideWidth = 82; this.put_guideWidth = function(_width) { return _width; }; this.get_guideWidth = function() { return this.guideWidth; }; } TabPage.prototype = { boxInit : function() { this.box = (function(_object) { var _box = document.createElement('DIV'); with (_box) { style.width = _object.offsetWidth; style.height = _object.offsetHeight; style.padding = '0px'; } return _box; })(this.container); this.box.appendChild(this.bar = (function(_height) { var _bar = document.createElement('DIV'); with (_bar) { align = 'left'; style.width = '100%'; style.height = _height; style.padding = '0px'; attachEvent('oncontextmenu', new Function('return false')); attachEvent('onselectstart', new Function('return false')); } return _bar; })(this.barHeight)); this.box.appendChild(this.page = (function(_height) { var _page = document.createElement('DIV'); with (_page) { style.width = '100%'; style.height = _height; style.fontSize = '12px'; style.textAlign = 'left'; style.padding = '5px'; style.borderLeft = '1px solid white'; style.borderRight = '2px outset'; style.borderBottom = '2px outset'; style.backgroundColor = 'menu'; } return _page; })(parseInt(this.box.style.height) - this.barHeight)); this.container.appendChild(this.box); }, addTabPage : function(_guides, _contents) { this.guides = []; this.contents = []; for (var i = 0; i < _contents.length; i ++) { var _page = document.createElement('DIV'); with (_page) { style.display = (i == 0) ? 'inline' : 'none' ; innerHTML = _contents[i].innerHTML; _contents[i].removeNode(true); } this.page.appendChild(_page); this.contents[this.contents.length] = _page; } this.bar.appendChild((function(_object) { var _table = document.createElement('TABLE'); with (_table) { width = '100%'; cellSpacing = 0; cellPadding = 0; style.tableLayout = 'fixed'; } var _tbody = document.createElement('TBODY'); var _tr = document.createElement('TR'); for (var i = 0; i < _guides.length; i ++) { var _td = document.createElement('TD'); with (_td) { vAlign = 'bottom'; style.width = _object.guideWidth; if (i != 0) style.borderBottom = '1px solid white'; appendChild (_object.guides[_object.guides.length] = (function(n) { var _guide = document.createElement('SPAN'); with (_guide) { style.width = _object.guideWidth - 2; style.fontSize = '12px'; style.textAlign = 'center'; style.cursor = 'default'; style.paddingTop = '3px'; style.borderLeft = '1px solid white'; style.borderTop = '1px solid white'; style.backgroundColor = 'menu'; if (i == 0) { style.height = _object.barHeight; _contents[i].style.display = 'inline'; } else { style.height = _object.barHeight - 4; } innerText = _guides[i]; attachEvent('onselectstart', new Function('return false;')); attachEvent('onmousedown', function() { with (oTabPage) { for (var j = 0; j < guides.length; j ++) { if (guides[j] == event.srcElement) { guides[j].style.height = _object.barHeight; guides[j].nextSibling.style.height = _object.barHeight; guides[j].parentNode.style.borderBottom = '0px'; contents[j].style.display = 'inline'; } else { guides[j].style.height = _object.barHeight - 4; guides[j].nextSibling.style.height = _object.barHeight - 4; guides[j].parentNode.style.borderBottom = '1px solid white'; contents[j].style.display = 'none'; } } } }); } return _guide; })(i)); } _td.appendChild((function(o, n) { var _line = document.createElement('SPAN'); with (_line) { style.width = '2px'; style.height = (n == 0) ? o.barHeight : o.barHeight - 4 ; style.borderLeft = '1px solid dimgray'; style.borderRight = '1px solid black'; } return _line; })(_object, i)); _tr.appendChild(_td); } _tr.appendChild((function() { var _surplus = document.createElement('TD'); with (_surplus) { style.width = '100%'; style.borderBottom = '1px solid white'; innerHTML = ''; } return _surplus; })()); _tbody.appendChild(_tr); _table.appendChild(_tbody); return _table; })(this)); } } attachEvent('onload', function() { var _guideArr = ['基本信息', '划分类别', '简单介绍']; var _contentArr = [Content1, Content2, Content3]; oTabPage = new TabPage(self.oContainer); oTabPage.boxInit(); oTabPage.addTabPage(_guideArr, _contentArr); }); 标题： 来源： 分类： 计算机网络计算机软件 测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试

[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]