Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Два индексных файла на хостинге / 6 сообщений из 6, страница 1 из 1
19.04.2014, 20:43
    #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
| Ответить | Цитировать | Написать  
19.04.2014, 21:10
    #38619634
miksoft
miksoft
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Два индексных файла на хостинге
при наличии нескольких индексных файлов сработает только один, первый в порядке, указанном в настройках веб-сервера.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.04.2014, 22:13
    #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
| Ответить | Цитировать | Написать  
19.04.2014, 23:00
    #38619680
Изопропил
Изопропил
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Два индексных файла на хостинге
катастрофаесли по запарке
не суетись под клиентом
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
19.04.2014, 23:04
    #38619681
bazile
bazile
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Два индексных файла на хостинге
катастрофа, файл c расширением html при настройках по умолчанию будет восприниматься любым веб-сервером как текстовый файл. Соответственно он будет отдаваться клиенту как-есть. Для выполнения asp скрипта нужно иметь windows хостинг где разрешен и настроен запуск classic asp. Расширение файла при этом должно быть asp.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
20.04.2014, 07:11
    #38619716
катастрофа
катастрофа
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Два индексных файла на хостинге
bazile, ясно, спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Два индексных файла на хостинге / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 318ms
Закрыть
start [/forum/topic.php?fid=22&tablet=1&tid=1447178]:
 0ms
get settings:
 7ms
get forum list:
 13ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 52ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 33ms
get tp. blocked users:
 1ms
others: 198ms
total:  318ms
x
x
Закрыть


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