home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 2000 March / VPR0003B.ISO / i386 / template.asp < prev    next >
Text File  |  1999-10-14  |  2KB  |  89 lines
  1. <% @ LANGUAGE="VBSCRIPT" %>
  2. <%
  3.  Option Explicit
  4.  Dim background, Style, frameHeight, pagePicture, pageText, pageType, pagewords, ranWizard, strpageType, Theme
  5. %>
  6.     <!--
  7.         $Date: 9/25/97 4:10p $
  8.         $ModTime: $
  9.         $Revision: 9 $
  10.         $Workfile: template.asp $
  11.     -->
  12. <!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
  13. <HTML>
  14. <HEAD>
  15. <% call Template_ranWizardCheck
  16.  If request("REQUEST_METHOD") = "POST" Then
  17.     call variableAssignments
  18.     If request.Form("contents") Then
  19. %>
  20.     <META HTTP-EQUIV="Refresh" CONTENT="0; url=/default.asp"> 
  21. <%
  22.     End If
  23.     myinfo.ranWizard = -1
  24.  End If
  25.  
  26.      If request("debug") = "true" Then
  27.         myinfo.ranWizard = -1
  28.      ElseIf request("debug") = "false" Then
  29.         myinfo.ranWizard = 0
  30.      End If
  31.  
  32.      If request.Form("addLink.x") <> "" Then                        'add links
  33.         call Template_addLink
  34.      End If
  35.  
  36.      If request.Form("removeLink.x") <> "" Then            'remove links
  37.          call Template_removeLink
  38.      End If
  39.     %>
  40. <META NAME="GENERATOR" Content="Microsoft Visual InterDev 1.0">
  41. <META HTTP-EQUIV="Content-Type" content="text/html; charset=x-sjis">
  42. <TITLE>PWS クイック セットアップ</TITLE>
  43. <% call styleSheet %>
  44. <!--#include file ='tempsubs.inc'-->
  45. <!--#include virtual ='/iissamples/homepage/sub.inc'-->
  46. <!--#include file ='myinfo.inc'-->
  47. </HEAD>
  48. <BODY TopMargin=0 Leftmargin="0">
  49. <FONT SIZE="-2">
  50. <!-- ******************* TOP ROW *************************** -->
  51. <TABLE border="0" cellpadding="0" cellspacing="0" width="100%" Background="msg.gif">
  52. <TR>
  53. <TD Valign="top" Align="center" COLSPAN="3">
  54. <FONT Size="-1"><B>フォーム上の情報を追加または変更して、ホーム ページのレイアウトを個人用に設定します。</B></FONT>
  55. <TABLE border=0>
  56.     <TR><TD Align=center><FONT Size="-1">
  57. <%
  58.     response.write "<A Language='VBScript' HREF = " & """#""" & " onClick = """ & HelpWindow("") & """><Font Color=""" & "#0000FF""" & " Size=2>ヘルプ:</FONT></a><BR>"
  59.     If myinfo.ranWizard = "-1" Then
  60.         response.write "<FORM NAME='Template' ACTION='template.asp' METHOD='POST'>"_
  61.         & "<INPUT TYPE='hidden' NAME='basics' Value='-1'><BR>"
  62. %>
  63.         <!--#include file="themes.inc" -->
  64. <%
  65.         response.write "</FORM>"
  66.     End If
  67. %>
  68.     </FONT></TD></TR>
  69. </TABLE>
  70. </TD>
  71. </TR>
  72. </TABLE>
  73. <TABLE border="0" cellpadding="0" cellspacing="0" width="100%" class=bg0>
  74. <TR>
  75.     <!--#include file="T_Theme.inc" -->
  76. </TR>
  77. </TABLE>
  78. </FONT>
  79. </BODY>
  80. </HTML>
  81.  
  82. <SCRIPT LANGUAGE="VBSCRIPT">
  83. <!--
  84.     Sub theme_OnChange
  85.         document.form(0).submit
  86.     End Sub
  87. -->
  88. </SCRIPT>
  89.