分享
 
 
 

用程序(asp,asp.net等任何可以访问数据库的语言)来自动建立FTP帐号(serv-u的odbc设置)

王朝asp·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

详情请参考:http://asp2004.net/dvbbs/dispbbs.asp?boardid=6&id=287

数据库脚本:

/****** Object: Database host Script Date: 2004-12-24 13:16:31 ******/

IF EXISTS (SELECT name FROM master.dbo.sysdatabases WHERE name = N'host')

DROP DATABASE [host]

GO

CREATE DATABASE [host] ON (NAME = N'Host_Data', FILENAME = N'D:\wwwroot\host\database\host.mdf' , SIZE = 2, FILEGROWTH = 10%) LOG ON (NAME = N'Host_Log', FILENAME = N'D:\wwwroot\host\database\host_log.ldf' , SIZE = 9, FILEGROWTH = 10%)

COLLATE Chinese_PRC_CI_AS

GO

exec sp_dboption N'host', N'autoclose', N'false'

GO

exec sp_dboption N'host', N'bulkcopy', N'false'

GO

exec sp_dboption N'host', N'trunc. log', N'false'

GO

exec sp_dboption N'host', N'torn page detection', N'true'

GO

exec sp_dboption N'host', N'read only', N'false'

GO

exec sp_dboption N'host', N'dbo use', N'false'

GO

exec sp_dboption N'host', N'single', N'false'

GO

exec sp_dboption N'host', N'autoshrink', N'false'

GO

exec sp_dboption N'host', N'ANSI null default', N'false'

GO

exec sp_dboption N'host', N'recursive triggers', N'false'

GO

exec sp_dboption N'host', N'ANSI nulls', N'false'

GO

exec sp_dboption N'host', N'concat null yields null', N'false'

GO

exec sp_dboption N'host', N'cursor close on commit', N'false'

GO

exec sp_dboption N'host', N'default to local cursor', N'false'

GO

exec sp_dboption N'host', N'quoted identifier', N'false'

GO

exec sp_dboption N'host', N'ANSI warnings', N'false'

GO

exec sp_dboption N'host', N'auto create statistics', N'true'

GO

exec sp_dboption N'host', N'auto update statistics', N'true'

GO

use [host]

GO

/****** Object: Table [dbo].[GroupAccess] Script Date: 2004-12-24 13:16:31 ******/

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[GroupAccess]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)

drop table [dbo].[GroupAccess]

GO

/****** Object: Table [dbo].[GroupAccounts] Script Date: 2004-12-24 13:16:31 ******/

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[GroupAccounts]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)

drop table [dbo].[GroupAccounts]

GO

/****** Object: Table [dbo].[GroupIPAccess] Script Date: 2004-12-24 13:16:31 ******/

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[GroupIPAccess]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)

drop table [dbo].[GroupIPAccess]

GO

/****** Object: Table [dbo].[UserAccess] Script Date: 2004-12-24 13:16:31 ******/

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[UserAccess]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)

drop table [dbo].[UserAccess]

GO

/****** Object: Table [dbo].[UserAccounts] Script Date: 2004-12-24 13:16:31 ******/

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[UserAccounts]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)

drop table [dbo].[UserAccounts]

GO

/****** Object: Table [dbo].[UserIPAccess] Script Date: 2004-12-24 13:16:31 ******/

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[UserIPAccess]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)

drop table [dbo].[UserIPAccess]

GO

/****** Object: Table [dbo].[GroupAccess] Script Date: 2004-12-24 13:16:34 ******/

CREATE TABLE [dbo].[GroupAccess] (

[IndexNo] [int] NULL ,

[UserName] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,

[Access] [nvarchar] (200) COLLATE Chinese_PRC_CI_AS NULL ,

[GAid] [int] IDENTITY (1, 1) NOT NULL

) ON [PRIMARY]

GO

/****** Object: Table [dbo].[GroupAccounts] Script Date: 2004-12-24 13:16:36 ******/

