📄 setup.asp

📁 功能强大首发! 演示地址:http://jsice.com QQ:3300828 运行环境： Internet Information Server 5.x or 6.0 （ii
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<%@ 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">&nbsp;
			</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>"
12 下一页
💿 文件大小 2614 K
👤 上传用户 tsdtz
📂 所属分类书籍源码
🏷️ 相关标签

#Information #Internet #3300828 #Server
⌨️ 快捷键说明

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