setup.asp

小说站源代码文件

		tempfileOBJ.Delete 
		if Err <> 0 then
			FoundErr=FoundErr&"<font color=red>无法删除长篇作品封面！</font>原因：BookFace目录中无法进行删除文件操作！<br>"&Err.Description&"<br>||"
			Err.Clear
		end if
		set tempfileOBJ=nothing

		set tempfileOBJ = FsoObj.CreateTextFile(tempfile4,true)
		if Err <> 0 then
			FoundErr=FoundErr&"<font color=red>无法保存长篇章节图片！</font>原因：bookview目录中无法进行创建文件操作！<br>"&Err.Description&"<br>||"
			Err.Clear
		end if
		tempfileOBJ.WriteLine "Only for test. CnEndWeb ASPcheck"
		if Err <> 0 then
			FoundErr=FoundErr&"<font color=red>无法更新长篇章节图片！</font>原因：bookview目录中无法进行写入文件操作！<br>"&Err.Description&"<br>||"
			Err.Clear
		end if
		tempfileOBJ.close
		Set tempfileOBJ = FsoObj.GetFile(tempfile4)
		tempfileOBJ.Delete 
		if Err <> 0 then
			FoundErr=FoundErr&"<font color=red>无法删除长篇章节图片！</font>原因：bookview目录中无法进行删除文件操作！<br>"&Err.Description&"<br>||"
			Err.Clear
		end if
		set tempfileOBJ=nothing

		set tempfileOBJ = FsoObj.CreateTextFile(tempfile5,true)
		if Err <> 0 then
			FoundErr=FoundErr&"<font color=red>无法进行模版创建！</font>原因：Template目录中无法进行创建文件操作！<br>"&Err.Description&"<br>||"
			Err.Clear
		end if
		tempfileOBJ.WriteLine "Only for test. CnEndWeb ASPcheck"
		if Err <> 0 then
			FoundErr=FoundErr&"<font color=red>无法进行模版修改！</font>原因：Template目录中无法进行写入文件操作！<br>"&Err.Description&"<br>||"
			Err.Clear
		end if
		tempfileOBJ.close

		set tempfileOBJ = FsoObj.CreateTextFile(tempfile6,true)
		if Err <> 0 then
			FoundErr=FoundErr&"<font color=red>无法保存短篇作品封面！</font>原因：articleFace目录中无法进行创建文件操作！<br>"&Err.Description&"<br>||"
			Err.Clear
		end if
		tempfileOBJ.WriteLine "Only for test. CnEndWeb ASPcheck"
		if Err <> 0 then
			FoundErr=FoundErr&"<font color=red>无法更新短篇作品封面！</font>原因：articleFace目录中无法进行写入文件操作！<br>"&Err.Description&"<br>||"
			Err.Clear
		end if
		tempfileOBJ.close
		Set tempfileOBJ = FsoObj.GetFile(tempfile6)
		tempfileOBJ.Delete 
		if Err <> 0 then
			FoundErr=FoundErr&"<font color=red>无法删除短篇作品封面！</font>原因：articleFace目录中无法进行删除文件操作！<br>"&Err.Description&"<br>||"
			Err.Clear
		end if
		set tempfileOBJ=nothing

		set tempfileOBJ = FsoObj.CreateTextFile(tempfile7,true)
		if Err <> 0 then
			FoundErr=FoundErr&"<font color=red>无法保存短篇作品内容图片！</font>原因：articleview目录中无法进行创建文件操作！<br>"&Err.Description&"<br>||"
			Err.Clear
		end if
		tempfileOBJ.WriteLine "Only for test. CnEndWeb ASPcheck"
		if Err <> 0 then
			FoundErr=FoundErr&"<font color=red>无法更新短篇作品内容图片！</font>原因：articleview目录中无法进行写入文件操作！<br>"&Err.Description&"<br>||"
			Err.Clear
		end if
		tempfileOBJ.close
		Set tempfileOBJ = FsoObj.GetFile(tempfile7)
		tempfileOBJ.Delete 
		if Err <> 0 then
			FoundErr=FoundErr&"<font color=red>无法删除短篇作品内容图片！</font>原因：articleview目录中无法进行删除文件操作！<br>"&Err.Description&"<br>||"
			Err.Clear
		end if
		set tempfileOBJ=nothing

		set tempfileOBJ = FsoObj.CreateTextFile(tempfile8,true)
		if Err <> 0 then
			FoundErr=FoundErr&"<font color=red>无法保存上传图片！</font>原因：uploadfile目录中无法进行创建文件操作！<br>"&Err.Description&"<br>||"
			Err.Clear
		end if
		tempfileOBJ.WriteLine "Only for test. CnEndWeb ASPcheck"
		if Err <> 0 then
			FoundErr=FoundErr&"<font color=red>无法更新上传图片！</font>原因：uploadfile目录中无法进行写入文件操作！<br>"&Err.Description&"<br>||"
			Err.Clear
		end if
		tempfileOBJ.close
		Set tempfileOBJ = FsoObj.GetFile(tempfile8)
		tempfileOBJ.Delete 
		if Err <> 0 then
			FoundErr=FoundErr&"<font color=red>无法删除上传图片！</font>原因：uploadfile目录中无法进行删除文件操作！<br>"&Err.Description&"<br>||"
			Err.Clear
		end if
		set tempfileOBJ=nothing

		set tempfileOBJ = FsoObj.CreateTextFile(tempfile9,true)
		if Err <> 0 then
			FoundErr=FoundErr&"<font color=red>无法保存上传的电子书！</font>原因：uploadpath目录中无法进行创建文件操作！<br>"&Err.Description&"<br>||"
			Err.Clear
		end if
		tempfileOBJ.WriteLine "Only for test. CnEndWeb ASPcheck"
		if Err <> 0 then
			FoundErr=FoundErr&"<font color=red>无法更新上传的电子书！</font>原因：uploadpath目录中无法进行写入文件操作！<br>"&Err.Description&"<br>||"
			Err.Clear
		end if
		tempfileOBJ.close
		Set tempfileOBJ = FsoObj.GetFile(tempfile9)
		tempfileOBJ.Delete 
		if Err <> 0 then
			FoundErr=FoundErr&"<font color=red>无法删除上传的电子书！</font>原因：uploadpath目录中无法进行删除文件操作！<br>"&Err.Description&"<br>||"
			Err.Clear
		end if
		set tempfileOBJ=nothing

		set tempfileOBJ = FsoObj.CreateTextFile(tempfile10,true)
		if Err <> 0 then
			FoundErr=FoundErr&"<font color=red>无法生成TXT格式全文电子书！</font>原因：booktext目录中无法进行创建文件操作！<br>"&Err.Description&"<br>||"
			Err.Clear
		end if
		tempfileOBJ.WriteLine "Only for test. CnEndWeb ASPcheck"
		if Err <> 0 then
			FoundErr=FoundErr&"<font color=red>无法更新TXT格式全文电子书！</font>原因：booktext目录中无法进行写入文件操作！<br>"&Err.Description&"<br>||"
			Err.Clear
		end if
		tempfileOBJ.close
		Set tempfileOBJ = FsoObj.GetFile(tempfile10)
		tempfileOBJ.Delete 
		if Err <> 0 then
			FoundErr=FoundErr&"<font color=red>无法删除TXT格式全文电子书！</font>原因：booktext目录中无法进行删除文件操作！<br>"&Err.Description&"<br>||"
			Err.Clear
		end if
		set tempfileOBJ=nothing
		
		set tempfileOBJ = FsoObj.CreateTextFile(tempfile0,true)
		if Err <> 0 then
			FoundErr=FoundErr&"<font color=red>无法生成静态页面！</font>原因：HTML目录中无法进行创建文件操作！<br>"&Err.Description&"<br>||"
			Err.Clear
		end if
		tempfileOBJ.WriteLine "Only for test. CnEndWeb ASPcheck"
		if Err <> 0 then
			FoundErr=FoundErr&"<font color=red>无法更新静态页面！</font>原因：HTML目录中无法进行写入文件操作！<br>"&Err.Description&"<br>||"
			Err.Clear
		end if
		tempfileOBJ.close
		Set tempfileOBJ = FsoObj.GetFile(tempfile0)
		tempfileOBJ.Delete 
		if Err <> 0 then
			FoundErr=FoundErr&"<font color=red>无法删除静态页面！</font>原因：HTML目录中无法进行删除文件操作！<br>"&Err.Description&"<br>||"
			Err.Clear
		end if
		set tempfileOBJ=nothing
	if FoundErr <> "" then
		yzerrr=split(FoundErr,"||")
		Response.Write "<h5>系统发现 <b><font color=red>"&ubound(yzerrr)&"</font></b> 条非严重磁盘运行环境问题，可以继续安装但安装后会有部分功能受限<br>建议根据提示修正后重新尝试运行安装程序，以免影响您正常使用！</h5><br>"
		Response.Write "<ol>"
		for yzj=0 to ubound(yzerrr)-1
			Response.Write "<li>"&yzerrr(yzj)&"</li>"
		next
		Response.Write "</ol>"
