register.asp

电子商务网络购物系统

                      <option value="1951" <% If intDOBYear = 1951 Then Response.Write("selected") %>>1951</option>
                      <option value="1952" <% If intDOBYear = 1952 Then Response.Write("selected") %>>1952</option>
                      <option value="1953" <% If intDOBYear = 1953 Then Response.Write("selected") %>>1953</option>
                      <option value="1954" <% If intDOBYear = 1954 Then Response.Write("selected") %>>1954</option>
                      <option value="1955" <% If intDOBYear = 1955 Then Response.Write("selected") %>>1955</option>
                      <option value="1956" <% If intDOBYear = 1956 Then Response.Write("selected") %>>1956</option>
                      <option value="1957" <% If intDOBYear = 1957 Then Response.Write("selected") %>>1957</option>
                      <option value="1958" <% If intDOBYear = 1958 Then Response.Write("selected") %>>1958</option>
                      <option value="1959" <% If intDOBYear = 1959 Then Response.Write("selected") %>>1959</option>
                      <option value="1960" <% If intDOBYear = 1960 Then Response.Write("selected") %>>1960</option>
                      <option value="1961" <% If intDOBYear = 1961 Then Response.Write("selected") %>>1961</option>
                      <option value="1962" <% If intDOBYear = 1962 Then Response.Write("selected") %>>1962</option>
                      <option value="1963" <% If intDOBYear = 1963 Then Response.Write("selected") %>>1963</option>
                      <option value="1964" <% If intDOBYear = 1964 Then Response.Write("selected") %>>1964</option>
                      <option value="1965" <% If intDOBYear = 1965 Then Response.Write("selected") %>>1965</option>
                      <option value="1966" <% If intDOBYear = 1966 Then Response.Write("selected") %>>1966</option>
                      <option value="1967" <% If intDOBYear = 1967 Then Response.Write("selected") %>>1967</option>
                      <option value="1968" <% If intDOBYear = 1968 Then Response.Write("selected") %>>1968</option>
                      <option value="1969" <% If intDOBYear = 1969 Then Response.Write("selected") %>>1969</option>
                      <option value="1970" <% If intDOBYear = 1970 Then Response.Write("selected") %>>1970</option>
                      <option value="1971" <% If intDOBYear = 1971 Then Response.Write("selected") %>>1971</option>
                      <option value="1972" <% If intDOBYear = 1972 Then Response.Write("selected") %>>1972</option>
                      <option value="1973" <% If intDOBYear = 1973 Then Response.Write("selected") %>>1973</option>
                      <option value="1974" <% If intDOBYear = 1974 Then Response.Write("selected") %>>1974</option>
                      <option value="1975" <% If intDOBYear = 1975 Then Response.Write("selected") %>>1975</option>
                      <option value="1976" <% If intDOBYear = 1976 Then Response.Write("selected") %>>1976</option>
                      <option value="1977" <% If intDOBYear = 1977 Then Response.Write("selected") %>>1977</option>
                      <option value="1978" <% If intDOBYear = 1978 Then Response.Write("selected") %>>1978</option>
                      <option value="1979" <% If intDOBYear = 1979 Then Response.Write("selected") %>>1979</option>
                      <option value="1980" <% If intDOBYear = 1980 Then Response.Write("selected") %>>1980</option>
                      <option value="1981" <% If intDOBYear = 1981 Then Response.Write("selected") %>>1981</option>
                      <option value="1982" <% If intDOBYear = 1982 Then Response.Write("selected") %>>1982</option>
                      <option value="1983" <% If intDOBYear = 1983 Then Response.Write("selected") %>>1983</option>
                      <option value="1984" <% If intDOBYear = 1984 Then Response.Write("selected") %>>1984</option>
                      <option value="1985" <% If intDOBYear = 1985 Then Response.Write("selected") %>>1985</option>
                      <option value="1986" <% If intDOBYear = 1986 Then Response.Write("selected") %>>1986</option>
                      <option value="1987" <% If intDOBYear = 1987 Then Response.Write("selected") %>>1987</option>
                      <option value="1988" <% If intDOBYear = 1988 Then Response.Write("selected") %>>1988</option>
                      <option value="1989" <% If intDOBYear = 1989 Then Response.Write("selected") %>>1989</option>
                      <option value="1990" <% If intDOBYear = 1990 Then Response.Write("selected") %>>1990</option>
                      <option value="1991" <% If intDOBYear = 1991 Then Response.Write("selected") %>>1991</option>
                      <option value="1992" <% If intDOBYear = 1992 Then Response.Write("selected") %>>1992</option>
                      <option value="1993" <% If intDOBYear = 1993 Then Response.Write("selected") %>>1993</option>
                      <option value="1994" <% If intDOBYear = 1994 Then Response.Write("selected") %>>1994</option>
                      <option value="1995" <% If intDOBYear = 1995 Then Response.Write("selected") %>>1995</option>
                      <option value="1996" <% If intDOBYear = 1996 Then Response.Write("selected") %>>1996</option>
                      <option value="1997" <% If intDOBYear = 1997 Then Response.Write("selected") %>>1997</option>
                      <option value="1998" <% If intDOBYear = 1998 Then Response.Write("selected") %>>1998</option>
                      <option value="1999" <% If intDOBYear = 1999 Then Response.Write("selected") %>>1999</option>
                      <option value="2000" <% If intDOBYear = 2000 Then Response.Write("selected") %>>2000</option>
                      <option value="2001" <% If intDOBYear = 2001 Then Response.Write("selected") %>>2001</option>
                      <option value="2003" <% If intDOBYear = 2003 Then Response.Write("selected") %>>2003</option>
                      <option value="2003" <% If intDOBYear = 2003 Then Response.Write("selected") %>>2003</option>
                      <option value="2004" <% If intDOBYear = 2004 Then Response.Write("selected") %>>2004</option>
                    </select> </td> </tr>
                <% If blnAvatar = True Then %>
                <tr bgcolor="<% = strTableColour %>" background="<% = strTableBgImage %>"> 
                  <td valign="top" height="2" class="text" background="<% = strTableBgImage %>"> 选择头像:<br />
                    <span class="smText"> 分辨率32 x 32,64 x 64 像素 </span></td>
                  <td valign="top" height="2" background="<% = strTableBgImage %>" > 
                    <table width="290" border="0" cellspacing="0" cellpadding="1">
                      <tr>  <td width="168"> <select name="SelectAvatar" size="4" onChange="(avatar.src = SelectAvatar.options[SelectAvatar.selectedIndex].value) && (txtAvatar.value='http://') && (oldAvatar.value='')">
                            <!-- #include file="includes/photo.asp" -->
                          </select> </td>
                        <td width="122" align="center"><img src="<% If strAvatar <> "" Then
        					Response.Write(strAvatar)
						Else
        					Response.Write("avatars/blank.gif")
						End If  %>" name="avatar"> 
                          <input type="hidden" name="oldAvatar" value="<% = strAvatar %>" /></td></tr>
                      <tr> <td width="168"> <input type="text" name="txtAvatar" size="30" maxlength="95" value="<% If InStr(1, strAvatar, "http://") > 0 Then
        					Response.Write(strAvatar)
						Else
        					Response.Write("http://")
						End If  %>" onChange="oldAvatar.value=''" /> </td>
                        <td width="122"> <input type="button" name="preview" value="预览" onClick="avatar.src = txtAvatar.value" /> 
                        </td></tr></table>
                    <% If blnAvatarUploadEnabled Then %>
                    <a href="javascript:openWin('upphoto.asp','avatars','toolbar=0,location=0,status=0,menubar=0,scrollbars=0,resizable=1,width=400,height=330')" class="smLink"> 上传头像 </a> 
                    <% End If %></td></tr>
                <% End If %>
                <tr bgcolor="<% = strTableColour %>"> 
                  <td valign="top" height="2" class="text"> 签　　名: <br />
                    <span class="smText"> 将显示在你发表贴子的底部(最大200个字)<br />
                    <br /> <br />
                    <a href="JavaScript:openWin('code.asp','codes','toolbar=0,location=0,status=0,menubar=0,scrollbars=1,resizable=1,width=650,height=400')" class="smLink"> 
                    HTML语法 </a> 可以在你签名中使用 </span></td>
                  <td valign="top" height="2" background="<% = strTableBgImage %>"> 
                    <textarea name="signature" cols="30" rows="3" onKeyDown="DescriptionCharCount();" onKeyUp="DescriptionCharCount();"><% = strSignature %></textarea> 
                    <br /> <input size="3" value="0" name="countcharacters" maxlength="3" /> 
                    <input onClick="DescriptionCharCount();" type="button" value="字符数" name="Count" />
                    &nbsp;&nbsp;<span class="smText"><a href="javascript:OpenPreviewWindow('presign.asp', document.frmRegister)" class="smLink"> 
                    签名预览 </a> </td></tr>
                <tr bgcolor="<% = strTableTitleColour %>"> 
                  <td colspan="2" align="center" height="25" background="<% = strTableTitleBgImage %>" class="tHeading">论坛功能</td></tr>
                <tr bgcolor="<% = strTableColour %>" background="<% = strTableBgImage %>"> 
                  <td width="50%"  height="12" class="text" background="<% = strTableBgImage %>">显示邮件地址:</td>
                  <td height="12" width="50%" valign="top" class="text" background="<% = strTableBgImage %>"> 
                    是 <input type="radio" name="emailShow" value="True" <% If blnShowEmail = True Then Response.Write "checked" %>> 
                    &nbsp;&nbsp; 
                    否 <input type="radio" name="emailShow" value="False" <% If blnShowEmail = False Then Response.Write "checked" %> /> 
                  </td> </tr>
                <% If blnEmail = True Then %>
                <tr bgcolor="<% = strTableColour %>" background="<% = strTableBgImage %>"> 
                  <td align="left" width="50%"  height="12" class="text" background="<% = strTableBgImage %>"> 
                    订阅主题:<span class="smText"> （每次发帖时可以自行设定）</span></td>
                  <td height="12" width="50%" valign="top" class="text" background="<% = strTableBgImage %>"> 
                    是 <input type="radio" name="replyNotify" value="True" <% If blnReplyNotify = True Then Response.Write "checked" %>> 
                    &nbsp;&nbsp; 
                    否 <input type="radio" name="replyNotify" value="False" <% If blnReplyNotify = False Then Response.Write "checked" %> /> 
                  </td></tr>
                <%  If blnPrivateMessages = True Then %>
                <tr bgcolor="<% = strTableColour %>" background="<% = strTableBgImage %>"> 
                  <td align="left" width="50%"  height="13" class="text" background="<% = strTableBgImage %>"> 
                    有短信时通知我:</td>
                  <td height="13" width="50%" valign="top" class="text" background="<% = strTableBgImage %>"> 
                    是 <input type="radio" name="pmNotify" value="True" <% If blnPMNotify = True Then Response.Write "checked" %>> 
                    &nbsp;&nbsp; 
                    否 <input type="radio" name="pmNotify" value="False" <% If blnPMNotify = False Then Response.Write "checked" %> /></td>
                </tr>
                <%  End If
				End If    %>
                <tr bgcolor="<% = strTableColour %>" background="<% = strTableBgImage %>"> 
                  <td align="left" width="50%"  height="13" class="text" background="<% = strTableBgImage %>"> 
                    发帖时附上我的签名:</td>
                  <td height="13" width="50%" valign="top" class="text" background="<% = strTableBgImage %>"> 
                    是 <input type="radio" name="attachSig" value="True" <% If blnAttachSignature = True Then Response.Write "checked" %>> 
                    &nbsp;&nbsp; 
                    否 <input type="radio" name="attachSig" value="False" <% If blnAttachSignature = False Then Response.Write "checked" %> /></td>
                </tr>  
				<% If blnIEEditor = True Then %>
                <tr bgcolor="<% = strTableColour %>" background="<% = strTableBgImage %>"> 
                  <td align="left" width="50%"  height="13" class="text" background="<% = strTableBgImage %>"> 
                    允许编辑:</td>
                  <td height="13" width="50%" valign="top" class="text" background="<% = strTableBgImage %>"> 
                    是 <input type="radio" name="ieEditor" value="True" <% If blnWYsiWYGEditor = True Then Response.Write "checked" %>> 
                    &nbsp;&nbsp; 
                    否 <input type="radio" name="ieEditor" value="False" <% If blnWYsiWYGEditor = False Then Response.Write "checked" %> /></td>
                </tr>
                <% End If %>
                <tr bgcolor="<% = strTableColour %>" background="<% = strTableBgImage %>"> 
                  <td align="left" width="50%"  height="13" class="text" background="<% = strTableBgImage %>"> 
                    自动登录:</td>
                  <td height="13" width="50%" valign="top" class="text" background="<% = strTableBgImage %>"> 
                    是 <input type="radio" name="Login" value="True" <% If blnAutoLogin = True Then Response.Write "checked" %>> 
                    &nbsp;&nbsp; 
                   否 <input type="radio" name="Login" value="False" <% If blnAutoLogin = False Then Response.Write "checked" %> /></td>
                </tr>
                <tr bgcolor="<% = strTableColour %>" background="<% = strTableBgImage %>"> 
                  <td align="left" width="50%"  height="13" class="text" background="<% = strTableBgImage %>"> 
                    时区设置:<span class="smText">现在论坛时间是： <% = Now() %> </span></td>
                  <td height="13" width="50%" valign="top" class="text" background="<% = strTableBgImage %>"><select name="serverOffSet">
                      <option value="+" <% If strTimeOffSet = "+" Then Response.Write("selected") %>>+</option>
                      <option value="-" <% If strTimeOffSet = "-" Then Response.Write("selected") %>>-</option>
                    </select> <select name="serverOffSetHours">
                      <option value="0" <% If intTimeOffSet = 0 Then Response.Write("selected") %>>0</option>
                      <option value="1" <% If intTimeOffSet = 1 Then Response.Write("selected") %>>1</option>
                      <option value="2" <% If intTimeOffSet = 2 Then Response.Write("selected") %>>2</option>
                      <option value="3" <% If intTimeOffSet = 3 Then Response.Write("selected") %>>3</option>
                      <option value="4" <% If intTimeOffSet = 4 Then Response.Write("selected") %>>4</option>
                      <option value="5" <% If intTimeOffSet = 5 Then Response.Write("selected") %>>5</option>
                      <option value="6" <% If intTimeOffSet = 6 Then Response.Write("selected") %>>6</option>
                      <option value="7" <% If intTimeOffSet = 7 Then Response.Write("selected") %>>7</option>
                      <option value="8" <% If intTimeOffSet = 8 Then Response.Write("selected") %>>8</option>
                      <option value="9" <% If intTimeOffSet = 9 Then Response.Write("selected") %>>9</option>
                      <option value="10" <% If intTimeOffSet = 10 Then Response.Write("selected") %>>10</option>
                      <option value="11" <% If intTimeOffSet = 11 Then Response.Write("selected") %>>11</option>
                      <option value="12" <% If intTimeOffSet = 12 Then Response.Write("selected") %>>12</option>
                      <option value="13" <% If intTimeOffSet = 13 Then Response.Write("selected") %>>13</option>
                      <option value="14" <% If intTimeOffSet = 14 Then Response.Write("selected") %>>14</option>
                      <option value="15" <% If intTimeOffSet = 15 Then Response.Write("selected") %>>15</option>
                      <option value="16" <% If intTimeOffSet = 16 Then Response.Write("selected") %>>16</option>
                      <option value="17" <% If intTimeOffSet = 17 Then Response.Write("selected") %>>17</option>
                      <option value="18" <% If intTimeOffSet = 18 Then Response.Write("selected") %>>18</option>
                      <option value="19" <% If intTimeOffSet = 19 Then Response.Write("selected") %>>19</option>
                      <option value="20" <% If intTimeOffSet = 20 Then Response.Write("selected") %>>20</option>
                      <option value="21" <% If intTimeOffSet = 21 Then Response.Write("selected") %>>21</option>
                      <option value="22" <% If intTimeOffSet = 22 Then Response.Write("selected") %>>22</option>
                      <option value="23" <% If intTimeOffSet = 23 Then Response.Write("selected") %>>23</option>
                      <option value="24" <% If intTimeOffSet = 24 Then Response.Write("selected") %>>24</option>
                    </select>  
                  小时</td> </tr>
                <tr bgcolor="<% = strTableColour %>" background="<% = strTableBgImage %>"> 
                  <td align="left" width="50%"  height="13" class="text" background="<% = strTableBgImage %>"> 
                    时间格式:</td>
                  <td height="13" width="50%" valign="top" class="text" background="<% = strTableBgImage %>"><select name="dateFormat">
                      <option value="yy/mm/dd" <% If saryDateTimeData(0) = "yy/mm/dd" Then Response.Write("selected") %>> 
                      年/月/日</option>
					  <option value="dd/mm/yy" <% If saryDateTimeData(0) = "dd/mm/yy" Then Response.Write("selected") %>> 
                      日/月/年</option>
                      <option value="mm/dd/yy" <% If saryDateTimeDa