📄 inc.asp

📁 功能介绍：一、会员功能模块 1、站内短信发布(设计中) 2、书架收藏夹 3、发表评论(功能不完善) 4、申请作家(与添书员整合) 5、申请添书员(与作家整合) 6、申请更新员
💻 ASP
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
<%
'检查数据表是否存在	
Function Checktable(TableName)
	On Error Resume Next
	Conn.Execute("select * From " & TableName)
	If Err.Number <> 0 Then
		Err.Clear()
		Checktable = False
	Else
		Checktable = True
	End If
End Function

Sub InnerHtml(obj,msg)
	ReportTxt = ReportTxt & "<li>"& msg &"</li>"
	Response.Write "<li>"&msg&"</li>"
	Response.Flush
End Sub

Sub CreateNewTable(ByVal TableName)
	'建立新表
	On Error Resume Next
	Dim SQL
	Select Case TableName
		Case "[ADmain]"
			If IsSqlDataBase = 1 Then
				SQL = "CREATE TABLE [ADmain] ([ID] int IDENTITY (1, 1) NOT NULL CONSTRAINT PK_ADmain PRIMARY KEY," 
			Else
				SQL = "CREATE TABLE [ADmain] ([ID] int IDENTITY (1, 1) NOT NULL CONSTRAINT PrimaryKey PRIMARY KEY,"
			End If
			SQL = SQL &_
					"[Adshead] text NULL," & _
					"[Adsfoot] text NULL," & _
					"[BannerUrl] text NULL," & _
					"[Bannerads] text NULL," & _
					"[Adleft1] text NULL," & _
					"[Adleft2] text NULL," & _
					"[Adleft3] text NULL," & _
					"[Adleft4] text NULL," & _
					"[Adleft5] text NULL," & _
					"[Adleft6] text NULL," & _
					"[Adleft7] text NULL," & _
					"[Adleft8] text NULL," & _
					"[Adleft9] text NULL," & _
					"[Adright1] text NULL," & _
					"[Adright2] text NULL," & _
					"[Adright3] text NULL," & _
					"[Adright4] text NULL," & _
					"[Adright5] text NULL," & _
					"[Adright6] text NULL," & _
					"[Adright7] text NULL," & _
					"[Adright8] text NULL," & _
					"[Adright9] text NULL," & _
					"[Adcenter1] text NULL," & _
					"[Adcenter2] text NULL," & _
					"[Adcenter3] text NULL," & _
					"[Adcenter4] text NULL," & _
					"[Adcenter5] text NULL," & _
					"[Adcenter6] text NULL," & _
					"[Adcenter7] text NULL," & _
					"[Adcenter8] text NULL," & _
					"[Adcenter9] text NULL," & _
					"[Admain1] text NULL," & _
					"[Admain2] text NULL," & _
					"[Admain3] text NULL," & _
					"[Admain4] text NULL," & _
					"[Admain5] text NULL" & _
				")"
		Case "[Admin_User]"
			If IsSqlDataBase = 1 Then
				SQL = "CREATE TABLE [Admin_User] ([ID] int IDENTITY (1, 1) NOT NULL CONSTRAINT PK_Admin_User PRIMARY KEY," 
			SQL = SQL &_
					"[username] varchar(50) NULL," & _
					"[Truename] varchar(50) NULL," & _
					"[password] varchar(50) NULL," & _
					"[email] varchar(50) NULL," & _
					"[QQ] varchar(50) NULL," & _
					"[userclass] int NOT NULL default 0," & _
					"[adminclass] text NULL," & _
					"[ADDtime] smalldatetime NOT NULL default getDate()" & _
					")"
			Else
				SQL = "CREATE TABLE [Admin_User] ([ID] int IDENTITY (1, 1) NOT NULL CONSTRAINT PrimaryKey PRIMARY KEY,"
			SQL = SQL &_
					"[username] varchar(50) NULL," & _
					"[Truename] varchar(50) NULL," & _
					"[password] varchar(50) NULL," & _
					"[email] varchar(50) NULL," & _
					"[QQ] int NOT NULL default 0," & _
					"[userclass] int NOT NULL default 0," & _
					"[adminclass] text NULL," & _
					"[ADDtime] date NOT NULL default Now()" & _
					")"
			End If
		Case "[Ar_class]"
			If IsSqlDataBase = 1 Then
				SQL = "CREATE TABLE [Ar_class] ([ID] int IDENTITY (1, 1) NOT NULL CONSTRAINT PK_Ar_class PRIMARY KEY," 
			SQL = SQL &_
				"[classtime] smalldatetime NOT NULL default getDate()," & _
				"[classname] varchar (50) NULL ," & _
				"[classinfo] text NULL," & _
				"[class] int NOT NULL default 0," & _
				"[Nclass] int NOT NULL default 0" & _
				")"
			Else
				SQL = "CREATE TABLE [Ar_class] ([ID] int IDENTITY (1, 1) NOT NULL CONSTRAINT PrimaryKey PRIMARY KEY,"
			SQL = SQL &_
				"[classtime] date NOT NULL default now()," & _
				"[classname] varchar (50) NULL ," & _
				"[classinfo] text NULL," & _
				"[class] int NOT NULL default 0," & _
				"[Nclass] int NOT NULL default 0" & _
				")"
			End If
		Case "[Article]"
			If IsSqlDataBase = 1 Then
				SQL = "CREATE TABLE [Article] ([Ar_ID] int IDENTITY (1, 1) NOT NULL CONSTRAINT PK_Article PRIMARY KEY,"
			SQL = SQL &_
				"[Ar_data] smalldatetime NOT NULL default getdate()," & _
				"[Ar_name] varchar (255) NULL ," & _
				"[Ar_key] varchar (255) NULL ," & _
				"[Ar_PIC] varchar (255) NULL ," & _
				"[Ar_Content] text NULL ," & _
				"[Ar_userid] int NOT NULL default 0," & _
				"[Ar_username] varchar (255) NULL ," & _
				"[Ar_hist] int NOT NULL default 0," & _
				"[Ar_jian] int NOT NULL default 0," & _
				"[Ar_class] int NOT NULL default 0," & _
				"[Ar_lock] int NOT NULL default 0," & _
				"[Ar_nolook] int NOT NULL default 0," & _
				"[Ar_Author] int NOT NULL default 0," & _
				"[Ar_size] int NOT NULL default 0" & _
				")"
			Else
				SQL = "CREATE TABLE [Article] ([Ar_ID] int IDENTITY (1, 1) NOT NULL CONSTRAINT PrimaryKey PRIMARY KEY,"
			SQL = SQL &_
				"[Ar_data] date NOT NULL default now()," & _
				"[Ar_name] varchar (255) NULL ," & _
				"[Ar_key] varchar (255) NULL ," & _
				"[Ar_PIC] varchar (255) NULL ," & _
				"[Ar_Content] text NULL ," & _
				"[Ar_userid] int NOT NULL default 0," & _
				"[Ar_username] varchar (255) NULL ," & _
				"[Ar_hist] int NOT NULL default 0," & _
				"[Ar_jian] int NOT NULL default 0," & _
				"[Ar_class] int NOT NULL default 0," & _
				"[Ar_lock] int NOT NULL default 0," & _
				"[Ar_nolook] int NOT NULL default 0," & _
				"[Ar_Author] int NOT NULL default 0," & _
				"[Ar_size] int NOT NULL default 0" & _
				")"
			End If
		Case "[Author]"
			If IsSqlDataBase = 1 Then
				SQL = "CREATE TABLE [Author] ([Author_ID] int IDENTITY (1, 1) NOT NULL CONSTRAINT PK_Author PRIMARY KEY,"
			SQL = SQL &_
				"[author_ADDDate] smalldatetime NOT NULL default getdate()," & _
				"[author_logDate] smalldatetime NOT NULL default getdate()," & _
				"[author_UserName] varchar (50) NULL ," & _
				"[author_Password] varchar (50) NULL ," & _
				"[author_Name] varchar (50) NULL ," & _
				"[author_TrueName] varchar (50) NULL ," & _
				"[author_sex] varchar (50) NULL ," & _
				"[author_Email] varchar (200) NULL ," & _
				"[author_face] varchar (200) NULL ," & _
				"[author_address] varchar (255) NULL ," & _
				"[author_zhengjian] varchar (200) NULL ," & _
				"[author_tel] varchar (50) NULL ," & _
				"[author_ICQ] varchar (50) NULL ," & _
				"[author_QQ] varchar (50) NULL ," & _
				"[author_zip] varchar (50) NULL ," & _
				"[author_MSN] varchar (200) NULL ," & _
				"[author_writing] text NULL ," & _
				"[author_resume] text NULL ," & _
				"[author_logins] int NOT NULL default 0," & _
				"[author_lock] int NOT NULL default 0," & _
				"[author_bookji] int NOT NULL default 0," & _
				"[author_addpost] int NOT NULL default 0," & _
				"[author_UserID] int NOT NULL default 0," & _
				"[author_maney] int NOT NULL default 0" & _
				")"
			Else
				SQL = "CREATE TABLE [Author] ([Author_ID] int IDENTITY (1, 1) NOT NULL CONSTRAINT PrimaryKey PRIMARY KEY,"
			SQL = SQL &_
				"[author_ADDDate] date NOT NULL default now()," & _
				"[author_logDate] date NOT NULL default now()," & _
				"[author_UserName] varchar (50) NULL ," & _
				"[author_Password] varchar (50) NULL ," & _
				"[author_Name] varchar (50) NULL ," & _
				"[author_TrueName] varchar (50) NULL ," & _
				"[author_sex] varchar (50) NULL ," & _
				"[author_Email] varchar (200) NULL ," & _
				"[author_face] varchar (200) NULL ," & _
				"[author_address] varchar (255) NULL ," & _
				"[author_zhengjian] varchar (200) NULL ," & _
				"[author_tel] varchar (50) NULL ," & _
				"[author_zip] varchar (50) NULL ," & _
				"[author_ICQ] varchar (50) NULL ," & _
				"[author_QQ] varchar (50) NULL ," & _
				"[author_MSN] varchar (200) NULL ," & _
				"[author_writing] text NULL ," & _
				"[author_resume] text NULL ," & _
				"[author_logins] int NOT NULL default 0," & _
				"[author_lock] int NOT NULL default 0," & _
				"[author_bookji] int NOT NULL default 0," & _
				"[author_addpost] int NOT NULL default 0," & _
				"[author_UserID] int NOT NULL default 0," & _
				"[author_maney] int NOT NULL default 0" & _
				")"
			End If
		Case "[Comment]"
			If IsSqlDataBase = 1 Then
				SQL = "CREATE TABLE [Comment] ([CommentID] int IDENTITY (1, 1) NOT NULL CONSTRAINT PK_Comment PRIMARY KEY,"
			SQL = SQL &_
				"[WriteTime] smalldatetime NOT NULL default getdate()," & _
				"[ReplyTime] smalldatetime NOT NULL default getdate()," & _
				"[type_ID] int NOT NULL default 0," & _
				"[UserName] varchar (50) NULL ," & _
				"[Content] text NULL," & _
				"[ReplyName] varchar (255) NULL ," & _
				"[ReplyContent] text NULL ," & _
				"[Commenttype] int NOT NULL default 0," & _
				"[IsGood] int NOT NULL default 0," & _
				"[IsTop] int NOT NULL default 0," & _
				"[IsLock] int NOT NULL default 0," & _
				"[User_ID] int NOT NULL default 0" & _
				")"
			Else
				SQL = "CREATE TABLE [Comment] ([CommentID] int IDENTITY (1, 1) NOT NULL CONSTRAINT PrimaryKey PRIMARY KEY,"
			SQL = SQL &_
				"[WriteTime] date NOT NULL default now()," & _
				"[ReplyTime] date NOT NULL default now()," & _
				"[type_ID] int NOT NULL default 0," & _
				"[UserName] varchar (50) NULL ," & _
				"[Content] text NULL ," & _
				"[ReplyName] varchar (255) NULL ," & _
				"[ReplyContent] text NULL ," & _
				"[Commenttype] int NOT NULL default 0," & _
				"[IsGood] int NOT NULL default 0," & _
				"[IsTop] int NOT NULL default 0," & _
				"[IsLock] int NOT NULL default 0," & _
				"[User_ID] int NOT NULL default 0" & _
				")"
			End If
		Case "[Duanxin]"
			If IsSqlDataBase = 1 Then
				SQL = "CREATE TABLE [Duanxin] ([ID] int IDENTITY (1, 1) NOT NULL CONSTRAINT PK_Duanxin PRIMARY KEY,"
			SQL = SQL &_
				"[dateandtime] smalldatetime NOT NULL default getdate()," & _
				"[content] varchar (255) NULL," & _
				"[tj] int NOT NULL default 0," & _
				"[yd] int NOT NULL default 0," & _
				"[nickname] varchar (50) NULL ," & _
				"[custom] varchar (50) NULL " & _
				")"
			Else
				SQL = "CREATE TABLE [Duanxin] ([ID] int IDENTITY (1, 1) NOT NULL CONSTRAINT PrimaryKey PRIMARY KEY,"
			SQL = SQL &_
				"[dateandtime] date NOT NULL default now()," & _
				"[content] varchar (255) NULL," & _
				"[tj] int NOT NULL default 0," & _
				"[yd] int NOT NULL default 0," & _
				"[nickname] varchar (50) NULL ," & _
				"[custom] varchar (50) NULL " & _
				")"
			End If
		Case "[siti_Duanxin]"
			If IsSqlDataBase = 1 Then
				SQL = "CREATE TABLE [siti_Duanxin] ([ID] int IDENTITY (1, 1) NOT NULL CONSTRAINT PK_siti_Duanxin PRIMARY KEY,"
			SQL = SQL &_
				"[dateandtime] smalldatetime NOT NULL default getdate()," & _
				"[content] varchar (255) NULL," & _
				"[sitis] int NOT NULL default 0," & _
				"[yd] int NOT NULL default 0," & _
				"[nickname] varchar (50) NULL ," & _
				"[custom] varchar (50) NULL " & _
				")"
			Else
				SQL = "CREATE TABLE [siti_Duanxin] ([ID] int IDENTITY (1, 1) NOT NULL CONSTRAINT PrimaryKey PRIMARY KEY,"
			SQL = SQL &_
				"[dateandtime] date NOT NULL default now()," & _
				"[content] varchar (255) NULL," & _
				"[sitis] int NOT NULL default 0," & _
				"[yd] int NOT NULL default 0," & _
				"[nickname] varchar (50) NULL ," & _
				"[custom] varchar (50) NULL " & _
				")"
			End If
		Case "[guest]"
			If IsSqlDataBase = 1 Then
				SQL = "CREATE TABLE [guest] ([ID] int IDENTITY (1, 1) NOT NULL CONSTRAINT PK_guest PRIMARY KEY,"
			SQL = SQL &_
				"[date] smalldatetime NOT NULL default getdate()," & _
				"[time] smalldatetime NOT NULL default getdate()," & _
				"[title] varchar (255) NULL ," & _
				"[content] text NULL ," & _
				"[reply] text NULL ," & _
				"[classid] int NOT NULL default 0," & _
				"[userID] int NOT NULL default 0" & _
				")"
			Else
				SQL = "CREATE TABLE [guest] ([ID] int IDENTITY (1, 1) NOT NULL CONSTRAINT PrimaryKey PRIMARY KEY,"
			SQL = SQL &_
				"[date] date NOT NULL default now()," & _
				"[time] date NOT NULL default now()," & _
				"[title] varchar (255) NULL ," & _
				"[content] text NULL ," & _
				"[reply] text NULL ," & _
				"[classid] int NOT NULL default 0," & _
12 3 下一页
💿 文件大小 667 K
👤 上传用户 ccdn2615
📂 所属分类 VC书籍
🏷️ 相关标签

#家 #模块 #发布 #更新
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -