inc.asp

小说站源代码文件

<%
'检查数据表是否存在	
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 = 2 Then
				SQL = "CREATE TABLE ADmain (ID int AUTO_INCREMENT NOT NULL PRIMARY KEY," &_
					"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" & _
				")"
			ElseIf IsSqlDataBase = 1 Then
				SQL = "CREATE TABLE [ADmain] ([ID] int IDENTITY (1, 1) NOT NULL CONSTRAINT PK_ADmain PRIMARY KEY," &_
					"[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" & _
				")"
			Else
				SQL = "CREATE TABLE [ADmain] ([ID] int IDENTITY (1, 1) NOT NULL CONSTRAINT PrimaryKey PRIMARY KEY,"&_
					"[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" & _
				")"
			End If
		Case "[Admin_User]"
			If IsSqlDataBase = 2 Then
				SQL = "CREATE TABLE Admin_User (ID int AUTO_INCREMENT NOT NULL PRIMARY KEY," &_
					"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 timestamp NOT NULL default Now()" & _
					")"
			ElseIf IsSqlDataBase = 1 Then
				SQL = "CREATE TABLE [Admin_User] ([ID] int IDENTITY (1, 1) NOT NULL CONSTRAINT PK_Admin_User PRIMARY KEY," &_
					"[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," &_
					"[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 = 2 Then
				SQL = "CREATE TABLE Ar_class (ID int AUTO_INCREMENT NOT NULL PRIMARY KEY," &_
				"classtime timestamp NOT NULL default Now()," & _
				"classname varchar (50) NULL ," & _
				"classinfo text NULL," & _
				"class int NOT NULL default 0," & _
				"Nclass int NOT NULL default 0" & _
				")"
			ElseIf IsSqlDataBase = 1 Then
				SQL = "CREATE TABLE [Ar_class] ([ID] int IDENTITY (1, 1) NOT NULL CONSTRAINT PK_Ar_class PRIMARY KEY," &_ 
				"[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," &_
				"[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 = 2 Then
				SQL = "CREATE TABLE Article (Ar_ID int AUTO_INCREMENT NOT NULL PRIMARY KEY," &_
				"Ar_data timestamp 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" & _
				")"
			ElseIf IsSqlDataBase = 1 Then
				SQL = "CREATE TABLE [Article] ([Ar_ID] int IDENTITY (1, 1) NOT NULL CONSTRAINT PK_Article PRIMARY KEY," &_
				"[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," &_
				"[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 = 2 Then
				SQL = "CREATE TABLE Author (Author_ID int AUTO_INCREMENT NOT NULL PRIMARY KEY," &_
				"author_ADDDate timestamp NOT NULL default Now()," & _
				"author_logDate timestamp NOT NULL," & _
				"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" & _
				")"
			ElseIf IsSqlDataBase = 1 Then
				SQL = "CREATE TABLE [Author] ([Author_ID] int IDENTITY (1, 1) NOT NULL CONSTRAINT PK_Author PRIMARY KEY," &_
				"[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 ," & _