www.gusucode.com > 星云DJ舞曲 4.5a源码程序 > user/s.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>
<style type="text/css"> <!-- td { font-size: 9pt; font-family: 宋体 }
a:visited { color: #000000; text-decoration: none }
a:link { color: #000000; text-decoration: none }
a:hover { color: red; text-decoration: none underline}
.line-bg { background-image: url('../Images/line_bg.gif'); background-repeat: repeat-x; background-position: bottom }
.ipbb{background:url('../images/B2.gif') repeat-x; width:47px;border-style:double; border-width:0;height: 19px;padding-top: 2px;color: #16387C;font-size: 12px;}
.ipbox{height:16px;padding:1px;border: 1px solid #91A7B4;}
#se3 {margin:0 auto;width:778px;}
.Search{width:776px;padding:3px 0px 2px 0px;margin:3px 0px 3px 0px;background-color:#FAFEFF;height:20px;line-height:20px;border: 1px solid #92B0DD;}
.ipfta {float:left;width:200px;}
.ipftb {float:left;width:410px;}
.ipftc {float:left;width:150px;line-height:20px;MARGIN-right:3px;text-align:right;}
-->
</style>
</head>
<body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" bgcolor=#ffffff>
<table border="0" width="100%" id="table1" cellpadding="0" style="border-collapse: collapse">
<tr>
<td align="center">
<%
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
%> <tr>
<td width="100%" align="center" height="22">
<font color="#000000">请，</font>
<font color="#ff0000">[</font><font color="#FF0000"><a href="UserLogout.asp?fs=s">退出</a></font><font color="#ff0000">]并重新登陆！</font></td>
</tr><%else%>
<tr>
<td width="17%" align="center" height="22" colspan="2">
<font color="#ff0000"><%
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 "<b>Vip会员</b>"
else
response.write "<b>过期VIP会员</b>"
end if
end if
%></font>
[</font><font color="#FF0000"><b><%=session("DJUser")%></b></font>]</font></td>
<td width="43%" height="22" colspan="2" align="left"><%
TNSIsql="SELECT * FROM collection where UserName='"&session("DJUser")&"'"
TNSIrs.Open TNSIsql,conn,1,1
TotalNewSendIn=TNSIrs.recordcount
TNSIrs.close
set TNSIrs=nothing
%><a href="Usercollect.Asp?Action=show" target="vip">音乐盒</a>
点数<font color="#FF0000"><%=rs("points")%></font>点 <a href="downlog.asp?action=log" target="log">下载<font color="#FF0000"><%=rs("downloads")%></font>首</a> <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="UserLogout.asp?fs=s"><font color="#FF0000">[退出]</font></a></td>
<%
rs.close
end if
else
%>
<form name="UserLogin" action="userchklogin.asp?fs=s" method="post" onsubmit="return CheckLogin();">
用户：<input name="userName" type="text" class="ipbox" size="10">
密码：<input name="password" type="password" class="ipbox" size="10"> <input name="" value="登 陆" type="submit" class="ipbb"> <input name="" value="注 册" type="button" class="ipbb" onclick="window.open('/user/UserReg.asp','_blank','width=340,height=443,left=30,top=30');return false;" href="#"></form>
<%end if%>
</body>
</html>