CREATE TABLE [dbo].[GroupAccounts] (

[UserName] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,

[Access] [nvarchar] (200) COLLATE Chinese_PRC_CI_AS NULL ,

[Notes] [nvarchar] (200) COLLATE Chinese_PRC_CI_AS NULL ,

[GAsId] [int] IDENTITY (1, 1) NOT NULL

) ON [PRIMARY]

GO

/****** Object: Table [dbo].[GroupIPAccess] Script Date: 2004-12-24 13:16:36 ******/

CREATE TABLE [dbo].[GroupIPAccess] (

[IndexNo] [int] NULL ,

[UserName] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,

[Access] [nvarchar] (200) COLLATE Chinese_PRC_CI_AS NULL ,

[GIpAid] [int] IDENTITY (1, 1) NOT NULL

) ON [PRIMARY]

GO

/****** Object: Table [dbo].[UserAccess] Script Date: 2004-12-24 13:16:37 ******/

CREATE TABLE [dbo].[UserAccess] (

[IndexNo] [int] NULL ,

[UserName] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,

[Access] [nvarchar] (200) COLLATE Chinese_PRC_CI_AS NULL ,

[UAid] [int] IDENTITY (1, 1) NOT NULL

) ON [PRIMARY]

GO

/****** Object: Table [dbo].[UserAccounts] Script Date: 2004-12-24 13:16:37 ******/

CREATE TABLE [dbo].[UserAccounts] (

[id] [int] IDENTITY (1, 1) NOT NULL ,

[UserName] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NOT NULL ,

[Password] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,

[Disable] [bit] NOT NULL ,

[Access] [nvarchar] (255) COLLATE Chinese_PRC_CI_AS NULL ,

[ChangePass] [bit] NOT NULL ,

[PassType] [tinyint] NOT NULL ,

[Expiration] [smalldatetime] NOT NULL ,

[ExpirationType] [tinyint] NOT NULL ,

[SKey] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,

[RelPaths] [bit] NOT NULL ,

[HomeDir] [nvarchar] (255) COLLATE Chinese_PRC_CI_AS NULL ,

[MessageFile] [nvarchar] (255) COLLATE Chinese_PRC_CI_AS NULL ,

[MaxUsers] [int] NOT NULL ,

[MaxUp] [int] NOT NULL ,

[MaxDown] [int] NOT NULL ,

[RatioUp] [int] NULL ,

[RatioDown] [int] NULL ,

[RatioCredit] [float] NULL ,

[RatioType] [tinyint] NULL ,

[QuotaEnable] [bit] NOT NULL ,

[QuotaMax] [int] NOT NULL ,

[QuotaCurrent] [int] NOT NULL ,

[Groups] [nvarchar] (255) COLLATE Chinese_PRC_CI_AS NULL ,

[Privilege] [tinyint] NOT NULL ,

[LockHomeDir] [bit] NOT NULL

) ON [PRIMARY]

GO

/****** Object: Table [dbo].[UserIPAccess] Script Date: 2004-12-24 13:16:38 ******/

CREATE TABLE [dbo].[UserIPAccess] (

[IndexNo] [smallint] NULL ,

[UserName] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,

[Access] [nvarchar] (200) COLLATE Chinese_PRC_CI_AS NULL ,

[UIpAid] [int] IDENTITY (1, 1) NOT NULL

) ON [PRIMARY]

GO

ALTER TABLE [dbo].[GroupAccess] WITH NOCHECK ADD

CONSTRAINT [PK_GroupAccess] PRIMARY KEY CLUSTERED

(

[GAid]

) ON [PRIMARY]

GO

ALTER TABLE [dbo].[GroupAccounts] WITH NOCHECK ADD

CONSTRAINT [PK_GroupAccounts] PRIMARY KEY CLUSTERED

(

[GAsId]

) ON [PRIMARY]

GO

ALTER TABLE [dbo].[GroupIPAccess] WITH NOCHECK ADD

CONSTRAINT [PK_GroupIPAccess] PRIMARY KEY CLUSTERED

(

[GIpAid]

) ON [PRIMARY]

GO

ALTER TABLE [dbo].[UserAccess] WITH NOCHECK ADD

CONSTRAINT [PK_UserAccess] PRIMARY KEY CLUSTERED

(

[UAid]

) ON [PRIMARY]

GO

ALTER TABLE [dbo].[UserAccounts] WITH NOCHECK ADD

CONSTRAINT [PK_UserAccounts] PRIMARY KEY CLUSTERED

(

[id]

) ON [PRIMARY]

GO

ALTER TABLE [dbo].[UserIPAccess] WITH NOCHECK ADD

CONSTRAINT [PK_UserIPAccess] PRIMARY KEY CLUSTERED

(

[UIpAid]

) ON [PRIMARY]

GO

ALTER TABLE [dbo].[UserAccounts] WITH NOCHECK ADD

CONSTRAINT [DF_UserAccounts_Disable] DEFAULT (0) FOR [Disable],

CONSTRAINT [DF_UserAccounts_ChangePass] DEFAULT (1) FOR [ChangePass],

CONSTRAINT [DF_UserAccounts_PassType] DEFAULT (0) FOR [PassType],

CONSTRAINT [DF_UserAccounts_ExpirationType] DEFAULT (1) FOR [ExpirationType],

CONSTRAINT [DF_UserAccounts_RelPaths] DEFAULT (0) FOR [RelPaths],

CONSTRAINT [DF_UserAccounts_MaxUsers] DEFAULT ((-1)) FOR [MaxUsers],

CONSTRAINT [DF_UserAccounts_MaxUp] DEFAULT (0) FOR [MaxUp],

CONSTRAINT [DF_UserAccounts_MaxDown] DEFAULT (0) FOR [MaxDown],

CONSTRAINT [DF_UserAccounts_RatioUp] DEFAULT (1) FOR [RatioUp],

CONSTRAINT [DF_UserAccounts_RatioDown] DEFAULT (1) FOR [RatioDown],

CONSTRAINT [DF_UserAccounts_RatioCredit] DEFAULT (0) FOR [RatioCredit],

CONSTRAINT [DF_UserAccounts_RatioType] DEFAULT (0) FOR [RatioType],

CONSTRAINT [DF_UserAccounts_QuotaEnable] DEFAULT (1) FOR [QuotaEnable],

CONSTRAINT [DF_UserAccounts_QuotaMax] DEFAULT (0) FOR [QuotaMax],

CONSTRAINT [DF_UserAccounts_QuotaCurrent] DEFAULT (0) FOR [QuotaCurrent],

CONSTRAINT [DF_UserAccounts_Privilege] DEFAULT (0) FOR [Privilege],

CONSTRAINT [DF_UserAccounts_LockHomeDir] DEFAULT (1) FOR [LockHomeDir],

CONSTRAINT [IX_UserAccounts] UNIQUE NONCLUSTERED

(

[UserName]

) ON [PRIMARY]

GO

exec sp_addextendedproperty N'MS_Description', N'目录权限', N'user', N'dbo', N'table', N'UserAccounts', N'column', N'Access'

GO

exec sp_addextendedproperty N'MS_Description', N'是否允许更改密码', N'user', N'dbo', N'table', N'UserAccounts', N'column', N'ChangePass'

GO

exec sp_addextendedproperty N'MS_Description', N'帐号是否禁用', N'user', N'dbo', N'table', N'UserAccounts', N'column', N'Disable'

GO

exec sp_addextendedproperty N'MS_Description', N'过期时间', N'user', N'dbo', N'table', N'UserAccounts', N'column', N'Expiration'

GO

exec sp_addextendedproperty N'MS_Description', N'过期类型', N'user', N'dbo', N'table', N'UserAccounts', N'column', N'ExpirationType'

GO

exec sp_addextendedproperty N'MS_Description', N'用户组', N'user', N'dbo', N'table', N'UserAccounts', N'column', N'Groups'

GO

exec sp_addextendedproperty N'MS_Description', N'主目录', N'user', N'dbo', N'table', N'UserAccounts', N'column', N'HomeDir'

GO

exec sp_addextendedproperty N'MS_Description', N'是否锁定在主目录', N'user', N'dbo', N'table', N'UserAccounts', N'column', N'LockHomeDir'

GO

exec sp_addextendedproperty N'MS_Description', N'最大下载速率', N'user', N'dbo', N'table', N'UserAccounts', N'column', N'MaxDown'

GO

exec sp_addextendedproperty N'MS_Description', N'最大上传速率', N'user', N'dbo', N'table', N'UserAccounts', N'column', N'MaxUp'

GO

exec sp_addextendedproperty N'MS_Description', N'最大登陆用户数', N'user', N'dbo', N'table', N'UserAccounts', N'column', N'MaxUsers'

GO

exec sp_addextendedproperty N'MS_Description', N'消息文件', N'user', N'dbo', N'table', N'UserAccounts', N'column', N'MessageFile'

GO

exec sp_addextendedproperty N'MS_Description', N'密码类型', N'user', N'dbo', N'table', N'UserAccounts', N'column', N'PassType'

GO

exec sp_addextendedproperty N'MS_Description', N'密码', N'user', N'dbo', N'table', N'UserAccounts', N'column', N'Password'

GO

exec sp_addextendedproperty N'MS_Description', N'管理权限', N'user', N'dbo', N'table', N'UserAccounts', N'column', N'Privilege'

GO

exec sp_addextendedproperty N'MS_Description', N'当前配额', N'user', N'dbo', N'table', N'UserAccounts', N'column', N'QuotaCurrent'

GO

exec sp_addextendedproperty N'MS_Description', N'启用磁盘配额', N'user', N'dbo', N'table', N'UserAccounts', N'column', N'QuotaEnable'

GO

exec sp_addextendedproperty N'MS_Description', N'最大配额', N'user', N'dbo', N'table', N'UserAccounts', N'column', N'QuotaMax'

GO

exec sp_addextendedproperty N'MS_Description', N'下载比率', N'user', N'dbo', N'table', N'UserAccounts', N'column', N'RatioDown'

GO

exec sp_addextendedproperty N'MS_Description', N'上传比率', N'user', N'dbo', N'table', N'UserAccounts', N'column', N'RatioUp'

GO

exec sp_addextendedproperty N'MS_Description', N'用户名', N'user', N'dbo', N'table', N'UserAccounts', N'column', N'UserName'

GO

asp.net实现的代码:

using System;

using System.Web.Security;

using System.Configuration;

using System.Data;

using System.Data.SqlClient;

namespace host