'		response.end
	end if

	if isyzerr=true then
		yzerrr=split(FoundErr0,"||")
		Response.Write "<h5>系统发现 <b><font color=red>"&ubound(yzerrr)&"</font></b> 条严重磁盘运行环境问题无法继续安装<br>请根据提示修正后重新尝试运行安装程序！</h5><br>"
		Response.Write "<ol>"
		for yzj=0 to ubound(yzerrr)-1
			Response.Write "<li>"&yzerrr(yzj)&"</li>"
		next
		Response.Write "</ol>"
		response.end
	else
		Response.Write "没有发现严重磁盘运行环境问题。<br>"
	Response.Write "<h4>磁盘文件操作速度测试</h4><p>正在重复创建、写入和删除文本文件50次..."

	iserr=false
	FoundErr1=""
	FoundErr2=""
	FoundErr3=""
	t1=timer
	for i=1 to 50
		Err.Clear
		set tempfileOBJ = FsoObj.CreateTextFile(tempfile0,true)
		if Err <> 0 then
			FoundErr1="<li><font color=red>无法生成静态页面！</font>原因：HTML目录中无法进行创建文件操作！<br>"&Err.Description&"<br></li>"
			iserr=true
			Err.Clear
			exit for
		end if
		tempfileOBJ.WriteLine "Only for test. CnEndWeb ASPcheck"
		if Err <> 0 then
			FoundErr2="<li><font color=red>无法更新静态页面！</font>原因：HTML目录中无法进行写入文件操作！<br>"&Err.Description&"<br></li>"
			iserr=true
			Err.Clear
			exit for
		end if
		tempfileOBJ.close
		Set tempfileOBJ = FsoObj.GetFile(tempfile0)
		tempfileOBJ.Delete 
		if Err <> 0 then
			FoundErr3="<li><font color=red>无法删除静态页面！</font>原因：HTML目录中无法进行删除文件操作！<br>"&Err.Description&"<br></li>"
			iserr=true
			Err.Clear
			exit for
		end if
		set tempfileOBJ=nothing

	next
	t2=timer
	
	if iserr <> true then
		thetime3=cstr(int(( (t2-t1)*10000 )+0.5)/10)
		Response.Write "...已完成！<font color=red>" & thetime3 & "毫秒</font>。<br><br>"
		Response.Write "<br><h4>经测试可以进行终点小说连载系统的安装！请点击“下一步”继续进行数据库设置。</h4>"
		Response.Flush
	else
		Response.Write "<h5>系统发现磁盘运行环境问题可造成安装后部分功能受限<br>建议根据提示修正后重新尝试运行安装程序！</h5><br>"
		Response.Write "<ol>"
		Response.Write FoundErr1&FoundErr2&FoundErr3
		Response.Write "</ol>"
	end if
	end if
	
end if
%><br></td>
		</tr>
	</table></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(-)'">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
		<input type="button" value="下一步" id="Button1" name="Button1" onclick="JavaScript:location.href='setup.asp?info=savedat'"></td>
	</tr>
</table>
<%
end Sub
Sub readme()
%>
<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" >
	<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="F3F3F3">
		<li><b>终点小说连载系统安装说明</b><br>
		　　终点小说连载系统由李瑞光（终点/劉剡灝/劉龑灝/刘