📄 setup1.asp

📁 小说站源代码文件
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#include file="../conn.asp"--><!--#include file="../inc/function.asp"--><!--#include file="../inc/md5.asp"-->
<!--#include file="Inc.asp"--><!-- #include file="../inc/version.asp" --><html>

<head>
<style type="text/css">
BODY {font-family:Sans Serif, Tahoma, Arial, Georgia, Courier, Times New Roman, Serif, Simsun;font-size:12px;MARGIN: 10;color: #000000;line-height:150%;}
textarea,input,object,SELECT	{
	font-size:12px;font-family:Sans Serif, Tahoma, Arial, Georgia, Courier, Times New Roman, Serif, Simsun;vertical-align:middle;padding:1px;color:black;background-color:#FFFFFF;border:1px solid #B7C0C7;margin:2px;  
}
TD { FONT-SIZE: 9pt;}
.mainTitle {color: #1C3566;FONT-WEIGHT: 900; FONT-SIZE: 14px; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif}

A:link {
	COLOR: #0000FF; TEXT-DECORATION: none
}
A:visited {
	COLOR: #313131; TEXT-DECORATION: none
}
A:active {
	COLOR: #0000FF; TEXT-DECORATION: none
}

A:hover {
	COLOR: #FF0000;LEFT: 1px; POSITION: relative;TEXT-DECORATION: NONE; TOP: 1px
}

</style>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>终点小说连载系统安装向导</title>
</head>

<body topmargin="10">

<%
info=request.querystring("info")
if info="" or info=null then
Response.Redirect "default.htm"
Response.end
end if
Select Case info
	Case "addmdb"
		Call addmdb()
	Case "addadminname"
		Call addadminname()
	Case "Sitestupe"
		Call Sitestupe()
	Case "Exitstupe"
		Call Exitstupe()
end select 

sub addmdb%>
<table width="750" height=390 border="0" align="center" cellpadding="10" cellspacing="0"style="BORDER-RIGHT: #1C3566 1px solid; BORDER-TOP: #1C3566 5px solid; BORDER-LEFT: #1C3566 1px solid; BORDER-BOTTOM: #1C3566 1px solid" >
	<form action="setup1.asp?info=addadminname" method="post" id="form">
	<tr>
		<td align="left" height=68 class=mainTitle style=" BORDER-bottom: #1C3566 1px solid;" colspan="10">
		<img class="logo" src="images/indexlogo.gif" border="0">  V1.0 ACCESS/MSSQL/MySQL 兼容版  系统安装向导</td>
	</tr>
	<tr>
		<td bgcolor="#1C3566" align="center" height="25" colspan="7"><b>
		<font color="#FFFFFF">安装并创建数据库表结构</font></b></td>
	</tr>
	<tr>
		<td bgcolor="F3F3F3"><b>终点小说连载系统正在建立数据库表结构</b><br><br>
		<%
if Checktable("ADmain")=True then
	Response.Write "数据表[ADmain]已存在，请不要重复运行安装程序。<br>"
else 
	Call CreateNewTable("[ADmain]")
	Conn.Execute("InSert Into ADmain (BannerUrl) Values ('<!--Banner广告-->')")
end if
if Checktable("Admin_User")=True then
	Response.Write "数据表[Admin_User]已存在，请不要重复运行安装程序。<br>"
else 
	Call CreateNewTable("[Admin_User]")
end if
if Checktable("Ar_class")=True then
	Response.Write "数据表[Ar_class]已存在，请不要重复运行安装程序。<br>"
else 
	Call CreateNewTable("[Ar_class]")
	Conn.Execute("InSert Into Ar_class (classname) Values ('诗词歌赋')")
	Conn.Execute("InSert Into Ar_class (classname) Values ('散文杂文')")
	Conn.Execute("InSert Into Ar_class (classname) Values ('个人写真')")
	Conn.Execute("InSert Into Ar_class (classname) Values ('心情日记')")
end if
if Checktable("list_type")=True then
	Response.Write "数据表[list_type]已存在，请不要重复运行安装程序。<br>"
else 

	Call CreateNewTable("[list_type]")
	'系统分类
	Conn.Execute("InSert Into list_type (list_tpye) Values ('魔法玄幻')")
	Conn.Execute("InSert Into list_type (list_tpye) Values ('武侠仙侠')")
	Conn.Execute("InSert Into list_type (list_tpye) Values ('浪漫言情')")
	Conn.Execute("InSert Into list_type (list_tpye) Values ('现代都市')")
	Conn.Execute("InSert Into list_type (list_tpye) Values ('历史史记')")
	Conn.Execute("InSert Into list_type (list_tpye) Values ('军事天地')")
	Conn.Execute("InSert Into list_type (list_tpye) Values ('游戏世界')")
	Conn.Execute("InSert Into list_type (list_tpye) Values ('体育竞技')")
	Conn.Execute("InSert Into list_type (list_tpye) Values ('科学幻想')")
	Conn.Execute("InSert Into list_type (list_tpye) Values ('灵异鬼怪')")
	Conn.Execute("InSert Into list_type (list_tpye) Values ('诗词美文')")
	Conn.Execute("InSert Into list_type (list_tpye) Values ('同人系列')")
	Conn.Execute("InSert Into list_type (list_tpye) Values ('原创剧本')")
	Conn.Execute("InSert Into list_type (list_tpye) Values ('图文漫画')")
end if
if Checktable("Article")=True then
	Response.Write "数据表[Article]已存在，请不要重复运行安装程序。<br>"
else 
	Call CreateNewTable("[Article]")
end if
if Checktable("Author")=True then
	Response.Write "数据表[Author]已存在，请不要重复运行安装程序。<br>"
else 
	Call CreateNewTable("[Author]")
end if
if Checktable("Comment")=True then
	Response.Write "数据表[Comment]已存在，请不要重复运行安装程序。<br>"
else 
	Call CreateNewTable("[Comment]")
end if
if Checktable("Duanxin")=True then
	Response.Write "数据表[Duanxin]已存在，请不要重复运行安装程序。<br>"
else 
	Call CreateNewTable("[Duanxin]")
end if
if Checktable("guest")=True then
	Response.Write "数据表[guest]已存在，请不要重复运行安装程序。<br>"
else 
	Call CreateNewTable("[guest]")
end if
if Checktable("guest_class")=True then
	Response.Write "数据表[guest_class]已存在，请不要重复运行安装程序。<br>"
else 
	Call CreateNewTable("[guest_class]")
	Conn.Execute("InSert Into guest_class (guest_class) Values ('发展建议')")
	Conn.Execute("InSert Into guest_class (guest_class) Values ('书库使用报错')")
	Conn.Execute("InSert Into guest_class (guest_class) Values ('书屋功能报错')")
	Conn.Execute("InSert Into guest_class (guest_class) Values ('违规作品举报')")
	Conn.Execute("InSert Into guest_class (guest_class) Values ('作者反馈意见')")
	Conn.Execute("InSert Into guest_class (guest_class) Values ('VIP咨询与冲值')")
	Conn.Execute("InSert Into guest_class (guest_class) Values ('其他')")
end if
if Checktable("link_class")=True then
	Response.Write "数据表[link_class]已存在，请不要重复运行安装程序。<br>"
else 
	Call CreateNewTable("[link_class]")
end if
if Checktable("link")=True then
	Response.Write "数据表[link]已存在，请不要重复运行安装程序。<br>"
else 
	Call CreateNewTable("[link]")
end if
if Checktable("list_book")=True then
	Response.Write "数据表[list_book]已存在，请不要重复运行安装程序。<br>"
else 
	Call CreateNewTable("[list_book]")
end if
if Checktable("list_class")=True then
	Response.Write "数据表[list_class]已存在，请不要重复运行安装程序。<br>"
else 
	Call CreateNewTable("[list_class]")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('东方玄幻',1)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('魔法校园',1)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('西方奇幻',1)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('转世重生',1)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('王朝争霸',1)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('异术超能',1)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('远古神话',1)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('骇客时空',1)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('异世大陆',1)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('吸血家族',1)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('传统武侠',2)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('浪子异侠',2)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('古典仙侠',2)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('历史武侠',2)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('偕趣武侠',2)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('奇幻修真',2)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('现代修真',2)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('芊芊心结',3)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('冒险推理',3)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('灵异恐怖',3)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('浪漫言情',3)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('宫闱情仇',3)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('快意江湖',3)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('菁菁校园',3)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('爱在职场',3)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('西方传奇',3)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('奇幻架空',3)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('蔷薇情话',3)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('品位人生',3)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('都市生活',4)")
12 下一页
💿 文件大小 692 K
👤 上传用户 glossary
📂 所属分类其他
🏷️ 相关标签

#源代码
⌨️ 快捷键说明

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