Question

翻译ASP代码

sub ShowUserLogin()
dim strLogin
If Session("UserName")="" Then
strLogin= "<table width='100%' border='0' cellspacing='0' cellpadding='0'>"
strLogin=strLogin & "<form action='UserLogin.asp' method='post' name='UserLogin' onSubmit='return CheckForm();'>"
strLogin=strLogin & "<tr><td height='25' align='right'>用户名：</td><td height='25'><input name='UserName' type='text' id='UserName' size='10' maxlength='20'></td></tr>"
strLogin=strLogin & "<tr><td height='25' align='right'>密  码：</td><td height='25'><input name='Password' type='password' id='Password' size='10' maxlength='20'></td></tr>"
strLogin=strLogin & "<tr align='center'><td height='25' colspan='2'><input name='Login' type='submit' id='Login' value=' 登录 '> <input name='Reset' type='reset' id='Reset' value=' 清除 '>"
strLogin=strLogin & "</td></tr>"
strLogin=strLogin & "<tr><td height='20' align='center' colspan='2'><a href='UserReg.asp' target='_blank'>新用户注册</a>  <a href='GetPassword.asp' target='_blank'>忘记密码？</a></td></tr>"
strLogin=strLogin & "</form></table>"
response.write strLogin
%>
<script language=javascript>
function CheckForm()
{
if(document.UserLogin.UserName.value=="")
{
alert("请输入用户名！");
document.UserLogin.UserName.focus();
return false;
}
if(document.UserLogin.Password.value == "")
{
alert("请输入密码！");
document.UserLogin.Password.focus();
return false;
}
}
</script>
<%
Else
response.write "欢迎您！" & Session("UserName") & "<br><br>"
response.write "<b>用户控制面板：</b><br><br>   <a href='UserLogout.asp'><b>退出会员中心</b></a>  <a href='Server.asp'><b>会员管理中心</b></a><br><br>"
end if
end sub
翻译

Answer 1

这段代码定义的是一个用户登录判断过程 ShowUserLogin()
函数sub用来定义一个过程。
过程的调用方法<%Call ShowUserLogin()%>

该段代码意思是：
当用Session("UserName")的值为空时，就调用用户登陆界面，提示用户进行登录，或者进行新用户注册。。。后面的一段JS代码是对对表单元素的检测，判断用户是否填写用户名和密码，如果没有则给出提示！

else后面表示如果Session("UserName")的值不为空时，即用户已登录时。显示欢迎信息，包含两个链接：退出会员中心、会员管理中心。

Answer 2

就是一个登陆界面,如果你已经登陆,就显示欢迎您.....
如果没有登陆,就是两个框,两个按钮,两个链接
登陆名货记录在session中,判断有没有登陆就是看session中有没有记录