memberbase.asp

网上购物源代码

<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 显示会员登录框
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
function ShowMemberLogin2()
%>
	<TABLE cellSpacing = "0" cellPadding = "0" width = "100%" border = "0" ID = "Table8">
		<TBODY>
		<!--
			<TR>
				<TD height = "15" bgcolor = "<%=conGlobalBgColor%>"></TD>
			</TR>
		-->
			<TR>
				<TD height = "20" background = "images/titlebg.gif" align = center><strong>会员登陆</strong>
				(member login) </TD>
			</TR>
			<TR>
				<TD height = "5"></TD>
			</TR>
			<TR>
				<TD vAlign = "top">
					<table width = "95%" border = "0" align = "center" cellpadding = "0" cellspacing = "0" ID = "Table9">
						<tr>
							<td>
								<% call ShowUserLogin() %>
							</td>
						</tr>
					</table>
				</TD>
			</TR>
			<TR>
				<TD height = "5"></TD>
			</TR>
		</TBODY>
	</TABLE>
<% end function 
%>		

<%
' ================================================= 
'过程名：ShowUserLogin
'作  用：显示会员登录表单
'参  数：无
' ================================================= 
sub ShowUserLogin()
	dim strLogin
	If Session("memberID") = "" Then
	%>
	
	<table width = '100%' border = '0' cellspacing = '0' cellpadding = '0' ID = "Table3">
		<form action = "login.asp" method = "post" name = "userLogin" ID = "Form3">
			<TBODY>
				<tr>
					<td height = '25' align = 'right'>name：</td>
					<td height = '25'><input type = "text" name = "memberID" size = "10" maxlength = "16" ID = "Text2" class = "editbox1"></td>
				</tr>
				<tr>
					<td height = '25' align = 'right'>pwd：</td>
					<td height = '25'><input type = "password" name = "password" size = "10" maxlength = "16" ID = "Password2" class = "editbox1"></td>
				</tr>
				<tr align = 'center'>
					<td height = '25' colspan = '2'>
						<input name = "Submit" type = "submit" value = "login"  ID = "Submit2" >
						<input name = 'Reset' type = 'reset' id = 'Reset' value = ' clear '>
					</td>
				</tr>
				<tr>
					<td height = '20' align = 'center' colspan = '2'><a href = 'regStep1.asp'>register</a>&nbsp;&nbsp;</td>
				</tr>
		</TBODY>
		</form>
	</table>
	<%
	Else %> 
		welcome！<%=Session("memberID")%> <br><br>
		<a href = 'memModify.asp'>check my file</a>&nbsp;&nbsp;<a href = 'logout.asp' >back</a>
	    <%		
	end if
end sub

' ================================================= 
'过程名：ShowMemberLogin
'作  用：显示会员登录表单
'参  数：无
' ================================================= 
sub ShowMemberLogin()
	dim strLogin
	If Session("memberID") = "" Then
	%>
	
	<table width = '100%' border = '0' cellspacing = '0' cellpadding = '0' ID = "Table1">
		<form action = "login.asp" method = "post" name = "userLogin" ID = "Form1">
			<TBODY>
			<tr>
			  <td>
					name：
					  <input type = "text" name = "memberID" size = "10" maxlength = "16" ID = "Text1" class = "editbox1">
					pwd：
					<input type = "password" name = "password" size = "10" maxlength = "16" ID = "Password1" class = "editbox1">
					<input name = "Submit" type = "submit" value = "login"  ID = "Submit1" class = "editbox1">
					<input name = 'Reset' type = 'reset' id = "Reset1" value = 'clear' class = "editbox1">
				  &nbsp;
				  <a href = 'regStep1.asp'>[register]</a>&nbsp;  				  </td>
			</tr>
		</TBODY>
		</form>
	</table>
	<%
	Else %> 
		welcome<font color = red><b><%=Session("memberID")%></b></font>！ &nbsp;&nbsp;
		<a href = 'memModify.asp'>[check my file]</a>&nbsp;&nbsp;&nbsp;<a href = 'logout.asp' >[back]</a>
	    <%		
	end if
end sub
%>