Форум программистов, компьютерный форум, киберфорум
Наши страницы
C#: Web, ASP.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
alexbl
0 / 0 / 0
Регистрация: 23.05.2007
Сообщений: 236
1

На серваке провайдера не хочет работать fso

16.01.2008, 16:49. Просмотров 1130. Ответов 14
Метки нет (Все метки)

На серваке провайдера не хочет работать fso, причем именно на моем сайте, его перенесли на другой сервак, FSO поработал пару дней и опять слетел (именно этот код, т.к. все остальное работает), перествили Windows Scripting 5.6 и все заработало на пару дней и так до бесконечности, вот код файла:
<%
Function FSO_news_update()
on error resume next
err.Clear
strPath = 'd:inetpubdvcrt.ruwww\_private
ews
ews_ru.htm'
Dim fso
Set fso = Server.CreateObject('Scripting.FileSystemObject')
Set file = fso.CreateTextFile(strPath, TRUE)
file.Write('<TABLE>')
file.Write('<TR>')
file.Write('<TD width=''50%''><TABLE border=0 cellspacing=4 cellpadding=0 bgcolor=#F4F4F4>')
Set conn = Server.CreateObject('ADODB.Connection')
conn.Open 'DBQ=' & strDbPathNews & 'river={Microsoft Access Driver (*.mdb)};'
varErrors = varErrors + HandleErrors(Err.Number,Err.Description)
SQL = 'SELECT * FROM tblNews WHERE strID IS NOT NULL AND strLng='' & Session('strLng') & '' ORDER BY strDate DESC'
Dim rs
Set rs = Server.CreateObject('ADODB.Recordset')
varErrors = varErrors + HandleErrors(Err.Number,Err.Description)
rs.open SQL, conn
Do While Not rs.EOF
if rs('strArhiv') = False Then
if rs('strID') <> 'site' then
file.Write('<tr>')
file.Write('<td><span class=Black8pt><B>[' & rs('strDate') & ']')
file.Write('</B></span> <span class=Black8pt>'& rs('strShortNews'))
file.Write('
')
if rs('strAdv') = True then
file.Write('<a href=/'& Session('strLng') &'/docs/news/advanced.asp?advID=' & rs('strNumber') & ' class=news>'& strDetails &'</a>')
end if
file.Write('</span></td>')
file.Write('</tr>')
end if
end if
rs.MoveNext
Loop
rs.Close
file.Write('</TABLE></td>')
file.Write('<td width=50% vAlign=top><TABLE cellspacing=4 cellpadding=0 border=0 bgcolor=#F4F4F4>')
SQL1 = 'SELECT * FROM tblNews WHERE strID='site' AND strLng='' & Session('strLng') & '' ORDER BY strDate DESC'
rs.open SQL1, conn
Do While Not rs.EOF
varErrors = varErrors + HandleErrors(Err.Number,Err.Description)
if rs('strArhiv') = False Then
if rs('strID') = 'site' then
file.Write('<tr>')
file.Write('<td vAlign=top><span class=Black8pt><B>[' & rs('strDate')& ']')
file.Write('</B></span> <span class=Black8pt>'& rs('strShortNews'))
file.Write('
')
if rs('strAdv') = True then
file.Write('<a href=/'& Session('strLng') &'/advanced.asp?advID='& rs('strNumber') &' class=news>'& strDetails &'</a>')
end if
file.Write('</span></td>')
file.Write('</tr>')
end if
end if
rs.MoveNext
Loop
rs.Close
conn.Close
Set conn = Nothing
Set rs = Nothing
file.Write('</table>')
file.Write('</td>&quo
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.01.2008, 16:49
Ответы с готовыми решениями:

Интернет не хочет работать,все хорошо подключается а браузер открывать не хочет первую страницу отображает
ребят такой вопрос,установил винду 8,все норм только интернет не хочет работать,все хорошо...

Не хочет работать ...
1. Установил ПХП. 2. Проверяю домен ruseller.loc Выскакивает При открытии файла выдает сам код...

Не хочет работать QT
Недавно начал изучать С++ и поставил QT creator 4.3.1(Community). Сначало было все норм, писал...

Не хочет работать
#include&lt;time.h&gt; #include&lt;stdlib.h&gt; using namespace std; int main() { setlocale(0, &quot;&quot;); int...

Не хочет работать AND
Приветствую) Есть код: $query_last5 = &quot;SELECT * FROM mail WHERE (to_id = 1 AND read = 0) ORDER BY...

14
Sergik
16.01.2008, 17:43 2
было бы неплохо и на ошибку посмотреть, а то не понятно - как 'слетел'
alexbl
0 / 0 / 0
Регистрация: 23.05.2007
Сообщений: 236
17.01.2008, 01:46  [ТС] 3
В начале возникла ошибка 424, затем Microsoft VBScript runtime error '800a0046' Permission denied
см. подробнее в первой части
http://relib.com/forums/topic.asp?id=730186
Заранее благодарен....
0
Sergik
17.01.2008, 09:54 4
Permission denied - дословно переводится как 'доступ запрещен', скорее всего провайдер запретил доступ на запись в каталог (и правильно сделал); следует попросить провайдера поставить доступ на запись для нужного каталога
alexbl
0 / 0 / 0
Регистрация: 23.05.2007
Сообщений: 236
17.01.2008, 13:54  [ТС] 5
ага....
Это то я понимаю, но провайдер клянется, что доступ на запись почтавил и не трогает, но скрипт в начале работает, а через некоторое время нет.....
Сам не знаю как это возможно......
0
Sergik
17.01.2008, 14:12 6
то есть скрипт то работает, то нет; может быть в то время, когда ты пытаешься открыть этот файл, он уже открыт каким-то приложением (например браузером на твоем же компьютере)?
alexbl
0 / 0 / 0
Регистрация: 23.05.2007
Сообщений: 236
17.01.2008, 14:19  [ТС] 7
нет... я уже замучался искать решение, провайдер тоже...
Может лучше ADODB.Stream использовать?
0
t1k
3 / 3 / 5
Регистрация: 10.05.2007
Сообщений: 1,617
17.01.2008, 14:22 8
Ну ты такой код прислал, пока конец прочитаешь начало забудешь.

Надо его уменьшить хотя бы до трех строк
0
alexbl
0 / 0 / 0
Регистрация: 23.05.2007
Сообщений: 236
17.01.2008, 14:31  [ТС] 9
так я хотел, чтобы по понятней было.... вот блин... не угодил..:
<%Set fs = CreateObject('Scripting.FileSystemObject')
Set a = fs.CreateTextFile('d:inetpubwwwroot estwww est124231.htm',2, True)
a.WriteLine('This is a test.')
a.Close%>
0
t1k
3 / 3 / 5
Регистрация: 10.05.2007
Сообщений: 1,617
17.01.2008, 15:05 10
Все стало понятнее

oFS.CreateTextFile(cFilename,bOverwrite,bUnicode)

cFilename - имя файла
bOverwrite - переписывать ли файл если уже существует
bUnicode - открыть ли в режиме Unicode

oFS.OpenTextFile(cFilename,nMode,bCreate,nFormat)

cFilename - имя файла
nMode - режим, 1 - чтение, 2 - запись, 3 - добавление
bCreate - создавать ли файл если его нет
nFormat - формат, -1 Unicode, 0 Ascii, 1 по умолчанию
0
alexbl
0 / 0 / 0
Регистрация: 23.05.2007
Сообщений: 236
17.01.2008, 15:10  [ТС] 11
Вот хостер только что написал, что скрипт вырубается, когда сервер перегружается......
0
t1k
3 / 3 / 5
Регистрация: 10.05.2007
Сообщений: 1,617
17.01.2008, 15:12 12
А я сообщаю что в маленьком примере кода, у тебя неправильные параметры
0
alexbl
0 / 0 / 0
Регистрация: 23.05.2007
Сообщений: 236
17.01.2008, 15:18  [ТС] 13
вот блин, извини, не тот кусок (старый, сейчас этой ошибки нет) показал, вот нормальный, который на сервере:
strPath = 'd:inetpubdvcrt.ruwww\_private
ews
ews_ru.htm'
Set fso = Server.CreateObject('Scripting.FileSystemObject')
Set file = fso.CreateTextFile(strPath, TRUE)
0
t1k
3 / 3 / 5
Регистрация: 10.05.2007
Сообщений: 1,617
17.01.2008, 15:35 14
возможно ли что ASP где этот код открывают одновременно два пользователя? если да - то надо блокировать одновременный доступ с помощью Application.Block, Application.Contents, Application.Unlock
0
alexbl
0 / 0 / 0
Регистрация: 23.05.2007
Сообщений: 236
18.01.2008, 03:46  [ТС] 15
нет, я так не думаю, т.к. данная проблема происходила уже 2 раза, вряд ли хостер оба раза заходил на эту страницу одновременно со мной (доступ к ней только у меня и хостера), и в обоих случаях приходилось переставлять MS Windows Scripting...
0
18.01.2008, 03:46
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
18.01.2008, 03:46

Не хочет работать str_replace
В общем проблема такая, что пытаюсь выделить часть текста, который я ввел в текстовом input. После...

Поиск не хочет работать
Не получается сделать простой поиск по GridView. Вроде всё правильно... В чём может быть дело? ...

Не хочет работать hover
Здравствуйте. Нужна ваша помощь. Кучу времени убил, так и не могу понять, почему не работает данная...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
15
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru