⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 setup1.asp

📁 小说站源代码文件
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('商海沉浮',4)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('青春校园',4)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('恩怨情仇',4)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('白领生涯',4)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('宦海风云',4)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('都市重生',4)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('都市异能',4)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('历史传记',5)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('架空历史',5)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('三国梦想',5)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('现代战争',6)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('战争幻想',6)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('特种军旅',6)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('游戏生涯',7)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('电子竞技',7)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('虚拟网游',7)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('体育竞技',8)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('篮球运动',8)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('足球运动',8)")
	Conn.Execute("InSert Into list_class (list_classname,list_typeID) Values ('弈林生涯',8)")
	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 ('机器时代',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">  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 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="" or strLength(username)>40 then
		response.write "<script language=javascript>alert('登录名不能为空!(不能大于40)');history.back(-1);</script>"
		response.end
	else
	 	if Instr(username,"=")>0 or Instr(username,"%")>0 or Instr(username,chr(32))>0 or Instr(username,"?")>0 or Instr(username,"&")>0 or Instr(username,";")>0 or Instr(username,",")>0 or Instr(username,"'")>0 or Instr(username,",")>0 or Instr(username,chr(34))>0 or Instr(username,chr(9))>0 or Instr(username,"
12

⌨️ 快捷键说明

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