powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Два индексных файла на хостинге
6 сообщений из 6, страница 1 из 1
Два индексных файла на хостинге
    #38619623
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
здравствуйте если по запарке будет на хостинге
index.html иi php.html
тогда с какого файла читать будет?
в оба эти файла можно вставлять
ASP код?, то есть
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
<%
Dim sDSNFile
sDSNFile = «CSV.dsn»

Dim sScriptDir
sScriptDir = Request.ServerVariables(«SCRIPT_NAME»)
sScriptDir = StrReverse(sScriptDir)
sScriptDir = Mid(sScriptDir, InStr(1, sScriptDir, «/»))
sScriptDir = StrReverse(sScriptDir)

' Создадим DSN
Dim sPath, sDSN
sPath = Server.MapPath(sScriptDir) & ""
sDSN = «FileDSN=» & sPath & sDSNFile & _
«;DefaultDir=» & sPath & _
«;DBQ=» & sPath & «;»

' к примеру sDSN может получится таким:
' FileDSN=C:InetpubwwwrootCSV.DSN;DefaultDir=
' C:Inetpubwwwroot;DBQ=C:Inetpubwwwroot;

' Соединяемся с БД
Dim Conn, rs
Set Conn = Server.CreateObject(«ADODB.Connection»)
Conn.Open sDSN

' Получим только Name и Price
Dim sql
sql = «SELECT Name,Price FROM data.txt»

' Создадим объект recordset
set rs = conn.execute(sql)

Do WHile Not rs.EOF
Response.Write "Name: " & rs(«Name»)
Response.Write "<BR>Price: " & rs(«Price»)
Response.Write «<HR>» 
rs.MoveNext 
Loop

' Окончание работы
rs.close
set rs = nothing
conn.close
set conn = nothing
%> 


это же он? или как правильно он называется? спасибо
...
Рейтинг: 0 / 0
Два индексных файла на хостинге
    #38619634
miksoft
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
при наличии нескольких индексных файлов сработает только один, первый в порядке, указанном в настройках веб-сервера.
...
Рейтинг: 0 / 0
Два индексных файла на хостинге
    #38619661
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
miksoft, я конечно не настраивал, и не вникал как настроено, решил методом тыка, да считало с index.html

его код:
Код: html
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
<html>

<body>

<%

Dim sDSNFile

sDSNFile = «CSV.dsn»



Dim sScriptDir

sScriptDir = Request.ServerVariables(«SCRIPT_NAME»)

sScriptDir = StrReverse(sScriptDir)

sScriptDir = Mid(sScriptDir, InStr(1, sScriptDir, «/»))

sScriptDir = StrReverse(sScriptDir)



' Создадим DSN

Dim sPath, sDSN

sPath = Server.MapPath(sScriptDir) & ""

sDSN = «FileDSN=» & sPath & sDSNFile & _

«;DefaultDir=» & sPath & _

«;DBQ=» & sPath & «;»



' к примеру sDSN может получится таким:

' FileDSN=C:InetpubwwwrootCSV.DSN;DefaultDir=

' C:Inetpubwwwroot;DBQ=C:Inetpubwwwroot;



' Соединяемся с БД

Dim Conn, rs

Set Conn = Server.CreateObject(«ADODB.Connection»)

Conn.Open sDSN



' Получим только Name и Price

Dim sql

sql = «SELECT Name,Price FROM data.txt»



' Создадим объект recordset

set rs = conn.execute(sql)



Do WHile Not rs.EOF

Response.Write "Name: " & rs(«Name»)

Response.Write "<BR>Price: " & rs(«Price»)

Response.Write «<HR>» 

rs.MoveNext 

Loop



' Окончание работы

rs.close

set rs = nothing

conn.close

set conn = nothing

%>



<body>

</html>


результат
<% Dim sDSNFile sDSNFile = «CSV.dsn» Dim sScriptDir sScriptDir = Request.ServerVariables(«SCRIPT_NAME») sScriptDir = StrReverse(sScriptDir) sScriptDir = Mid(sScriptDir, InStr(1, sScriptDir, «/»)) sScriptDir = StrReverse(sScriptDir) ' Создадим DSN Dim sPath, sDSN sPath = Server.MapPath(sScriptDir) & "" sDSN = «FileDSN=» & sPath & sDSNFile & _ «;DefaultDir=» & sPath & _ «;DBQ=» & sPath & «;» ' к примеру sDSN может получится таким: ' FileDSN=C:InetpubwwwrootCSV.DSN;DefaultDir= ' C:Inetpubwwwroot;DBQ=C:Inetpubwwwroot; ' Соединяемся с БД Dim Conn, rs Set Conn = Server.CreateObject(«ADODB.Connection») Conn.Open sDSN ' Получим только Name и Price Dim sql sql = «SELECT Name,Price FROM data.txt» ' Создадим объект recordset set rs = conn.execute(sql) Do WHile Not rs.EOF Response.Write "Name: " & rs(«Name») Response.Write "
Price: " & rs(«Price») Response.Write «
» rs.MoveNext Loop ' Окончание работы rs.close set rs = nothing conn.close set conn = nothing %>
но задумка была другая, указанная
здесь: http://www.internet-technologies.ru/articles/article_293.html#subscribeCansel

кроме того
все три файла
index.html
data.txt
CSV.DSN
сохранить в одной директории веб-сервера - в корне хостинга, что я делаю не так?
...
Рейтинг: 0 / 0
Два индексных файла на хостинге
    #38619680
Фотография Изопропил
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
катастрофаесли по запарке
не суетись под клиентом
...
Рейтинг: 0 / 0
Два индексных файла на хостинге
    #38619681
bazile
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
катастрофа, файл c расширением html при настройках по умолчанию будет восприниматься любым веб-сервером как текстовый файл. Соответственно он будет отдаваться клиенту как-есть. Для выполнения asp скрипта нужно иметь windows хостинг где разрешен и настроен запуск classic asp. Расширение файла при этом должно быть asp.
...
Рейтинг: 0 / 0
Два индексных файла на хостинге
    #38619716
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
bazile, ясно, спасибо!
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Два индексных файла на хостинге
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]