预览模式: 普通 | 列表

                             SQLServer2005如何批量修改架构名

SQLServer2005单个修改架构名

  格式:Alter SCHEMA 新构架名 TRANSFER 旧构架名.A000001

  列子:Alter SCHEMA dbo TRANSFER CH330300.A000001

SQLServer2005批量修改构架名

使用游标

第一步:执行下面语句

use Temp

go

declare @name sysname

 declare csr cursor

   for select TABLE_NAME from INFORMATION_SCHEMA.TABLES

open csr

  FETCH NEXT FROM csr INTO @name

while (@@FETCH_STATUS=0)

BEGIN

SET @name='原构架名.' + @name

print 'Alter SCHEMA 新构架名 TRANSFER ' + @name

fetch next from csr into @name

END

CLOSE csr

DEALLOCATE csr

第二步:把第一步执行的结果,拷贝到查询窗口进行执行。

图解

第一步:如下图

第二步:如下图

到此结束!!!

分类:ASP | 固定链接 | 评论: 133 | 引用: 0 | 查看次数: 3676

 本文作者Niko Bonatsos是风投公司General Catalyst Partners 的Principal。

Cowboy Ventures 创始人 Aileen Lee 曾谈过在独角兽俱乐部里的十亿美元级初创企业有哪些特点,Blogger、Twitter、Medium 的联合创始人 Evan Williams 也曾透露他的互联网成功之道:找到一种人类欲望,最好是亘古不变的那种,看透它,再用现代科技做出产品。

以上述两人思想为基础,我为十亿美元级互联网产品的共性确立了一个简单的理论框架,与君共勉。

1、帮用户赚钱或省钱

最好的例子莫过于 eBay、亚马逊与 Airbnb,它们能让供应端用户把商品卖给需求端用户并以此为生,同时,由于没有中间人参与交易,需求端用户又能从中省下不少钱,享受着互联网带来的经济效益。

2、让用户自得其乐

苹果不仅深谙此道,而且还培养了一大批死忠粉。凭借魔力滤镜,Instagram 让每个人都感到自己成为了摄影大师。而 Uber 则让顾客在每一次打车出行时都感觉是在享受奢侈。

3、帮用户节约时间

试想在没有 Google 的过去,做任何一种研究都会有多么困难。又或者再想想,浏览至少十个航空公司网站,却只为了订一张飞机票的场景你又能否忍受?多亏了 Kayak 引领的元搜索革命,我们省下了不少时间。也多亏了 Netflix,我们也不必外出租碟了。

4、易于使用

我猜没什么人要在使用 Skype、Google Maps 与 Gmail 前接受任何形式的正式培训吧。这些只凭直觉就能使用的产品也从侧面推动了消费电子硬件的销售——正是因为它们的易用性,人们很容易就从原来现实世界中的“传统办法”转移了过来。

5、让用户看起来更明智

在亚马逊与 Groupon 上购买商品与服务的人们总觉得自己捡了大便宜,还会在朋友面前炫耀一番。用 Evernote 的人也总希望自己在小伙伴们眼中是极有条理的。Yelp 则能让你装成一个美食行家,好吃的地儿全在你的掌握里。

6、容易向人解释你的产品是做什么的

Craiglist 是在线分类广告,Yelp 是面向餐饮业的点评网站,Tripadvisor 在做酒店机票点评,Wikipedia 是在线百科全书,诸如此类。每次我的 91 岁奶奶要我告诉她这些产品是干什么的时候,她很容易就能理解。

7、增加用户相识异性的机会

网上约会无疑是互联网的一大组成部分。IAC公司已经构建了一个包括 Match.com、OkCupid、Tinder 在内的在线婚恋帝国,除此之外,一些互联网主流产品也能帮助用户遇见心仪的异性并与之交流。早期的 Facebook 就是获取校园聚会信息的最佳途径,它也能让用户容易地找到自己感兴趣的异性并开始一段对话。你要是去接女伴约会,Uber 的服务也能让你倍儿有面子。

8、满足用户的虚荣心

某些 Facebook 用户总是会上传照片来炫耀自己,像什么在异国他乡的自拍呀,穿得绚丽迷人的情人呀,刚刚淘来的宝贝呀。作为自拍革命的领导者,Snapchat 把虚荣心带上了一个新高度,让图片交流真正跻身主流。而贴纸、虚拟形象与等级则让 Line、微信、KakaoTalk 等 IM 的用户看起来更酷。

9、解决主流受众遇到的真实存在的问题(或迎合人类的欲望)

从原始社会开始,人类就有收藏癖,而 Pinterest 则让采集过程变得无比简单。人人都想省钱,于是有人会 Google “促销码 + 品牌名”找实惠,有人直接前往 RetailMeNot 与 Coupons.com 得到折扣。找房的需求再主流不过了,Zillow 就为用户提供房地产估价服务。

10、多功能,让用户各取所需

比如,Twitter,人们用它来看新闻、交流、表达自我、推广营销等,因人而异,再比如,YouTube 被用来自娱自乐、学习、存储自己的视频等。

11、增值服务:能促进(而不是阻碍)用户增长

Google 的搜索服务是免费的,但要让你的网站在 Google 有一席之地就得付钱了,这也正是 Google 的生财之道。在 LinkedIn 上写简历、与联系人互动是免费的,但是猎头要想深入了解别人,就又得掏银子,同时这又让 LinkedIn 更加值钱,因为他们带来了工作岗位。增值服务不一定非要收费,比如用户在 Dropbox 提供的 5G 免费空间基础上,通过发送邀请就能扩容。

分类:随手摘录 | 固定链接 | 评论: 1 | 引用: 0 | 查看次数: 1914

asp 二维数组排序/一维数组排序

Function Sort(ary)
   Dim KeepChecking,I,FirstValue,SecondValue
   IF Not IsArray(ary) Then Exit Function
   KeepChecking = True
   Do Until KeepChecking = False
     KeepChecking = False
     For I = 0 To UBound(ary)
       IF I = UBound(ary) Then Exit For
       IF ary(I) > ary(I + 1) Then
         FirstValue = ary(I)
         SecondValue = ary(I+1)
         ary(I) = SecondValue
         ary(I+1) = FirstValue
         KeepChecking = True
       End IF
     Next
   Loop
   Sort = ary
End Function
 
二维:
 
<%
 
Function Sort(arr,u)
   Dim UNum1,UNum2
   Dim UTrue,A1,A2
   IF Not IsArray(arr) Then Exit Function
   IF Not IsNumeric(u) Then u = 0
   UNum1 = UBound(arr)
   UNum2 = UBound(arr,2)
   ReDim Arr1(UNum1),Arr2(UNum1),Arr3(UNum1,UNum2)
   For i = 0 To UNum1
     Arr1(i) = arr(i,u)
     Arr2(i) = i
   Next
   UTrue = True
   Do Until Not UTrue
     UTrue = False
     For i = 0 To UNum1
       IF i = UNum1 Then Exit For
       IF Arr1(i) > Arr1(i+1) Then
         A1 = Arr1(i):Arr1(i) = Arr1(i+1):Arr1(i+1) = A1
         A2 = Arr2(i):Arr2(i) = Arr2(i+1):Arr2(i+1) = A2
         UTrue = True
       End IF
     Next
   Loop
   For i = 0 To UNum2
     For n = 0 To UNum1
       Arr3(n,i) = arr(Arr2(n),i)
     Next
   Next
   Sort = Arr3
End Function
 
'应用实例
dim Myarray(15,9)
Randomize
response.write "<table cellSpacing=0 cellPadding=4 border=1>"
for i = 0 to UBound(Myarray,2)
   response.write "<tr>"
   for n = 0 to UBound(Myarray)
     Myarray(n,i) = fix(n*Rnd * 100 + 50 * Rnd * 2)
     response.write "<td width=35>" & Myarray(n,i) & "</td>"
   next
   response.write "</tr>" & vbnewline
next
response.write "</table><br>"
 
v = Sort(Myarray,0)
response.write "<table cellSpacing=0 cellPadding=4 border=1>"
for i = 0 to UBound(v,2)
   response.write "<tr>"
   for n = 0 to UBound(v)
     response.write "<td width=35>" & v(n,i) & "</td>"
   next
   response.write "</tr>" & vbnewline
next
response.write "</table>"
 
%>
 
<%
Function SortRev(ary) '一维的反向排序,移山补充。
   Dim KeepChecking,I,FirstValue,SecondValue
   IF Not IsArray(ary) Then Exit Function
   KeepChecking = True
   Do Until KeepChecking = False
     KeepChecking = False
     For I = 0 To UBound(ary)
       IF I = UBound(ary) Then Exit For
       IF ary(I) < ary(I + 1) Then
         FirstValue = ary(I)
         SecondValue = ary(I+1)
         ary(I) = SecondValue
         ary(I+1) = FirstValue
         KeepChecking = True
       End IF
     Next
   Loop
   SortRev = ary
End Function
dim myarr(4)
myarr(0) = 68
myarr(1) = 98
myarr(2) = 68
myarr(3) = 68
myarr(4) = 45
newarr = SortRev(myarr)
for i = 0 to ubound(newarr)
w newarr(i)
%>
分类:ASP | 固定链接 | 评论: 880 | 引用: 0 | 查看次数: 15500