<html>
<head>
<title>Server IuWFNg</title>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<div id="">
<table cellpadding="0" cellspacing="0" border="0" width="100%" class="main">
<tr>
<td valign="top" class="NAME">Server IuWFNg</td>
<td valign="top" class="COMPATIBILITY">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="divider"><img src="dwres:18084" width="100%" height="1"></td>
</tr>
<tr>
<td valign="top" colspan="2" class="description">







<p><!--<primary>Server object</primary>-->
<!--<primary>web
servers</primary>-->Server IuWFNgɂ́AActive Server Pages AvP[VŎgpłȂ̂̋@\pӂĂ܂B̃\bĥقƂǂ͂܂ɂgp܂񂪁ACreateObjectAExecuteA Transfer  3 ̃\bhƁAServer IuWFNg 1 ̃vpeB ScriptTimeout ͔ɗLpłB́ÃXNvgŎgp܂B</p>




<p>Server IuWFNǵA̖O悤 Web T[o[̂̂\Ȃ̋@\́ANCAgvT[o[̒ʏ̏̍ۂ Web T[o[̂gp@\łB</p>




<!--
<p class="TITLE">Server Object Summary</p>




<dl>
<dt>Properties</dt>
<dd><p>ScriptTimeout</p></dd>




<dt>Collections</dt>
<dd><p>None</p></dd>




<dt>Methods</dt>
<dd><p>CreateObject</p>






<p>Execute</p>




<p>GetLastError</p>




<p>HTMLEncode</p>




<p>MapPath</p>




<p>Transfer</p>




<p>URLEncode</p>
</dd>




<dt>Events</dt>
<dd><p>None</p></dd>

</dl>



-->
</td></tr>
</table>
</div>
<div id="CommentsTroubleshooting">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr valign="top">
<td class="NAME">
RgуguV[eBO</td>
<td class="COMPATIBILITY">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="divider"><img src="dwres:18084" width="100%" height="1"></td>
</tr>
<tr>
<td class="usage" colspan="2">&nbsp;</td></tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr><td colspan="2" class="description">




<p>Server IuWFNg̃vpeBƃ\bh̎gp͒PłBʏAServer IuWFNg̋@\𐳂\ƋɎgpƁAӐ}Ƃ̌ʂ܂BG[ꍇ́AIIS ̂̂̐ݒCXg[ɖ肪邱ƂĂ܂B</p>
</td>
</tr>
</table>
</div>
<div id="ScriptTimeout">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr valign="top">
<td class="NAME">
ScriptTimeout</td>
<td class="COMPATIBILITY">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="divider"><img src="dwres:18084" width="100%" height="1"></td>
</tr>
<tr>
<td class="usage" colspan="2"><span class="LITERAL">Server.ScriptTimeout</span><!--<primary>ScriptTimeout property (Server)</primary>-->
<!--<primary>Server object</primary><secondary>ScriptTimeout property</secondary>-->
<!--<primary>expiring</primary><secondary>script processing on server</secondary>--> <span class="LITERAL">[</span> <span class="LITERAL">=</span> <var class="replaceable">lngNumSeconds</var><span class="LITERAL">]</span>
</td></tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr><td colspan="2" class="description">
<p>Web T[o[XNvg̏pő厞Ԃ܂B̃vpeB̒lݒ肵ȂꍇAݒl 90 bɂȂ܂B</p>



</td>
</tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td></tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE">p[^</td>
</tr>
<tr>
<td colspan="2" class="description">




<dl>
<dt><var class="replaceable">lngNumSeconds</var></dt>
<dd><p>^CAEgăNCAg ASP G[𑗐M悤ɂȂ܂ł́AWeb T[o[XNvg̏pbB</p></dd>

</dl>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<span class="PROGRAMLISTING"><pre>&lt;%

' The following code sets the amount of time before the
' script times out to 100 seconds. If the script takes
' more time than 100 seconds, the script will time out and 
' a timeout error will be sent to the client.
Server.ScriptTimeout = 100

%&gt;</pre></span>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<p>ScriptTimeout vpeBl̐ݒɎgp鐔ĺA
IIS ^x[X <!--<primary>AspScriptTimeout
property</primary>-->AspScriptTimeout vpeBŐݒ肷鐔lȏłKv܂BȊȌꍇAݒ͖܂BƂ΁AIIS ^x[Xł AspScriptTimeout ̏ݒl 90 błBScriptTimeout vpeBgpāA^x[Xł̐ݒŏɕύXȂł̎Ԃ 10 bɌĂAXNvg 90 bɃ^CAEg܂B</p>




<p>IIS ^x[X AspScriptTimeout vpeB̒l邱ƂKv܂B90 b́AWeb v̏ҋ@ɂ͒ԂłB1 ҂Ƃł郆[U[͂قƂǂȂ̂łBAAvP[VŒ^CAEgݒ肪Kvȏꍇ́AꎞI "҂ . . ." y[WgpA OnLoad Cxg̎ɒXNvg܂ ASP y[WĂяo悤ɂ܂BɂAҋ@ԂȂ邱Ƃ`ʒm[U[ɕ\ł܂B</p>




<p>̋Z@ɂĎ̃R[hŎ܂B<filename>InfoSearch.ASP</filename> XNvgĂяoKvƂ܂B܂ÃXNvg 1 ̃p[^ <var class="replaceable">strSrchItem </var>󂯎Ã^XNɂ͍ő 2 Ƃ܂B<filename>InfoSearch.ASP</filename> ɌĂяoɁÃy[WĂяoƂł܂B</p>




<span class="PROGRAMLISTING"><pre>&lt;HTML&gt;
&lt;HEAD&gt;&lt;TITLE&gt;Search Wait&lt;/TITLE&gt;&lt;/HEAD&gt;
&lt;BODY LANGUAGE="VBScript" OnLoad = "PageLoad( )"&gt;
Please wait, your request is being processed...
&lt;SCRIPT LANGUAGE="VBScript"&gt;
Sub PageLoad( )
Parent.Location.HREF = _
"InfoSearch.ASP?&lt;%=Request.ServerVariables("QUERY_STRING")%&gt;"
End Sub
&lt;/SCRIPT&gt;
&lt;/BODY&gt;
&lt;/HTML&gt;</pre></span>




<p>̃XNvgǂݍ܂ƁAXNvg̃y[WĂяoARequest IuWFNg ServerVariables RNV擾ꂽ̃NG[񂪑M܂BڍׂɂẮA<link linkend="ch07-1-fm2xml"> 7 </link>QƂĂBɂAXNvg܂ŋ󔒂̉ʂ\邱ƂȂAɃ[U[ɃtB[hobN񋟂ł܂B</p>



</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
</table>
</div>
<div id="CreateObject">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr valign="top">
<td class="NAME">
CreateObject</td>
<td class="COMPATIBILITY">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="divider"><img src="dwres:18084" width="100%" height="1"></td>
</tr>
<tr>
<td class="usage" colspan="2"><span class="LITERAL">Set</span> <var class="replaceable">objMyObject</var> <span class="LITERAL">= Server.CreateObject(</span><var class="replaceable">strProgId</var><span class="LITERAL">)</span>
</td></tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr><td colspan="2" class="description">
<p><!--<primary>CreateObject method
(Server)</primary>--> <!--<primary>Server
object</primary><secondary>methods
reference</secondary>-->T[o[̃IuWFNgCX^X܂BIuWFNgCX^XƁAASP ̑gݍ݃IuWFNg̃vpeB⃁\bhgp̂Ɠ悤ɁÃvpeBƃ\bhgpł悤ɂȂ܂B̃IuWFNgCX^X DLL ́AIIS ̃CXg[Ƃ͕ʂ Web T[o[Rs[^ɃCXg[ѓo^Kv܂B</p>



</td>
</tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td></tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE">p[^</td>
</tr>
<tr>
<td colspan="2" class="description">




<dl>
<dt><var class="replaceable">objMyObject</var></dt>
<dd><p>CX^XIuWFNgւ̎QƂ܂ޕϐ̖OB</p></dd>




<dt><var class="replaceable">strProgId</var></dt>
<dd><p>IuWFNgCX^XNX̃vO IDB<var class="replaceable">strProgId</var> p[^̃tH[}bĝ͎ƂłB</p>




<span class="PROGRAMLISTING"><pre>[LibraryName.]Component[.Version]</pre></span>





<p>̒l̓WXgɂAWXgŃR|[lg DLL o^@\܂BDLL ܂ނƂ܂Ȁꍇ͊܂݂܂BƂ΁AAd Rotator IuWFNgCX^X DLL  <filename>adrot.dll</filename> łBA ProgID ́ÃWXgL[̏ݒlŒ`悤 <span class="LITERAL">MSWC.AdRotator.1</span> ɂȂ܂B</p>




<span class="PROGRAMLISTING"><pre>HKEY_CLASSES_ROOT\CLSID\{1621F7C0-60AC-11CF-9427-444553540000}\ProgID</pre></span>




<p>́Ao^ꂽ DLL  ProgID łAo^ɉăo[W܂܂܂BAgpRs[^ɓ DLL ̈̕قȂo[Wo^邱Ƃ܂B̂悤ȏꍇA<span class="LITERAL">VersionIndependentProgID</span> WXgL[̏ݒlgpāAŐVo[W DLL CX^Xł܂B̗ (ad rotator) ł́Ao[WɈˑȂ ProgID  <span class="LITERAL">MSWC.AdRotator</span> łB</p></dd>

</dl>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<span class="PROGRAMLISTING"><pre>&lt;% 

' The following code uses the CreateObject method of 
' the Server object to instantiate an Ad Rotator object 
' on the server.
Dim objAdRotator

Set objAdRotator = Server.CreateObject("MSWC.AdRotator")

%&gt;</pre></span>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<p><!--<primary>objects</primary><secondary>instantiating</secondary>-->NCAguEUAIuWFNg܂ ASP XNvgvꍇAASP ̓IuWFNgCX^XAftHg̃RXgN^@\݂ꍇ͂̋@\s܂BɁAXNvg钼OɁAOnStartPage Cxgnh`Ăy[W̊eIuWFNg OnStartPage \bhĂяo܂BOnStartPage \bhɂAIuWFNg ObjectContext IuWFNggpāAgݍ݌^ ASP IuWFNgւ̃|C^擾ł܂BT[o[R|[lg ObjectContext IuWFNg OnStartPage \bh̏ڍׂɂẮA{}jAł͐Ă܂BڍׂɂẮAO'Reilly &amp; Associates Дs Shelley Powers ̒w<citetitle>Developing ASP Components</citetitle>xQƂĂB</p>




<p>CreateObject \bhgpƁA
<!--<primary>page-level scope, creating objects
with</primary>-->
<!--<primary>scope</primary><secondary>creating objects with
CreateObject</secondary>-->
<!--<primary>application-level
scope</primary><secondary>creating objects
with</secondary>--> <!--<primary>session-level
scope</primary><secondary>creating objects
with</secondary>-->
<!--<primary>objects</primary><secondary>creating with
page-level scope</secondary>-->y[Wx
<!--<primary>web pages</primary><secondary>scope
of</secondary><see>page-level scope</see>-->XR[vŃT[o[TChIuWFNg쐬ł܂BAApplication_<!--<primary>OnStart
event</primary><secondary>calling CreateObject
in</secondary>-->
<!--<primary>events</primary><secondary>Application
object</secondary><tertiary>creating objects
in</tertiary>-->
<!--<primary>events</primary><secondary>Session
object</secondary><tertiary>creating objects
in</tertiary>-->OnStart ܂ Session_OnStart Cxg CreateObject ĂяoȂƂłB̏ꍇAIuWFNg͂ꂼAvP[VxXR[v܂̓ZbVxXR[vŃCX^X܂By[W̍ŌŁAy[Wx
<!--<primary>web pages</primary><secondary>scope
of</secondary>-->XR[ṽIuWFNg͍폜ALĂ͉܂B</p>




<p>AvP[VXR[vIuWFNg쐬ɂ́AApplication_OnStart Cxg (<link linkend="ch04-40130"> 4 </link>Q)  CreateObject \bhĂяoA<span class="LITERAL">&lt;OBJECT&gt;</span> ^O "<filename>GLOBAL.ASA</filename>" t@CŎgpA<span class="LITERAL">SCOPE</span><!--<primary>SCOPE
parameter</primary>--> p[^ Application ɐݒ肵܂B"<filename>GLOBAL.ASA</filename>" t@C̏ڍׂɂẮA<link linkend="ch11-1-fm2xml"> 11 </link>QƂĂB</p>




<p>悤ɁAZbVXR[vAvP[V쐬ɂ́ASession_OnStart Cxg CreateObject \bhĂяo (<link linkend="ch10-1-fm2xml"> 10 </link>Q)A<span class="LITERAL">&lt;OBJECT&gt;</span> ^O "<filename>GLOBAL.ASA</filename>" t@CŎgpA<span class="LITERAL">SCOPE</span> p[^ Session ɐݒ肵܂B܂Â̗悤 Session ϐgpACreateObject găCX^XꂽIuWFNgێł܂B</p>




<span class="PROGRAMLISTING"><pre>Set Session("objMyAdRot") = _
    Server.CreateObject("MSWC.AdRotator")</pre></span>




<p>AvP[VxXR[vAvP[V́AApplication_OnEnd Cxg܂ō폜܂B[U[̃ZbV̏I܂ Session IuWFNg Abandon \bhĂяoꂽƂɁAZbVXR[vIuWFNglɍ폜܂BڍׂɂẮA<link linkend="ch10-1-fm2xml"> 10 </link>QƂĂB</p>




<p>IuWFNgCX^X́ÃTvR[ĥ悤ɁA̒lL[[h <span class="LITERAL">Nothing</span> ɐݒ肵č폜ł܂B</p>




<span class="PROGRAMLISTING"><pre>Set objMyAdRot = Nothing</pre></span>




<p>IuWFNgϐ̒lPɒuāÃIuWFNgɎgpĂ邱Ƃł܂B</p>




<span class="PROGRAMLISTING"><pre>Set objMyAdRot = strSomeOtherValue</pre></span>




<p>CreateObject gpāAgݍ݃IuWFNg 1 ̃CX^X쐬邱Ƃ͂ł܂BƂ΁ÃR[hł̓^CG[܂B</p>




<span class="PROGRAMLISTING"><pre>Set objMySession = Server.CreateObject("Session") ' WRONG</pre></span>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
</table>
</div>
<div id="Execute">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr valign="top">
<td class="NAME">
Execute</td>
<td class="COMPATIBILITY">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="divider"><img src="dwres:18084" width="100%" height="1"></td>
</tr>
<tr>
<td class="usage" colspan="2"><span class="LITERAL">Server.Execute</span> <span class="LITERAL">(</span><var class="replaceable">strPath</var><span class="LITERAL">)</span>
</td></tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr><td colspan="2" class="description">
<p><!--<primary>Execute
method</primary><secondary>Server
object</secondary>-->Execute \bhgpƁA ASP XNvg <!--<primary>ASP (Active Server
Pages)</primary><secondary>scripts calling
themselves</secondary><tertiary>and
executing</tertiary>-->ASP XNvgĂяoĎsł܂BĂяoꂽ\bhsIƁAServer.Execute \bhĂяo ASP y[Wɐ䂪Ԃ܂BExecute \bhgpƁAGȃAvP[VAKvȂƂɌĂяo\ȃW[̍ėp\R|[lgɕł܂BExecute \bh ASP 3.0/IIS 5.0 ̐V@\łB</p>



</td>
</tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td></tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE">p[^</td>
</tr>
<tr>
<td colspan="2" class="description">




<dl>
<dt><var class="replaceable">strPath</var></dt>
<dd><p>s ASP XNvgւ̐΃pX܂͑΃pXB̃\bhgpĎsł̂́Ã݂AvP[ṼAvP[VԓɂXNvĝ݂łB</p></dd>

</dl>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<p>̗ł́Ã݂[U[ "No Ad" ̃o[łȂꍇɌAExecute \bhgpčŏ̃XNvgɂAeLXgL\ 2 Ԗڂ̃XNvgĂяo܂B</p>




<span class="PROGRAMLISTING"><pre>**** BEGIN ExecuteExamplePage.ASP ********
&lt;HTML&gt;
&lt;HEAD&gt;
&lt;TITLE&gt;
Execute Example Form
&lt;/TITLE&gt;
&lt;/HEAD&gt;
&lt;BODY&gt;
&lt;% 
' This script executes an advertisement if the current
' user is not a member of the "No advertisement" club.

' Dimension Local variables.
Dim blnNoAdClub

' Test Session variable.
Session("blnNoAdClub") = False

' Set variables.
blnNoAdClub = Session("blnNoAdClub")

' If the user belongs in the "No Ad" club don't show an ad.		
If Not(blnNoAdClub) Then
	<strong class="userinput">Server.Execute ("DisplayAdvertisement.asp")</strong>
End If
%&gt;

FROM HERE DOWN IS ALL CONTENT FROM ExecuteExampleForm.asp&lt;BR&gt;

This page may or may not have an advertisement line at the top.

&lt;/BODY&gt;
&lt;/HTML&gt;
**** END ExecuteExamplePage.ASP ********

**** BEGIN DisplayAdvertisement.ASP ********
&lt;%
Dim intSal
Dim strPos
Dim strAdString

' Test Session variable.
Session("intSal") = 4
Session("strPos") = "vp"

intSal = Session("intSal")
strPos = Session("strPos")

' Initialize first part of ad banner text.
strAdString = "Click here to request a credit card"

' Add credit limit phrase to ad.
Select Case intSal
	Case 0 ' From $10K to $20K in salary.
		strAdString = strAdString &amp; " with a limit of up to $5000"
	Case 1 ' From $20K+ to $40K in salary.
		strAdString = strAdString &amp; " with a limit of up to $10000"
	Case 2 ' From $40K+ to $60K in salary.
		strAdString = strAdString &amp; " with a limit of up to $20000"
	Case 3 ' From $60K+ to $80K in salary.
		strAdString = strAdString &amp; " with a limit of up to $50000"
	Case 4 ' From $80K+ in salary.
		strAdString = strAdString &amp; " with a limit of up to $100000"
	Case Else ' Assume lowest salary range.
		strAdString = strAdString &amp; " with no limit"
End Select

' Add exclusivity phrase if necessary.
If UCase(strPos) = "VP" Then
	strAdString = strAdString &amp; " just for executives!"
Else
	strAdString = strAdString &amp; "!"
End If

' Display advertisement text string.
Response.Write "&lt;FONT SIZE="5" COLOR = "red"&gt;" &amp; strAdString &amp; "&lt;/FONT&gt;&lt;BR&gt;&lt;BR&gt;"

%&gt;
**** END DisplayAdvertisement.ASP ********</pre></span>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<p>Execute \bh́AKvȏꍇɂ̂݌ĂяoƂłAǗ₷ėp\ȃR[h̃R|[lgɃAvP[V𕪊邽߂́AASP J҂ɂƂėDꂽ@łB܂ŁAASP J҂̓y[W̎svOIɑ̃y[WɃ_CNg邩A<span class="LITERAL">#INCLUDE</span> vvZbTfBNeBugpđ̃t@CgݍޕKv܂By[W̎svOIɑ̃y[WɃ_CNgꍇ́AuEU̗v_CNg邽߂Ƀwb_uEUɑMKv̂ŁA͎sxቺ@łB̕@܂֗ł͂܂łBɐ悤ɁAServer IuWFNg Redirect \bh ({͂Ōq܂) ł́Axy[Wɑ΂āAT[o[NCAgANCAgT[o[ւ̕ʂ̌Ăяos܂B<span class="LITERAL">#INCLUDE</span> fBNeBúAt@CVXegݍ܂ꂽt@C擾邱ƁÃt@C݂̃XNvgɑ}邱ƁAёgݍ݌̃XNvgŎgpȂꍇłgݍ܂ꂽׂẴR[h߂邱Ƃ ASP ISAPI tB^ɋ܂B</p>




<p>AExecute \bhgpƁAĂяõXNvg̃WbNŕKvȏꍇɌÃXNvgvOIɎsł܂B܂AExecute \bhgpƁAIɃXNvggݍނƂł܂B</p>




<p>̃XNvgƓlɁAExecute \bhʂČĂяoꂽXNvǵAɊ܂܂Ă HTTP wb_ǉ܂͕ύXł܂BAX^hA[XNvgƓlAĂяoꂽXNvg̑M HTTP wb_ǉ܂͕ύXꍇ̓G[܂B</p>




<p>eXNvg (ĂяõXNvgьĂяoXNvg) ̕ϐXR[v͈قȂ܂BƂ΁ÃR[hł́ÃXNvg <span class="LITERAL">strName</span> ƂϐƂ܂B</p>




<span class="PROGRAMLISTING"><pre>CALLING SCRIPT
&lt;%
Dim strName
strName = "Sam"
Server.Execute("CalledScript.asp")
%&gt;

CalledScript.asp
&lt;%
Dim strName
Response.Write strName
%&gt;</pre></span>




<p>O̗ł́A<var class="replaceable">strName</var> ̃XNvgŐ錾Ă܂BA2 Ԗڂ̃XNvgł͏܂B̗ł́AResponse.Write ̌ʁAResponse ɂ͉܂܂B́AĂяoꂽXNvg <var class="replaceable">strName</var> ̒l`ĂȂłB</p>




<p>ASP y[W Server.Execute Ăяođ ASP y[Wɕ򂷂ꍇAŏ ASP y[ŴׂĂ̑gݍ݌^ ASP IuWFNǵAĂяoꂽXNvgɓn܂BƂ΁ARequest IuWFNg Form RNV̔Cӂ̒ĺAServer IuWFNg Execute \bhւ̌ĂяoɂČĂяoꂽ ASP y[Wŗpł܂B</p>




<p>Microsoft ̃}jAɂ΁AExecute \bhł́AĂяoꂽ URL ̍Ō <!--<primary>QueryString
parameter, adding with Execute method
(Server)</primary>-->QueryString p[^ǉł܂BA{}jA̒ǉ_ (2000 N 3 ) ł́AURL  QueryString ǉƃG[܂BMicrosoft ZpT|[gɂ΁A IIS 5.0 ̊m̃oOłACvOJĂƂłB</p>




<p>ŌɁAgUNV^ɐݒ肵XNvg Execute \bhgpăXNvgĂяoAĂяoꂽXNvgɂăgUNV~ꍇ́AĂяoꂽy[W OnTransactionAbort CxgŏɌĂяoAĂяoꂽXNvgsɁAĂяõy[W OnTransactionAbort Cxgs܂BƂ΁ÃXNvg <em>CallingScript.ASP</em>  <em>CalledScript.ASP</em> XNvgĂяoƂ܂B</p>




<span class="PROGRAMLISTING"><pre>CALLINGSCRIPT.ASP
&lt;%@ TRANSACTION=Required%&gt;
&lt;%
Server.Execute "CalledScript.asp?strName=bob"
Sub OnTransactionAbort( )
	'Clean up code for CallingScript.asp.
End Sub

Sub OnTransactionCommit( )
	Commit code for CalledScript.asp.
End Sub


CALLEDSCRIPT.ASP
&lt;%@ TRANSACTION=Required%&gt;
&lt;%
.
.
.
'Processing code....
.
.
.
OnTransactionAbort( )
	'Clean up code for CalledScript.asp.
End Sub

OnTransactionCommit( )
	Commit code for CalledScript.asp.
End Sub</pre></span>




<p><filename>CalledScript.ASP</filename> XNvgŁAgUNV𒆎~G[ꍇA<em>CalledScript.ASP</em>  OnTransactionAbort CxgR[hsA <em>CallingScript.ASP</em>  OnTransactionAbort CxgR[hs܂B</p>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
</table>
</div>
<div id="GetLastError">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr valign="top">
<td class="NAME">
GetLastError</td>
<td class="COMPATIBILITY">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="divider"><img src="dwres:18084" width="100%" height="1"></td>
</tr>
<tr>
<td class="usage" colspan="2"><span class="LITERAL">Set</span> <var class="replaceable">objASPErr</var> <span class="LITERAL">= Server.GetLastError ()</span>
</td></tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr><td colspan="2" class="description">
<p><!--<primary>GetLastError
method</primary><secondary>Server object</secondary>-->
Server IuWFNg <!--<primary>errors</primary><secondary>displaying
information about</secondary>-->GetLastError \bhgpƁAXNvgŔG[Ɋւ\ł܂BGetLastError \bh 1  ASPError IuWFNgԂ܂B<link linkend="ch05-1-fm2xml"> 5 </link>QƂĂBԂꂽ ASPError IuWFNggpƁAG[\邩AG[ɃvOIɉł܂BGetLastError \bh ASP 3.0/IIS 5.0 ̐V@\łB</p>



</td>
</tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td></tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE">p[^</td>
</tr>
<tr>
<td colspan="2" class="description">




<dl>
<dt><var class="replaceable">objASPErr</var></dt>
<dd><p>GetLastError \bhɂĕԂꂽ ASPError IuWFNg̖OB</p></dd>

</dl>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<span class="PROGRAMLISTING"><pre>&lt;%
' Instantiate an ASPError object using the GetLastError method of the 
' Server object.
Set objASPError = Server.GetLastError
%&gt;
.
.
.
HTML Display Etc.
&lt;%
' Use the properties of the ASPError object (returned by the GetLastError 
' object) to display information about the error.

' *** FOR MORE INFORMATION, SEE THE ASPERROR OBJECT CHAPTER.

Response.Write Server.HTMLEncode(objASPError.Category)
If objASPError.ASPCode &gt; " Then
    Response.Write Server.HTMLEncode(", " &amp; objASPError.ASPCode)
End If
Response.Write Server.HTMLEncode(" (0x" &amp; Hex(objASPError.Number) &amp; ")" ) 
&amp; "&lt;br&gt;"
If objASPError.ASPDescription &gt; " Then 
   Response.Write Server.HTMLEncode(objASPError.ASPDescription) &amp; "&lt;br&gt;"
ElseIf (objASPError.Description &gt; ") Then 
   Response.Write Server.HTMLEncode(objASPError.Description) &amp; "&lt;br&gt;" End if
  .
  .
  .</pre></span>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<p>̃TvR[h (IIS 5.0 ɕt̃ftHg <filename>500-100.ASP</filename> XNvgh) ł́AGetLast-Error \bhgp ASPError IuWFNgCX^X邱ƂŃXNvgJn܂BɁAASPError IuWFNg̃vpeBgpāAŌ̃G[Ɋւ\܂BASPError IuWFNg̃vpeB̏ڍׂɂẮA<link linkend="ch05-1-fm2xml"> 5 </link>QƂĂB</p>




<p>܂AG[XNvg GetLastError \bhgpłȂƂɒӂĂBƂ΁ÃR[h͈Ӑ}Ƃɓ삵܂B</p>




<span class="PROGRAMLISTING"><pre>&lt;%
On Error Resume Next
Session("MyVar"3333) = "keyton"
Set objError = Server.GetLastError( )
Response.Write objError.ASPCode
%&gt;</pre></span>




<p><span class="LITERAL">On Error
Resume Next</span> Xe[gggp̂ŁǍ GetLastError \bhgpăXNvgŃG[ɉłƍlꍇ邩܂BÂ悤ȓ͔܂BIIS 5.0 ̓G[ɂɔAServer.Transfer \bhwŎgpāANCAgG[y[WɃ_CNg܂BftHgł́ÃG[y[W <filename>/iisHelp/Common/500-100.ASP</filename> łBGetLastError \bhgpăG[JX^}CYł̂́Ãy[WłB</p>




<p><filename>500-100.ASP</filename> G[y[WƃXNvg̈ʓIȃG[̏ڍׂɂẮA<link linkend="ch05-1-fm2xml"> 5 </link><filename></filename>QƂĂB</p>




<p>GetLastError \bh́AOG[AXNvg̃RpCG[Aу^CG[Ɏgpł܂B</p>




<p>GetLastError \bh̓NCAgɃRecMĂȂꍇɂ̂݃G[𐳏ɕԂƂɒӂĂBɃNCAgɃRecMĂꍇ́AGetLastError \bĥ̂ɂăG[܂B̂߁AXNvgł܂܂ȃG[KvƎvꍇ́AResponse IuWFNg Buffer vpeB <span class="LITERAL">True</span> ɐݒ肷邱Ƃ߂܂B<link linkend="ch08-1-fm2xml"> 8 </link>QƂĂB</p>




<span class="PROGRAMLISTING"><pre>Response.Buffer = True</pre></span>




<p>GetLastError \bh GetLastError \bhԂ ASPError IuWFNg̏ڍׂɂẮA<link linkend="ch05-1-fm2xml"> 5 </link>QƂĂB </p>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
</table>
</div>
<div id="HTMLEncode">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr valign="top">
<td class="NAME">
HTMLEncode</td>
<td class="COMPATIBILITY">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="divider"><img src="dwres:18084" width="100%" height="1"></td>
</tr>
<tr>
<td class="usage" colspan="2"><span class="LITERAL">Server.HTMLEncode</span><!--<primary>HTMLEncode method (Server)</primary>-->
<!--<primary>encoding</primary><secondary>HTML for display</secondary>-->
<!--<primary>web browsers</primary><secondary>encoding</secondary><tertiary>HTML for</tertiary>-->
<!--<primary>HTML (Hypertext Markup Language)</primary><secondary>encoding for browser display</secondary>--> (<var class="replaceable">strHTMLString</var><command role="literal">)</command>
</td></tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr><td colspan="2" class="description">
<p>HTML y[W܂ ASP XNvgɊ֘Aۂ HTML R[h\KvƂ́AServer IuWFNg HTMLEncode \bhgpKv܂BServer IuWFNg HTMLEncode \bhgp HTML GR[hł̂ŁAuEUł̕\ɁA HTML eLXgCAEg̖߂łƂ͉߂܂B</p>



</td>
</tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td></tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE">p[^</td>
</tr>
<tr>
<td colspan="2" class="description">




<dl>
<dt><var class="replaceable">strHTMLString</var></dt>
<dd><p>NCAgRs[^ɕ\邽߂ HTML R[hGR[h镶B</p></dd>

</dl>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<span class="PROGRAMLISTING"><pre>&lt;%

' The following code encodes these HTML tags so that they can 
' be displayed without interpretation on the client browser:
' &lt;TABLE&gt;&lt;TR&gt;&lt;TD&gt;&lt;/TD&gt;&lt;/TR&gt;&lt;/TABLE&gt;
Dim strOldHTML
Dim strNeutralCode

strOldHTML = "&lt;TABLE&gt;&lt;TR&gt;&lt;TD&gt;"
strNeutralCode = Server.HTMLEncode(strOldHTML)

' The variable strNeutralCode now holds the following code:
' &amp;lt;TABLE&amp;gt;&amp;lt;TR&amp;gt;&amp;lt;TD&amp;gt;
' but will be displayed on the client's machine as
' &lt;TABLE&gt;&lt;TR&gt;&lt;TD&gt;
' and the &amp;lt;TABLE&amp;gt;&amp;lt;TR&amp;gt;&amp;lt;TD&amp;gt; will be
' seen only if you view the source code on the client.
Response.Write strNeutralCode

%&gt;</pre></span>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<p>HTMLEncode \bh́AȒPɎgpłPȃ\bhłBHTML y[W̃\[XR[h\AWeb y[Wł̂܂܂ HTML ^O̎gpƂł܂Bf[^x[XNG[̏o͂\ۂɂɕ֗łB</p>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
</table>
</div>
<div id="MapPath">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr valign="top">
<td class="NAME">
MapPath</td>
<td class="COMPATIBILITY">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="divider"><img src="dwres:18084" width="100%" height="1"></td>
</tr>
<tr>
<td class="usage" colspan="2"><span class="LITERAL">Server.MapPath</span> (<var class="replaceable">strPath</var><command role="literal">)</command>
</td></tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr><td colspan="2" class="description">
<p><!--<primary>MapPath method (Server)</primary>-->
<!--<primary>paths</primary><secondary>determining with
MapPath()</secondary>--> <!--<primary>virtual
paths</primary><secondary>determining with
MapPath()</secondary>--> <!--<primary>web
servers</primary><secondary>paths
on</secondary><see>paths</see>-->MapPath \bhł́AzpX܂͑΃pXw肷ƁAT[o[̕pX𒲂ׂ邱Ƃł܂B</p>



</td>
</tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td></tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE">p[^</td>
</tr>
<tr>
<td colspan="2" class="description">




<dl>
<dt><var class="replaceable">strPath</var></dt>
<dd><p>SȉzpXA܂̓T[o[݂̌̃XNvg̃z[fBNg̃pXɑΓIȃpXB̃\bhł́A񂪃XbV (/) ܂̓obNXbV (\) Ŏn܂邩ɂA߂@𔻒f܂B<var class="replaceable">strPath</var> p[^̂̕ꂩŎn܂ꍇA͊SȉzpXłƌȂ܂BȊȌꍇɕԂ镨pX́AWeb T[o[݂̌̃XNvg̕fBNgɑΓIȃpXłB</p></dd>

</dl>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<span class="PROGRAMLISTING"><pre>&lt;%

' The following line of code determines the physical path
' of the current script for later use.
strSearchPath = _
   Server.MapPath("/searchscripts/start/searchstart.asp")

' This following code then uses the strSearchPath string to
' determine the file attributes for the current file for 
' display in the client-side HTML.
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(strSearchPath)
datFileLastModified = f.DateLastModified
%&gt;
&lt;HTML&gt;
&lt;HEAD&gt;&lt;TITLE&gt;MapPath Example&lt;/TITLE&gt;&lt;/HEAD&gt;
&lt;BODY&gt;
The current script was last modified &lt;%=datFileLastModified%&gt;.
&lt;/BODY&gt;
&lt;/HTML&gt;</pre></span>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<p>MapPath \bhgpꍇAoĂKvdvȎ 2 ܂B̍ŏ̎́AW
<!--<primary>MS-DOS relative directory
notation</primary>--> <!--<primary>relative directory
notation</primary>--> <!--<primary>directory
notation, MS-DOS</primary>--> <!--<primary sortas="Adot and Adot@dot">. and .. for
directories</primary>-->MS-DOS ΃fBNg\L ("."  "..") T|[gĂȂƂƂłB̂߁ÃR[hs̓^CG[ɂȂ܂B</p>




<span class="PROGRAMLISTING"><pre>strSearchPath = Server.MapPath("../start/searchstart.asp")</pre></span>




<p>2 Ԗڂ̎́AMapPath \bh͎w肳ꂽfBNg݂邩ǂmFȂƂƂłB̂߁Ã\bh́AXNvgR[hɉ Web T[o[ō쐬VKt@C̕pX𒲂ׂꍇɕ֗łB</p>




<p>ŌɁÃ݂t@C̕pX𒲂ׂɂ́ARequest IuWFNg ServerVariables RNV <span class="LITERAL">PATH_INFO</span><!--<primary>PATH_INFO
element (ServerVariables)</primary>--> vfgpł܂BڍׂɂẮA<link linkend="ch07-1-fm2xml"> 7 </link>QƂĂBƂ΁Ã݂XNvg <filename>searchstart.ASP</filename> łA<filename>/searchscripts/start/</filename> zfBNgɂƂ܂B̃R[hśA<var class="replaceable">strSearchPath</var> ̒l <filename>D:\apps\searchscripts\start\searchstart.ASP</filename> ɐݒ肵܂B</p>




<span class="PROGRAMLISTING"><pre>strSearchPath = _
   Server.MapPath(Request.ServerVariables("PATH_INFO"))</pre></span>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
</table>
</div>
<div id="Transfer">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr valign="top">
<td class="NAME">
Transfer</td>
<td class="COMPATIBILITY">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="divider"><img src="dwres:18084" width="100%" height="1"></td>
</tr>
<tr>
<td class="usage" colspan="2"><span class="LITERAL">Server.Transfer</span> (<var class="replaceable">strPath</var><command role="literal">)</command>
</td></tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr><td colspan="2" class="description">
<p><!--<primary>Transfer method
(Server)</primary>--> <!--<primary>ASP (Active Server
Pages)</primary><secondary>redirecting
execution</secondary>-->Transfer \bhgpƁANCAg HTTP 𑗐M邱ƂȂA1 ̃XNvgʂ̃XNvgɎs_CNgł܂BRequest IuWFNg₻̑̃IuWFNgȂǁAŏ̃XNvĝׂĂ̏A2 Ԗڂ̃XNvgŊSɗpł悤ɂȂ܂BServer.Execute Ƃ͈قȂAServer.Transfer ́AĂяoꂽ ASP y[WsIƂɁA Transfer \bhĂяoXNvgɕԂ܂B̃\bh ASP 3.0/IIS 5.0 ̐V@\łB</p>



</td>
</tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td></tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE">p[^</td>
</tr>
<tr>
<td colspan="2" class="description">




<dl>
<dt><var class="replaceable">strPath</var></dt>
<dd><p>s̃_CNgƂȂA2 Ԗڂ̃XNvg̑΃pX܂͐΃pXB</p></dd>

</dl>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<span class="PROGRAMLISTING"><pre>******** BEGIN Transfer Example: First Script ********

&lt;%
' Transfer Example: First Script

' First Script calls Second Script, which uses Transfer
' to redirect execution to Third Script.
%&gt;
&lt;HTML&gt;
&lt;HEAD&gt;
&lt;TITLE&gt;
Server.Transfer Example
&lt;/TITLE&gt;
&lt;/HEAD&gt;
&lt;BODY&gt;
&lt;FORM ACTION="TransferExample_Process1.asp?qsvalue=hannah1" METHOD="post"&gt;
First Name: &lt;INPUT TYPE="text" NAME="txtFName" VALUE="&gt;&lt;BR&gt;
Last Name: &lt;INPUT TYPE="text" NAME="txtLName" VALUE="&gt;&lt;BR&gt;
Address: &lt;INPUT TYPE="text" NAME="txtAddress" VALUE="&gt;&lt;BR&gt;
City: &lt;INPUT TYPE="text" NAME="txtCity" VALUE="&gt;&amp;nbsp
State: &lt;INPUT TYPE="text" NAME="txtState" VALUE="&gt;&lt;BR&gt;
Zipcode: &lt;INPUT TYPE="text" NAME="txtZipcode" VALUE="&gt;&lt;BR&gt;
&lt;INPUT TYPE="submit" VALUE="Submit"&gt;
&lt;/FORM&gt;
&lt;/BODY&gt;
&lt;/HTML&gt;
******** END Transfer Example: First Script ********



******** BEGIN Transfer Example: Second Script ********
&lt;%
Application("strExample1") = "ApplicationStringValue"
Session("strExample2") = "SessionStringValue"
Server.Transfer "TransferExample_Process2.asp"
Application("strExample1") = "NEWApplicationStringValue"
Session("strExample2") = "NEWSessionStringValue"
%&gt;
******** END Transfer Example: Second Script ********



******** Begin Transfer Example: Third Script ********
&lt;%
' Transfer Example: Third Page

' First Page calls Second Page, which uses Transfer
' to redirect execution to Third Page.
%&gt;
&lt;HTML&gt;
&lt;HEAD&gt;
&lt;TITLE&gt;
Server.Transfer Example
&lt;/TITLE&gt;
&lt;/HEAD&gt;
&lt;BODY&gt;
&lt;%
Response.Write "First Name: " &amp; Request.Form("txtFName") &amp; "&lt;BR&gt;"
Response.Write "Last Name: " &amp; Request.Form("txtLName") &amp; "&lt;BR&gt;"
Response.Write "Address: " &amp; Request.Form("txtAddress") &amp; "&lt;BR&gt;"
Response.Write "City: " &amp; Request.Form("txtCity") &amp; "&lt;BR&gt;"
Response.Write "State: " &amp; Request.Form("txtState") &amp; "&lt;BR&gt;"
Response.Write "Zipcode: " &amp; Request.Form("txtZipcode") &amp; "&lt;BR&gt;&lt;BR&gt;"

Response.Write "Application Variable: " &amp; Application("strExample1") &amp; "&lt;BR&gt;"
Response.Write "Session Variable: " &amp; Session("strExample2") &amp; "&lt;BR&gt;"

%&gt;

&lt;/BODY&gt;
&lt;/HTML&gt;
******** END Transfer Example: Third Script ********</pre></span>



</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<p>̃R[hgpꍇ́A3 ̃XNvg쐬AuEUŃeXg܂BŏIʂƂāÂ悤ȏo͂܂B</p>




<span class="PROGRAMLISTING"><pre>First Name: keyton
Last Name: weissinger
Address: 123 Main Street
City: Somewhereville
State: Alabama
Zipcode: 30087

Application Variable: ApplicationStringValue
Session Variable: SessionStringValue</pre></span>




<p>Transfer \bȟĂяoɁAApplication  Session ϐ̓ubÑR[hɂčXV܂B</p>




<p>Ŏ悤ɁATransfer \bhĂяoƁAgݍ݌^ ASP IuWFNg̍ŏ̃XNvgŗpł邷ׂĂ̏́A2 Ԗڂ̃XNvgłp\ɂȂ܂BA̓XNvgxϐ̏ꍇɂ͓Ă͂܂܂Bŏ̃XNvgŕϐ錾ďꍇ́A2 Ԗڂ̃XNvgł͕ϐ͗pł܂B</p>




<p>܂AAvP[VxXR[v܂̓ZbVxXR[vŕϐꍇA2 Ԗڂ̃XNvg̕ϐɃANZXł܂B2 Ԗڂ̃XNvgʂ̃AvP[VԂɂꍇłlłB</p>




<p>Transfer \bhɊւďdvȎ 2 ܂B̍ŏ̎́ANCAgɉ炩̉𑗐M Transfer \bhgp悤ƂƁAG[ƂƂłB̂߁AKvɉ Response IuWFNg Buffer vpeB <span class="LITERAL">True</span> ɐݒ肷ƁA̖ł܂B</p>




<p>Transfer \bhɊւďdv 2 Ԗڂ̎́ATransfer \bhĂяoɂ̓XNvgsȂƂƂłBƂ΁A̗ł́A3 Ԗڂ 4 Ԗڂ̃R[hs͊Sɖ܂B</p>




<span class="PROGRAMLISTING"><pre>Session("intMyVar") = 1
Server.Transfer "SomeOtherScript.asp"
Session("intMyVar") = 2
Session("intMyOtherVar") = 3</pre></span>




<p>ÕR[hubN̎sɂASession ϐ <var class="replaceable">intMyVar</var> ͒l 1 A<var class="replaceable">intMyOtherVar</var> ϐ́ÃR[hubN̎sOɑ̏ꏊŒ`ĂȂA`̂܂܂ɂȂ܂B</p>


</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
</table>
</div>
<div id="URLEncode">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr valign="top">
<td class="NAME">
URLEncode</td>
<td class="COMPATIBILITY">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="divider"><img src="dwres:18084" width="100%" height="1"></td>
</tr>
<tr>
<td class="usage" colspan="2"><span class="LITERAL">Server.URLEncode</span> (<var class="replaceable">strURL</var><command role="literal">)</command>
</td></tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr><td colspan="2" class="description">
<p><!--<primary>URLEncode method (Server)</primary>-->
<!--<primary>URLs</primary><secondary>encoding query
strings</secondary>--> <!--<primary>query strings,
encoding</primary>-->
<!--<primary>encoding</primary><secondary>query strings for
URLs</secondary>-->AhXsŃNG[ƂđMł镶GR[h܂B</p>



</td>
</tr>
<tr><td colspan="2" class="CLEARSEPARATION">&nbsp;</td></tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE">p[^</td>
</tr>
<tr>
<td colspan="2" class="description">




<dl>
<dt><var class="replaceable">strURL</var></dt>
<dd><p>AhXsŃNG[ƂăGR[hđM镶lB</p></dd>

</dl>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<span class="PROGRAMLISTING"><pre>&lt;%

' The following encodes the URL 
' http://www.myserver.com/apps/search.asp
Dim strOldURL
Dim strNewURL

strOldURL = "http://www.myserver.com/apps/search.asp"
strNewURL = Server.URLEncode(strOldURL)

' This encoding results in the following string value being
' placed in the strNewURL variable:
' http%3A%2F%2Fwww%2Emyserver%2Ecom%2Fapps%2Fsearch%2Easp

' This new string value could be used in a query string to 
' represent a "next script," as demonstrated here:

%&gt;
&lt;HTML&gt;
&lt;HEAD&gt;&lt;TITLE&gt;URLEncode Example&lt;/TITLE&gt;&lt;/HEAD&gt;
&lt;BODY&gt;
&lt;FORM ACTION="/apps/CalcAndRedirect.asp?newURL=&lt;%=strNewURL%&gt;" METHOD = POST&gt;
&lt;INPUT TYPE = TEXT NAME = "First Value"&gt;
&lt;INPUT TYPE = TEXT NAME = "Second Value"&gt;
&lt;INPUT TYPE = SUBMIT NAME = "Calculate Results"&gt;
&lt;/FORM&gt;
&lt;/BODY&gt;
&lt;/HTML&gt;</pre></span>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
<tr>
<td colspan="2" class="DESCRIPTIONTITLE"></td>
</tr>
<tr>
<td colspan="2" class="description">




<p>URLEncode \bh́AHTMLEncode \bhƓ悤ɁAPŎg₷\bhłB<span class="LITERAL">POST</span> \bhgpď|XgɁAAhXsŏ𑗐MKvꍇ́AURLEncode \bhgp邱ƂsłBGR[hA<span class="LITERAL">GET</span> \bhʂ QueryString RNVɔzuꍇAMf[^ɂẮẢ߂͗\Ȃ̂ɂȂ܂B</p>




<p>NG[ŏ𑗐M (t[t[)AAhXsł͑MȂꍇÃGR[fBO͎Iɍs܂B  </p>




</td>
</tr>
<tr>
<td colspan="2" class="CLEARSEPARATION">&nbsp;</td>
</tr>
</table>
</div>
</body>
</html>
