ASP3

← →
toto (2008-01-28 10:53) [0]

Есть один старый проект, несколько поправок сделано, а на этой странице остался вопрос.

Поиск работает хорошо, в результате: Индекс - Город(или место жительства, поселок). Оба значения надо перенести на предедущую страницу.

<tr>
<td align=right>
Ville :
</td>
<td colspan="2">
<%
Response.Write(" strVilleSaisie : "" + cstr(strVilleSaisie))
%>
<select tabindex="1" class="selectxt" size="1" name="ville" maxLength="32" onchange="rempliChamp(document.dossier)">
<%
Dim objConn
"ouverture de la base, creation de l objet ADO de connexion
Set objConn = Server.CreateObject("ADODB.Connection")
"connexion, se refere au fichier sourceDonnees.asp pour se refere aux infos de connexion
objConn.Open strConnexion

"************************************************************************
"Recuperation villes associées au departement
"avec la procedure stockee IPC_HEXAPOST_VILLE_CP_sp
"IPC_HEXAPOST_PAYS_VILLE_CP_sp "BFR","98","","MC"

Dim IPCLibVille
Dim RSVille

Dim strCodePostal
Dim strLibelleVille
Dim codste
codste = "BFR"

"Création de l"objet ADO Command
Set IPCLibVille = Server.CreateObject("ADODB.Command")

"Initialisation de l"objet ADO
IPCLibVille.ActiveConnection = objConn
IPCLibVille.CommandType = adCmdStoredProc
IPCLibVille.CommandText = "IPC_HEXAPOST_PAYS_VILLE_CP_sp"

"Création et initialisation des paramètres d"entrées de l"objet ADO
call IPCLibVille.Parameters.Append(IPCLibVille.CreateParameter("@codste",adVarChar,ad ParamInput,64,codste))
call IPCLibVille.Parameters.Append(IPCLibVille.CreateParameter("@codePostal",adVarCha r,adParamInput,64,strCP))
call IPCLibVille.Parameters.Append(IPCLibVille.CreateParameter("@codePays",adVarChar, adParamInput,64,strCDPAYS))
call IPCLibVille.Parameters.Append(IPCLibVille.CreateParameter("@ville",adVarChar,adP aramInput,64,strVilleSaisie))

"On exécute l"objet ADO
Set RSVille = IPCLibVille.Execute

" Affichage
" tant qu"il y a des enregistrements

while not RSVille.eof
strCodePostal = RSVille("CODE")
strLibelleVille = RSVille("LIBELLE")
strVilleSaisie = RSVille("LIBELLE")

Response.Write("<OPTION value=" + cstr(strCodePostal) + cstr(strVilleSaisie) + ">" + cstr(strCodePostal) + " - " + cstr(strVilleSaisie) + "</OPTION>")

RSVille.MOVENEXT " suivant
wend

" Fermeture des objets
RSVille.close
Set RSVille = Nothing
"************************************************************************
%>
</select>
</td>
</tr>

Значение Индекса передается нормально, а вот место жительства если состоит из нескольких слов, типа "Мая маленькая деревня", то передается только первое слово "Мая". Что я не так делаю? Где отрезается всё остальное, Заранее большое Спасибо

<script language="JavaScript">
function trim(string)
{
return string.replace(/(^\s*)|(\s*$)/g,"");
}

function recherche(formulaire)
{
var url = "validationVilleCodePostal.asp?CP=" + formulaire.codePostal.value + "&VILLESAISIE=" + formulaire.villesaisie.value + "&CDPAYS=<%=strCDPAYS%>"+"&champ1=<%=strChamp1%>&champ2=<%=strChamp2%>";
location.href = url;
}

function rempliChamp(formulaire)
{
var chaine = new String(formulaire.ville.value);
chaine = trim(chaine);
formulaire.CP.value = chaine.substring(0,5);
formulaire.VILLENOUV.value = chaine.substring(5,32);
formulaire.codePostal.focus();
}

function GO(formulaire)
{
window.opener.dossier.<%=strChamp1%>.value = formulaire.CP.value;
window.opener.dossier.<%=strChamp2%>.value = formulaire.VILLENOUV.value;
/*window.opener.dossier.<%=strChamp2%>.value = formulaire.VILLESAISIE.value;*/
window.close();
}
</script>
<body bgcolor="#ffeeee" text="#000080" class="BODY1" onload="rempliChamp(document.dossier)" bgproperties="fixed">
<form name="dossier" action="validationVilleCodePostal.asp?CP=<%=strCP%>&VILLESAISIE=<%=strVilleSaisie%>&CDPAYS=<%=strCDPAYS%>&champ1=<%=strChamp1%>&champ2=<%=strChamp2%>" method="post">
Liste des villes associées au code postal :
<HR>

← →
homm © (2008-01-28 11:08) [1]

Ну и кто мне втирал про объектную программную модель ASP? :)
Идеологически — тот же php, только вместо краткого echo нужно писать Response.Write() :)

