<!--#include file="Inc/Conn.asp"-->
<!--#include file="Inc/Code.asp"-->
<!--#include file="Inc/eshopcode.asp"-->
<!--#include file="Head.asp"-->

<%
Dim Uinfo
If Session("MyUserName")="" and Session("MyPassWord")="" Then
Uinfo = Uinfo & "<table width=100% border=0 cellspacing=2 cellpadding=2>"
Uinfo = Uinfo & "<tr>" 
Uinfo = Uinfo & "<td><p>&nbsp;</p>"
Uinfo = Uinfo & "<p><br>"
Uinfo = Uinfo & "</p></td>"
Uinfo = Uinfo & "<td>对不起，您还没有登录，无法进入会员中心，请先登录！<br>"
Uinfo = Uinfo & "如果您还不是我们的会员，请立即<a href=Register.asp>注册</a>。</td>"
Uinfo = Uinfo & "</tr>"
Uinfo = Uinfo & "<tr>" 
Uinfo = Uinfo & "<td>&nbsp;</td>"
Uinfo = Uinfo & "<td><form name=form1 method=post action=UserLogin.asp?action=login>"
Uinfo = Uinfo & "<table width=100% border=0 cellspacing=0 cellpadding=4>"
Uinfo = Uinfo & "<tr>" 
Uinfo = Uinfo & "<td><div align=right>用户名：</div></td>"
Uinfo = Uinfo & "<td><input name=username type=text id=username size=20 maxlength=14>" 
Uinfo = Uinfo & "<a href=Register.asp>新用户注册</a> </td>"
Uinfo = Uinfo & "</tr>"
Uinfo = Uinfo & "<tr>" 
Uinfo = Uinfo & "<td><div align=right>密 码：</div></td>"
Uinfo = Uinfo & "<td><input name=pwd type=password id=pwd size=22 maxlength=12>"
Uinfo = Uinfo & "<a href=Forget.asp>忘记密码？</a></td>"
Uinfo = Uinfo & "</tr>"
Uinfo = Uinfo & "<tr>" 
Uinfo = Uinfo & "<td colspan=2><div align=center>" 
Uinfo = Uinfo & "<input type=submit name=login value=登陆>"
Uinfo = Uinfo & "<input type=reset name=Submit3 value=重置>"
Uinfo = Uinfo & "</div></td></tr></table></form></td></tr><tr><td>&nbsp;</td>"
Uinfo = Uinfo & "<td> 会员中心有以下功能： <br>"
Uinfo = Uinfo & " 1、 修改您的会员注册资料 <br>"
Uinfo = Uinfo & "2、 查询您的订单，以及订单的处理情况<br>"
Uinfo = Uinfo & "3、 专用私人留言簿，您可在此给我们留言和查看我们的回复 </td>"
Uinfo = Uinfo & "</tr>"
Uinfo = Uinfo & "</table>"
Else
Set ss=Server.CreateObject("ADODB.RecordSet")
Sql = "Select * From [User] Where [UserName]='"&Session("MyUserName")&"'"
ss.Open Sql,Conn,1,1
If Not (ss.Eof and ss.Bof) Then

End if 
End if
Dim SerHtml
SerHtml = application("JaServer")
SerHtml = Replace(SerHtml,"{用户登陆}",UserLogin())
SerHtml = Replace(SerHtml,"{用户搜索}",FindProd())
SerHtml = Replace(SerHtml,"{用户投票}",ShowVote())
SerHtml = Replace(SerHtml,"{用户信息}",Uinfo)
Response.Write SerHtml
%>


<!--#Include File="bottom.Asp"-->