setup.asp

功能强大 首发! 演示地址:http://jsice.com QQ:3300828 运行环境： Internet Information Server 5.x or 6.0 （ii

   Response.End
			Err.Clear
		end if
		tempfileOBJ.close
		Set tempfileOBJ = FsoObj.GetFile(tempfile2)
		tempfileOBJ.Delete 
		if Err <> 0 then
			Response.Write "<br><font color=red>系统无法进行安装！原因：INC目录中无法进行删除文件操作！</font>"
			Response.Write "<br>请检查INC目录的FSO操作权限（需写权限）！<br><br>"
			iserr=true
   Response.End
		end if
		set tempfileOBJ=nothing

		set tempfileOBJ = FsoObj.CreateTextFile(tempfile3,true)
		if Err <> 0 then
			Response.Write "<br><font color=red>系统无法进行安装！原因：BookFace目录中无法进行创建文件操作！</font>"
			Response.Write "<br>请检查BookFace目录的FSO操作权限（需写权限）！<br><br>"
   Response.End
			Err.Clear
		end if
		tempfileOBJ.WriteLine "Only for test. JsIceWeb ASPcheck"
		if Err <> 0 then
			Response.Write "<br><font color=red>系统无法进行安装！原因：BookFace目录中无法进行写入文件操作！</font>"
			Response.Write "<br>请检查BookFace目录的FSO操作权限（需写权限）！<br><br>"
   Response.End
			Err.Clear
		end if
		tempfileOBJ.close
		Set tempfileOBJ = FsoObj.GetFile(tempfile3)
		tempfileOBJ.Delete 
		if Err <> 0 then
			Response.Write "<br><font color=red>系统无法进行安装！原因：BookFace目录中无法进行删除文件操作！</font>"
			Response.Write "<br>请检查BookFace目录的FSO操作权限（需写权限）！<br><br>"
   Response.End
			Err.Clear
		end if
		set tempfileOBJ=nothing

		set tempfileOBJ = FsoObj.CreateTextFile(tempfile4,true)
		if Err <> 0 then
			Response.Write "<br><font color=red>系统无法进行安装！原因：bookview目录中无法进行创建文件操作！</font>"
			Response.Write "<br>请检查bookview目录的FSO操作权限（需写权限）！<br><br>"
   Response.End
			Err.Clear
		end if
		tempfileOBJ.WriteLine "Only for test. JsIceWeb ASPcheck"
		if Err <> 0 then
			Response.Write "<br><font color=red>系统无法进行安装！原因：bookview目录中无法进行写入文件操作！</font>"
			Response.Write "<br>请检查bookview目录的FSO操作权限（需写权限）！<br><br>"
   Response.End
			Err.Clear
		end if
		tempfileOBJ.close
		Set tempfileOBJ = FsoObj.GetFile(tempfile4)
		tempfileOBJ.Delete 
		if Err <> 0 then
			Response.Write "<br><font color=red>系统无法进行安装！原因：bookview目录中无法进行删除文件操作！</font>"
			Response.Write "<br>请检查bookview目录的FSO操作权限（需写权限）！<br><br>"
   Response.End
			Err.Clear
		end if
		set tempfileOBJ=nothing

		set tempfileOBJ = FsoObj.CreateTextFile(tempfile5,true)
		if Err <> 0 then
			Response.Write "<br><font color=red>系统无法进行安装！原因：Template目录中无法进行创建文件操作！</font>"
			Response.Write "<br>请检查Template目录的FSO操作权限（需写权限）！<br><br>"
   Response.End
			Err.Clear
		end if
		tempfileOBJ.WriteLine "Only for test. JsIceWeb ASPcheck"
		if Err <> 0 then
			Response.Write "<br><font color=red>系统无法进行安装！原因：Template目录中无法进行写入文件操作！</font>"
			Response.Write "<br>请检查Template目录的FSO操作权限（需写权限）！<br><br>"
   Response.End
			Err.Clear
		end if
		tempfileOBJ.close
		Set tempfileOBJ = FsoObj.GetFile(tempfile5)
		tempfileOBJ.Delete 
		if Err <> 0 then
			Response.Write "<br><font color=red>系统无法进行安装！原因：Template目录中无法进行删除文件操作！</font>"
			Response.Write "<br>请检查Template目录的FSO操作权限（需写权限）！<br><br>"
   Response.End
			Err.Clear
		end if
		set tempfileOBJ=nothing

		set tempfileOBJ = FsoObj.CreateTextFile(tempfile6,true)
		if Err <> 0 then
			Response.Write "<br><font color=red>系统无法进行安装！原因：articleFace目录中无法进行创建文件操作！</font>"
			Response.Write "<br>请检查articleFace目录的FSO操作权限（需写权限）！<br><br>"
   Response.End
			Err.Clear
		end if
		tempfileOBJ.WriteLine "Only for test. JsIceWeb ASPcheck"
		if Err <> 0 then
			Response.Write "<br><font color=red>系统无法进行安装！原因：articleFace目录中无法进行写入文件操作！</font>"
			Response.Write "<br>请检查articleFace目录的FSO操作权限（需写权限）！<br><br>"
   Response.End
			Err.Clear
		end if
		tempfileOBJ.close
		Set tempfileOBJ = FsoObj.GetFile(tempfile6)
		tempfileOBJ.Delete 
		if Err <> 0 then
			Response.Write "<br><font color=red>系统无法进行安装！原因：articleFace目录中无法进行删除文件操作！</font>"
			Response.Write "<br>请检查articleFace目录的FSO操作权限（需写权限）！<br><br>"
   Response.End
			Err.Clear
		end if
		set tempfileOBJ=nothing

		set tempfileOBJ = FsoObj.CreateTextFile(tempfile7,true)
		if Err <> 0 then
			Response.Write "<br><font color=red>系统无法进行安装！原因：articleview目录中无法进行创建文件操作！</font>"
			Response.Write "<br>请检查articleview目录的FSO操作权限（需写权限）！<br><br>"
   Response.End
			Err.Clear
		end if
		tempfileOBJ.WriteLine "Only for test. JsIceWeb ASPcheck"
		if Err <> 0 then
			Response.Write "<br><font color=red>系统无法进行安装！原因：articleview目录中无法进行写入文件操作！</font>"
			Response.Write "<br>请检查articleview目录的FSO操作权限（需写权限）！<br><br>"
   Response.End
			Err.Clear
		end if
		tempfileOBJ.close
		Set tempfileOBJ = FsoObj.GetFile(tempfile7)
		tempfileOBJ.Delete 
		if Err <> 0 then
			Response.Write "<br><font color=red>系统无法进行安装！原因：articleview目录中无法进行删除文件操作！</font>"
			Response.Write "<br>请检查articleview目录的FSO操作权限（需写权限）！<br><br>"
   Response.End
			Err.Clear
		end if
		set tempfileOBJ=nothing

		set tempfileOBJ = FsoObj.CreateTextFile(tempfile8,true)
		if Err <> 0 then
			Response.Write "<br><font color=red>系统无法进行安装！原因：uploadfile目录中无法进行创建文件操作！</font>"
			Response.Write "<br>请检查uploadfile目录的FSO操作权限（需写权限）！<br><br>"
   Response.End
			Err.Clear
		end if
		tempfileOBJ.WriteLine "Only for test. JsIceWeb ASPcheck"
		if Err <> 0 then
			Response.Write "<br><font color=red>系统无法进行安装！原因：uploadfile目录中无法进行写入文件操作！</font>"
			Response.Write "<br>请检查uploadfile目录的FSO操作权限（需写权限）！<br><br>"
   Response.End
			Err.Clear
		end if
		tempfileOBJ.close
		Set tempfileOBJ = FsoObj.GetFile(tempfile8)
		tempfileOBJ.Delete 
		if Err <> 0 then
			Response.Write "<br><font color=red>系统无法进行安装！原因：uploadfile目录中无法进行删除文件操作！</font>"
			Response.Write "<br>请检查uploadfile目录的FSO操作权限（需写权限）！<br><br>"
   Response.End
			Err.Clear
		end if
		set tempfileOBJ=nothing

    iserr=false
	t1=timer
	tempfile0=server.MapPath("../html/") & "\aspchecktest.txt"
	for i=1 to 50
		Err.Clear
		set tempfileOBJ = FsoObj.CreateTextFile(tempfile0,true)
		if Err <> 0 then
			Response.Write "<br><font color=red>系统无法进行安装！原因：HTML目录中无法进行创建文件操作！</font>"
			Response.Write "<br>请检查HTML目录的FSO操作权限（需写权限）！<br><br>"
			iserr=true
			Err.Clear
			exit for
		end if
		tempfileOBJ.WriteLine "Only for test. JsIceWeb ASPcheck"
		if Err <> 0 then
			Response.Write "<br><font color=red>系统无法进行安装！原因：HTML目录中无法进行写入文件操作！</font>"
			Response.Write "<br>请检查HTML目录的FSO操作权限（需写权限）！<br><br>"
			iserr=true
			Err.Clear
			exit for
		end if
		tempfileOBJ.close
		Set tempfileOBJ = FsoObj.GetFile(tempfile0)
		tempfileOBJ.Delete 
		if Err <> 0 then
			Response.Write "<br><font color=red>系统无法进行安装！原因：HTML目录中无法进行删除文件操作！</font>"
			Response.Write "<br>请检查HTML目录的FSO操作权限（需写权限）！<br><br>"
			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
	end if
	end if
%><br></td>
		</tr>
			<td colspan="2">
	</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">  V2.35 ACCESS/MSSQL 兼容版  系统安装向导</td>
	</tr>
	<tr>
		<td bgcolor="F3F3F3">
		<li><b>今世小说连载系统安装说明</b><br>
		　　今世小说连载系统由小武（今世/小武/劉龑灝/刘