powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / ASP.NET [игнор отключен] [закрыт для гостей] / Конвертирование классической asp в aspx
30 сообщений из 30, показаны все 2 страниц
Конвертирование классической asp в aspx
    #38336236
Ay-y
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Есть кусок очень старой программы, написанный на asp.
Сейчас переводим сервер на Windows 7 и этот кусок, ясное дело не работает.
Подскажите, как это с минимальными затратами перевести в aspx.
Насколько я понимаю, код не очень сложный, но опыта в этой области у меня совсем нет.

Код: 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.
<%@ Language=VBScript %>
<html>

<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Change Password</title>
<%
	
	set oXML = CreateObject("TASXML2.CDataSet")
	
	if len(trim(Request("txtNewPassword"))) > 0 then
		oxml.Fields.add "SessionID", Request("ID")
		oxml.Fields.add "OldPassword", Request("txtOldPassword")
		oxml.Fields.add "NewPassword", Request("txtNewPassword")
		oxml.Fields.add "VerifyPassword", Request("txtVerifyPwd")
		oxml.Fields.add "Approval_Code", Request("txtAppCode")
		
		set oLogon = CreateObject("Login.CLogin")
		oxml.LoadXML oLogon.ChangePassword(oxml.xml)
		set oLogon = Nothing
	end if
%>
</head>

<body>

<table border="0" width="750" cellspacing="0" cellpadding="0">
  <tr>
    <td width="6%" background="../images/Bkg.jpg" valign="bottom">
      <p align="center"><img border="0" src="../images/SU02-Security%20Manager.gif" WIDTH="32" HEIGHT="32"></p>
    </td>
    <td width="44%" background="../images/Bkg.jpg"><b><font color="#FFFFFF" face="Arial" size="2">Change
      Password</font></b></td>
    <td width="50%" background="../images/Bkg.jpg">
      <p align="right"><font color="#FFFFFF" face="Arial Black" size="3">Takata Advanced Systems&nbsp;&nbsp;
      </font></td>
  </tr>
  <tr>
    <td width="100%" colspan="3">&nbsp;</td>
  </tr>
  <tr>
    <td width="100%" colspan="3">
		<%if len(trim(Request("txtNewPassword"))) = 0 or oxml.DataSets.exists("Error") = true then%>
			<%if oxml.DataSets.exists("Error") = true then%>
				<p><font color="#FF0000">Error: <%=oxml.DataSets("Error").Fields("ErrDesc").FieldValue%></font></p>
			<%elseif len(trim(Request("txtNewPassword"))) = 0 and Request("Submitted") = "1" then%>
				<p><font color="#FF0000">Error: Please sepcify all information.</font></p>
			<%end if%>
			<form method="POST" action="ChangePassword.asp?ID=<%=Request("ID")%>" id="form1" name="form1">
			  <table border="0" width="100">
			    <tr>
			      <td width="26%">Old Password :</td>
			      <td width="74%"><input type="password" name="txtOldPassword" size="20"></td>
			    </tr>
			    <tr>
			      <td width="26%"></td>
			      <td width="74%"></td>
			    </tr>
			    <tr>
			      <td width="26%">New Password :</td>
			      <td width="74%"><input type="password" name="txtNewPassword" size="20"></td>
			    </tr>
			    <tr>
			      <td width="26%">Verify Password :</td>
			      <td width="74%"><input type="password" name="txtVerifyPwd" size="20"></td>
			    </tr>
			    <tr>
			      <td width="26%">Approval Code :</td>
			      <td width="74%">
                  <input type="password" name="txtAppCode" size="20"></td>
			    </tr>
			    <tr>
			      <td width="100%" colspan="2"><font size="2">Please leave the 
                  approval code field blank if you would like the system to 
                  automatically generate your approval code.</font></td>
			    </tr>
			    <tr>
			      <td width="26%"><input type="submit" value="Change Password" name="cmdChange"></td>
			      <td width="74%"></td>
			    </tr>
			  </table>
			  <input type="hidden" name="Submitted" value="1">
			</form>
		<%else%>
			<p align="center"><font color="#0000FF" align="center">Your Password Has Been Changed</p>
			<br><br>
			</font>
			</p>
		<%end if%>
    </td>
  </tr>
</table>

</body>
<%set oXML = Nothing%>
</html>
...
Рейтинг: 0 / 0
Конвертирование классической asp в aspx
    #38336246
Фотография hVostt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ay-y,

так просто «конвертнуть» не получится. придется полностью переписать.
в aspx другой конвеер (в зависимости от выбранной технологии), а также совсем другой язык VB.NET/C# на выбор.
...
Рейтинг: 0 / 0
Конвертирование классической asp в aspx
    #38336259
