不懂戀愛魚兒

<%
 sub ListFolderContents(path)
    dim fs, folder, file, item, url
    set fs = CreateObject("Scripting.FileSystemObject")
    set folder = fs.GetFolder(path)
 '  Response.Write("<li><b>" & folder.Name & "</b>－总共发现" & folder.Files.Count & " 文件,<ul>" & vbCrLf)
    for each item in folder.SubFolders
        ListFolderContents(item.Path)
    next
   
    for each item in folder.Files
 
'如果需要链接文件
'<a href=""" & MapURL(item.path) & """ target='_blank'>" & item.Name & "</a>
'实际路径：" & item.path & "
        Response.Write("<li><b>../EyDataBase_Backup/" & item.Name & "</b></li>" & vbCrLf)
    next
   
    Response.Write("</ul>" & vbCrLf)
   
    Response.Write("</li>" & vbCrLf)

end sub

function MapURL(path)
    MapURL = Replace(Right(path, Len(path) - Len(Server.MapPath("/"))), "\", "/")
end function
 
  ListFolderContents("F:\WebCmsByLwp\EyDataBase_Backup\")
 
  %>

演示地址：http://www.souab.com/Demo/200911/ChinamobieMenu/

代码仅供学习及交流使用．花费一个小时才搞定．劳烦转载时请注明出处．谢谢

文件包含于附件中．下载即可使用

注：本人是在MYSQL 5.0下试的．其它版本未尝试过．使用前请先备份．造成损失本人概不负责

ALTER   TABLE Old_Structure RENAME TO New_Table_Structure

Old_Structure：这个为原来的表名

New_Table_Structure：这个为修改以为的命名

　　以后都不用四大商业银行业务了．ＮＮＤ．如果不是我很健康不被气死才怪．排队不说．理应先来后到．关键是一个营业网点．六七个窗口．从来没超过三个人同时办业务．都是一两个．其它的都不知道死哪去了．好不容易看到又来一个．以为会快一点了．原来是来换班的．其它两个都走了．换班再折腾十分钟．才发现已经在里边呆两小时了．肚子在叫了．好不容易到你了吧．．说什么没办理过变更动态短信密码接收手机号的业务．要先问下主管．又折腾半个小时．来个老太存钱又折腾十分钟．．．终于又轮到我了．才给你一张表．还要填表．又折腾几分钟．完了自己搞不定吧还黑着一张看我不爽．好像上辈子欠了你的钱没还你似的．哎．真不知道这种工作效率和服务态度如何对得起一个月四五千块钱的工资．真是郁闷．还是早点倒闭的好．．．

演示地址:http://www.souab.com/Demo/200906/email.asp

我这个人吧.天生比较懒.而且一般对于企业网站来讲.除了整天的垃圾邮件外也没啥别的.而每天都要登陆一次网站的后台看看有没有新客户给我们留言.有没有新的订单.有没有新的评论.哎呀.说实话.好麻烦.一天一次还好一点.关键就是得一天进N多次.得看看有没有新客户啦.什么时候留言的.为了让客户觉得我们是用心为他们服务.一天得进N多次后台.我后输后台用户名跟密码都麻了.突然想到.我QQ是天天在线的.而QQ的邮箱有个好处是一但收到新的邮件会自动提示.(MSN也一样).这下就好了.

阅读全文>>