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

本文链接：https://blog.csdn.net/ytbada/article/details/1563285

写了几个类，希望对大家有用。 2006-01-17 13:38:52

1.日历

HTML 代码：

2.简单的下拉菜单

HTML 代码：

3. QQ菜单效果

HTML 代码：

4.对联效果

HTML 代码：

5.图片轮换

HTML 代码：

6.listView类

HTML 代码：

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

HTML 代码：

<%
                Class Upload
                Public  Form, Finished
                Private bVBCrlf, bSeparate, formData, cFields, folderPath, itemCount, sErrors, sAuthor, sVersion
                Private itemStart(), itemLength(), dataStart(), dataLength(), itemName(), itemData(), extenArr()
                Private Sub Class_Initialize
                formData = Request.BinaryRead(Request.TotalBytes)
                Set Form = Server.CreateObject("Scripting.Dictionary")
                sAuthor = "51JS.COM-ZMM"
                sVersion = "Upload Class 1.0"
                End Sub
                Public Property Get ErrMessage
                ErrMessage = sErrors
                End Property
                Public Property Get Author
                Author = sAuthor
                End Property
                Public Property Get Version
                Version = sVersion
                End Property
                Public Property Let CheckFields(byVal sCheck)
                cFields = sCheck
                End Property
                Public Property Let Folder(byVal sFolder)
                folderPath = sFolder
                End Property
                Public Function Start
                Finished = False
                bVBCrlf = StrToByte(vbCrlf & vbCrlf)
                bSeparate = StrToByte("-----------------------------")
                itemCount = 0
                sErrors = ""
                Call ItemPosition
                End Function
                Private Function ItemPosition
                Dim iStart, iLength : iStart = 1
                Do Until InStrB(iStart, formData, bSeparate) = 0
                iStart = InStrB(iStart, formData, bSeparate) + LenB(bSeparate) + 14
                iLength = InStrB(iStart, formData, bSeparate) - iStart - 2
                If Abs(iStart + 2 - LenB(formData)) > 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), "|", " ") & "/n/n"
                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 & "<center>"
                sHtml = sHtml & "<div style=""width: 600px;height: 500px;font-size: 10pt;border: 1px solid highlight;overflow: auto;"" align=""left"">"
                sHtml = sHtml & "<center style=""font-size: 15pt;color: red;"">上传表单数据</center><br>"
                sHtml = sHtml & "标题：<br>" & oUpload.Form("P_title") & "<br><br><br>"
                sHtml = sHtml & "类型：<br>" & oUpload.Form("P_assort") & "<br><br><br>"
                sHtml = sHtml & "小图：<br>服务器端路径：<a href=""" & oUpload.Form("P_image_s") & """ target=""_blank"">" & oUpload.Form("P_image_s") & "</a><br><img src=""" & oUpload.Form("P_image_s") & """><br><br><br>"
                sHtml = sHtml & "中图：<br>服务器端路径：<a href=""" & oUpload.Form("P_image_m") & """ target=""_blank"">" & oUpload.Form("P_image_m") & "</a><br><img src=""" & oUpload.Form("P_image_m") & """><br><br><br>"
                sHtml = sHtml & "大图：<br>服务器端路径：<a href=""" & oUpload.Form("P_image_b") & """ target=""_blank"">" & oUpload.Form("P_image_b") & "</a><br><img src=""" & oUpload.Form("P_image_b") & """><br><br><br>"
                sHtml = sHtml & "介绍：<br>" & oUpload.Form("P_content") & "<br>"
                sHtml = sHtml & "</div>"
                sHtml = sHtml & "</center>"
                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 & "<script language=""javascript"">" & vbCrlf & _
                "window.alert('" & sText & "');" & vbCrlf & _
                "window.location.replace('" & sTarget & "');" & vbCrlf & _
                "</script>"
                Response.Write sScript
                Response.End
                End Function
                End If
                %>
                <html>
                <head>
                <title>多文件、表单混合上传类</title>
                <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
                <style type="text/css">
                body {
                margin: 0px;
                border: 0px;
                font-size: 10pt;
                }
                table {
                border-collapse: collapse;
                font-size: 10pt;
                }
                td {
                font-size: 10pt;
                }
                </style>
                <script language="javascript">
                function formCheck(_form) {
                for (var i = 0; i < _form.elements.length; i ++) {
                if (_form.elements[i].value == '') {
                window.alert('请将表单填写完整，提交失败！');
                return false;
                }
                }
                return true;
                }
                </script>
                </head>
                <body>
                <br><br>
                <form action="<%=Request.ServerVariables("SCRIPT_NAME")%>" method="post" enctype="multipart/form-data" οnsubmit="return formCheck(this);">
                <table width="400" align="center" cellpadding="2" cellspacing="0" border="1" rules="box">
                <tr height="26">
                <td colspan="2" align="center" style="font: 12pt;color: red;">上传功能测试<br><br></td>
                </tr>
                <tr valign="top">
                <td height="30" style="padding-top:3px;">标题：</td>
                <td><input type="text" name="P_title" size="20" autocomplete="off"></td>
                </tr>
                <tr valign="top">
                <td height="30" style="padding-top:3px;">类型：</td>
                <td>
                <select name="P_assort">
                <option value="电子">电子</option>
                <option value="医疗">医疗</option>
                </select>
                </td>
                </tr>
                <tr valign="top">
                <td height="30" style="padding-top:3px;">小图：</td>
                <td><input type="file" name="P_image_s" οnkeydοwn="return false;" οncοntextmenu="return false;" οnpaste="return false;" οndragenter="return false;"></td>
                </tr>
                <tr valign="top">
                <td height="30" style="padding-top:3px;">中图：</td>
                <td><input type="file" name="P_image_m" οnkeydοwn="return false;" οncοntextmenu="return false;" οnpaste="return false;" οndragenter="return false;"></td>
                </tr>
                <tr valign="top">
                <td height="30" style="padding-top:3px;">大图：</td>
                <td><input type="file" name="P_image_b" οnkeydοwn="return false;" οncοntextmenu="return false;" οnpaste="return false;" οndragenter="return false;"></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"></textarea>
                </td>
                </tr>
                <tr>
                <td colspan="2" valign="top" align="center">
                <br><input type="submit" value="提交">&nbsp;<input type="reset" value="重置">
                <br><br>
                </td>
                </tr>
                </table>
                </form>
                </body>
                </html>

8.TabPage类

HTML 代码：

zmm 于 2006-01-18 09:19:23 编缉了该帖子
zmm 于 2006-01-18 09:23:26 编缉了该帖子
zmm 于 2006-01-18 19:00:22 编缉了该帖子
zmm 于 2006-01-18 19:01:15 编缉了该帖子
zmm 于 2006-01-18 19:09:06 编缉了该帖子
zmm 于 2006-01-18 19:10:32 编缉了该帖子
zmm 于 2006-01-19 08:22:49 编缉了该帖子
zmm 于 2006-06-22 09:52:28 编缉了该帖子
zmm 于 2006-06-23 09:19:55 编缉了该帖子
zmm 于 2006-07-12 21:08:39 编缉了该帖子
zmm 于 2006-07-12 21:10:59 编缉了该帖子
zmm 于 2006-09-14 20:17:41 编缉了该帖子
zmm 于 2006-09-14 20:18:33 编缉了该帖子
zmm 于 2006-09-14 20:21:21 编缉了该帖子
zmm 于 2006-09-14 20:47:43 编缉了该帖子
zmm 于 2006-09-14 20:49:05 编缉了该帖子
zmm 于 2006-09-14 23:05:43 编缉了该帖子查看全部记录

做博客模板狂赚300IECN币

七杀-7Kill.com

aaron_zhou [普通用户] <script language="JavaScript" src="/scripts/user_honor.js" type="text/javascript"></script> <script language="JavaScript" type="text/javascript"> showUserHonor(47); </script> 经验值：47 注册日期：2006-01-01 发贴数量：41 IECN　币：41.07 在线时间：6 小时来自哪里：	2006-01-17 14:23:09 利害啊,强!!
	<script type="text/javascript"> sysAd.print(); userAd.print(); </script> IECN夏日T恤正在出售中七杀-7Kill.com

luoying_81 [普通用户] <script language="JavaScript" src="/scripts/user_honor.js" type="text/javascript"></script> <script language="JavaScript" type="text/javascript"> showUserHonor(82); </script> 经验值：82 注册日期：2005-12-06 发贴数量：66 IECN　币：66.46 在线时间：16 小时来自哪里：	2006-01-17 15:30:25 不错，收藏！ IT名工，IT蓝领！
	<script type="text/javascript"> sysAd.print(); userAd.print(); </script> 要IECN币做什么？买广告！七杀-7Kill.com

gszxt [超级版主] <script language="JavaScript" src="/scripts/user_honor.js" type="text/javascript"></script> <script language="JavaScript" type="text/javascript"> showUserHonor(1306); </script> 经验值：1306 注册日期：2004-10-01 发贴数量：874 IECN　币：1112.9 在线时间：432 小时来自哪里：海南海口	2006-01-17 17:45:18 顶一下，再苦再累也要坚强学会忍耐学会忧愁学会放弃学会方向失败重来成功再来 http://www.cityjd.cn http://blog.cityjd.cn QQ群：ASP/VBScript @IECN 群号： ------16669796 ------16669978 QQ群：.NET技术交流 @IECN 群号： 16818352
	<script type="text/javascript"> sysAd.print(); userAd.print(); </script> 做博客模板狂赚300IECN币七杀-7Kill.com

钟钟 [管理员] <script language="JavaScript" src="/scripts/user_honor.js" type="text/javascript"></script> <script language="JavaScript" type="text/javascript"> showUserHonor(9434); </script> 经验值：9434 注册日期：2003-02-06 发贴数量：8809 IECN　币：11568.1 在线时间：625 小时来自哪里：远古的欧洲大陆	2006-01-17 18:32:21 置顶几天吧，支持原创呵呵 . IECN.NET :: 专注Web技术体验开发乐趣 . 钟钟杂记 - 杂取生活点滴记录人生轨迹 . 钟钟的Web开发日记...边学边写边记录了 .
	<script type="text/javascript"> sysAd.print(); userAd.print(); </script> IECN夏日T恤正在出售中七杀-7Kill.com

海浪 [管理员] <script language="JavaScript" src="/scripts/user_honor.js" type="text/javascript"></script> <script language="JavaScript" type="text/javascript"> showUserHonor(4186); </script> 经验值：4186 注册日期：2003-03-21 发贴数量：3904 IECN　币：4884.33 在线时间：282 小时来自哪里：云和山的彼端	2006-01-17 22:13:35 不错此人很懒，什么都没有留下！
	<script type="text/javascript"> sysAd.print(); userAd.print(); </script> 要IECN币做什么？买广告！七杀-7Kill.com

zmm [超级版主] <script language="JavaScript" src="/scripts/user_honor.js" type="text/javascript"></script> <script language="JavaScript" type="text/javascript"> showUserHonor(312); </script> 经验值：312 注册日期：2004-03-21 发贴数量：293 IECN　币：295.96 在线时间：19 小时来自哪里：	多谢大家的支持^^ 2006-01-18 09:18:33 日历存在一个小错误，已经修正。
	<script type="text/javascript"> sysAd.print(); userAd.print(); </script> 做博客模板狂赚300IECN币七杀-7Kill.com

风中竹影 [普通用户] <script language="JavaScript" src="/scripts/user_honor.js" type="text/javascript"></script> <script language="JavaScript" type="text/javascript"> showUserHonor(13); </script> 经验值：13 注册日期：2005-10-24 发贴数量：12 IECN　币：12.01 在线时间：1 小时来自哪里：	好厉害呀! 2006-01-18 15:08:02 不错
	<script type="text/javascript"> sysAd.print(); userAd.print(); </script> IECN夏日T恤正在出售中七杀-7Kill.com

厦门乞丐 [普通用户] <script language="JavaScript" src="/scripts/user_honor.js" type="text/javascript"></script> <script language="JavaScript" type="text/javascript"> showUserHonor(3); </script> 经验值：3 注册日期：2006-01-18 发贴数量：2 IECN　币：2 在线时间：1 小时来自哪里：厦门	2006-01-18 16:08:32 偶像!
	<script type="text/javascript"> sysAd.print(); userAd.print(); </script> 要IECN币做什么？买广告！七杀-7Kill.com

zmm [超级版主] <script language="JavaScript" src="/scripts/user_honor.js" type="text/javascript"></script> <script language="JavaScript" type="text/javascript"> showUserHonor(312); </script> 经验值：312 注册日期：2004-03-21 发贴数量：293 IECN　币：295.96 在线时间：19 小时来自哪里：	2006-01-18 19:16:44 新增图片轮换效果，见顶贴。
	<script type="text/javascript"> sysAd.print(); userAd.print(); </script> 做博客模板狂赚300IECN币七杀-7Kill.com

mojo [普通用户] <script language="JavaScript" src="/scripts/user_honor.js" type="text/javascript"></script> <script language="JavaScript" type="text/javascript"> showUserHonor(1); </script> 经验值：1 注册日期：2006-01-22 发贴数量：1 IECN　币：1 在线时间：0 小时来自哪里：	2006-01-22 09:58:06 很厉害
	<script type="text/javascript"> sysAd.print(); userAd.print(); </script> IECN夏日T恤正在出售中七杀-7Kill.com

yoho [普通用户] <script language="JavaScript" src="/scripts/user_honor.js" type="text/javascript"></script> <script language="JavaScript" type="text/javascript"> showUserHonor(64); </script> 经验值：64 注册日期：2005-11-29 发贴数量：54 IECN　币：54.26 在线时间：10 小时来自哪里：	2006-02-06 14:36:05 不顶就太对不起LZ了学习……再学习……
	<script type="text/javascript"> sysAd.print(); userAd.print(); </script> 要IECN币做什么？买广告！七杀-7Kill.com

bluefuture [普通用户] <script language="JavaScript" src="/scripts/user_honor.js" type="text/javascript"></script> <script language="JavaScript" type="text/javascript"> showUserHonor(28); </script> 经验值：28 注册日期：2005-04-22 发贴数量：25 IECN　币：25.04 在线时间：4 小时来自哪里：安徽合肥	太好了啊 2006-03-29 15:46:43 即实用、又高级的东东，太谢谢了啊 ddddddddddddddddd 好东西应该大家共享，有困难找大家帮忙，欢迎来到开源的天堂
	<script type="text/javascript"> sysAd.print(); userAd.print(); </script> 做博客模板狂赚300IECN币七杀-7Kill.com

hzy2008 [普通用户] <script language="JavaScript" src="/scripts/user_honor.js" type="text/javascript"></script> <script language="JavaScript" type="text/javascript"> showUserHonor(4); </script> 经验值：4 注册日期：2006-03-30 发贴数量：4 IECN　币：4 在线时间：0 小时来自哪里：	好啊 2006-03-31 09:01:17 谢谢共享
	<script type="text/javascript"> sysAd.print(); userAd.print(); </script> IECN夏日T恤正在出售中七杀-7Kill.com

dreamer [普通用户]
<script language="JavaScript" src="/scripts/user_honor.js" type="text/javascript"></script> <script language="JavaScript" type="text/javascript"> showUserHonor(18); </script>

经验值：18

注册日期：2006-04-13
发贴数量：15
IECN　币：15.02
在线时间：3 小时
来自哪里：

支持 2006-04-13 17:54:26

特别是Q版的菜单!呵呵

我想要的正是你不想要的!