setup1.asp

功能介绍： 一、会员功能模块 1、站内短信发布(设计中) 2、书架收藏夹 3、发表评论(功能不完善) 4、申请作家(与添书员整合) 5、申请添书员(与作家整合) 6、申请更新员

	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('星际战争',9)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('机器时代',9)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('灵异神怪',10)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('恐怖惊怵',10)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('推理侦探',10)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('休闲美文',11)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('杂文笔札',11)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('童话寓言',11)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('诗词散曲',11)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('动漫同人',12)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('武侠同人',12)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('小说同人',12)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('影视剧本',13)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('动漫剧本',13)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('网游剧本',13)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('漫画连载',14)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('配图小说',14)")
end if

if Checktable("list_cook")=True then
	Response.Write "数据表[list_cook]已存在，请不要重复运行安装程序。<br>"
else 
	Call CreateNewTable("[list_cook]")
end if
if Checktable("list_view")=True then
	Response.Write "数据表[list_view]已存在，请不要重复运行安装程序。<br>"
else 
	Call CreateNewTable("[list_view]")
end if
if Checktable("news")=True then
	Response.Write "数据表[news]已存在，请不要重复运行安装程序。<br>"
else 
	Call CreateNewTable("[news]")
end if
if Checktable("pay")=True then
	Response.Write "数据表[pay]已存在，请不要重复运行安装程序。<br>"
else 
	Call CreateNewTable("[pay]")
	Conn.Execute("InSert Into pay (pay,payid,paykey,bank15) Values ('Z','ZID','支密码','汇款注意事项')")
end if
if Checktable("siti_Duanxin")=True then
	Response.Write "数据表[siti_Duanxin]已存在，请不要重复运行安装程序。<br>"
else 
	Call CreateNewTable("[siti_Duanxin]")
end if
if Checktable("Siti_Setup")=True then
	Response.Write "数据表[Siti_Setup]已存在，请不要重复运行安装程序。<br>"
else 
	Call CreateNewTable("[Siti_Setup]")
end if
if Checktable("TXTadlist")=True then
	Response.Write "数据表[TXTadlist]已存在，请不要重复运行安装程序。<br>"
else 
	Call CreateNewTable("[TXTadlist]")
end if
if Checktable("User_box")=True then
	Response.Write "数据表[User_box]已存在，请不要重复运行安装程序。<br>"
else 
	Call CreateNewTable("[User_box]")
end if
if Checktable("Userinfo")=True then
	Response.Write "数据表[Userinfo]已存在，请不要重复运行安装程序。<br>"
else 
	Call CreateNewTable("[Userinfo]")
end if
if Checktable("vote")=True then
	Response.Write "数据表[vote]已存在，请不要重复运行安装程序。<br>"
else 
	Call CreateNewTable("[vote]")
end if
if Checktable("vote_class")=True then
	Response.Write "数据表[vote_class]已存在，请不要重复运行安装程序。<br>"
else 
	Call CreateNewTable("[vote_class]")
end if
if Checktable("filetest")=True then
	Response.Write "数据表[filetest]已存在，请不要重复运行安装程序。<br>"
else 
	Call CreateNewTable("[filetest]")
end if
Response.Write "<br><br><b>数据表结构建立完成</b><br>"
%><br>
		</td>
	</tr>
	<tr>
		<td align="center" height="50" style=" BORDER-top: #1C3566 1px solid;" colspan="10" background="images/footbg.gif">
		<input type="button" value="上一步" name="button" onclick="window.location.href='javascript:history.go(-1)'">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
		<input type="submit" value="下一步" name="Submit" class="button"></td>
	</tr>
	</form>
</table>
<%End Sub
Sub addadminname()
file="../default.htm"
FSOlinewrite file,1,"<meta http-equiv=Refresh content='0; URL=Index.asp'>"
%>
<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=Sitestupe" 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">  V2.35 ACCESS/MSSQL 兼容版  系统安装向导</td>
	</tr>
	<tr>
		<td bgcolor="#1C3566" align="center" height="25" colspan="7"><b>
		<font color="#FFFFFF">设置后台管理目录</font></b></td>
	</tr>
		<tr bgcolor="F3F3F3">
			<td width="25%" height="25" align="right" valign="middle">后台管理目录：</td>
			<td width="75%" align="left">
			<input name="SiteManagePath" type="text" class="form" value="Admin">仅填写目录名称（只能是根目录中的文件夹，前后均不带“/”）
			<br>该目录为后台管理文件的存放目录，
			为<font color="#FF0000">一次性设置</font>，在设置后请将默认后台目录“Admin”<font color="#FF0000">手工修改</font>为上述填写内容
			，在设置后没有特殊情况是<font color="#FF0000">不允许修改</font>，需要修改请直接联系系统作者。</td>
		</tr>
	<tr>
		<td bgcolor="#1C3566" align="center" height="25" colspan="7"><b>
		<font color="#FFFFFF">设置超级管理员</font></b></td>
	</tr>
		<tr bgcolor="F3F3F3">
			<td width="25%" height="25" align="right" valign="middle">管理员登录名：</td>
			<td width="75%" align="left">
			<input name="username" type="text" class="form"></td>
		</tr>
		<tr>
			<td width="25%" height="25" align="right" valign="middle">管理员昵称：</td>
			<td width="75%" align="left">
			<input name="Truename" type="text" class="form"></td>
		</tr>
		<tr bgcolor="F3F3F3">
			<td height="25" align="right" valign="middle">管理员密码：</td>
			<td align="left">
			<input name="password" type="password" class="form"></td>
		</tr>
		<tr>
			<td height="25" align="right" valign="middle">管理员E-mail:</td>
			<td align="left">
			<input name="e-mail" type="text" class="form"></td>
		</tr>
		<tr bgcolor="F3F3F3">
			<td height="25" align="right" valign="middle">管理员联系QQ：</td>
			<td align="left">
			<input name="QQ" type="text" class="form"></td>
		</tr>
		<tr align="center">
		<td align="center" height="50" style=" BORDER-top: #1C3566 1px solid;" colspan="10" background="images/footbg.gif">
		<input type="button" value="上一步" name="button" onclick="window.location.href='javascript:history.go(-1)'">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
		<input type="submit" value="下一步" name="Submit" class="button"></td>
		</tr>
	</form>
</table>
<%End Sub

Sub Sitestupe()

dim username,password,email,QQ,userclass,SiteManagePath
SiteManagePath=request.form("SiteManagePath")

file="../inc/version.asp"
FSOlinewrite file,2,"SiteManagePath="""&SiteManagePath&""""

username=trim(request.form("username"))
Truename=trim(request.form("Truename"))
password=trim(request.form("password"))
email=trim(request.form("e-mail"))
QQ=trim(request.form("QQ"))
	if username="" then
		response.write "<script language=javascript>alert('登录名不能为空!');history.back(-1);</script>"
		response.end
	end if
	if username="" then
		response.write "<script language=javascript>alert('昵称不能为空!');history.back(-1);</script>"
		response.end
	end if
	if password="" then
		response.write "<script language=javascript>alert('密码不能为空!');history.back(-1);</script>"
		response.end
	end if
set rs=server.createobject("adodb.recordset")
sql="select * from admin_user"
rs.open sql,conn,1,3
rs.addnew
rs("username")=username
rs("Truename")=Truename
rs("password")=Md5(password)
rs("email")=email
rs("QQ")=QQ
rs("userclass")=3
rs.update
rs.close
set rs=nothing
%>
<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=Exitstupe" method="post" name="myform" id="myform">
	<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">  V2.35 ACCESS/MSSQL 兼容版  系统安装向导</td>
	</tr>
		<tr align="center" valign="middle">
			<td height="32" colspan="4">
<table borderColor="#1f3566" cellSpacing="0" borderColorDark="#ffffff" cellPadding="0" width="100%" align="center" border="1" id="table1">
		<tr vAlign="center" align="middle" bgColor="#1c3566">
			<td colSpan="4" height="32"><b><font color="#ffffff">网站系统配置</font></b></td>
		</tr>
		<tr vAlign="center" align="middle" bgColor="#1c3566">
			<td colSpan="4" height="30"><b><font color="#ffffff">基本信息</font></b></td>
		</tr>
		<tr>
			<td align="right" width="25%" height="34">网站名称：<br>
　</td>
			<td width="75%" colSpan="3">
			<input class="form" maxLength="100" size="35" value="你的站名" name="Sitename"> 
			</td>