Wap y asp! Te va?

Espero que por favor me ayudes es sumamente URGENTE!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! MI EMAIL [email protected]
SI QUIERES Y ME DAS TU CORREO TE LO ENVIO ALLI LOS ARCHIVOS!!
gracias!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1
cuando puedas!!!!!!
En el html llama al engine.asp
<%@ LANGUAGE="VBSCRIPT" %>
<%
' Connects and opens the text file
' DATA FORMAT IN TEXT FILE= "username<SPACE>password"
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
Set MyTextFile=MyFileObject.OpenTextFile(Server.MapPath("\password") & "\passwords.txt")
' Scan the text file to determine if the user is legal
WHILE NOT MyTextFile.AtEndOfStream
' If username and password found
IF MyTextFile.ReadLine = Request.form("username") & " " & Request.form("password") THEN
' Close the text file
MyTextFile.Close
' Go to login success page
Session("GoBack")=Request.ServerVariables("SCRIPT_NAME")
Response.Redirect "inyougo.asp"
Response.end
END IF
WEND
' Close the text file
MyTextFile.Close
' Go to error page if login unsuccessful
Session("GoBack")=Request.ServerVariables("SCRIPT_NAME")
Response.Redirect "invalid.asp"
Response.end
%>
para wml lo he puesto como engine_wap.asp
<%
Response.ContentType = "text/vnd.wap.wml"
%><?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN"
"http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<card id="card1" title="login">
<p>
<%
' Connects and opens the text file
' DATA FORMAT IN TEXT FILE= "username<SPACE>password"
Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
Set MyTextFile=MyFileObject.OpenTextFile(Server.MapPath("\password") & "\passwords.txt")
' Scan the text file to determine if the user is legal
WHILE NOT MyTextFile.AtEndOfStream
' If username and password found
IF MyTextFile.ReadLine = Request.form("username") & " " & Request.form("password") THEN
' Close the text file
MyTextFile.Close
' Go to login success page
Session("GoBack")=Request.ServerVariables("SCRIPT_NAME")
Response.Redirect "inyougo_wap.asp"
Response.end
END IF
WEND
' Close the text file
MyTextFile.Close
' Go to error page if login unsuccessful
Session("GoBack")=Request.ServerVariables("SCRIPT_NAME")
Response.Redirect "invalid_wap.asp"
Response.end
%>
</p>
</card>
</wml>
1

1 respuesta

Respuesta
1
Si quieres, me puedes mandar los archivos a [email protected]
Me gustaría que me explicaras un poco más que quieres hacer y qué problemas te encuentras.
De todas maneras, no estoy muy fuerte ni en ASP ni en WML, pero trataré de ayudarte.
Salu2

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas