Problem ASP include dynamic URL (#2)

ช่วงหลังมีคนหลังเกี่ยวกับ ASP Classic เข้ามาขอนำมาตอบที่นี่ล่ะกันนะครับ

Problem ASP include dynamic URL คืองานเขียน ครั้งก่อนที่ผมได้เคยเขียนไว้นะครับ (นานมากล่ะ)

ตัดบางส่วนของจดหมายมาดังนี้
-------------------------------------
ผมไม่เข้าใจโค๊ดพวกนี้เลยครับ ซึ่ง php มันทำง่ายมากเลย แค่ include($valFile) ก็จบแล้วน่ะครับ เช่นที่ผมเคยเขียนใน asp น่ะครับ

   1:  if(!$_SESSION["s_user"] and $page!="index_home.php"){

   2:     echo"<script language='Javascript'>

   3:              alert('! ส่วนนี้ถูกปิดใช้งาน กรุณา Login ก่อนเข้าใช้งาน !')

   4:          </script>";

   5:     include("index_home.php");

   6:  }

   7:  else{ 

   8:     include($page); 

   9:  }     

มันก็เป็นหลักการที่ง่ายๆ ไม่ได้ติดคอมเม้นในภาษา html
-------------------------------------


ตามที่เขียนมานั้น เข้าใจดีครับว่า ติดปัญหาอะไร และถามคำถามได้ดีแล้วครับ
เข้าใจว่าต้องการ ให้เขียน แบบเหมือนที่ยกตัวอย่างของ PHP มาให้ดู ลองเทียบกันดูนะครับ

   1:  

   2:  dim filename

   3:  filename = "index_home.php"

   4:  

   5:  If Session("s_user") <> "" && filename <> "index_home.asp" Then

   6:  

   7:     response.write "<sc ript="" language="Javascript">

   8:        alert('! ส่วนนี้ถูกปิดใช้งาน กรุณา Login ก่อนเข้าใช้งาน !')"

   9:     <!--#include file="index_home.asp" -->

  10:  

  11:  Else

  12:  

  13:     dim strFile, fso, fsoFile

  14:     strFile = "upload/"& CStr(filename)

  15:  

  16:     If strFile <> "" Then

  17:  

  18:     set fso = createObject("Scripting.FileSystemObject")

  19:     set fsoFile = fso.openTextFile(Server.MapPath(strFile))

  20:     response.write "" & fsoFile.readAll & ""

  21:     set fso = nothing

  22:     set fsoFile = nothing

  23:  

  24:     End if

  25:  

  26:  End if

เท่าที่เขียน ไปนี่ ยังไม่ค่อยจะมั่นใจ นะครับว่า ถูกหลักการไหม เพราะว่า ทิ้ง ASP Classic (VBscript) มาซักระยะแล้วครับ