login.asp

一个简单的小程序

<!--#include file="../Include/Const.asp" -->
<!--#include file="../Include/ConnSiteData.asp" -->
<!--#include file="../Include/NoHackSql.Asp" -->
 <link id="skin" href="Newimages/style.css" rel="stylesheet" type="text/css"/>
<script type="text/javascript" src="css/setCss.js"></script>
        <script type="text/javascript" src="ajaxpro/prototype.ashx"></script>
<script type="text/javascript" src="ajaxpro/core.ashx"></script>
<script type="text/javascript" src="ajaxpro/converter.ashx"></script>
<script type="text/javascript" src="ajaxpro/V2009.action.newsHit,V2009.ashx"></script>
                 <script type="text/javascript" src="image/jquery-1.2.2.pack.js"></script>

<script type="text/javascript" src="image/ui.tabs.pack.js"></script>
<style type="text/css">
#loginTable
{
text-align:left;

}
.Input {
border:solid 1px #cecfce;
}
body
{
font-size:12px;
}
a
{
 font-size:12px;
}
A:visited {
	COLOR: #2e4690; FONT-FAMILY: Arial; TEXT-DECORATION: none; font-size:12px;
}
A:active {
	FONT-FAMILY: Arial; TEXT-DECORATION: none; font-size:12px;
}
A:hover {
	BORDER-TOP-WIDTH: 1px; BACKGROUND-POSITION: 50% bottom;  font-size:12px;BORDER-LEFT-WIDTH: 1px; LEFT: 1px; BORDER-BOTTOM-WIDTH: 1px; COLOR: #3399cc; BACKGROUND-REPEAT: repeat-x; POSITION: relative; TOP: 1px; BORDER-RIGHT-WIDTH: 1px; TEXT-DECORATION: none
}
</style>
<table width="240" height="74"  border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#ECECF9">
      <form id="formLogin" name="formLogin" method="post" action="MemberLogin.asp">
	  <%if session("MemName")="" or session("GroupID")="" or session("MemLogin")<>"Succeed" then%>
<script language="javascript">
<!--
document.write('<input type="hidden" name="comeurl" value="'+ top.window.location +'">');  
// -->
</script>
      <tr>
        <td width="23%" height="24" align="center" nowrap>用户名：          </td>
        <td width="48%" align="center" nowrap><input name="LoginName" type="text" id="LoginName" size="16" maxlength="20"></td>
        <td width="29%" rowspan="2" align="center" nowrap><input type="image" border="0" name="imageField" src="Newimages/login.gif" ></td>
      </tr>
      <tr>
        <td height="24" align="center" nowrap>密&nbsp; 码：        </td>  
        <td align="center" nowrap><input name="LoginPassword" type="password" id="LoginPassword" size="16" maxlength="50"></td>
        </tr>
      
      <tr>
        <td height="24" align="center" nowrap colspan="3" valign="middle"><table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="28%" align="center"><a href="MemberRegister.asp" target="_blank" >管理员申请</a></td>
            <td width="35%" align="center"><a href="MemberRegister.asp" target="_blank" class="STYLE5">普通用户注册</a></td>
            <td width="14%" align="center"><a href="#" onclick= "javascript:formLogin.submit()">登陆</a></td>
            <td width="23%" align="center"><a href="MemberGetPass.asp" target="_blank" class="STYLE4">忘记密码</a></td>
          </tr>
        </table>          </td>
        </tr>
      </form>
	  <%else%>
	  <tr>
                        <td width="49" rowspan="3" align="center" valign="top"><img src="Newimages/user_bg.gif" width="49" height="50" style="margin-top:5px;" /></td>
                        <td height="28" colspan="2"><span style="font-size:12px; font-family:'宋体'">您好：<%=session("MemName")%>(<%=MemGroup(session("GroupID"))%>)</span></td>
                      </tr>
                      <tr>
                        <td height="28" colspan="3"><a href="MemberInfo.asp" target="_blank">会员中心</a> <a href="MemberLogin.asp?Action=Out">退出登录</a></td>
                      </tr>
                      <tr>
                        <td height="28" colspan="3"></td>
                      </tr>
	<%end if%>
</table>   

<%function MemGroup(GroupID)
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select * from LiangJingCMS_MemGroup where GroupID='"&GroupID&"'"
  rs.open sql,conn,1,1
  MemGroup=rs("GroupName"&Language)
  rs.close
  set rs=nothing
end Function%>