【正文】 r if iActionFlag = 1 begin exec iReturn = sp_OAMethod iObjectId, 39。, vchDatabaseName OUT if chObjectType = 39。) declare vchProjectName varchar(255) declare vchSourceSafeINI varchar(255) declare vchServerName varchar(255) declare vchDatabaseName varchar(255) exec iPropertyObjectId, 39。, /* There is a bug that if items are NULL they do not pass to OLE servers */ txStream2 Text = 39。) update set objectid=identity where id=identity and property=39。 open cursorProcNames while 1 = 1 begin declare vchProcName varchar(255) fetch next from cursorProcNames into vchProcName if fetch_status 0 break select colid, text into ProcLines from sysments where id = object_id(vchProcName) order by colid declare iCurProcLine int declare iProcLines int select iCurProcLine = 1 select iProcLines = (select count(*) from ProcLines) while iCurProcLine = iProcLines begin declare pos int select pos = 1 declare iCurLineSize int select iCurLineSize = len((select text from ProcLines where colid = iCurProcLine)) while pos = iCurLineSize begin declare vchProcLinePiece varchar(255) select vchProcLinePiece = convert(varchar(255), substring((select text from ProcLines where colid = iCurProcLine), pos, 255 )) exec iReturn = sp_OAMethod iStreamObjectId, 39。 , vchSourceSafeINI , NULL exec iPropertyObjectId, 39。, iStreamObjectId OUT if iReturn 0 GOTO E_OAError /* Set Database Properties */ begin tran SetProperties /* add high level object */ exec iPropertyObjectId = 39。, vchPassword varchar(255) =39。參考文獻(xiàn)[1] 張建章．淺談JSP開發(fā)WEB數(shù)據(jù)庫應(yīng)用技術(shù), 計(jì)算機(jī)應(yīng)用系統(tǒng)[J]．1998,9．[2] 龔玉清．網(wǎng)頁設(shè)計(jì)的色彩運(yùn)用, 現(xiàn)代教育技術(shù)[J]．2003,5．[3] 段永紅、李春海．基于JSP的網(wǎng)站建設(shè), 電腦開發(fā)與應(yīng)用[J]．2000,8．[4] 裴樹軍、張仁偉．基于JSP的動(dòng)態(tài)WEB技術(shù)設(shè)計(jì), 哈爾濱理工大學(xué)學(xué)報(bào)[J]．1999,4．[5] 楊青．JSP的主要技術(shù)特點(diǎn)分析, 電腦與信息技術(shù)[J]．1999,4． [6] 曹淑琴．JSP技術(shù)的網(wǎng)站建設(shè), 華北科技學(xué)院學(xué)報(bào)[J]．2003,1．[7] 吳玉新．網(wǎng)站JSP后臺(tái)解決方案[M]．北京：人民郵電出版社，2003年 [8] 黃明、粱旭．JSP信息系統(tǒng)設(shè)計(jì)與開發(fā)實(shí)例[M]．北京：機(jī)械工業(yè)出版社，2003年 [9] 劉禾、蔡鋒．精通JSP架站技巧[M]．北京：中國青年出版社，2002年 [10] 張海藩．軟件工程[M]． 北京：人民郵電出版社．2002年 [11] Alberto Manuel Ricart．Active server pages 3 exploitation enchiridion[M]．北京：電子工業(yè)出版社,2003年 [12] Eric ．Active server pages[M]．北京：電子工業(yè)出版社，2003年 [13] Dave Mercer．JSP programme[M]．北京：人民郵電出版社，2003年 附錄數(shù)據(jù)庫源代碼SQL SERVER 類：系統(tǒng)管理員建表USE [db_cangchu]GO/****** Object: Table [dbo].[t_admin] Script Date: 05/06/2015 15:56:17 ******/SET ANSI_NULLS ONGOSET QUOTED_IDENTIFIER ONGOSET ANSI_PADDING ONGOCREATE TABLE [dbo].[t_admin]( [userId] [int] IDENTITY(1,1) NOT NULL, [userName] [varchar](50) NULL, [userPw] [varchar](50) NULL, CONSTRAINT [PK_t_admin] PRIMARY KEY CLUSTERED ( [userId] ASC)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]) ON [PRIMARY]GOSET ANSI_PADDING OFFGO報(bào)損建表USE [db_cangchu]GOSET ANSI_NULLS ONGOSET QUOTED_IDENTIFIER ONGOSET ANSI_PADDING ONGOCREATE TABLE [dbo].[t_baosun]( [id] [int] IDENTITY(1,1) NOT NULL, [goodsId] [int] NULL, [shuliang] [int] NULL, [shijian] [varchar](50) NULL, [del] [varchar](50) NULL, CONSTRAINT [PK_t_baosun] PRIMARY KEY CLUSTERED ( [id] ASC)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]) ON [PRIMARY]GOSET ANSI_PADDING OFFGO出庫建表USE [db_cangchu]GOSET ANSI_NULLS ONGOSET QUOTED_IDENTIFIER ONGOSET ANSI_PADDING ONGOCREATE TABLE [dbo].[t_chuku]( [id] [int] IDENTITY(1,1) NOT NULL, [goodsId] [int] NULL, [shijian] [varchar](50) NULL, [shuliang] [int] NULL, [zongjiage] [int] NULL, [jingshouren] [varchar](50) NULL, [beizhu] [varchar](50) NULL, [del] [varchar](50) NULL, CONSTRAINT [PK_t_chuku] PRIMARY KEY CLUSTERED ( [id] ASC)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]) ON [PRIMARY]GOSET ANSI_PADDING OFFGO員工工資建表USE [db_cangchu]GOSET ANSI_NULLS ONGOSET QUOTED_IDENTIFIER ONGOSET ANSI_PADDING ONGOCREATE TABLE [dbo].[t_gongzi]( [id] [int] IDENTITY(1,1) NOT NULL, [yuangong_id] [int] NULL, [yuefen] [varchar](50) NULL, [jibengongzi] [int] NULL, [jiabanfei] [int] NULL, [gonglingfei] [int] NULL, [kaoqinfei] [int] NULL, [baoxianfei] [int] NULL, [jiangjin] [int] NULL, [shifagongzi] [int] NULL, [del] [varchar](50) NULL, CONSTRAINT [PK_t_gongzi] PRIMARY KEY CLUSTERED ( [id] ASC)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]) ON [PRIMARY]GOSET ANSI_PADDING OFFGO貨物建表USE [db_cangchu]GOSET ANSI_NULLS ONGOSET QUOTED_IDENTIFIER ONGOSET ANSI_PADDING ONGOCREATE TABLE [dbo].[t_goods]( [id] [int] IDENTITY(1,1) NOT NULL, [name] [varchar](50) NULL, [chandi] [varchar](50) NULL, [danwei] [varchar](50) NULL, [guige] [varchar](50) NULL, [beizhu] [varchar](50) NULL, [del] [varchar](50) NULL, CONSTRAINT [PK_t_cailiao] PRIMARY KEY CLUSTERED ( [id] ASC)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]) ON [PRIMARY]GOSET ANSI_PADDING OFFGO客戶建表USE [db_cangchu]GOSET ANSI_NULLS ONGOSET QUOTED_IDENTIFIER ONGOSET ANSI_PADDING ONGOCRE