217:         location = "<%=URL%>";

218:     <% else %>

219:         history.go(-1);

220:     <% end if %>

221: </script>

222: <% end sub %>

223:

224: <% sub GoBack %>

225: <script language="javascript">

226:     history.go(-1);

227: </script>

228: <% end sub %>

程序说明

这是一段javascript程序。主要作用是判断传递进来的数据，显示相关字符串内容，并且将网页链接至新的网页。在一些网页的“转向”、“信息显示”方面，笔者较偏爱使用javascript，主要因为在进行“转向”时限制较少。几乎可以随意地将网页链接至新的网页，且没有在ASP中Response.Redirect的限制。另外，在信息的显示方面，javascript的处理方式较VBScript的MsgBox弹性要大。

14-6-2　显示选择信息的内容

在本段程序执行之后，将会显示如下所示画面。本程序主要是希望让用户可以有再一次“筛选”的选择权。同时，也让用户再一次重新确认索取产品详细信息的对象，如此或许可以节省操作人员的工作时间，提高操作人员的工作效率。

MoreInfo.asp程序段

83: <% for i = 0 to ubound(datas,2) %>

84:  <hr width='85%' align=center color=Orchid size=2>

85:  <a name="<% = datas(0,i) %>"></a>

86:  <table border=1 cellpadding=1 cellspacing=1 align=center width="100%">

87:  <tr><td colspan="3" class='documentfont1'>

88:    索取详细信息 ? <input type=checkbox Name='MoreInfo<% = i%>' checked>

89:    <input type=hidden Name='MoreInfoValue<% = i%>' Value= '<% = trim(datas(0,i)) %>'>

90:     </td></tr>

91:  <tr>

92:     <td class='BannerFont' Width='80' align=left valign=mi-ddle><img src="/images/productname.gif" border=0></td>

93:     <td class='documentfont1'><% = datas(0,i) %>

94:     <input type=hidden name="Products<% = i %>" Value='<% = datas(2,i) %>'>

95:     </td>

96:     <td rowspan="2" align="center" width="25%" valign=midd-le>

97:     <img src="/Images/<% = datas(0,i)%>_1.jpg" border=0>

98:     </td>

99:  </tr>

100: <tr><td class='BannerFont' align=left valign=middle><img src="/Images/Specification.gif" border=0></td>

101:     <td class='documentfont1'>

102:     <pre><% = trim(datas(3,i)) %></pre></td></tr>

103:   </table>

104: <% next %>

 

程序说明

第83~104行：利用SQL Query语句查询到的RecordSet集合的内容，显示所选择的产品摘要信息。

第88行：这行的程序代码主要是让用户在选取之后，发现这个产品不太符合自己的需求时，取消选择。

14-6-3　用户填写信息的窗体设计

本段程序主要是让用户可以有一个输入基本信息的窗口，并可以填写相关的信息。同时，这些填写的信息在单击“确定”按钮之后，会记录在“用户基本信息”表中。这段程序的执行结果、程序段如下所示。同时由于本段程序纯属HTML语言，因此笔者将不多作说明。

 

MoreInfo.asp程序段

107: <table cellspacing=0 cellpadding=0 border="2" borderwidth ="2" align=center class='documentfont2'>

108:  <input type=hidden Name="ProductsInfo" Value="">

109:  <tr>

110:     <td colspan="4" class="text02">希望取得信息的方式:

111:     <input type="radio" name="GetMethods" value="0" checked> E-Mail

112:     <input type="radio" name="GetMethods" value="1">邮寄

113:     <input type="radio" name="GetMethods" value="2">电话联络

114:     </td>

115:  </tr>

116:  <tr><td class="text02">国家</td><td colspan="3">

117:     <select name="Country" class="text02">

118:     <option value="澳大利亚">澳大利亚

119:     <option value="加拿大">加拿大

120:     <option value="中国" selected >中国

121:     <option value="英国">英国

122:     <option value="法国">法国

123:     <option value="德国">德国

124:     <option value="丹麦">丹麦

125:     <option value="印度">印度

126:     <option value="意大利">意大利

127:     <option value="日本">日本

128:     <option value="韩国">韩国

129:     <option value="墨西哥">墨西哥

130:     <option value="新西兰">新西兰

131:     <option value="挪威">挪威

132:     <option value="新加坡">新加坡

133:     <option value="瑞典">瑞典

134:     <option value="瑞士" >瑞士

135:     <option value="美国">美国

136:     <option value="其他">[其他]

137:     </select>

138:     <input Type=text name="OtherCountry" Value="" size=10>

139:  </td></tr>

140:  <tr>

141:     <td width="50" class="text02">姓名</td>

142:     <td width="160"><input id=name name="name"></td>

143:     <td width="50" class="text02">性别</td>

144:     <td width="160">

145:         <select id=Gender name="Gender">

146:         <option value="" selected>--

147:         <option value="男">男</option>

148:         <option value="女">女</option>

149:         </select>

150:

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] 下一页