各种小代码片段2

SQL code

基本函数：
1.len()不取字符串最后的空格个数，但会取字符串中间的空格个数。
  datalength()取所有的，包括空格个数

2.reverse()将()里面的字符反过来

3.replicate(a,n)将a重复n次

4.space(n)返回n个空格

5.stuff(a,n1,n2,b)从n1起往a字符串中插入b字符串，n2是要覆盖的个数。如果为0，则只是插入，不覆盖a中的字符。否之。

6.raiserror('',16,1) 抛出消息

7.substring(a,i,j) 取a字符串中从i起，共j个长度的字符。
  charindex(a,m) 得到字符串a在字符串m中的起始位置

8.isnull()函数 isnull(a，b)
如果列a为空，则用值b来代替，但并不改变其在数据库中的值。

删除R1表中R2的数据
delete r1 where checksum(*) in (select checksum(*) from r2)

9.exists()函数
如果()中查询语句返回行数为0，则为false，否之则为true.

往a表中添加一列a01
alter table a add a01 int
修改列
alter table pp alter column a varchar(50)

更改字段名
exec sp_rename '表名.字段名','新字段名','column'

ALTER   TABLE   表名   DISABLE   TRIGGER   触发器名     --禁止触发器   
ALTER   TABLE   表名   ENABLE   TRIGGER   触发器名       --允许触发器   

EXEC sp_MSforeachtable 'ALTER TABLE ? DISABLE TRIGGER ALL'  --禁用数据库中所有表的所有触发器

EXEC sp_MSforeachtable 'ALTER TABLE ? ENABLE TRIGGER ALL' --启用数据库中所有表的所有触发器

--清除所有表主键
EXEC sp_MSforeachtable 'declare @PkName varchar(100)
select @PkName=name from sysobjects where xtype=''Pk'' and parent_obj=object_id(''?'');
exec(''alter table ? drop constraint ''+@PkName)'
go 

--修改所有表的字段为某字段：
EXEC sp_MSforeachtable 'exec sp_rename ''?.收款日期'',''发生日期'''  --将数据库中所有表的收款日期改为发生日期



修改text类型字段的值：
create table os(SoftIntro text,ID int) 
insert into os 
select  'aaa',1004 
union all 
select  'bbb',1003 
union all 
select  'ccc',1002 


declare @ptr binary(16) 
select @ptr=textptr(SoftIntro) from os where id=1002 
updatetext os.SoftIntro @ptr null 0  'dddd'
select * from os 

替换text类型字段的值
create table t(Cbody ntext)
insert into t select '324234234深圳罗湖324324'
insert into t select '深圳罗湖324324'

declare @ptrval binary(16),@star int
declare cur cursor for select textptr(Cbody),charindex('深圳罗湖',cbody)-1 from t where cbody like '%深圳罗湖%'
open cur
fetch next from cur into @ptrval,@star
while(@@fetch_status=0)
begin
    declare @sql nvarchar(1000)
    set  @sql='UPDATETEXT t.cbody @ptrval ' +ltrim(@star)+' '+ ltrim(len('深圳罗湖'))+' N''深圳福田'''
    exec sp_executesql @sql,N'@ptrval binary(16)',@ptrval
    fetch next from cur into @ptrval,@star
end
close cur
deallocate cur


--创建表
create table 表(a1 varchar(10),a2 char(2))

--为表添加描述信息
EXECUTE sp_addextendedproperty N'MS_Description', '人员信息表', N'user', N'dbo', N'table', N'表', NULL, NULL

--为字段a1添加描述信息
EXECUTE sp_addextendedproperty N'MS_Description', '姓名', N'user', N'dbo', N'table', N'表', N'column', N'a1'

--更新表中列a1的描述属性：
EXEC sp_updateextendedproperty 'MS_Description','字段1','user',dbo,'table','表','column',a1

--删除表中列a1的描述属性：
EXEC sp_dropextendedproperty 'MS_Description','user',dbo,'table','表','column',a1

--删除测试
drop table 表


取5以下随机的数字
select convert(varchar,ceiling(rand()*5))

将数字转换成百分比：
select rtrim(cast(2 * 100/10 as decimal(5,2))) + '%'
cast(2 * 100/10 as decimal(5,2)) 这个是将2*100/10转换成5位且小数位为2位的浮点小数，

