<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<%
Dim Rs,SQL,NowStats
Dim HtmlTitle,Style_CSS,HtmlTempStr
Dim TempTopStr,TempFootStr,DownloadClass_Ads
Dim GroupSet,GroupName,UserMoney
Dim DayDownNum,userid,username
Set Rs = Server.CreateObject("adodb.recordset")
DownsysClass.LoadTemplates ("")
Set DownloadClass_Ads = New Adcolumn_Cls
Set Rs = CreateObject("adodb.recordset")
NowStats = "会员管理登陆"
HtmlTitle = "会员管理登陆"
TempTopStr = DownsysClass.mainhtml(0) & DownsysClass.mainhtml(1) & DownsysClass.mainhtml(2) & DownsysClass.mainhtml(3)
TempFootStr = DownsysClass.mainhtml(4)
Style_CSS = Replace(Replace(DownsysClass.Style_CSS, "{$SetupDir}", DownsysClass.SetupDir), "{$PicUrl}", DownsysClass.TempDir)
HtmlTempStr = TempTopStr
HtmlTempStr = Replace(HtmlTempStr, "{$NavMenu}", DownsysClass.SortingMenu)
HtmlTempStr = Replace(HtmlTempStr, "{$Width}", DownsysClass.mainset(0))
HtmlTempStr = Replace(HtmlTempStr, "{$Style_CSS}", Style_CSS)
If CInt(DownsysClass.Setting(5)) = 0 Then
	HtmlTempStr = Replace(HtmlTempStr, "{$TopMeun}", DownsysClass.mainset(9))
Else
	HtmlTempStr = Replace(HtmlTempStr, "{$TopMeun}", DownsysClass.mainset(10))
End If
HtmlTempStr = Replace(HtmlTempStr, "{$NowStats}", NowStats)
HtmlTempStr = Replace(HtmlTempStr, "{$Title}", HtmlTitle)
HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(0)}", DownloadClass_Ads.RunScriptAds(7))
HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(1)}", DownloadClass_Ads.BannerAds(7))
HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(2)}", DownloadClass_Ads.AdsColumn(7, 2))
HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(3)}", DownloadClass_Ads.AdsColumn(7, 3))
Response.Write HtmlTempStr
If CInt(DownsysClass.Setting(5)) = 1 Then
	TempFootStr = Replace(TempFootStr, "{$FootMeun}", DownsysClass.mainset(11))
Else 
	TempFootStr = Replace(TempFootStr, "{$FootMeun}", DownsysClass.mainset(44))
End If
TempFootStr = Replace(TempFootStr, "{$Width}", DownsysClass.mainset(0))
TempFootStr = Replace(TempFootStr, "{$Adcolumn(4)}", DownloadClass_Ads.ScriptFloatAds(7))
TempFootStr = Replace(TempFootStr, "{$Adcolumn(5)}", DownloadClass_Ads.ScriptFixedAds(7))
If DownsysClass.memberName = Empty Then
	Response.Write "    <table width=""" & DownsysClass.mainset(0) & """ border=""0"" align=center cellpadding=""5"" cellspacing=""0"" class=TableBorder>" & vbCrLf
	Response.Write "     <form method=""post"" action=""login.asp?action=login"" target=""_top"">" & vbCrLf
	Response.Write "      <tr>" & vbCrLf
	Response.Write "	<td width=""35%"" align=""right"">用户名：</td><td width=""65%""><input name=""username"" maxlength=""10"" size=""30""></td>" & vbCrLf
	Response.Write "      </tr>" & vbCrLf
	Response.Write "      <tr>" & vbCrLf
	Response.Write "	<td align=""right"">密&nbsp;&nbsp;码：</td><td><input type=""Password"" name=""password"" maxlength=""30"" size=""30""></td>" & vbCrLf
	Response.Write "      </tr>" & vbCrLf
	Response.Write "      <td align=center colspan=2>" & vbCrLf
	Response.Write "	<A href=reg.asp target=_top><IMG height=18 width=51 src='skin/default/reg.gif' alt='用户注册' align=absMiddle border=0></a>&nbsp;&nbsp;" & vbCrLf
	Response.Write "    <input type=""image"" name=""Submit"" title='用户登陆' height=18 width=51 src='skin/default/login.gif' align=absMiddle>&nbsp;&nbsp;" & vbCrLf
	Response.Write "	<A href=sendpass.asp target=_top><IMG height=18 width=70 src='skin/default/forpass.gif' alt='忘记密码' align=absMiddle border=0></a>" & vbCrLf
	Response.Write "    </td></tr></form>" & vbCrLf
	Response.Write "    </table>" & vbCrLf
Else
	username = DownsysClass.memberName
	userid = CLng(DownsysClass.memberid)
	SQL = "select NC_User.money,NC_User.DayDownNum,NC_UserGroup.GroupName,NC_UserGroup.GroupSet from NC_User,NC_UserGroup where NC_User.grade = NC_UserGroup.grades And NC_User.userid = " & userid & " And NC_User.username='" & username & "'"
	Rs.Open SQL, conn, 1, 1
	UserMoney = Rs("money")
	DayDownNum = Rs("DayDownNum")
	GroupName = Rs("GroupName")
	GroupSet = Split(Rs("GroupSet"), ",")
	Rs.Close
	Response.Write " <table width="""
	Response.Write DownsysClass.mainset(0)
	Response.Write """ class=TableBorder border=""0"" align=center cellpadding=""8"" cellspacing=""0"">" & vbCrLf
	Response.Write " <tr>" & vbCrLf
	Response.Write " <td class=Border2>用户名：<font color=""#FF0000"">"
	Response.Write username
	Response.Write "</font></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr>" & vbCrLf
	Response.Write " <td class=Border2>身　份：<font color=""#FF0000"">"
	Response.Write GroupName
	Response.Write "</font></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr>" & vbCrLf
	Response.Write " <td class=Border2>您还剩的点数：<font color=""#FF0000"">"
	Response.Write UserMoney
	Response.Write "</font></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " "
	If CInt(GroupSet(1)) > 0 Then
		Response.Write " <tr>" & vbCrLf
		If CInt(GroupSet(2))>0 Then
			Response.Write " <td class=Border2>每日下载数：<font color=""#FF0000"">"
			Response.Write CInt(GroupSet(2))
			Response.Write "</font>　" & vbCrLf
			Response.Write "今日已下载数：<font color=""#FF0000"">"
			Response.Write DayDownNum
			Response.Write "</font>　" & vbCrLf
			Response.Write "你今日还可以下载软件 <font color=""#FF0000"">"
			Response.Write CInt(GroupSet(2)) - DayDownNum
			Response.Write "</font></td>" & vbCrLf
		Else 	
			Response.Write " <td class=Border2>每日下载数：<font color=""#FF0000"">"
			Response.Write "不限"
			Response.Write "</font>　" & vbCrLf
			Response.Write "今日已下载数：<font color=""#FF0000"">"
			Response.Write DayDownNum
			Response.Write "</font>　" & vbCrLf
			Response.Write "你今日还可以下载软件 <font color=""#FF0000"">"
			Response.Write "不限"
			Response.Write "</font></td>" & vbCrLf
		End If
		Response.Write " </tr>" & vbCrLf
		Response.Write " "
	End If
	Response.Write " <tr>" & vbCrLf
	Response.Write " <td class=Border2 align=center><a href=updateinfo.asp>修改资料</a>　<a href=updatepass.asp>修改密码</a>　<a href=logout.asp>退 出</a></td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write " </table>" & vbCrLf
	Set Rs = Nothing
End If
Response.Write TempFootStr
If IsObject(DownloadClass_Ads) Then
	Set DownloadClass_Ads = Nothing
End If
CloseConn
%>
