www.gusucode.com > 星云DJ舞曲 4.5a源码程序 > user/index.asp
<!--#include file="connkkp.asp"--><!--#include file="function.asp"--><% Session("auth") = True
Response.Expires = 0
Response.Expiresabsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
%><html>
<head><title>会员登陆系统</title>
<link href="../images/xy.css" type="text/css" rel="stylesheet">
<style type="text/css">
<!--
body {
background-color: #1A272F;
margin-top: 0px;
}
-->
</style>
</head>
<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0">
<%
if session("DJUser")<>"" then
set rs=conn.execute("SELECT * FROM user where UserName='"&session("DJUser")&"'")
if (rs.eof and rs.bof) or err.number<>0 then
%>
<div id="loginL"><a href="UserLogout.asp">退出重新登陆！</a></div>
<%else%>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="30" align="left" class="zjj5"><%
IsVip=rs("IsVip")
if IsVip<>true then
response.write "<b>普通会员</b>"
else
VipStartDate=rs("VipStartDate")
VipEndDate=rs("VipEndDate")
Surplus=DateDiff("d",now(),vipenddate)
Surplus2=DateDiff("s",now(),vipenddate)
if Surplus2>=0 then
response.write "<font color=#ff00ff><b>Vip会员</b></font>"
else
response.write "<b>过期VIP会员</b>"
end if
end if
%>：<font color="#FF0000"><b><%=session("DJUser")%></b></font><%
TNSIsql="SELECT * FROM collection where UserName='"&session("DJUser")&"'"
TNSIrs.Open TNSIsql,conn,1,1
TotalNewSendIn=TNSIrs.recordcount
TNSIrs.close
set TNSIrs=nothing
%> <a href="#" onClick="window.open('Usermodify.asp','djbubox','scrollbars=no,resizable=no,width=316,height=450,menubar=no,top=168,left=168')" style="text-decoration: none">修改资料</a> <a href="Usercollect.Asp?Action=show" target="sc">音乐盒</a> 点数: <span class="juhuang cu"><%=rs("points")%></span> 点 <a href="downlog.asp?action=log" target="log">下载纪录: <span class="juhuang cu"><%=rs("downloads")%></span> 首</a> <a href="UserLogout.asp"><font color="#FF0000">[退出]</font></a>
</td>
</tr>
</table>
<%
rs.close
end if
else
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<form name="UserLogin" action="userchklogin.asp" method="post" onSubmit="return CheckLogin();">
<tr>
<td width="50" height="30" class="top3">用户名：</td>
<td width="80" align="left"><input type="text" name="UserName" style="width:110px; height:18px; border:1px solid #CCCCCC;" /></td>
<td width="50" class="top3">密 码：</td>
<td width="80" align="left"><input type="password" name="password" style="width:110px; height:18px; border:1px solid #CCCCCC;" /></td>
<td width="50" align="center"><input type="image" src="../images/login.gif" width="55" height="17"/> </td>
<td width="50" align="center" valign="middle"><a href="/user/UserReg.html" target="_blank"><img src="../images/zc.gif" width="55" height="17" border="0" /></a></td>
<td width="50" align="center"><a href="/User/GetPassword.asp" target="_blank"><img src="../images/qhmm.jpg" border="0"></a></td>
</tr>
</form>
<%end if%>
</body>
</html>