11.乘积：
declare @s table(id float)
insert into @s select 2
insert into @s select 3
insert into @s select 2.5

select exp(sum(log(id))) from @s


12.like的用法
查出记录中的字符串包含1，2，3，4的记录
Create Table TEST
(share    varchar(100))

Insert TEST Select '1,2,24'
Union All Select '2,23,56'
Union All Select '6,10,11'
Union All Select '3,4,15'
Union All Select '6,29,31'
GO

Select * From TEST Where  ',' + share + ',' Like '%,[1-4],%'

13，按条件分类排序
select brand from bra
order by case when brand ='飞利浦' then '' else brand end
//将brand为飞利浦的排在最上面

14.给返回的记录加上一个行数
(1)当没有自增的id列时：
select bh = identity(int,1,1) ,proname,price into temp from product
select '第' + cast(bh as varchar) + '个' , proname,price from temp

(2)当有自增的id列时
select bh,name,price from
(
  SELECT bh=(SELECT COUNT(1) FROM product WHERE id > a.id)+ 1,*  FROM product a 
) t
order by bh 



---SQL2005启用 openrowset/opendataset
exec sp_configure 'show advanced options',1
reconfigure
exec sp_configure 'Ad Hoc Distributed Queries',1
reconfigure

-- 启用xp_cmdshell
-- 允许配置高级选项
EXEC sp_configure 'show advanced options', 1
GO
-- 重新配置
RECONFIGURE
GO
-- 启用xp_cmdshell
EXEC sp_configure 'xp_cmdshell', 1
GO
--重新配置
RECONFIGURE
GO

--启动远程服务器的MSDTC服务   
exec   master..xp_cmdshell   'isql   /S"10.128.34.22"   /U"sa"   /P"123456"   /q"exec   master..xp_cmdshell   ''net   start  msdtc'',no_output"',no_output   
    
--启动本机的MSDTC服务   
exec   master..xp_cmdshell   'net   start   msdtc',no_output  


---远程链接：
1、创建远程链接服务器，然后进行查询
exec sp_addlinkedserver 'HJZX_SYN','','SQLOLEDB','10.128.34.22' 
exec sp_addlinkedsrvlogin 'HJZX_SYN','false',null,'sa','123456' 
go 
select * from HJZX_SYN.数据库名.dbo.表名
---删除连接
exec   sp_dropserver   'MyLink','droplogins' 
---查询
select * from sysservers 

2、
select  * from openrowset('msdasql','driver={sql server};server=10.124.20.10;uid=ncc2008;pwd=ncc2008',hjzx4.dbo.t_p_order) AS a

3、
select  * from opendatasource('sqloledb','Data Source=10.124.20.10;User ID=ncc2008;Password=ncc2008').hjzx4.dbo.t_p_order 



如：alter       database       数据库名       COLLATE       Chinese_PRC_CI_AS     不区分大小写， 
而     alter       database       数据库名       COLLATE       Chinese_PRC_CS_AS     使之区分大小写。


导入excel数据：
select * into # from OPENROWSET('microsoft.jet.oledb.4.0','Excel 5.0;hdr=yes;database=d:/1月安排.xls',准考证信息$)

insert   into   表名   
      select   *   from   OpenDataSource(   'Microsoft.Jet.OLEDB.4.0','Data   Source=f:/Test.xls;User   ID=Admin;Password=;Extended   properties=Excel   8.0')...[Sheet1$] 
office2007
SELECT  * FROM  OPENDATASOURCE('Microsoft.ACE.OLEDB.12.0','Data Source="f:/aa.xls";User ID=admin;Password=;Extended properties=Excel 5.0')...[sheet1$]



----bcp:
-t列分割符，默认是以制表符(/t)分割
-r行分割符，默认是以换行符(/n)分割

导入：in
EXEC master..xp_cmdshell 'bcp pruduct in d:/wsp.txt -c -t. -r/n'

导出：
--导出全表数据out
EXEC master..xp_cmdshell 'bcp pruduct out d:/wsp.txt -c -Usa -Psa'
--导出查询结果queryout
EXEC master..xp_cmdshell 'bcp "select * from pruduct where part_id like ''80%''" queryout d:/wsp.txt -c -t,  -Usa -Psa'


--导入文本文档：
BULK INSERT os
FROM 'c:/d.txt'
WITH (
    FIELDTERMINATOR = ',',  --列以逗号隔开
    ROWTERMINATOR = '/n'    --行以换行符隔开
)

---osql,执行sql命令
exec master..xp_cmdshell 'osql -U sa -P sa -i d:/tt.txt'


--用SQL语句备份、还原数据库
BACKUP DATABASE test      --这里的test指的是数据库名称
   TO disk = 'c:/backup.bak'    --这里指名的数据库路径(backup.bak为备份文件名)
   WITH FORMAT,
   NAME = 'Full Backup of MyNwind'    --这个是备注，无所谓。。随便写。


RESTORE DATABASE jz1    --所被恢复的数据库名称
   FROM disk = 'c:/backup.bak     --本地硬盘路径(backup.bak为备份文件名)
GO

--SQL语句分离、附加：
--分离
sp_detach_db 'zetian'   

--附加
EXEC sp_attach_db @dbname = N'zetian', 
   @filename1 = N'C:/Inetpub/wwwroot/zetian/数据库/zetian.mdf', 
   @filename2 = N'C:/Inetpub/wwwroot/zetian/数据库/zetian_log.ldf'


--分解字咐
declare @a table(A varchar(20),  B varchar(20),   C varchar(20),    D  varchar(20))
insert @a select 'a1'  ,'b1',  'c1',   'd1/da'
union all select 'a2'  ,'b2'  ,'c2'   ,'d22/da/da22' 
union all select 'a3'  ,'b3'  ,'c3'   ,'d3' 

declare @t table( id int identity(1,1),e int)
insert @t select top 500 1 from syscolumns

select a,b,c,substring(d+'/',id,charindex('/',d+'/',id+1)-id) X
from @a a,@t b
where substring('/'+d,id,1)='/'

--设置约束
CREATE   TABLE   jobs ( min_lvl   int   NOT   NULL  CHECK   (min_lvl   > =   10)     ) 


判断该文件是否存在：
DECLARE @err INT,@fso INT,@fleExists BIT,@file VARCHAR(100)
SET @file='d:/aaa.txt'
EXEC @err=sp_OACreate 'Scripting.FileSystemObject',@fso OUTPUT
EXEC @err=sp_OAMethod @fso, 'FileExists',@fleExists OUTPUT,@file
EXEC @err = sp_OADestroy @fso

IF @fleExists=0
    PRINT '"' + @file + '" not exists'
