Настраиваемый сетевой диск должен иметь IIS для поиска папки с другого сервера?

Question

Требуется ли, чтобы сервер подключенного сетевого диска должен был установить IIS для извлечения папки с использованием классического asp?

Код, который я написал, работает нормально, когда я пытаюсь проверить папку, существует или нет на сервере1. Но когда я пытаюсь проверить путь на сервере2 или нет, он не работает. Он всегда дает сообщение о том, что папка не существует.

Обратите внимание, что сервер 2 не установлен IIS. Я запускаю код с сервера1, где установлен IIS.

Form.asp

<FORM method="post" encType="multipart/form-data" action="Upload.asp" > 
    <INPUT type="File" name="File1"> 
    <INPUT type="Submit" value="Upload"> 
    </FORM> 

upload.asp

<%dim fs 
set fs=Server.CreateObject("Scripting.FileSystemObject") 
'to check whether folder exist or not 
if fs.FolderExists("\\Servre1\temp")=true then 
    response.write("Folder exists!") 
else 
    response.write("Folder does not exist!") 
end if 
set fs=nothing%> 

Приведенный выше код работает отлично, если я хочу, чтобы найти папку существует или не на том же сервере, но не работает сервер 2. Вот почему я пытаюсь подключиться к сетевому диску Mapped. Он снова не работает.

Проблема связана с сетевым диском, не установленным IIS, поэтому код, написанный на сервере1, может работать на сервере2?

Answer 1

Я бы установил виртуальную папку, которая отображается на сетевой диск. таким образом, вам не нужно изменять какой-либо фактический код, вам просто нужно установить виртуальный каталог на место для каждого веб-сервера.

Answer 2

Below mentioned code is working fine now! 

<% 

ServerShare = "\\Server1\TEMP\" 
UserName = "domain\username" 
Password = "password" 

Set NetworkObject = CreateObject("WScript.Network") 
Set fs = CreateObject("Scripting.FileSystemObject") 

'Z: is the name of network drive which you try to access 
NetworkObject.MapNetworkDrive "Z:", ServerShare, False, UserName, Password 

if fs.FolderExists("\Server1\TEMP\")=true then 
    response.write("Folder exists!") 
else 

set f=fs.CreateFolder("\Server1\TEMP\temp23") 
response.write("Folder does not exist!") 
end if 
set fs=nothing 

Set NetworkObject = Nothing 
%>