wizard.asp
来自「pws安装 pws安装」· ASP 代码 · 共 223 行
ASP
223 行
<%@ LANGUAGE = VBScript %>
<%
Option Explicit
Dim intpage
Dim ranWizard
Dim pageType
If Request.Form("counter") <>"" Then
intpage = Request.Form("counter")
If Request.Form("Back") <> "" Then
call BACK_OnClick
Else
intpage = intpage + 1
End If
ElseIf request("nav") <> "" then
intpage = request("nav")
ElseIf request("intpage") <> "" Then
intpage = intpage + 1
Else
intpage = 0
End If
%>
<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html>
<!--
$Date: 10/08/97 10:35a $
$ModTime: $
$Revision: 6 $
$Workfile: wizard.asp $
-->
<HEAD>
<%
If request.Form("personal") <> "" Then
%>
<SCRIPT Language="VBSCRIPT">
<!--
window.open "template.asp"
-->
</SCRIPT>
<%
myinfo.ranWizard=-1
%>
<META HTTP-EQUIV="Refresh" CONTENT="0; url=default.asp?ranWizard=True">
<%
End If
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage (Visual InterDev Edition) 2.0">
<title>PWS 主页向导</title>
<%
If Request.Form("theme") <> "" Then
myinfo.Theme = Request.Form("Theme")
End If
If Request.Form("guestbook") <> "" Then
myinfo.guestbook = Request.Form("guestbook")
End If
If Request.Form("messages") <> "" Then
myinfo.messages = Request.Form("messages")
End If
%>
</HEAD>
<BODY bgcolor="#FFFFFF" topmargin="0" leftmargin="2">
<Font style="font-size:9pt;" FACE="宋体"><B>
<FORM NAME="HPWiz" ACTION="wizard.asp" METHOD="POST" >
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<TR>
<TD Background="msg.gif" Colspan="3" Align="center" Height="50">
<Font FACE="宋体" SIZE="5"><B>
<IMG SRC="/images/space.gif" height="20" width="1" Align="right">
主页向导
</B></Font>
</TD>
</TR>
<TR>
<TD Width="90" VAlign="top">
<Font FACE="宋体" style="font-size:9pt;"><B>
<% call NAV %>
</B>
</TD>
<TD valign="top" Width="150" Height="175">
<Font FACE="宋体" style="font-size:9pt;"><B>
<%
Select Case intpage
Case 0
response.write "<INPUT TYPE='image' SRC='merlin.gif' NAME='Next' VALUE=' >> '>"
'response.write "<IMG ALT='主页向导'>"
Case 2
%>
<IMG SRC="message.gif" ALT="*" Align="middle" Width=50 height=40 Vspace=7>
<BR><Font Color="#0000FF" style="font-size:9pt;">提示:</FONT>
将链接置于来宾簿可以查看和登记来宾簿的主页上。
<%
Case 3
%>
<IMG SRC="dropbox.gif" ALT="*" Align="middle" Width=50 height=50 Vspace=7>
<BR><Font Color="#0000FF" style="font-size:9pt;">提示:</FONT>
留言簿是来宾簿留言的地方，只有您才能阅读这些留言。
<%
Case 4
%>
<IMG SRC="streamer.gif" ALT="*"><BR>
<%
Case Else
%>
<P><IMG SRC='generic.gif' width='143' height='174'>
<%
End Select
%>
</B>
</TD>
<TD Valign="middle" width="220">
<Font FACE="宋体" style="font-size:9pt;"><B>
<% 'Page Wizard
Select Case intpage
Case 1
%>
<!--#include file="tempsubs.inc" -->
<!--#include file="themes.inc" -->
<%
Case 2
%>
是否需要来宾簿？<BR>
<blockquote>
<INPUT TYPE=radio VALUE=-1 NAME="Guestbook"
<%
If myinfo.Guestbook = "-1" or myinfo.Guestbook = "" Then
response.write "CHECKED"
End If
%>>是
<BR>
<INPUT TYPE=radio VALUE=0 NAME="Guestbook"
<%
If myinfo.Guestbook="0" Then
response.write "CHECKED"
End If
%>>否
</blockquote>
<%
Case 3
%>
是否需要留言簿？<BR>
<blockquote>
<INPUT TYPE=radio VALUE="-1" NAME="Messages"
<%
If myinfo.Messages = "-1" or myinfo.Messages = "" Then
response.write "CHECKED"
End If
%>>是
<BR>
<INPUT TYPE=radio VALUE=0 NAME="Messages"
<%
If myinfo.Messages="0" Then
response.write "CHECKED"
End If
%>>否
</blockquote>
<%
Case 4
%>
祝贺您！<BR>
下一步将个人化主页上的信息。
<%
Case Else
%>
主页向导帮助您方便快速地创建自己的主页。要建立主页，请单击向导。
<%
intpage = 0
End Select
%>
</B>
</Font>
<P>
<%
call NavButtons
%>
</TD>
</TR>
</table>
</FORM>
</Font>
</BODY>
</html>
<%
SUB BACK_OnClick
intpage = intpage - 1
If intpage < 0 Then
intpage = 0
End If
END SUB
Sub NAV
IF intpage => 2 THEN
response.write "<A HREF='wizard.asp?nav=1'>首页</A><BR>"
END IF
IF intpage => 3 THEN
response.write "<A HREF='wizard.asp?nav=2'>来宾簿</A><BR>"
END IF
IF intpage => 4 THEN
response.write "<A HREF='wizard.asp?nav=3'>留言簿</A><BR>"
END IF
End Sub
Sub navButtons
response.write "<blockquote>"
IF intpage = 4 THEN
response.write "<INPUT TYPE='Submit' NAME='personal' VALUE=' >> '>"
intpage = -1
ELSE
response.write "<INPUT TYPE='hidden' NAME='counter' VALUE =" & intpage & ">"
If intpage > 0 Then
response.write "<INPUT TYPE='Submit' NAME='Back' VALUE=' << '>"
End If
response.write "<INPUT TYPE='Submit' NAME='Next' VALUE=' >> '>"
END IF
response.write "</blockquote>"
End Sub
%>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?