-asp-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Ay-yЕсть кусок очень старой программы, написанный на asp.
Сейчас переводим сервер на Windows 7 и этот кусок, ясное дело не работает.
Подскажите, как это с минимальными затратами перевести в aspx.
А включить поддержку ASP не судьба?
...
Рейтинг: 0 / 0
Конвертирование классической asp в aspx
    #38336260
Ay-y
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Как?
...
Рейтинг: 0 / 0
Конвертирование классической asp в aspx
    #38336452
ShSerge
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ay-yКак?
А зачем конвертировать, если и так работает?
...
Рейтинг: 0 / 0
Конвертирование классической asp в aspx
    #38336663
bazile
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ay-yКак?
Установи поддержку ASP через панель управления. Создай новый пул с classic pipeline. Назначь своему сайту этот пул.
...
Рейтинг: 0 / 0
Конвертирование классической asp в aspx
    #38336879
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Можно просто скопипастить этот текст в aspx, и он тоже будет работать. Только нужно убрать первую строчку и поправить VBS-код в соответствии с синтаксисом VB.NET:

Код: plaintext
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.
<%@ Page Language="VB" AutoEventWireup="false"
     ValidateRequest="false" Debug="true" 
    CodeFile="Default.aspx.vb" Inherits="_Default" %>
<html>

<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Change Password</title>
<%
	
    Dim oXML = CreateObject("TASXML2.CDataSet")
	
    if len(trim(Request("txtNewPassword"))) > 0 then
        oXML.Fields.add("SessionID", Request("ID"))
        oXML.Fields.add("OldPassword", Request("txtOldPassword"))
        oXML.Fields.add("NewPassword", Request("txtNewPassword"))
        oXML.Fields.add("VerifyPassword", Request("txtVerifyPwd"))
        oXML.Fields.add("Approval_Code", Request("txtAppCode"))
		
        Dim oLogon = CreateObject("Login.CLogin")
        oXML.LoadXML(oLogon.ChangePassword(oXML.xml))
        oLogon = Nothing
    end if
%>
...
Рейтинг: 0 / 0
Конвертирование классической asp в aspx
    #38337236
ShSerge
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Antonariy,

А всё-таки, нафига конвертировать?
...
Рейтинг: 0 / 0
Конвертирование классической asp в aspx
    #38337265
Ay-y
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Не работает.
Object reference not set to an instance of an object.

Код вот такой
Код: 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.
<%@ Page Language="VB" AutoEventWireup="false"
     ValidateRequest="false" Debug="true"%>
<html>

<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Change Password</title>
<%
	
    Dim oXML = CreateObject("TASXML2.CDataSet")
	
    if len(trim(Request("txtNewPassword"))) > 0 then
        oXML.Fields.add("SessionID", Request("ID"))
        oXML.Fields.add("OldPassword", Request("txtOldPassword"))
        oXML.Fields.add("NewPassword", Request("txtNewPassword"))
        oXML.Fields.add("VerifyPassword", Request("txtVerifyPwd"))
        oXML.Fields.add("Approval_Code", Request("txtAppCode"))
		
        Dim oLogon = CreateObject("Login.CLogin")
        oXML.LoadXML(oLogon.ChangePassword(oXML.xml))
        oLogon = Nothing
    end if
%>
</head>
<%oXML = Nothing%>
</html>
...
Рейтинг: 0 / 0
Конвертирование классической asp в aspx
    #38337311
Ay-y
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
bazileAy-yКак?
Установи поддержку ASP через панель управления. Создай новый пул с classic pipeline. Назначь своему сайту этот пул.
Попытались следовать указаниям Микрософта

To enable ASP on Windows Server 2008
1.Click Start, point to Control Panel, click Programs, and then click Turn Windows features on or off.

2.In Server Manager, click Add Roles.

3.On the Add Roles Wizard page, select Application Server, click Next three times, and then click Install.

Windows Server installs the new role.


Но оказалось что Application Server на странице нету.
...
Рейтинг: 0 / 0
Конвертирование классической asp в aspx
    #38337318
bazile
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ay-yПопытались следовать указаниям Микрософта

To enable ASP on Windows Server 2008
В первом сообщении ты писал что переносите на Windows 7. Определись точно какая у вас ОС. Windows 7 и Windows Server 2008 имеют разное назначение и отличаются друг от друга.

Ay-yНо оказалось что Application Server на странице нету.
Скриншот покажи.
...
Рейтинг: 0 / 0
Конвертирование классической asp в aspx
    #38337334
Ay-y
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
bazileAy-yПопытались следовать указаниям Микрософта

To enable ASP on Windows Server 2008
В первом сообщении ты писал что переносите на Windows 7. Определись точно какая у вас ОС. Windows 7 и Windows Server 2008 имеют разное назначение и отличаются друг от друга.

Ay-yНо оказалось что Application Server на странице нету.
Скриншот покажи.
Windows 8
...
Рейтинг: 0 / 0
Конвертирование классической asp в aspx
    #38337335
Ay-y
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
bazileAy-yПопытались следовать указаниям Микрософта

To enable ASP on Windows Server 2008
В первом сообщении ты писал что переносите на Windows 7. Определись точно какая у вас ОС. Windows 7 и Windows Server 2008 имеют разное назначение и отличаются друг от друга.

Ay-yНо оказалось что Application Server на странице нету.
Скриншот покажи.
...
Рейтинг: 0 / 0
Конвертирование классической asp в aspx
    #38337340
bazile
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ay-y, из скриншота видно что роль Application Server уже установлена. Теперь тебе надо открыть список установленныз features для него и выбрать поддержку ASP.

P.S. Windows 8 и Windows (Server) 2008 R2 это разные ОС. Первая клиентская, вторая серверная. Не путай их.
...
Рейтинг: 0 / 0
Конвертирование классической asp в aspx
    #38337350
Ay-y
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
bazileAy-y, из скриншота видно что роль Application Server уже установлена. Теперь тебе надо открыть список установленныз features для него и выбрать поддержку ASP.

P.S. Windows 8 и Windows (Server) 2008 R2 это разные ОС. Первая клиентская, вторая серверная. Не путай их.
Спасибо, но тут поддержки АСР тоже не видно.
...
Рейтинг: 0 / 0
Конвертирование классической asp в aspx
    #38337357
ShSerge
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ay-y,

В третьий раз повторяю: ЗАЧЕМ чё-то куда-то конвертировать?
...
Рейтинг: 0 / 0
Конвертирование классической asp в aspx
    #38337368
Ay-y
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ShSergeAy-y,

В третьий раз повторяю: ЗАЧЕМ чё-то куда-то конвертировать?
Сайт не работает потому-что.
Надо или конвертировать, или заставить сервер работать с ASP, пока обе попытки не очень успешны.
...
Рейтинг: 0 / 0
Конвертирование классической asp в aspx
    #38337386
bazile
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ay-yСпасибо, но тут поддержки АСР тоже не видно.
Не там смотришь значит. Попробуй сделать как описано здесь - http://www.iis.net/learn/application-frameworks/running-classic-asp-applications-on-iis-7-and-iis-8/classic-asp-not-installed-by-default-on-iis
...
Рейтинг: 0 / 0
Конвертирование классической asp в aspx
    #38337415
Ay-y
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
bazileAy-yСпасибо, но тут поддержки АСР тоже не видно.
Не там смотришь значит. Попробуй сделать как описано здесь - http://www.iis.net/learn/application-frameworks/running-classic-asp-applications-on-iis-7-and-iis-8/classic-asp-not-installed-by-default-on-iis
И ещё раз спасибо,
Похоже что уже всё инсталлировано, но всё-равно не работает.
Где ещё копать?
...
Рейтинг: 0 / 0
Конвертирование классической asp в aspx
    #38337458
bazile
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ay-yПохоже что уже всё инсталлировано, но всё-равно не работает.
Где ещё копать?
Понятие "не работает" очень широкое. Предлагаю сначала убедиться в работоспособности самого ASP на твоем сервере. Для этого:
1) Создай папку C:\Inetpub\wwwroot_test
2) Положи в него файл index.asp:
Код: plaintext
1.
2.
3.
<%
Response.Write("Test message")
%>


3) Открой IIS Manager
4) Создай новый пул TestAppPool c pipeline режимом = classic.
5) Создай новый сайт с корнем C:\Inetpub\wwwroot_test и пулом TestAppPool. Предварительно можно временно остановить "Default Web Site" чтобы не было конфликтов привязок и для упрощения тестирования.
6) Открой новый сайт в браузере - http://localhost
7) Если на зкране появится текст "Test message", то ASP работает и можно удалить тестовый сайт и пул. Если нет, то выкладывай ошибку - будем разбираться.
...
Рейтинг: 0 / 0
Конвертирование классической asp в aspx
    #38337488
Ay-y
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
Конвертирование классической asp в aspx
    #38337560
Ай
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Блин, заработал всё.
Значит asp работает.
Что ещё может быть причиной?
...
Рейтинг: 0 / 0
Конвертирование классической asp в aspx
    #38337670
bazile
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
АйЧто ещё может быть причиной?
Мой хрустальный шар в ремонте поэтому без дополнительных пояснений помочь не смогу. Не работает файл из первого сообщения? В чем это выражается?
...
Рейтинг: 0 / 0
Конвертирование классической asp в aspx
    #38338192
Sergey Ch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
АйЧто ещё может быть причиной?
Вам надо дать необходимые права для той роли под которой Ваш classic asp pool работает.
Как я вижу из приведенного куска на первой странице Вы обращетесь к объекту "TASXML2.CDataSet" - бедитесь что он есть на Вашем сервере. Если есть то какова его разрядность - 32 или 64 bit (application pool для IIS может быть определен как 32 bit)...
Это относится и к "Login.CLogin"...

Good luck!

P.S. Из моей широкой практики перевода на новые OS, особенно W2008 R2 - дешевле и надежнее быстро переписать под новую платформу... Хотя бизнес не всегда это понимает...
...
Рейтинг: 0 / 0
Конвертирование классической asp в aspx
    #38339759
Ay-y
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Так, взят самый примитивный логон
Код: 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.
<%@ Language=VBScript %>
<html>

<head>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>TAS Logon</title>

<%
	set oXML = createobject("TASXML2.CDataSet")
	set oLogon = createobject("Login.CLogin")
	oxml.LoadXML ologon.GetInitData()
	set ologon = nothing
%>

</head>

<body background="Images/Bkg.jpg">
<P>
<i><font color="#FFFFFF" face="Arial Black" size="4">Takata
Advanced Systems</font></i>
<P>
 
<form method="POST" action="MainMenu.asp">
  <table border="0" width="338">
    <tr>
      <td width="82"><font color="#FFFFFF">User Name :</font></td>
      <td width="242"><input type="text" name="txtUserName" size="29"></td>
    </tr>
    <tr>
      <td width="82"><font color="#FFFFFF">Password :</font></td>
      <td width="242"><input type="password" name="txtPassword" size="29"></td>
    </tr>
    <tr>
      <td width="82"><font color="#FFFFFF">Company :</font></td>
      <td width="242"><select size="1" name="cboCompany" style="width: 195">
		<%
			for x = 1 to oXML.Fields.count
				Response.Write "<option>" & oxml.Fields(x).fieldvalue & "</option>"
			next
		%>
        </select></td>
    </tr>
    <tr>
      <td width="82"></td>
      <td width="242"><input type="Submit" value="Logon" name="cmdLogon"></td>
    </tr>
  </table>
</form>

</body>
<%
set oXML = nothing
%>
</html>


Когда запускаешь на севере http://localhost/Logon.asp всё правильно работает.
Когда запускаю с именем сервера выдаёт 500 сервер ошибку, если использовать https:// то говорит что сертификат неправильный, если дать разрешение то всё работает нормально. Как правильно установить сайты так чтобы они не проверяли сертификаты?
...
Рейтинг: 0 / 0
Конвертирование классической asp в aspx
    #38341886
bazile
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ay-yКогда запускаю с именем сервера выдаёт 500 сервер ошибку,
Приведи текст ошибки. Нельзя чинить что-то не зная что именно сломалось.

Ay-yесли использовать https:// то говорит что сертификат неправильный,
Кто говорит? Браузер? Веб-сервер? Приведи полный текст ошибки или выложи скриншот.

Ay-yесли дать разрешение то всё работает нормально.
Какие именно разрешения ты давала?

Ay-yКак правильно установить сайты так чтобы они не проверяли сертификаты?
Не понял вопроса. Тебе нужен сайт доступный по https? Если да, то что ты понимаешь под "не проверять сертификаты"?
...
Рейтинг: 0 / 0
Конвертирование классической asp в aspx
    #38343018
Ay-y
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
С помощью перерегистрации и переинсталляции некоторых dll вызываемых из asp удалось добится некоторых подвижек.
НО если сайт успешно вызывается на сервере, то с удалённой машины получается вот такая ошибка
...
Рейтинг: 0 / 0
Конвертирование классической asp в aspx
    #38343020
Ay-y
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Спасибо bazile
...
Рейтинг: 0 / 0
Конвертирование классической asp в aspx
    #38343036
Ay-y
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
На других сайтах появляется ошибка когда запускаешь на сервере.
...
Рейтинг: 0 / 0
Конвертирование классической asp в aspx
    #38343062
bazile
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ay-y, должен помочь совет №2 из раздела "things you can try". Создаем web.config в корне веб-сайта (d:\inetpub\wwwroot\ProjectSchedule) с таким содержимым:
Код: xml
1.
2.
3.
4.
5.
<configuration>
    <system.webServer>
        <validation validateIntegratedModeConfiguration="false"/>
    </system.webServer>
</configuration>


Если web.config уже есть, то нужно добавить элемент system.webServer или validation в подходящий родительский элемент.

Я бы еще попробовал запретить asp.net для данного пула. Это имеет смысл делать только если у тебя нет ASP.NET страниц на данном сайте.
...
Рейтинг: 0 / 0
30 сообщений из 30, показаны все 2 страниц
Форумы / ASP.NET [игнор отключен] [закрыт для гостей] / Конвертирование классической asp в aspx
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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