memberbase.asp

《实例精粹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>
				</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'>用户名：</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'>密&nbsp;&nbsp;码：</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 = "登录"  ID = "Submit2" >
						<input name = 'Reset' type = 'reset' id = 'Reset' value = ' 清除 '>
					</td>
				</tr>
				<tr>
					<td height = '20' align = 'center' colspan = '2'><a href = 'regStep1.asp'>新用户注册</a>&nbsp;&nbsp;<a href = "javascript:opennew('findPwdStep1.asp', '找回密码', <%=conPopWidth%>,<%=conPopHeight%>)" >忘记密码？</a></td>
				</tr>
		</TBODY>
		</form>
	</table>
	<%
	Else %> 
		欢迎您！<%=Session("memberID")%> <br><br>
		<a href = 'memModify.asp'>查看我的资料</a>&nbsp;&nbsp;<a href = 'logout.asp' >注销</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>
					会员名：<input type = "text" name = "memberID" size = "10" maxlength = "16" ID = "Text1" class = "editbox1">
					密码：<input type = "password" name = "password" size = "10" maxlength = "16" ID = "Password1" class = "editbox1">
					<input name = "Submit" type = "submit" value = "登录"  ID = "Submit1" class = "editbox1">
					<input name = 'Reset' type = 'reset' id = "Reset1" value = '清除' class = "editbox1">&nbsp;
					<a href = 'regStep1.asp'>[注册]</a>&nbsp;
					<a href = "javascript:opennew('findPwdStep1.asp', '找回密码', <%=conPopWidth%>,<%=conPopHeight%>)" >忘记密码？</a>
				</td>
			</tr>
		</TBODY>
		</form>
	</table>
	<%
	Else %> 
		欢迎您，<font color = red><b><%=Session("memberID")%></b></font>！ &nbsp;&nbsp;
		<a href = 'memModify.asp'>[查看我的资料]</a>&nbsp;&nbsp;&nbsp;<a href = 'logout.asp' >[注销]</a>
	<%		
	end if
end sub
%>