Попытлся разобратся хотя бы в JS, но немецкий язык это жесть, лучше бу через обфускатор прогнали, и то понтнее было бы читать :)

← →
ketmar © (2008-01-28 11:27) [2]

значения атрибутов кто закавычивать будет?

← →
ketmar © (2008-01-28 11:28) [3]

>[1] homm ©(28.01.08 11:08)
это не немецкий.

← →
toto (2008-01-28 11:31) [4]

<tr>
<td align=right>
Code postal :
</td>
<td>
<input class="inputxt2" type=text name="codePostal" size="5" maxLength="5">
</td>
<td align=right>
<td align="center">

</td>
</tr>
<tr>
<td align=right>
Ville :
</td>
<td>
<input class="inputxt2" type=text name="villesaisie" size="32" maxLength="32">
</td>
<td align="center">
<input class=button onclick="javascript:recherche(document.dossier);" type="button" value="Rechercher" id="button1" name="button1">
</td>
</tr>

*****************************************************

<BR>
<BR>
<CENTER>
<input class=button onclick="javascript:GO(document.dossier);" type="button" value="Valider" id="button1" name="button1">
</CENTER>
<input name="CP" maxlength="5" type="hidden">
<input name="VILLENOUV" maxlength="32" type="hidden">
</FORM>
</body>
</html>

← →
toto (2008-01-28 11:38) [5]

> ketmar © (28.01.08 11:27) [2]
> значения атрибутов кто закавычивать будет?

Поясни

← →
homm © (2008-01-28 11:46) [6]

> [0] toto (28.01.08 10:53)
> var url = "validationVilleCodePostal.asp?CP=" + formulaire.codePostal.val
> ue + "&VILLESAISIE=" +

Так нельзя. Если формируеш URL, будь добр воспользуйся функцией url_encode (лень искать, как она точно пишется в JS)

← →
ketmar © (2008-01-28 11:57) [7]

"<OPTION value=" + cstr(strCodePostal) + cstr(strVilleSaisie) + ">"
так вот значение валуя кто закавычивать будет? во-первых, без кавычек оно нестандартно. а во-вторых, без кавычек значением считается последовательность символов до первого пробела. что и даёт в итоге обрезание.

← →
toto (2008-01-28 12:20) [8]

> ketmar © (28.01.08 11:57) [7]
> "<OPTION value=" + cstr(strCodePostal) + cstr(strVilleSaisie)
> + ">"
> так вот значение валуя кто закавычивать будет? во-первых,
> без кавычек оно нестандартно. а во-вторых, без кавычек
> значением считается последовательность символов до первого
> пробела. что и даёт в итоге обрезание.

Работает. My respects!!!

>[8] toto (28.01.08 12:20)
кстати, и на [6] внимание обрати. функцию зовут escape().

← →
Медвежонаг (2008-01-28 12:35) [10]

> Ну и кто мне втирал про объектную программную модель ASP?
> :)
> Идеологически — тот же php, только вместо краткого echo
> нужно писать Response.Write() :)

Объектная модель программирований используется в ASP.NET, который очень сильно отличается от классического ASP.

> homm (28.01.2008 11:08:01) [1]

Не знаю кто тебе втирал?
Может ты не знаешь что ASP <> ASP/NET
А что такое ASP3 приходится только задумываться.

ASP3 Найти похожие ветки