写了几个类，希望对大家有用。

1.日历
</p> <p> #oContainer {<br /> width: 193px;<br /> padding: 3px;<br /> background-color: menu;<br /> border-left: buttonhighlight 1px solid;<br /> border-top: buttonhighlight 1px solid;<br /> border-right: buttonshadow 1px solid;<br /> border-bottom: buttonshadow 2px solid;<br /> }<br /> .DateTable {<br /> font: 10pt;<br /> word-break: break-all;<br /> }<br /> .WeekTd, .BlankTd {<br /> font: 10pt;<br /> border: 1px solid menu;<br /> }<br /> .Today {<br /> font: 10pt;<br /> color: red;<br /> cursor: hand;<br /> position: relative;<br /> left: 1px;<br /> top: 1px;<br /> border-left: 1px solid dimgray;<br /> border-top: 1px solid dimgray;<br /> border-right: 1px solid white;<br /> border-bottom: 1px solid white;<br /> }<br /> .MonthTd {<br /> font: 10pt;<br /> font-family: webdings;<br /> cursor: hand;<br /> border: 1px solid menu;<br /> zmm: expression(onmouseenter = function() {<br /> style.color = 'red';<br /> },<br /> onmouseout = function() {<br /> style.color = '';<br /> });<br /> }<br /> .SelectTd {<br /> border: 1px solid menu;<br /> }<br /> .over {<br /> position: relative;<br /> cursor: hand;<br /> border-right: 1px solid buttonshadow;<br /> border-bottom: 1px solid buttonshadow;<br /> border-left: 1px solid buttonhighlight;<br /> border-top: 1px solid buttonhighlight;<br /> }<br /> .out {<br /> border-left: 1px solid buttonface;<br /> border-top: 1px solid buttonface;<br /> border-right: 1px solid buttonface;<br /> border-bottom: 1px solid buttonface;<br /> }<br /> .down {<br /> position: relative;<br /> left: 1px;<br /> top: 1px;<br /> border-left: 1px solid dimgray;<br /> border-top: 1px solid dimgray;<br /> border-right: 1px solid white;<br /> border-bottom: 1px solid white;<br /> } </p> <p>
[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]
2.简单的下拉菜单
</p> <p> #oData {<br /> display: none;<br /> }<br /> #oPanel {<br /> width: 120px;<br /> font-size: 12px;<br /> border: 1px solid menu;<br /> padding: 2px;<br /> position: absolute;<br /> display: none;<br /> }<br /> span {<br /> font-size: 12px;<br /> cursor: hand;<br /> } </p> <p>  </p> <menu id="item_0"> <li> 命令一 <li> 命令二<br /> </menu> <menu id="item_1"> <li> 命令三 <li> 命令四 <li> 命令五 <li> 命令六<br /> </menu> <menu id="item_2"> <li> 命令七 <li> 命令八<br /> </menu> <p> <span>菜单一</span>  <br /> <span>菜单二</span>  <br /> <span>菜单三</span>  <br /> <span>菜单四</span> </p> <p>
[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]
3. QQ菜单效果
</p> <p> #oContainer {<br /> width: 130px;<br /> height: 300px;<br /> border: 1px solid menu;<br /> } </p> <p>
[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]
4.对联效果
</p> <p>对联内容 </p> <pre> </pre> <p>
[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]
5.图片轮换
</p> <p>
[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]
6.listView类
</p> <p> #oContainer {<br /> width: 600px;<br /> height: 500px;<br /> border: 1px solid menu;<br /> margin: 0px;<br /> padding: 0px;<br /> overflow: hidden;<br /> }<br /> a {<br /> color: black;<br /> text-decoration: none;<br /> }<br /> a:hover {<br /> color: red;<br /> text-decoration: underline;<br /> } </p> <p>
[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]
7.表单多文件上传类 [ASP] 
<br /> 2 Then<br /> ReDim Preserve itemStart(itemCount)<br /> ReDim Preserve itemLength(itemCount)<br /> itemStart(itemCount) = iStart<br /> itemLength(itemCount) = iLength<br /> itemCount = itemCount + 1<br /> End If<br /> Loop<br /> Call FillItemValue<br /> End Function </p> <p> Private Function FillItemValue<br /> Dim dataPart, bInfor<br /> Dim iStart : iStart = 1<br /> Dim iCount : iCount = 0<br /> Dim iCheck : iCheck = StrToByte("filename")<br /> For i = 0 To itemCount - 1<br /> ReDim Preserve itemName(iCount)<br /> ReDim Preserve itemData(iCount)<br /> ReDim Preserve extenArr(iCount)<br /> ReDim Preserve dataStart(iCount)<br /> ReDim Preserve dataLength(iCount)<br /> dataPart = MidB(formData, itemStart(i), itemLength(i))<br /> iStart = InStrB(1, dataPart, ChrB(34)) + 1<br /> iLength = InStrB(iStart, dataPart, ChrB(34)) - iStart<br /> itemName(iCount) = FormItemName(MidB(dataPart, iStart, iLength))<br /> iStart = InStrB(1, dataPart, bVBCrlf) + 4<br /> iLength = LenB(dataPart) - iStart + 1<br /> If InStrB(1, dataPart, iCheck) > 0 Then<br /> bInfor = MidB(dataPart, 1, iStart - 5)<br /> extenArr(iCount) = FileExtenName(bInfor)<br /> If Mid(folderPath, Len(folderPath) - 1) = "/" Then<br /> itemData(iCount) = folderPath & GetRndName(6) & extenArr(iCount)<br /> Else<br /> itemData(iCount) = folderPath & "/" & GetRndName(6) & extenArr(iCount)<br /> End If<br /> dataStart(iCount) = itemStart(i) + iStart - 2<br /> dataLength(iCount) = iLength<br /> Else<br /> extenArr(iCount) = ""<br /> itemData(iCount) = ByteToStr(MidB(dataPart, iStart, iLength))<br /> dataStart(iCount) = ""<br /> dataLength(iCount) = ""<br /> End If<br /> iCount = iCount + 1<br /> Next<br /> Call SaveUpload<br /> End Function </p> <p> Private Function FormItemName(byVal bName)<br /> FormItemName = ByteToStr(bName)<br /> End Function </p> <p> Private Function FileExtenName(byVal bInfor)<br /> Dim pStart, pLength, pContent, regEx<br /> pStart = InStr(1, ByteToStr(bInfor), "filename=" & Chr(34)) + 10<br /> pLength = InStr(pStart, ByteToStr(bInfor), Chr(34)) - pStart<br /> pContent = Mid(ByteToStr(bInfor), pStart, pLength)<br /> If pContent = "" Then<br /> FileExtenName = ""<br /> Else<br /> Set regEx = New RegExp<br /> regEx.Pattern = "^.*(\.[^\.]*)$"<br /> regEx.Global = False<br /> regEx.IgnoreCase = True<br /> FileExtenName = regEx.Replace(pContent, "$1")<br /> Set regEx = Nothing<br /> End If<br /> End Function </p> <p> Private Function GetRndName(byVal sLen)<br /> Dim regEx, sTemp, arrFields, n : n = 0<br /> Set regEx = New RegExp<br /> regEx.Pattern = "[^\d]*"<br /> regEx.Global = True<br /> regEx.IgnoreCase = True<br /> sTemp = regEx.Replace(Now, "") & "-"<br /> Set regEx = Nothing<br /> arrFields = Array("0", "1", "2", "3", "4", "5", "6", "7", "8", "9", _<br /> "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", _<br /> "k", "l", "m", "n", "o", "p", "q", "r", "s", "t", _<br /> "u", "v", "w", "x", "y", "z", "A", "B", "C", "D", _<br /> "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", _<br /> "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", _<br /> "Y", "Z")<br /> Randomize<br /> Do While n < sLen<br /> sTemp = sTemp & CStr(arrFields(61 * Rnd))<br /> n = n + 1<br /> Loop<br /> GetRndName = sTemp<br /> End Function </p> <p> Private Function SaveUpload<br /> Dim isValidate<br /> Dim filePath, oStreamGet, oStreamPut<br /> isValidate = CheckFile<br /> If isValidate Then<br /> For i = 0 To itemCount - 1<br /> If (dataStart(i) "") And (dataLength(i) "") Then<br /> If dataLength(i) = 0 Then<br /> itemData(i) = ""<br /> Else<br /> filePath = Server.MapPath(itemData(i))<br /> If CreateFolder("|", ParentFolder(filePath)) Then<br /> Set oStreamGet = Server.CreateObject("ADODB.Stream")<br /> oStreamGet.Type = 1<br /> oStreamGet.Mode = 3<br /> oStreamGet.Open<br /> oStreamGet.Write formData<br /> oStreamGet.Position = dataStart(i)<br /> Set oStreamPut = Server.CreateObject("ADODB.Stream")<br /> oStreamPut.Type = 1<br /> oStreamPut.Mode = 3<br /> oStreamPut.Open<br /> oStreamPut.Write oStreamGet.Read(dataLength(i))<br /> oStreamPut.SaveToFile(filePath)<br /> oStreamGet.Close<br /> Set oStreamGet = Nothing<br /> oStreamPut.Close<br /> Set oStreamPut = Nothing<br /> End If<br /> End If<br /> End If<br /> Next<br /> Finished = True<br /> Call ItemToColl<br /> Else<br /> Finished = False<br /> End If<br /> End Function </p> <p> Private Function CheckFile<br /> Dim oBoolean : oBoolean = True<br /> If cFields = "" Then<br /> oBoolean = oBoolean And True<br /> Else<br /> For i = 0 To itemCount - 1<br /> If extenArr(i) "" Then<br /> If InStr(1, Ucase(cFields), "|" & Ucase(Mid(extenArr(i), 2)) & "|") > 0 Then<br /> oBoolean = oBoolean And True<br /> Else<br /> sErrors = sErrors & "表单[ " & itemName(i) & " ]的文件格式错误！\n" & _<br /> "支持的格式为：" & Replace(Mid(cFields, 2, Len(cFields) - 1), "|", " ") & "\n\n"<br /> oBoolean = oBoolean And False<br /> End If<br /> End If<br /> Next<br /> End If<br /> CheckFile = oBoolean<br /> End Function </p> <p> Private Function CreateFolder(byVal sLine, byVal sPath)<br /> Dim oFso<br /> Set oFso = Server.CreateObject("Scripting.FileSystemObject")<br /> If Not oFso.FolderExists(sPath) Then<br /> Dim regEx<br /> Set regEx = New RegExp<br /> regEx.Pattern = "^(.*)\\([^\\]*)$"<br /> regEx.Global = False<br /> regEx.IgnoreCase = True<br /> sLine = sLine & regEx.Replace(sPath, "$2") & "|"<br /> sPath = regEx.Replace(sPath, "$1")<br /> If CreateFolder(sLine, sPath) Then CreateFolder = True<br /> Set regEx = Nothing<br /> Else<br /> If sLine = "|" Then<br /> CreateFolder = True<br /> Else<br /> Dim sTemp : sTemp = Mid(sLine, 2, Len(sLine) - 2)<br /> If InStrRev(sTemp, "|") = 0 Then<br /> sLine = "|"<br /> sPath = sPath & "\" & sTemp<br /> Else<br /> Dim Folder : Folder = Mid(sTemp, InStrRev(sTemp, "|") + 1)<br /> sLine = "|" & Mid(sTemp, 1, InStrRev(sTemp, "|") - 1) & "|"<br /> sPath = sPath & "\" & Folder<br /> End If<br /> oFso.CreateFolder sPath<br /> If CreateFolder(sLine, sPath) Then CreateFolder = True<br /> End if<br /> End If<br /> Set oFso = Nothing<br /> End Function </p> <p> Function ParentFolder(byVal sPath)<br /> Dim regEx<br /> Set regEx = New RegExp<br /> regEx.Pattern = "^(.*)\\[^\\]*$"<br /> regEx.Global = True<br /> regEx.IgnoreCase = True<br /> ParentFolder = regEx.Replace(sPath, "$1")<br /> Set regEx = Nothing<br /> End Function </p> <p> Private Function StrToByte(byVal sText)<br /> For i = 1 To Len(sText)<br /> StrToByte = StrToByte & ChrB(Asc(Mid(sText, i, 1)))<br /> Next<br /> End Function </p> <p> Private Function ByteToStr(byVal sByte)<br /> Dim oStream<br /> Set oStream = Server.CreateObject("ADODB.Stream")<br /> oStream.Type = 2<br /> oStream.Mode = 3<br /> oStream.Open<br /> oStream.WriteText sByte<br /> oStream.Position = 0<br /> oStream.CharSet = "gb2312"<br /> oStream.Position = 2<br /> ByteToStr = oStream.ReadText<br /> oStream.Close<br /> Set oStream = Nothing<br /> End Function </p> <p> Private Function ItemToColl<br /> For i = 0 To itemCount - 1<br /> If Not Form.Exists(itemName(i)) Then<br /> Form.Add itemName(i), itemData(i)<br /> End If<br /> Next<br /> End Function </p> <p> Private Sub Class_Terminate<br /> Form.RemoveAll<br /> Set Form = Nothing<br /> End Sub<br /> End Class </p> <p> If Request.ServerVariables("REQUEST_METHOD") = "POST" Then<br /> Rem 建立上传类实例<br /> Set oUpload = New Upload<br /> Rem 指定允许上传文件的类型<br /> oUpload.CheckFields = "|GIF|BMP|JPG|"<br /> Rem 指定上传文件所存储的相对路径<br /> oUpload.Folder = "51JS.COM-ZMM/UploadFile"<br /> Rem 开始上传处理<br /> oUpload.Start<br /> If oUpload.Finished Then<br /> Rem 上传成功，显示上传信息<br /> Dim sHtml : sHtml = ""<br /> sHtml = sHtml & ""<br /> sHtml = sHtml & ""<br /> sHtml = sHtml & "上传表单数据<br /> "<br /> sHtml = sHtml & "标题：<br /> " & oUpload.Form("P_title") & "</p> <p>"<br /> sHtml = sHtml & "类型：<br /> " & oUpload.Form("P_assort") & "</p> <p>"<br /> sHtml = sHtml & "小图：<br /> 服务器端路径：" & oUpload.Form("P_image_s") & "</p> <p>"<br /> sHtml = sHtml & "中图：<br /> 服务器端路径：" & oUpload.Form("P_image_m") & "</p> <p>"<br /> sHtml = sHtml & "大图：<br /> 服务器端路径：" & oUpload.Form("P_image_b") & "</p> <p>"<br /> sHtml = sHtml & "介绍：<br /> " & oUpload.Form("P_content") & "<br /> "<br /> sHtml = sHtml & ""<br /> sHtml = sHtml & ""<br /> Response.Write sHtml<br /> Response.End<br /> Else<br /> Rem 上传失败，显示错误信息<br /> Call ShowMsg(oUpload.ErrMessage, Request.ServerVariables("SCRIPT_NAME"))<br /> End If<br /> Rem 对话框提示函数<br /> Function ShowMsg(byVal sText, byVal sTarget)<br /> Dim sScript : sScript = ""<br /> sScript = sScript & ""<br /> Response.Write sScript<br /> Response.End<br /> End Function<br /> End If<br /> %> </p> <p><title>多文件、表单混合上传类</title> </p> <p> body {<br /> margin: 0px;<br /> border: 0px;<br /> font-size: 10pt;<br /> }<br /> table {<br /> border-collapse: collapse;<br /> font-size: 10pt;<br /> }<br /> td {<br /> font-size: 10pt;<br /> } </p> <p> <form action="" method="post" enctype="multipart/form-data" onsubmit="return formCheck(this);"> </p> <table width="400" align="center" cellpadding="2" cellspacing="0" border="1" rules="box"> <tr> <td colspan="2" align="center" style="font: 12pt;color: red">上传功能测试</p> </td> </tr> <tr valign="top"> <td height="30" style="padding-top:3px">标题：</td> <td></td> </tr> <tr valign="top"> <td height="30" style="padding-top:3px">类型：</td> <td> <p> 电子<br /> 医疗 </p> </td> </tr> <tr valign="top"> <td height="30" style="padding-top:3px">小图：</td> <td></td> </tr> <tr valign="top"> <td height="30" style="padding-top:3px">中图：</td> <td></td> </tr> <tr valign="top"> <td height="30" style="padding-top:3px">大图：</td> <td></td> </tr> <tr> <td height="30" colspan="2" style="padding-top:3px">介绍：</td> </tr> <tr> <td height="30" colspan="2" valign="top"> <textarea name="P_content" cols="50" rows="5"> </td> </tr> <tr> <td colspan="2" valign="top" align="center"> <p>  </p> </td> </tr> </table> <p>
[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]
8.TabPage类
</p> <p> body {<br /> background-color: menu;<br /> } </p> <p> #oContainer {<br /> width: 500px;<br /> height: 400px;<br /> } </p> <p> 标题： </p> <p> 来源： </p> <p> 分类： 计算机网络计算机软件 </p> <p> 测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试测试 </p> <p>
[Ctrl+A 全选 注:如需引入外部Js需刷新才能执行]