¡@ Dim sVar1, sVar2
¡@ sVar1 = getVar("myvar1", sPost)
¡@ sVar2 = getVar("myvar2", sPost)
¡@ 'Writes the WML Deck displaying the POSTED Variables
¡@ sWMLDeck = "<?xml version=""1.0""?>" & vbCrLf
¡@ sWMLDeck = sWMLDeck & "<!DOCTYPE wml PUBLIC ""-//WAPFORUM//DTD WML 1.1//EN"" "
¡@ sWMLDeck = sWMLDeck & """http://www.wapforum.org/DTD/wml_1.1.xml"">" & vbCrLf
¡@ sWMLDeck = sWMLDeck & vbCrLf & "<wml>" & vbCrLf & vbTab
¡@ sWMLDeck = sWMLDeck & "<card id=""main"" title=""POST TEST"">" & vbCrLf
¡@ sWMLDeck = sWMLDeck & vbTab & vbTab & "<p>" & vbCrLf
¡@ sWMLDeck = sWMLDeck & vbTab & vbTab & vbTab & "myVar1: " & sVar1 & "<br/>" & vbCrLf
¡@ sWMLDeck = sWMLDeck & vbTab & vbTab & vbTab & "myVar2: " & sVar2 & vbCrLf
¡@ sWMLDeck = sWMLDeck & vbTab & vbTab & "</p>" & vbCrLf & vbTab
¡@ sWMLDeck = sWMLDeck & "</card>" & vbCrLf & ">/wml>"
¡@ Response.ContentType = "text/vnd.wap.wml"
¡@ Response.Write(sWMLDeck)
¡@ 'Quick function for picking out the values of the POSTed variables.
¡@ 'sKey is the variable name, sRaw is the POST string.
¡@ Private Function getVar(sKey, sRaw)
¡@ Dim sRetVal
If InStr(sRaw, sKey) Then
sRetVal = Mid(sRaw, InStr(sRaw, sKey) + Len(sKey) + 1)
If InStr(sRetVal, "&") Then
sRetVal = Mid(sRetVal, 1, InStr(sRetVal, "&") - 1)
End If
End If
getVar = sRetVal
¡@ End Function
%>
38. ¡@¡@¡@META§¨´U¡@¡@¡@¡@
¡@¾®³º¡@¡@¡@¡@ÓI¡@meta§¨´U¡@££¡@¡@
<meta http-equiv="refresh" content="1;http://somewhere.com/">¡@
½Fò~£V¡@ÏüçS»Ô¡@¡@ïþ¡@£V¡@¡@META§¨Â~¡@¡@Öv¥N賡@¡@¡@ÏÄ£~¡@¡@¡@¡@¡@çS»Ôâò¡@¡@«ô¡@¡@££¡@¡@çS»Ô¡@¡@¡@ª¤¡@¡@HTTP Cache¥_¡@¡@¡@ÏÄðEÀtí}Cache¥_¡@¡@¡@£~¡@¡@¡@¡@META§¨Â~¡@³ò~¡@£µ¡@çS»Ô£¤¡@¡@¡@âò¡@¡@¡@¡@¡@¡@¡@META¡@¡@ºØ¡@¡@ðE£~¡@META tags¡@¡@¡~£V£µ¡@¡@¡@£D£¤¡@£K¡@¡@ºÙÚu¡@
µ{¡@£~¡@¡@METAÖv¡@
<meta http-equiv="refresh" content="1;http://somewhere.com/">¡@
¡@¡@¡@ã@¡@¾®³º¡@¡@§ý¡@¡@¡~¡@WML¡@¡@¡@WML¡@¡@¡@¡@¡@¡@¡@¡@<ontimer>¡@
39. ¡@¡@¡@¡@¥z³º¾X£O¡@¡@¡@¡@¬é¡@¡@§âp¡@
¡@¡@¶ô¡@¡@§âp¡@¡@£µ¡@§âp¡@¡@¹_¡@HTML¡@¡@§²¡@¡@Å÷¡@¡@£D¬é¡@¡@¡@¥z³º¡@¡@HTML¡@¡@¡@Öv<FORM>¡@POST¡@¡@GET¡@
¡@¡@¡@ÖËðE¡@ÖËPOST¢QGET¡@¶[¡@¡@¬Ñ¡@POST¡@¾®³º¡@¡@£K¡@¡@p½Ú¡@¡@¶]Ïü¡@¢Q¡@¡@¡@¡@¡@¡@¡@¡@¡@Å~¡@¡@¬é¡@¡@¡@¥z³º¡@¬Ñ¡@GET¡@¡@£µÀtÖv¡@¡@URL¥s¡@¡@¶]Ïü¡@¢Q¡@¡@±`¡@¡@¡@URL¡@¡@
¬Ñ¡@WAP¦O¬E¡@ðE¡@Övïþ¡@¡@¡@¡@¡@¡@¤æðE¡@½Ú¡@¬Y£¤¥¨¡@¡@½Fò~¡@¡@¡@URL
"/cgi-bin/somescript?username=john&telephone=123-123-1234&occupation=banana+bender"
¡@¡@¡@HTML¦O¬E¡@¡@¡@¡@¡@Öv¡@WAP¦O¬E¡@¡@Úu¡@¡@¡@¡@¡@¡@³õ¡@ÚñÚò¡@£~¡@÷ç¡@¡@¶]Ïü¡@¡@Ïê¡@µz¡@¡@¡@¡@¡@¡@¡@¡@ banana ¢Q bender ¡@ÏêÆr£K ¡@+¡²¡@ URLâò¡@¡@¡é£V¡@¡@¡@
¡@¡@¡@URL¡@WAP¡@¡@Úu¡@¡@¡@¡@ðE¡@¡@Öv¡@£¤¡@¼á¡V¡@¶]Ïü¢Q¶]Ïü¡@¡@¡@ & ¡@¡@¸¡¡@¡é£VÆr¡@¡@¡@맡@¡@£DµÜÆBÖv¡@
"/cgi-bin/somescript?username=john&telephone=123-123-1234&occupation=banana+bender"
¡@¡@¡@ & Ïê¡@¡@Àtçj¡@Äø¶Ç¡@¡@¡@µz·ü¡@¡@¶L£v¡@¥s¡@¡@¡@¡@¡@Úò¡@
<card id="input" title="Gimme some data">
¡@ <p><input type="text" name="username" format="M*m"/></p>
¡@ <p><input type="text" name="occupation" format="M*m"/></p>
<p>
<anchor>Send this
<go href="/cgi-bin/somescript?username=$(username)
&occupation=$(occupation)"/>
</anchor>
</p>
¡@ºØ¡@¡@ÖvÞÊ¡@¡@WAP¡@¬Y¡@ºÉ¡@¡@¡@¤~µÜÆBÆr¡@¡@¡@ªµ¡@¡@¡@¡@¡@ºç¡@¡@¾×ÏÄ¡@
40. ¡@¡@¡@¡@HTTP¡@¡@Referer¡@¡@¡@¡@
¿ØHTML¡@¾®³º¡@¡@¡@URL¡@¡@¡@¡@¡@URL¡@¡@¡@¡@¡@¡@ÓI¡@¡@¬é¡@¡@¡@¡@·t Referer¡@ HTTPò³Ë¡@¥z³º¡@¡@ã@¡@¡@¡@¾®¡@¡@¡@¡@¡@Íg¡@¡@¡@¡@¡@¡@¡@Öv¡@¡@ïþ¡@£V¡@¡@¡@íå¡@¡@WAP¦O¬E¡@¡@§²¡@£V¡@¡@Öv¡@ò~¡@¡@á¡@£¤¡@¡@¡@¡@í~¡@¡@¾®³º¡@¡@WAP¡@ºÙ¡@¡@¡@¡@¡@ÅÑ¡@¡@÷@¢Q¡@¤B¡@âòÏê¡@µÔ¡@¡@
¡@¡@£~¡@ Referer ¡@µÜÆB£~¡@¡@¡@URL§¨´U££¡@¡@ <a>¡@<go>³æ³æ¡@¡@¡@¡@¡@§âp¡@sendreferer¡@
<go href="/somedir/somedeck.wml" sendreferer="true"/>¡@
¡@§²âò¡@¡@§â£m¡@URL¬é¡@¡@¡@¥z³º¡@
41. ¡@ÏÄ¡é£V¡@¡@URL¡@£V¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@WML¡@¡@¡@¡@¡@¡@¬Þ¡@
Öv¡@¡@¡@¡@Öv¡@¥z³º¬½¡@¡@íå¡@¡@¡@¡@¬½¡é£V»Ô¢¢¡@
42. ¡@¡@¡@ª¤¡@¡@HTTP 302¡@¡@¡@¡@¡@£~¡@
¡@¡@ë§Öv¡@¡@£uÀt¡@¡@¡@¡@«ô¡@Öv¡@¡@¥z¬½¡@¡@¡@¡@¡@¡@£n¡@Öv¡@¡@¥z¬½¡@¡@¢Q¡@¥z³º¡@¤B¡@
¡@¤Õ¡@302 Found HTTP¡@µÜÖv¡@¡@¥z³º¡@ã@¡@¡@¡@í~¡@¡@¡@´fðE¡@¤à¤è¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@¡@302¡@µÜ¡@¡@¡@¡@¡@¡@¡@¡@¡@í~µz¡@á¡@¡@¡@ÏÄ¡@¡@¾PÁ¡Úx¡@¡@ Content-type: ¡²âòÏê¡@¡@¡@¡@帡@¡@¥Nè¡@¡@¡@¥z³º¡@¡@£~¡é£V¡@¡@¡@±`¡@¡@¡@Content-type:¡²¡@¡@ÓI¡@ ¡@Content-type:¡² Övtext/html¡@¿Øò~£V£vçS»Ô¡@¤Ø¡@¡@¡@ºN¡@¡@
¡@¡@¡@££¡@¡@¡@¡@¡@¥Nè¡@¡@Apache¢QMicrosoft Internet Information Server±`¡@¡@¡@¡@¡@¡@ÏÄ£~¡@£µ¡@¡@Web Server¡@¡@¡@£µ¡@¡@¡@¡@¡@¡@¡@´fðE¡@Ær¶Ç¡@£v¸¸¦ä¡@¡@¡@¡@»ÔÄÖ¡@¡@¡@Öv¡@¡@¸¸¦ä¡@¡@®Jïþ´fðE¡@¡@¡@¡@ã@¡@¥z³ºÑ¡@HTTPò³¡@¡@¡@pWeb Server¡@¡@¯¹¡@£K¡@¡@HTTPò³¡@£~¡@¡@¡@¡@í~¡@¡@í~µz¡@
¡@£V¡@¡@Úò££¡@¡@¡@¡@¡@¥Nè¡@¡@ÏÄ¡@¡@¡@Âé¡@¡@¡@¡@¡@¡@Ïê¡@¡@¡@¡@http://wap.colorline.no/clientinfo.html ¡@¡@¡@¡@¡@¬Á¡@¡@¡@WML¡@¡@£¤³¡@¡@£V¡@HTTPò³¡@
PHP ¡@Úò¥Nè¡@¡@¡@ http://wap.colorline.no/wap-faq/apps/302test.php3¡@¡@¡@¡@
<?
¡@¡@¡@ header("Location: http://wap.colorline.no/clientinfo.html");
¡@¡@¡@ header("Content-type: text/vnd.wap.wml";
?>¡@
Perl¥Nè¡@Úò¡@¡@¡@http://wap.colorline.no/cgi-bin/302test.pl¡@¡@¡@¡@¡@
print "Location: http://wap.colorline.no/clientinfo.html\n";
print "Content-type: text/vnd.wap.wml\n";¡@
ASP¥Nè¡@Úò¡@¡@¡@ http://www.colorline.no/302test.asp¡@¡@¡@¡@ (¡@ºØ¡@¡@¡@URL):¡@
<%
¡@¡@¡@ Response.Redirect = "http://wap.colorline.no/clientinfo.html";
¡@¡@¡@ Response.ContentType = "text/vnd.wap.wml";¡@¡@¡@¡@ 8¡@,¿ØÍg¡@§÷ 6¡@ 1 2 3 4 5 6 7 8 |