ELSE
    exec('exec xp_cmdshell ''del '+@file+'''') --存在则删除


设置级联：
alter table 表名
    constraint   FK_employee foreign  key   (外键字段)   references  主表(主键字段)ON  UPDATE  CASCADE   

设置默认值：
alter table 表名
    constraint  FK_employee default 默认值 for  字段 

--数据库加密解密
----加密存储过程：
Create PROCEDURE po 
WITH ENCRYPTION
AS
Select * FROM ta
GO

--查看加密信息
exec sp_helptext po

---创建解密存储过程
create PROCEDURE sp_decrypt(@objectname varchar(50))
AS
begin
set nocount on
--优快云：j9988 copyright:2004.07.15 
--V3.2 
--破解字节不受限制，适用于SQLSERVER2000存储过程，函数，视图，触发器
--修正上一版"视图触发器"不能正确解密错误
--发现有错，请E_MAIL：优快云j9988@tom.com
begin tran
declare @objectname1 varchar(100),@orgvarbin varbinary(8000)
declare @sql1 nvarchar(4000),@sql2 varchar(8000),@sql3 nvarchar(4000),@sql4 nvarchar(4000)
DECLARE @OrigSpText1 nvarchar(4000), @OrigSpText2 nvarchar(4000) , @OrigSpText3 nvarchar(4000), @resultsp nvarchar(4000)
declare @i int,@status int,@type varchar(10),@parentid int
declare @colid int,@n int,@q int,@j int,@k int,@encrypted int,@number int
select @type=xtype,@parentid=parent_obj from sysobjects where id=object_id(@objectname)

create table #temp(number int,colid int,ctext varbinary(8000),encrypted int,status int)
insert #temp Select number,colid,ctext,encrypted,status FROM syscomments Where id = object_id(@objectname)
select @number=max(number) from #temp
set @k=0

while @k<=@number 
begin
if exists(select 1 from syscomments where id=object_id(@objectname) and number=@k)
begin
if @type='P'
set @sql1=(case when @number>1 then 'Alter PROCEDURE '+ @objectname +';'+rtrim(@k)+' WITH ENCRYPTION AS '
else 'Alter PROCEDURE '+ @objectname+' WITH ENCRYPTION AS '
end)

if @type='TR'
begin
declare @parent_obj varchar(255),@tr_parent_xtype varchar(10)
select @parent_obj=parent_obj from sysobjects where id=object_id(@objectname)
select @tr_parent_xtype=xtype from sysobjects where id=@parent_obj
if @tr_parent_xtype='V'
begin
set @sql1='Alter TRIGGER '+@objectname+' ON '+OBJECT_NAME(@parentid)+' WITH ENCRYPTION INSTERD OF Insert AS PRINT 1 '
end
else
begin
set @sql1='Alter TRIGGER '+@objectname+' ON '+OBJECT_NAME(@parentid)+' WITH ENCRYPTION FOR Insert AS PRINT 1 '
end

end
if @type='FN' or @type='TF' or @type='IF'
set @sql1=(case @type when 'TF' then 
'Alter FUNCTION '+ @objectname+'(@a char(1)) returns @b table(a varchar(10)) with encryption as begin insert @b select @a return end '
when 'FN' then
'Alter FUNCTION '+ @objectname+'(@a char(1)) returns char(1) with encryption as begin return @a end'
when 'IF' then
'Alter FUNCTION '+ @objectname+'(@a char(1)) returns table with encryption as return select @a as a'
end)

if @type='V'
set @sql1='Alter VIEW '+@objectname+' WITH ENCRYPTION AS Select 1 as f'

set @q=len(@sql1)
set @sql1=@sql1+REPLICATE('-',4000-@q)
select @sql2=REPLICATE('-',8000)
set @sql3='exec(@sql1'
select @colid=max(colid) from #temp where number=@k 
set @n=1
while @n<=CEILING(1.0*(@colid-1)/2) and len(@sql3)<=3996
begin 
set @sql3=@sql3+'+@'
set @n=@n+1
end
set @sql3=@sql3+')'
exec sp_executesql @sql3,N'@sql1 nvarchar(4000),@ varchar(8000)',@sql1=@sql1,@=@sql2

end
set @k=@k+1
end

set @k=0
while @k<=@number 
begin

if exists(select 1 from syscomments where id=object_id(@objectname) and number=@k)
begin
select @colid=max(colid) from #temp where number=@k 
set @n=1

while @n<=@colid
begin
select @OrigSpText1=ctext,@encrypted=encrypted,@status=status FROM #temp Where colid=@n and number=@k

SET @OrigSpText3=(Select ctext FROM syscomments Where id=object_id(@objectname) and colid=@n and number=@k)
if @n=1
begin
if @type='P'
SET @OrigSpText2=(case when @number>1 then 'Create PROCEDURE '+ @objectname +';'+rtrim(@k)+' WITH ENCRYPTION AS '
else 'Create PROCEDURE '+ @objectname +' WITH ENCRYPTION AS '
end)


if @type='FN' or @type='TF' or @type='IF'
SET @OrigSpText2=(case @type when 'TF' then 
'Create FUNCTION '+ @objectname+'(@a char(1)) returns @b table(a varchar(10)) with encryption as begin insert @b select @a return end '
when 'FN' then
'Create FUNCTION '+ @objectname+'(@a char(1)) returns char(1) with encryption as begin return @a end'
when 'IF' then
'Create FUNCTION '+ @objectname+'(@a char(1)) returns table with encryption as return select @a as a'
end)

if @type='TR' 
begin

if @tr_parent_xtype='V'
begin
set @OrigSpText2='Create TRIGGER '+@objectname+' ON '+OBJECT_NAME(@parentid)+' WITH ENCRYPTION INSTEAD OF Insert AS PRINT 1 '
end
else
begin
set @OrigSpText2='Create TRIGGER '+@objectname+' ON '+OBJECT_NAME(@parentid)+' WITH ENCRYPTION FOR Insert AS PRINT 1 '
end

end

if @type='V'
set @OrigSpText2='Create VIEW '+@objectname+' WITH ENCRYPTION AS Select 1 as f'

set @q=4000-len(@OrigSpText2)
set @OrigSpText2=@OrigSpText2+REPLICATE('-',@q)
end
else
begin
SET @OrigSpText2=REPLICATE('-', 4000)
end
SET @i=1

SET @resultsp = replicate(N'A', (datalength(@OrigSpText1) / 2))

WHILE @i<=datalength(@OrigSpText1)/2
BEGIN

SET @resultsp = stuff(@resultsp, @i, 1, NCHAR(UNICODE(substring(@OrigSpText1, @i, 1)) ^
(UNICODE(substring(@OrigSpText2, @i, 1)) ^
UNICODE(substring(@OrigSpText3, @i, 1)))))
SET @i=@i+1
END
set @orgvarbin=cast(@OrigSpText1 as varbinary(8000))
set @resultsp=(case when @encrypted=1 
then @resultsp 
else convert(nvarchar(4000),case when @status&2=2 then uncompress(@orgvarbin) else @orgvarbin end)
end)
print @resultsp

set @n=@n+1

end

end
set @k=@k+1
end

drop table #temp
rollback tran
end


--调用解密存储过程将加密的存储过程进行解密
exec sp_decrypt po

--SQL处理库存与销售，先进先出原则
--库存表
create table t(
id int identity(1,1),
name varchar(50),--商品名称
j int,        --入库数量
c int,        --出库数量
jdate datetime --入库时间
)
insert into t(name,j,c,jdate) select  'A',100,0,'2007-12-01'
insert into t(name,j,c,jdate) select  'A',200,0,'2008-01-07'
insert into t(name,j,c,jdate) select  'B',320,0,'2007-12-21'
insert into t(name,j,c,jdate) select  'A',100,0,'2008-01-15'
insert into t(name,j,c,jdate) select  'B',90,0,'2008-02-03'
insert into t(name,j,c,jdate) select  'A',460,0,'2008-02-01'
insert into t(name,j,c,jdate) select  'A',510,0,'2008-03-01'
go



create   proc wsp
@name varchar(50),
@cost int--,--销售量
--@returns int output --该货物的库存是否够（不够：-1；够：1）
as
--先得出该货物的库存是否够
declare @spare float --剩余库存
select @spare=sum(j)-sum(c) from t where name=@name 
if(@spare>=@cost)
begin
    --根据入库日期采用先进先出原则对货物的库存进行处理
    update t set c=
    case when (select @cost-isnull(sum(j),0)+isnull(sum(c),0) from t where name=@name and jdate<=a.jdate and j!=c)>=0
    then a.j 
    else 
        case when (select @cost-isnull(sum(j),0)+isnull(sum(c),0) from t where name=@name and jdate<a.jdate and j!=c)<0 then 0 
        else (select @cost-isnull(sum(j),0)+isnull(sum(c),0)+a.c from t where name=@name and jdate<a.jdate and j!=c) 
        end 
    end
    from t a where name=@name and j!=c 
end
else
    raiserror('库存不足',16,1)    
    return 
go


--测试：

exec wsp @name='A',@cost=390
select * from t

--删除测试环境
drop table t
drop proc wsp

1、说明：复制表(只复制结构,源表名：a 新表名：b) (Access可用) 
法一：select * into b from a where 1 <>1 
法二：select top 0 * into b from a 

2、说明：拷贝表(拷贝数据,源表名：a 目标表名：b) (Access可用) 
insert into b(a, b, c) select d,e,f from b; 

3、说明：跨数据库之间表的拷贝(具体数据使用绝对路径) (Access可用) 
insert into b(a, b, c) select d,e,f from b in ‘具体数据库’  where 条件 
例子：..from b in '"&Server.MapPath(".")&"/data.mdb" &"' where.. 

4、说明：子查询(表名1：a 表名2：b) 
select a,b,c from a where a IN (select d from b )  或者:  select a,b,c from a where a IN (1,2,3) 

5、说明：显示文章、提交人和最后回复时间 
select a.title,a.username,b.adddate from table a,(select max(adddate) adddate from table where table.title=a.title) b 

6、说明：外连接查询(表名1：a 表名2：b) 
select a.a, a.b, a.c, b.c, b.d, b.f from a LEFT OUT JOIN b ON a.a = b.c 

7、说明：在线视图查询(表名1：a ) 
select * from (SELECT a,b,c FROM a) T where t.a > 1; 

8、说明：between的用法,between限制查询数据范围时包括了边界值,not between不包括 
select * from table1 where time between time1 and time2 
select a,b,c, from table1 where a not between 数值1 and 数值2 

9、说明：in 的使用方法 
select * from table1 where a [not] in (‘值1’,’值2’,’值4’,’值6’) 

10、说明：两张关联表，删除主表中已经在副表中没有的信息 
delete from table1 where not exists ( select * from table2 where table1.field1=table2.field1 ) 

11、说明：四表联查问题： 
select * from a left inner join b on a.a=b.b right inner join c on a.a=c.c inner join d on a.a=d.d where ..... 

12、说明：日程安排提前五分钟提醒 
SQL: select * from 日程安排 where datediff('minute',f开始时间,getdate())>5 

13、说明：一条sql 语句搞定数据库分页 
select top 10 b.* from (select top 20 主键字段,排序字段 from 表名 order by 排序字段 desc) a,表名 b where b.主键字段 = a.主键字段 order by a.排序字段 

14、说明：前10条记录 
select top 10 * form table1 where 范围 

15、说明：选择在每一组b值相同的数据中对应的a最大的记录的所有信息(类似这样的用法可以用于论坛每月排行榜,每月热销产品分析,按科目成绩排名,等等.) 
select a,b,c from tablename ta where a=(select max(a) from tablename tb where tb.b=ta.b) 

16、说明：包括所有在 TableA 中但不在 TableB和TableC 中的行并消除所有重复行而派生出一个结果表 
(select a from tableA ) except (select a from tableB) except (select a from tableC) 

17、说明：随机取出10条数据 
select top 10 * from tablename order by newid() 

18、说明：随机选择记录 
select newid() 

19、说明：删除重复记录 
Delete from tablename where id not in (select max(id) from tablename group by col1,col2,...) 

20、说明：列出数据库里所有的表名 
select name from sysobjects where type='U' 

21、说明：列出表里的所有的 
select name from syscolumns where id=object_id('TableName') 

22、说明：列示type、vender、pcs字段，以type字段排列，case可以方便地实现多重选择，类似select 中的case。 
select type,sum(case vender when 'A' then pcs else 0 end),sum(case vender when 'C' then pcs else 0 end),sum(case vender when 'B' then pcs else 0 end) FROM tablename group by type 
显示结果： 
type  vender  pcs 
电脑  A        1 
电脑  A        1 
光盘  B        2 
光盘  A        2 
手机  B        3 
手机  C        3 

23、说明：初始化表table1 
TRUNCATE TABLE table1 

24、说明：选择从10到15的记录 
select top 5 * from (select top 15 * from table order by id asc) table_别名 order by id desc
向数据库中上传图片 

protected void Button2_Click(object sender, EventArgs e) 
    { 
        string lastName = FileUpload1.FileName.Substring(FileUpload1.FileName.LastIndexOf(".") + 1); 

        if (lastName.ToLower() == "jpg" || lastName.ToLower() == "bmp" || lastName.ToLower() == "gif") 
        { 
            int len = FileUpload1.PostedFile.ContentLength; 
            Byte[] pictureData = new byte[len];  //将图片转换成二进制 
            HttpPostedFile htp = FileUpload1.PostedFile; 
            Stream srm = htp.InputStream; 
            srm.Read(pictureData, 0, len); 
            SqlConnection conn = new SqlConnection("Data Source=tiger;Initial Catalog=liuyan;Integrated Security=True"); 
            conn.Open(); 
            string sqlsel = "select * from tb_pic"; 
            SqlDataAdapter ada = new SqlDataAdapter(sqlsel, conn); 
            DataSet ds = new DataSet(); 
            ada.Fill(ds); 
            DataList1.DataSource = ds; 
            DataList1.DataBind(); 
            SqlCommand comd = new SqlCommand("insert into tb_pic (username,name,pic) values ('" + TextBox4.Text + "','" + FileUpload1.FileName + "',@pictureData)", conn); 
            comd.Parameters.Add("@pictureData", SqlDbType.Image); 
            comd.Parameters["@pictureData"].Value = pictureData; 
            comd.ExecuteNonQuery(); 
            DataList1.DataBind(); 
            conn.Close(); 

            Response.Write(" <script>alert('添加成功！')location='tupian.aspx' </script>"); 
      } 
    }