{

/// <summary>

/// ftp 的摘要说明。

/// </summary>

public class ftp

{

private SqlConnection conHost;

public string UserName;//用户名

public string Password;//密码

public bool Disable;//禁用帐号 true:禁用帐号 false:启用帐号

public string Access;//目录/IP访问规则

public byte PassType;//密码类型 0:规则密码 1:OTP S/KEY MD4 2:OTP S/KEY MD5

public bool ChangePass;//允许修改密码 true:允许 false:禁止

public DateTime Expiration;//过期时间

public byte ExpirationType;//过期类型 1:删除 2:禁用

public string SKey;

public bool RelPaths;//需要安全连接 true:需要 false:不需要

public string HomeDir;//主目录

public string MessageFile;//消息文件

public int MaxUsers;//最大用户数

public int MaxUp;//最大上传速率

public int MaxDown;//最大下载速率

public byte RatioType;//比率类型

public int RatioUp;//上传率

public int RatioDown;//下载率

public float RatioCredit;//比率信任

public bool QuotaEnable;//允许配额 true:允许 false:禁止

public int QuotaMax;//最大配额

public int QuotaCurrent;//当前配额

public string Groups;//用户组

public byte Privilege;//管理权限 0:没有权限 1:系统管理员 2:组管理员 3:域管理员 4:只读管理员

public bool LockHomeDir;//锁定于主目录 true:锁定 false:不锁定

public ftp()

{

//

// TODO: 在此处添加构造函数逻辑

//

UserName = "guest";

Password = "guest";

Disable = false;

Access = "";

PassType = 0;

ChangePass = true;

Expiration = DateTime.Now.Date;

ExpirationType = 1;

SKey = "";

RelPaths = false;

HomeDir = "";

MessageFile = "";

MaxUsers = 1;

MaxUp = 100 * 1024;//100K

MaxDown = 100 * 1024;//100K

RatioType = 0;

RatioUp = 1;

RatioDown = 1;

RatioCredit = 0;

QuotaEnable = true;

QuotaMax = 10 * 1024 * 1024;//10M

QuotaCurrent = 0;

Groups = "";

Privilege = 0;

LockHomeDir = true;

conHost = new SqlConnection( ConfigurationSettings.AppSettings["conString"] );

conHost.Open();

}

~ftp()

{

conHost.Close();

}

public void Add()

{

//添加帐号

SqlCommand cmdAdd = new SqlCommand( "insert into UserAccounts (UserName,Password,Disable,Access,ChangePass,PassType,Expiration,ExpirationType,SKey,RelPaths,HomeDir,MessageFile,MaxUsers,MaxUp,MaxDown,RatioUp,RatioDown,RatioCredit,RatioType,QuotaEnable,QuotaMax,QuotaCurrent,Groups,Privilege,LockHomeDir) values(@UserName,@Password,@Disable,@Access,@ChangePass,@PassType,@Expiration,@ExpirationType,@SKey,@RelPaths,@HomeDir,@MessageFile,@MaxUsers,@MaxUp,@MaxDown,@RatioUp,@RatioDown,@RatioCredit,@RatioType,@QuotaEnable,@QuotaMax,@QuotaCurrent,@Groups,@Privilege,@LockHomeDir)", conHost );

cmdAdd.Parameters.Add( "@UserName", UserName );

cmdAdd.Parameters.Add( "@Password", pass() );

cmdAdd.Parameters.Add( "@Disable", Disable );

cmdAdd.Parameters.Add( "@Access", Access );

cmdAdd.Parameters.Add( "@ChangePass", ChangePass );

cmdAdd.Parameters.Add( "@PassType", PassType );

cmdAdd.Parameters.Add( "@Expiration", Expiration );

cmdAdd.Parameters.Add( "@ExpirationType", ExpirationType );

cmdAdd.Parameters.Add( "@SKey", SKey );

cmdAdd.Parameters.Add( "@RelPaths", RelPaths );

cmdAdd.Parameters.Add( "@HomeDir", HomeDir );

cmdAdd.Parameters.Add( "@MessageFile", MessageFile );

cmdAdd.Parameters.Add( "@MaxUsers", MaxUsers );

cmdAdd.Parameters.Add( "@MaxUp", MaxUp );

cmdAdd.Parameters.Add( "@MaxDown", MaxDown );

cmdAdd.Parameters.Add( "@RatioUp", RatioUp );

cmdAdd.Parameters.Add( "@RatioDown", RatioDown );

cmdAdd.Parameters.Add( "@RatioCredit", RatioCredit );

cmdAdd.Parameters.Add( "@RatioType", RatioType );

cmdAdd.Parameters.Add( "@QuotaEnable", QuotaEnable );

cmdAdd.Parameters.Add( "@QuotaMax", QuotaMax );

cmdAdd.Parameters.Add( "@QuotaCurrent", QuotaCurrent );

cmdAdd.Parameters.Add( "@Groups", Groups );

cmdAdd.Parameters.Add( "@Privilege", Privilege );

cmdAdd.Parameters.Add( "@LockHomeDir", LockHomeDir );

//cmdAdd.Parameters.Add( "@", );

cmdAdd.ExecuteNonQuery();

}

public string pass()

{

//密码加密

Random rnm = new Random();

char a = (char)(rnm.Next( 97, 123 ));

char b = (char)(rnm.Next( 97, 123 ));

string password = string.Format("{0}{1}{2}", a, b, Password );

password = FormsAuthentication.HashPasswordForStoringInConfigFile( password, "md5" );

password = string.Format( "{0}{1}{2}", a, b, password.ToUpper() );

return password;

}

public bool modifypass( string oldpass, string newpass )

{

//修改密码

return true;

}

}

}

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有