?? setup.asp
字號:
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. CnEndWeb 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. CnEndWeb 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. CnEndWeb 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. CnEndWeb 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. CnEndWeb 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. CnEndWeb 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. CnEndWeb 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(-)'">
<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>
終點小說連載系統由李瑞光（終點/劉剡灝/劉龑灝/劉?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -