📄 setup.asp
字号:
<!--#Include File="Conn.asp" -->
<%
Dim dis
Dim Gocode
Dim StepNum
Dim Url
If Request("Step") = "" Or Not IsNumeric(Request("Step")) Then
StepNum = 0
Else
StepNum = CInt(Request("Step"))
End If
%>
<title>欢迎您使用拓网文件上传系统 -- 安装向导</title>
<link href="images/setup.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<body leftmargin="0" topmargin="5">
<table width="755" border="0" align="center" cellpadding="3" cellspacing="1" bgcolor="#F6F6F6">
<tr>
<td align="center" class="RightCut1_2"> </td>
<td align="center" class="RightCut1_2"><img src="images/logo.gif"></td>
</tr>
<tr>
<td rowspan="2" valign="top" nowrap class="RightCut1_2"> </td>
<td width="100%" valign="top" class="RightCut1_2"><blockquote class="TopTopic"><font color="#000033"><br>
-= <strong>欢迎进入拓网文件上传系统安装向导</strong> =-</font> <% If StepNum > 0 Then %>第<font color="#990000"><b><%= StepNum %></b></font>步<% End If %><br><br>
<%
Select Case StepNum
Case 0
Call Normal
GoCode = "location.href = '?Step="& StepNum + 1 &"'"
Case 1
Call CheckComponent()
GoCode = "location.href = '?Step="& StepNum + 1 &"'"
Case 2
If IsSqlDataBase=0 Then
Call Access_Step1
Else
Call SQL_Step1
End If
dis = " disabled"
GoCode = "location.href = '?Step="& StepNum + 1 &"'"
Case 3
Call ClearFiles
GoCode = "location.href = '?Step="& StepNum + 1 &"'"
Case 4
Call EndStr
End Select
Function CheckObject(ByVal ObjectName)
On Error Resume Next
Dim temp
Set temp = Server.CreateObject(ObjectName)
If Err.Number <> 0 Then
Err.Clear
CheckObject = "<font color=""#FF0000"">×</font>"
Else
CheckObject = "<font color=""#0000FF"">√</font>"
End If
Set temp = Nothing
End Function
Function FileIsExists(FilePath)
Dim FSO,sFilePath
Set FSO = CreateObject("Scripting.FileSystemObject")
sFilePath=Server.MapPath(FilePath)
If (FSO.FileExists(sFilePath)) Then
FileIsExists="True"
Else
FileIsExists="False"
End If
End Function
Sub Normal
%>
拓网文件上传系统是由 [<b><a href="http://www.topwang.com">拓网</a></b>]
开发编写的一个高速、高效、简洁、安全、支持多组件的上传提取系统．<br>
<br>
<font color="#663300">运行此安装向导所需的条件</font>：<br>
1. 必须保证安装文件[<font color="#330000">Setup.asp</font>]处于您的系统根目录中<br>
2. 运行此程序的伺服器必须支持解释执行[<font color="#330000">ASP</font>]程式，并支持[<font color="#330000">FSO</font>]及[<font color="#330000">ADODB.Stream</font>]对象,具有写入文件的权限<br>
3. 必须保证有可用的数据驱动[<font color="#330000">MSSQL/ACCESS</font>]，如果是MSSQL，则必须具备有对其操作的权限<br>
提示：您当前的系统是[<%If IsSqlDataBase Then Response.Write "MSSQL版本" Else Response.Write "Access版本"%>]<br>
<br>
<font color="#990000">如果符合上述条件，请点击[下一步]按钮开始安装</font>
<%
End Sub
Sub CheckComponent()
Dim Objects(14)
'必要组件
Objects(0) = CheckObject("Adodb.Connection")
Objects(1) = CheckObject("Adodb.Recordset")
Objects(2) = CheckObject("Adodb.Stream")
Objects(3) = CheckObject("Scripting.Dictionary")
Objects(4) = CheckObject("Scripting.FileSystemObject")
'可选上传组件
Objects(5) = CheckObject("Persits.Upload")
Objects(6) = CheckObject("SoftArtisans.FileUp")
Objects(7) = CheckObject("DvFile.Upload")
Objects(8) = CheckObject("IronSoft.Upload")
Objects(9) = CheckObject("LyfUpload.UploadFile")
Objects(10) = CheckObject("w3.Upload")
'可选缩略图及水印组件
Objects(11) = CheckObject("CreatePreviewImage.cGvbox")
Objects(12) = CheckObject("Persits.Jpeg")
Objects(13) = CheckObject("SoftArtisans.ImageGen")
%>
请先确认您的运行环境支持以下的5项 <B>必要</B> 组件：<br>
<ul>
<li><%=Objects(0)%> Adodb.Connection (数据库连接组件)</li>
<li><%=Objects(1)%> Adodb.Recordset (数据记录集组件)</li>
<li><%=Objects(2)%> Adodb.Stream (流操作组件)</li>
<li><%=Objects(3)%> Scripting.Dictionary 内置字典对象</li>
<li><%=Objects(4)%> Scripting.FileSystemObject 内置文件系统组件</li>
</ul>
<p>上传组件(可选)：<br>
<ul>
<li><%=Objects(5)%> Adodb.Stream (风声无组件上传类)</li>
<li><%=Objects(5)%> Persits.Upload (AspUpload 3.0 上传组件) <B>强烈推荐</B></li>
<li><%=Objects(6)%> SoftArtisans.FileUp (SA-FileUp 4.9 上传组件)</li>
<li><%=Objects(7)%> DvFile.Upload (DvFile.Upload 1.0 上传组件)</li>
<li><%=Objects(8)%> IronSoft.Upload (IronSoft.Upload 上传组件)</li>
<li><%=Objects(9)%> LyfUpload.UploadFile (LyfUpload.UploadFile 上传组件)</li>
<li><%=Objects(10)%> w3.Upload (w3.Upload 上传组件)</li>
</ul>
<p>缩略图及水印组件(可选)：<br>
<ul>
<li><%=Objects(11)%> CreatePreviewImage.cGvbox (CreatePreviewImage 组件)</li>
<li><%=Objects(12)%> Persits.Jpeg (AspJpeg 1.2 组件)</li>
<li><%=Objects(13)%> SoftArtisans.ImageGen (SoftArtisans ImgWriter V1.21组件)</li>
</ul>
<%
End Sub
Sub SQL_Step1
If FileIsExists("./Create.asp")="False" Then
Response.Write "安装文件Create.asp不存在，无法进行操作! <br>解决办法:复制原来压缩包内的Create.asp到Setup.asp相同的目录"
Resposne.End
End If
Dim RndNum
Dim AllPath,Folder,Index
Randomize Timer
RndNum = "TwUpload" & (1+Int(rnd*1000000))
AllPath=Request.ServerVariables ("URL")
Index=InStr(LCase(AllPath),"/setup.asp")
Folder=Left(AllPath,Index)
%>
系统编号 <font color="#990000"><%=RndNum%></font>
<input type="hidden" name="key" value="<%=RndNum%>">
<input type="hidden" name="DataType" value="<%=IsSqlDataBase%>">
<input type="hidden" name="Folder" value="<%=Folder%>">
<br><br>
请设定一个数据库名称，它将作为您的系统数据库而被创建于指定的数据库服务器中<br>
数据库名称:
<input name="DataName" type="text" class="LoginInput" size="30">
[<font color="#990000">请尽量使用英文/数字/英文+数字形式</font>] <br>
<br>
请设定一个数据库服务器，它将作为您的系统的数据提供者<br>
数据服务器:
<input name="DataHost" type="text" class="LoginInput" size="30" value="(local)">
<br>
数据库用户:
<input name="DataUser" type="text" class="LoginInput" size="30">
<br>
数据库密码:
<input name="DataPass" type="text" class="LoginInput" size="30">
<input name="CHost" type="button" class="LButton" id="CHost" onClick="javascript:View.location.href='Create.asp?Type=Data&DataName='+document.all.DataName.value+'&DataHost='+document.all.DataHost.value+'&DataUser='+document.all.DataUser.value+'&DataPass='+document.all.DataPass.value+'&key='+document.all.key.value+'&folder='+document.all.Folder.value+'&datatype='+document.all.DataType.value;" style="bgcolor:#EEEEEE" value="连接至此服务器并创建数据库">
<%
End Sub
Sub Access_Step1
If FileIsExists("./Create.asp")="False" Then
Response.Write "安装文件Create.asp不存在，无法进行操作! <p>"
Response.Write "可以通过下面两种方法解决:<br><ul><li>1、复制原来压缩包内的Create.asp到Setup.asp相同的目录中。</li><li>2、直接修改Const.asp文件。</li></ul>"
Response.End
End If
Dim RndNum
Dim AllPath,Folder,Index
Randomize Timer
RndNum = "TwUpload" & (1+Int(rnd*1000000))
AllPath=Request.ServerVariables ("URL")
Index=InStr(LCase(AllPath),"/setup.asp")
Folder=Left(AllPath,Index)
%>
系统编号 <font color="#990000"><%=RndNum%></font>
<input type="hidden" name="key" value="<%=RndNum%>">
<input type="hidden" name="DataType" value="<%=IsSqlDataBase%>">
<input type="hidden" name="Folder" value="<%=Folder%>">
<br>
请输入你的系统数据库路径:
<input name="DataName" type="text" class="LoginInput" size="30" value="DataBase/TopWang.asp"> <input name="CHost" type="button" class="LButton" id="CHost" onClick="javascript:View.location.href='Create.asp?Type=Data&key='+document.all.key.value+'&DataName='+document.all.Folder.value+document.all.DataName.value+'&folder='+document.all.Folder.value+'&datatype='+document.all.DataType.value;" style="bgcolor:#EEEEEE" value="点击此测试连接数据库"><br><br>
[请输入您的数据库路径，如没有修改，使用默认即可；否则请改为正确的目录名及文件名。<font color="#990000">数据库文件已进行防下载处理</font>]
<%
End Sub
Sub ClearFiles
On Error Resume Next
Err.Clear
Dim MyFso
Set MyFso = CreateObject("Scripting.FileSystemObject")
MyFso.DeleteFile(server.mappath("./") & "\Create.asp")
If Err Then
response.write "<font color=800000>因为您的服务器FSO权限设置可能有点问题，所有没有任何安装文件被清除，请手动把程序目录下的Setup.asp和Create.asp文件删除！</font>"
Else
response.write "<font color=green>安装文件已经清理完毕！</font>"
End If
End Sub
Sub EndStr()
Url = "http://" & Request.ServerVariables("Server_Name") & Left(Request.ServerVariables("Script_Name"),Len(Request.ServerVariables("Script_Name")) - Len(Split(Request.ServerVariables("Script_Name"),"/")(UBound(Split(Request.ServerVariables("Script_Name"),"/")))))
%>
<br>
<font color="#FF3300">安装顺利完成，现在您可以使用 <a href="<%=Url%>"><%=Url%></a> 来访问您的系统了</font>
<%End Sub%>
<div style="display:none"><iframe id="View" name="View" src="" width="100%" frameborder="0" scrolling="no"></iframe></div>
<br><div id="viewcode" style="color:#FF0000"> </div>
</td>
</tr>
<tr>
<td align="right" valign="top" class="RightCut1_1"><% If StepNum < 3 Then %>
<input type="button" name="C" value="取消安装(C)" onClick="Javascript:location.href = 'http://www.nbarticle.com';">
<% If StepNum > 0 Then %>
<input type="button" name="P" value="<<上一步(P)" onClick="Javascript:location.href = '?Step=<%= StepNum - 1 %>';">
<% End If %>
<input type="button" name="N" value="下一步>>(N)" <%=dis%> onClick="Javascript:<%=GoCode%>;">
<% Else %><input type="button" name="N" value="完成(O)" <%=dis%> onClick="Javascript:location.href ='<%=Url%>';"><% End If %></td>
</tr>
</table>
</p>
<table width="755" border="0" align="center" cellpadding="3" cellspacing="1">
<tr>
<td height="5" bgcolor="f5f5f5"></td>
</tr>
<tr>
<td align=center>Copyright (c) 2003-2006 <a href=http://www.TopWang.com target=_blank><font face=Verdana, Arial, Helvetica, sans-serif size=1><b>TopWang<font color=#CC0000>.Com</font></b></font></a>. All Rights Reserved .</td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -