Categories


Tags


使用ASP产生安装向导的主页

面临的主要问题何在:

1。界面和一个Windows Wizard完全一样,有Next和Back按钮

2。用户可以使用Back按钮回到以前的任何一步,并且能够改变以前任何一步中已经选择的内容

3。Form必须记住所有填入的内容

4。不能够使用数据库

5。不能够使用Sessions,防止如果Sessiosn失效后用户的所有输入丢失,不幸的是,也不能够使用cookie,因为很多拥护经常关掉浏览器的Cookie选项。

6。可移植性要好,因为它要适应安装步数不同时的情况

解决方案:

1。使用hidden变量传递参数

2。使用POST方式,不使用GET方式,因为这种方式受长度限制

3。每一个页面都必须有一个用来读取提交值的函数

4。每一个页面(除了第一个页面外)都必须要有一个hidden form 来向前一页传递参数

如果在你的页面中使用了Checkboxes或则使用了radio buttons,请使用以下代码读数值:

<% For Each Item in Request.Form

If Request.Form(Item).Count Then

For intLoop = 1 to Request.Form(Item).Count

Response.Write "Item = " & Item & " Index = " & intLoop & "<BR>"

Next

Else

Response.Write "Item = " & Item & "<BR>"

End If

Next

%>

在设计是,对checkboxes和radio采用了特殊的处理方法:

1。只有最新的数值才被考虑使用这两种方式保存

2。用户可以使用Back来改变前面输入的数值,但必须要使用Next提交后才能够生效

3。页面必须要能够应付一个页面有多个controls的情况

具体实现方法:

第N个页面应该有:

1。第一个form:它的ACTION= page(N+1).asp和它底部必须有Next按钮

2。第二个form:它的ACTION= page(N-1).asp和Back按钮

3。变量命名规则:举例:N_<page no> 后缀是控件类型. <INPUT TYPE = RADIO NAME = RADIO_P2>

是表示第二页的一个name是radio的东西

4。一个用来读取提交的函数

页面根据一个循环来判断当前的控件是属于哪一页的。

代码如下:

<%@LANGUAGE="VBSCRIPT %>

<HTML>

<HEAD>

</HEAD>

<BODY>

<!-- NEXT按钮模块编程开始 -->

<FORM ACTION="page03.asp" METHOD="POST" >

<!------------------------------------------------------------->

<!--读入函数开始 -->

<!------------------------------------------------------------->

<%

pageno = "_P2"

For Each Item in Request.Form

WhichPage = InStr(1,CStr(Item), pageno,1)

If ((Request.Form(Item).Count) AND (WhichPage = 0)) Then

strCount = Request.Form(Item).Count

strItem = Request.Form(Item)(strCount)

Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""" & Item & """ VALUE=""" & strItem & """>" &VbCrLf

ElseIf (NOT(Request.Form(Item).Count) AND (WhichPage = 0)) Then

Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""" & Item & """ VALUE=""" & strItem & """>" &VbCrLf

End If

Next

%>

<!------------------------------------------------------------>

<1-- 读入函数结束 -->

<!------------------------------------------------------------>

<!-- #include file = "Check_UnCheck.txt" -->

<%

Function Check_UnCheck(ctrlName, ctrlValue)

Dim ctrlName_in

Dim ctrlValue_in

Dim ctrlValue_actual

Dim outStr

ctrlValue_in =""

ctrlName_in = ""

ctrlValue_actual = ""

outStr = ""

ctrlName_in = ctrlName_in & ctrlName

ctrlValue_in = ctrlValue_in & ctrlValue

If Request.Form(ctrlName_in).Count Then

strCount = Request.Form(ctrlName_in).Count

ctrlValue_actual = Request.Form(ctrlName_in)(strCount)

If ctrlValue_actual = ctrlValue_in Then

outStr = "CHECKED"

End If

Else

ctrlValue_actual = Request.Form(ctrlName_in)

If ctrlValue_actual = ctrlValue_in Then

outStr = "CHECKED"

End If

End If

Check_UnCheck = outStr

End Function

%>

<!-- Back按钮模块开始 -->

<%

strItem1 = ""

strItem1a = ""

For Each Item1 in Request.Form

If Request.Form(Item1).Count Then

strCount1 = Request.Form(Item1).Count

strItem1 = Request.Form(Item1)(strCount1)

Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""" & Item1 & """ VALUE=""" & strItem1 & """>" &VbCrLf

strCount1 = ""

strItem1 = ""

Else

strItem1a = Request.Form(Item1)

Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""" & Item1 & """ VALUE=""" & strItem1a & """>" &VbCrLf

End If

Next

strItem1 = ""

strItem1a = ""

%>

来源:月光博客


Public @ 2018-02-22 15:46:31

Z-Blog多服务器平衡负载的方法

对于Z-Blog访问量比较大的时候,往往会造成服务器负载和流量过大,引起性能问题,相关的解决流量的对策我以前也讨论过,根据我的分析,不少流量都是由于图片或下载等引起的,因此可以通过将下载文件夹upload放在另外一台服务器的方法进行负载均衡。具体方法是,设定一个新的服务器网站地址(独立服务器或者申请的免费空间都可以),例如download.williamlong.info,在这个新服务器网站上建立

Public @ 2012-08-12 15:44:57

为何主机控制面板的本月流量数字远大于站点访问统计中本月每日流量的总和?

为何主机控制面板的本月流量数字远大于站点访问统计中本月每日流量的总和?答:请从以下三方面进行核实:1.本月流量是主站+子站的流量总和,如果您的虚拟主机开设了子站,请注意将子站的流量也统计进去;2.访问统计中的:浏览器流量 与  非浏览器流量 二者需要相加;非浏览器流量一般是由于mp3等被迅雷等软件下载或搜索引擎的蜘蛛程序读取所引起的。3.部分型号的主机是使用了CDN技术的,如集群主机、港

Public @ 2014-03-18 15:45:51

ASP中的进度条功能

用过软件的朋友都知道,进度条是一个优秀软件的重要组成部分。它 的存在能够使用户及时掌握程序的运行进度,确认应用程序正常工作。可 是ASP中似乎没有上述标准控件,控制起来也比较麻烦。那么如何实现进 度条呢?以下是本人的一些观点(仅供参考)我们通常在用ASP处理程序(指的是写文件或操作数据库)的时候,会 专门用一个页面(*.asp)去处理或控制这些程序,当处理完毕的时候再跳 转到显示页面。这时我们就可

Public @ 2022-02-06 15:46:28

防止ASP Session丢失的方法

(1)减少Session.Timeout的时间,按30分钟来设置最佳; (2)定期清除"Temporary asp files"文件夹里的无用文件; (3)将Appliation的"EnableSessionState"设置为True; (4)在ASP页面中显式地释放Session变量,如:“Session.Abandon”; (5)作为一种预防措施,可以在每一个Session事件时备

Public @ 2023-02-24 02:54:13

更多您感兴趣的搜索

0.554688s