| VB 源码 | VC 源码 | ASP源码 | JSP源码 | PHP源码 | CGI源码 | FLASH源码 | 素材模板 | C 源程序 | 站长工具 | 站长教程 |

ASP技术

ASP技术
PHP技术
JSP技术
VB技术
.NET技术

本类阅读TOP10

·ASP如何获取真实IP地址
·解密ASP源代码
·Asp中五种连接数据库的方法
·ASP编程技巧大全[1]
·快速打造留言本教程[1]
·ASP中也能解压缩rar文件
·浅谈如何建立三层体系结构的ASP应用程序(2)
·浅谈如何建立三层体系结构的ASP应用程序(1)
·ASP编程技巧大全[2]
·用ASP发送邮件

站内搜索

使用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。一个用来读取提交的函数

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

  代码如下:

  <[email protected]="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 = ""
  %>




相关文章
  • 精通PHP的十大要点
  • VB解决Unicode文本转换的问题
  • 一个基于WEB的QQ程序
  • 使用xmlhttp查询域名是否被注的小程序
  • 用VB6实现中英文文本的私钥加密
  • 一组VB实用小程序
  • 用VB编写异步多线程下载程序
  • 屏保程序模板化完整源代码
  • VB中实现窗体自动隐藏
  • 用VB编写网络监控软件
  • VB到底为我们做了什么?
  • 键盘幽灵VB版
  • 用VB编写定时关闭计算机的程序
  • 用MCI命令做一个播放器
  • 使用VB在WIN2000下截获IP数据包
  • VB中字符串中文的问题
  • 用VB制作屏幕保护程序
  • VB枚举主机IP
  • 用VB编写一个弹出菜单类
  • 自己的IE——用VB制作浏览器
  • 相关软件

  • VBScript编辑器源码  
  • 字体观察器FontViewer源码  
  • 自动壁纸更换器源码[第二部分]  
  • 自动壁纸更换器源码[第一部分]  
  • WINDOWS 3.0终端程序的C源码  
  • 一个取得 CPU 信息的程序源码  
  • 广告窗口终结者源码  
  • 下载整个网站程序ssnag与源码  
  • CGI邮件程序源码  
  • ISAPI留言簿源码  



  • 月光软件源码下载编程文档电脑教程网站优化网址导航网络文学游戏天地生活休闲写作范文安妮宝贝站内搜索
    电脑技术编程开发网络专区谈天说地情感世界游戏元素分类游戏热门游戏体育运动手机专区业余爱好影视沙龙
    音乐天地数码广场教育园地科学大观古今纵横谈股论金人文艺术医学保健动漫图酷二手专区地方风情各行各业

    月光软件站·版权所有