📄 userserver.asp
字号:
<!--#include file="Inc/conn.asp" -->
<!--#include file="Inc/Function.asp" -->
<!--#include file="Inc/Config.asp" -->
<!--#include file="inc/Skin_CSS.asp"-->
<!--#include file="top.asp"-->
<!--#include file="inc/md5.asp"-->
<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>
<%
Action=Trim(request("Action"))
if Action="Login" then
dim sql
dim rs
dim username
dim password
username=replace(trim(request("username")),"'","")
password=replace(trim(Request("password")),"'","")
password=md5(password)
set rs=server.createobject("adodb.recordset")
sql="select * from [User] where LockUser=False and username='" & username & "' and password='" & password &"'"
rs.open sql,conn,1,3
if not(rs.bof and rs.eof) then
if password=rs("password") then
rs("LoginIP")=Request.ServerVariables("REMOTE_ADDR")
rs("LastLoginTime")=now()
rs("logins")=rs("logins")+1
rs.update
session("UserName")=rs("username")
if rs("VIPUser")=True then
session("VIPUser")=rs("VIPUser")
session("LockVIPUser")=rs("LockVIPUser")
end if
Response.Redirect "UserServer.asp"
end if
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
end if
%>
<table width="909" height="200" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="670" height="409" align="center" valign="top" bgcolor="#FFFFFF"><TABLE cellSpacing=0 cellPadding=0 width="670"
border=0>
<TBODY>
<TR>
<TD class="title_b"></TD>
<TD><TABLE cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD width=98 class="title_c">会员中心</TD>
<TD width="555" class="title_right"> </TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD vAlign=bottom colSpan=2 height=5><TABLE cellSpacing=0 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD bgColor=#e3e3e3
height=1></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE>
<%If Session("UserName")="" Then%>
<table width="100%" border="0" cellpadding="0" cellspacing="3">
<tr>
<td colspan="2" align="right"><p align="center" style="word-spacing: 0; margin-top: 0; margin-bottom: 0"> </p></td>
</tr>
<tr>
<td colspan="2" align="right"><div align="center">
<table class="main" cellSpacing="0" cellPadding="2" width="100%" border="0" height="1">
<tbody>
<tr>
<td width="100%" height="1"><table class='border' width='74%' border='0' align="center" cellpadding='0' cellspacing='0'>
<form action='UserServer.asp?Action=Login' method='post' name='UserLogin' onSubmit='return CheckForm();'>
<tr class='tdbg'>
<td height='25' colspan="2" align='right'><div align="center">用户登录</div></td>
</tr>
<tr>
<td height='25' align='right'>用户名：</td>
<td height='25'><input name='UserName' type='text' id='UserName' size='10' maxlength='20'></td>
</tr>
<tr>
<td height='25' align='right'>密 码：</td>
<td height='25'><input name='Password' type='password' id='Password' size='10' maxlength='20'></td>
</tr>
<tr align='center'>
<td height='25' colspan='2'><input name='Login' type='submit' id='Login' value=' 登录 ' Class="BUTTON" >
<input name='Reset' type='reset' id='Reset' value=' 清除 ' Class="BUTTON"></td>
</tr>
<tr>
<td height='20' colspan='2' align='center'><a href='UserReg.asp' target='_blank'>用户注册</a> <a href='GetPassword.asp' target='_blank'>忘记密码</a></td>
</tr>
</form>
</table></td>
</tr>
</tbody>
</table>
</div></td>
</tr>
<tr>
<td height="19" colspan="2" align="right"> </td>
</tr>
<tr>
<td height="19" align="right"><p align="center" style="word-spacing: 0; margin-top: 0; margin-bottom: 0"> </p></td>
<td height="19" align="right"><div align="left">您无法进入会员中心，请先登录！如果您不是我们的会员，请立即<font color="#006699"><a href="UserReg.asp"><font color="#FF0000">注册</font></a>。</font></div></td>
</tr>
<tr>
<td width="15%" align="right"></td>
<td width="85%">我们的会员有以下功能：</td>
</tr>
<tr>
<td width="15%" align="right"> </td>
<td width="85%">1、修改您的会员注册资料；</td>
</tr>
<tr>
<td width="15%" align="right"> </td>
<td width="85%"><p>2、查询您的询价，以及询价的处理情况；</p></td>
</tr>
<tr>
<td width="15%" align="right"> </td>
<td width="85%">3、专用私人留言簿，您可在此给我们留言和查看我们的回复。</td>
</tr>
<tr>
<td align="right"> </td>
<td> </td>
</tr>
</table>
<%else%>
<TABLE width="85%" align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR vAlign=top >
<TD width="100%"><p style="margin-bottom: 0"> <br>
亲爱的<%=Session("UserName")%>：</p>
<p style="word-spacing: 0; margin-top: 0; margin-bottom: 0"> </p>
<p style="word-spacing: 0; margin-top: 0; margin-bottom: 0"> 您现在已经进入会员服务中心，这里只有注册会员才能访问。您可在这里修改您的注册信息、给我们留言、查看我们对您留言的答复，也可以查询您的询价及询价处理情况。</p></TD>
</TR>
</TBODY>
</TABLE>
<%end if%></td>
<td width="184" align="right" valign="top" bgcolor="#FFFFFF"><table width="180" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="34" class="title_left"> 会员中心</td>
</tr>
<tr>
<td height="20"><div align="center"><a href="UserEdit.asp">修改会员资料</a></div></td>
</tr>
<TR>
<TD
height=1 colspan="2"
background=img/naSzarym.gif><IMG height=1 src="img/1x1_pix.gif"
width=10></TD>
</TR>
<tr>
<td height="20"><div align="center"><a href="UserEditPwd.asp">修改会员密码</a></div></td>
</tr>
<TR>
<TD
height=1 colspan="2"
background=img/naSzarym.gif><IMG height=1 src="img/1x1_pix.gif"
width=10></TD>
</TR>
<tr>
<td height="20"><div align="center"><a href="UserOrder.asp">产品询价查询</a></div></td>
</tr>
<TR>
<TD
height=1 colspan="2"
background=img/naSzarym.gif><IMG height=1 src="img/1x1_pix.gif"
width=10></TD>
</TR>
<tr>
<td height="20"><div align="center"><a href="Feedback.asp">我要留言</a></div></td>
</tr>
<TR>
<TD
height=1 colspan="2"
background=img/naSzarym.gif><IMG height=1 src="img/1x1_pix.gif"
width=10></TD>
</TR>
<tr>
<td height="20"><div align="center"><a href="FeedbackMember.asp">查看我的留言</a></div></td>
</tr>
<TR>
<TD
height=1 colspan="2"
background=img/naSzarym.gif><IMG height=1 src="img/1x1_pix.gif"
width=10></TD>
</TR>
<tr>
<td height="20"><div align="center"><a href="UserLogout.asp?Action=Ch">退出会员中心</a></div></td>
</tr>
<TR>
<TD
height=1 colspan="2"
background=img/naSzarym.gif><IMG height=1 src="img/1x1_pix.gif"
width=10></TD>
</TR>
</table></td>
<td width="56"> </td>
</tr>
</table>
<!-- #include file="Inc/Foot.asp" -->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -