?? setup.asp
字號:
<%@ Language="VBScript" %>
<%
' 不使用輸出緩沖區，直接將運行結果顯示在客戶端
Response.Buffer = true
' 網頁立即超時，防止緩存導致測速失敗。
Response.Expires = -1
%><!--#include file="Inc.inc"-->
<html>
<head>
<style type="text/css">
BODY {font-family:Sans Serif, Tahoma, Arial, Georgia, Courier, Times New Roman, Serif, Simsun;font-size:12px;MARGIN: 10;color: #000000;line-height:150%;}
textarea,input,object,SELECT {
font-size:12px;font-family:Sans Serif, Tahoma, Arial, Georgia, Courier, Times New Roman, Serif, Simsun;vertical-align:middle;padding:1px;color:black;background-color:#FFFFFF;border:1px solid #B7C0C7;margin:2px;
}
TD { FONT-SIZE: 9pt;}
.mainTitle {color: #1C3566;FONT-WEIGHT: 900; FONT-SIZE: 14px; FONT-FAMILY: Verdana, Arial, Helvetica, sans-serif}
A:link {
COLOR: #0000FF; TEXT-DECORATION: none
}
A:visited {
COLOR: #313131; TEXT-DECORATION: none
}
A:active {
COLOR: #0000FF; TEXT-DECORATION: none
}
A:hover {
COLOR: #FF0000;LEFT: 1px; POSITION: relative;TEXT-DECORATION: NONE; TOP: 1px
}
</style>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>今世小說連載系統安裝向導</title>
</head>
<body topmargin="10">
<%
info=request.querystring("info")
if info="" or info=null then
Response.Redirect "default.htm"
Response.end
end if
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If Err = 0 Then IsObjInstalled = True
If Err = -2147352567 Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function
Select Case info
Case "index"
Call index()
Case "readme"
Call readme()
Case "savedat"
Call savedat()
Case "stmdb"
Call stmdb()
end select
Sub index()
Dim theInstalledObjects(24)
theInstalledObjects(0) = "MSWC.AdRotator"
theInstalledObjects(1) = "MSWC.BrowserType"
theInstalledObjects(2) = "MSWC.NextLink"
theInstalledObjects(3) = "MSWC.Tools"
theInstalledObjects(4) = "MSWC.Status"
theInstalledObjects(5) = "MSWC.Counters"
theInstalledObjects(6) = "IISSample.ContentRotator"
theInstalledObjects(7) = "IISSample.PageCounter"
theInstalledObjects(8) = "MSWC.PermissionChecker"
theInstalledObjects(9) = "Scripting.FileSystemObject"
theInstalledObjects(10) = "adodb.connection"
theInstalledObjects(11) = "SoftArtisans.FileUp"
theInstalledObjects(12) = "SoftArtisans.FileManager"
theInstalledObjects(13) = "JMail.SMTPMail"
theInstalledObjects(14) = "CDONTS.NewMail"
theInstalledObjects(15) = "Persits.MailSender"
theInstalledObjects(16) = "LyfUpload.UploadFile"
theInstalledObjects(17) = "Persits.Upload.1"
theInstalledObjects(18) = "CreatePreviewImage.cGvbox" 'CreatePreviewImage
theInstalledObjects(19) = "Persits.Jpeg" 'AspJpeg
theInstalledObjects(20) = "SoftArtisans.ImageGen" 'SoftArtisans ImgWriter V1.21
theInstalledObjects(21) = "sjCatSoft.Thumbnail"
theInstalledObjects(22) = "Microsoft.XMLHTTP"
theInstalledObjects(23) = "Adodb.Stream"
theInstalledObjects(24) = "JRO.JetEngine"
%>
<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="#1C3566" align="center" height="25" colspan="7"><b>
<font color="#FFFFFF">檢測服務器組件及瀏覽器版本</font></b></td>
</tr>
<tr>
<td bgcolor="F3F3F3"> <table width="100%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#1C3566" bordercolordark="#FFFFFF">
<tr>
<td colspan="2" bgcolor="#1C3566" height="32"> <font color="#FFFFFF"><strong>使用本系統，請確認您的服務器和你的瀏覽器滿足以下要求：</strong></font></td>
</tr>
<tr bgcolor="#FAFAFA" height="25">
<td width="50%"> <font face="Verdana, Arial, Helvetica, sans-serif">JRO.JetEngine(ACCESS</font><font face="Verdana, Arial, Helvetica, sans-serif">
</font>數據庫<span class="small2"><font face="Verdana, Arial, Helvetica, sans-serif">)</font>：</span>
<%If Not IsObjInstalled(theInstalledObjects(24)) Then%>
<font color="red">組件不支持 程序無法安裝</font> <%else%> <font color="0076AE">√</font> <%end if%></td>
<td width="50%"> 數據庫使用<span class="small2">：</span><%If Not IsObjInstalled(theInstalledObjects(10)) Then%>
<font color="red">組件不支持 程序無法安裝</font> <%else%> <font color="0076AE">√</font> <%end if%> Adodb.Stream：<%If Not IsObjInstalled(theInstalledObjects(23)) Then%>
<font color="red">組件不支持 程序無法安裝</font> <%else%> <font color="0076AE">√</font> <%end if%></td>
</tr>
<tr bgcolor="#FAFAFA" height="25">
<td> <span class="small2"><font face="Verdana, Arial, Helvetica, sans-serif">FSO</font></span>文本文件讀寫<span class="small2">：</span>
<%If Not IsObjInstalled(theInstalledObjects(9)) Then%>
<font color="red">組件不支持 程序無法安裝</font><%else%> <font color="0076AE">√</font> <%end if%></td>
<td> Microsoft.XMLHTTP：<%If Not IsObjInstalled(theInstalledObjects(22)) Then%>
<font color="red">組件不支持 程序無法安裝</font> <%else%> <font color="0076AE">√</font> <%end if%>
</td>
</tr>
<tr bgcolor="#FAFAFA" height="25">
<td colspan="2"> 客戶端瀏覽器版本：<%
Dim Agent,Browser,version,tmpstr
Agent=Request.ServerVariables("HTTP_USER_AGENT")
Agent=Split(Agent,";")
If InStr(Agent(1),"MSIE")>0 Then
Browser="MS Internet Explorer "
version=Trim(Left(Replace(Agent(1),"MSIE",""),6))
ElseIf InStr(Agent(4),"Netscape")>0 Then
Browser="Netscape "
tmpstr=Split(Agent(4),"/")
version=tmpstr(UBound(tmpstr))
ElseIf InStr(Agent(4),"rv:")>0 Then
Browser="Mozilla "
tmpstr=Split(Agent(4),":")
version=tmpstr(UBound(tmpstr))
If InStr(version,")") > 0 Then
tmpstr=Split(version,")")
version=tmpstr(0)
End If
End If
response.Write(""&Browser&" "&version&"")
%> [ 需要IE6.0或以上,服務器建議采用Windows 2000或Windows 2003 Server ]</td>
</tr>
<tr>
<td colspan="2" bgcolor="#1C3566" height="32"> <font color="#FFFFFF"><strong>服務器性能測試：</strong></font></td>
</tr>
<tr bgcolor="#FAFAFA" height="25"><td colspan="2">
<%
Response.Write "<h4>ASP腳本解釋和運算速度測試</h4><p>整數運算測試，正在進行50萬次加法運算..."
dim t1,t2,lsabc,thetime,thetime2
t1=timer
for i=1 to 500000
lsabc= 1 + 1
next
t2=timer
thetime=cstr(int(( (t2-t1)*10000 )+0.5)/10)
Response.Write "...已完成！<font color=red>" & thetime & "毫秒</font>。<br>"
Response.Write "浮點運算測試，正在進行20萬次開方運算..."
t1=timer
for i=1 to 200000
lsabc= 2^0.5
next
t2=timer
thetime2=cstr(int(( (t2-t1)*10000 )+0.5)/10)
Response.Write "...已完成！<font color=red>" & thetime2 & "毫秒</font>。<br>"
if Not IsObjInstalled(theInstalledObjects(9)) Then
Response.Write "<h4><font color=red>系統無法進行安裝！原因：Scripting.FileSystemObject組件不支持！</font></h4>"
Response.End
else
set fsoobj=server.CreateObject("Scripting.FileSystemObject")
Response.Write "<h4>磁盤文件操作速度測試</h4><p>正在重復創建、寫入和刪除文本文件50次..."
dim thetime3,tempfile,iserr
On Error Resume Next
tempfile1=server.MapPath("../") & "\aspchecktest.txt"
tempfile2=server.MapPath("../inc/") & "\aspchecktest.txt"
tempfile3=server.MapPath("../BookFace/") & "\aspchecktest.txt"
tempfile4=server.MapPath("../bookview/") & "\aspchecktest.txt"
tempfile5=server.MapPath("../Template/") & "\aspchecktest.txt"
tempfile6=server.MapPath("../articleFace/") & "\aspchecktest.txt"
tempfile7=server.MapPath("../articleview/") & "\aspchecktest.txt"
tempfile8=server.MapPath("../uploadfile/") & "\aspchecktest.txt"
set tempfileOBJ = FsoObj.CreateTextFile(tempfile1,true)
if Err <> 0 then
Response.Write "<br><font color=red>系統無法進行安裝！原因：根目錄中無法進行創建文件操作！</font>"
Response.Write "<br>請檢查根目錄的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>系統無法進行安裝！原因：根目錄中無法進行寫入文件操作！</font>"
Response.Write "<br>請檢查根目錄的FSO操作權限（需寫權限）！<br><br>"
Response.End
Err.Clear
end if
tempfileOBJ.close
Set tempfileOBJ = FsoObj.GetFile(tempfile1)
tempfileOBJ.Delete
if Err <> 0 then
Response.Write "<br><font color=red>系統無法進行安裝！原因：根目錄中無法進行刪除文件操作！</font>"
Response.Write "<br>請檢查根目錄的FSO操作權限（需寫權限）！<br><br>"
Response.End
Err.Clear
end if
set tempfileOBJ=nothing
set tempfileOBJ = FsoObj.CreateTextFile(tempfile2,true)
if Err <> 0 then
Response.Write "<br><font color=red>系統無法進行安裝！原因：INC目錄中無法進行創建文件操作！</font>"
Response.Write "<br>請檢查INC目錄的FSO操作權限（需寫權限）！<br><br>"
Response.End
end if
tempfileOBJ.WriteLine "Only for test. JsIceWeb ASPcheck"
if Err <> 0 then
Response.Write "<br><font color=red>系統無法進行安裝！原因：INC目錄中無法進行寫入文件操作！</font>"
Response.Write "<br>請檢查INC目錄的FSO操作權限（需寫權限）！<br><br>"
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -