user.asp

多用户管理分权限发布、管理软件信息； 自由选择系统默认为静态HTML或动态ASP； 无限制添加下载服务器

<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<%
Private Rs
Private SQL
Private NowStats
Private HtmlTitle
Private Style_CSS
Private HtmlTempStr
Private TempTopStr
Private TempFootStr
Private NewCloud_Ads
Private GroupSet
Private GroupName
Private UserMoney
Private DayDownNum
Private userid
Private username
Set Rs = Server.CreateObject("adodb.recordset")
Newasp.LoadTemplates ("")
Set NewCloud_Ads = New Adcolumn_Cls
Set Rs = CreateObject("adodb.recordset")
NowStats = "会员管理登陆"
HtmlTitle = "会员管理登陆"
TempTopStr = Newasp.mainhtml(0) & Newasp.mainhtml(1) & Newasp.mainhtml(2) & Newasp.mainhtml(3)
TempFootStr = Newasp.mainhtml(4)
Style_CSS = Replace(Replace(Newasp.Style_CSS, "{$SetupDir}", Newasp.SetupDir), "{$PicUrl}", Newasp.TempDir)
HtmlTempStr = TempTopStr
HtmlTempStr = Replace(HtmlTempStr, "{$NavMenu}", Newasp.SortingMenu)
HtmlTempStr = Replace(HtmlTempStr, "{$Width}", Newasp.mainset(0))
HtmlTempStr = Replace(HtmlTempStr, "{$Style_CSS}", Style_CSS)
If CInt(Newasp.Setting(5)) = 0 Then
	HtmlTempStr = Replace(HtmlTempStr, "{$TopMeun}", Newasp.mainset(9))
Else
	HtmlTempStr = Replace(HtmlTempStr, "{$TopMeun}", Newasp.mainset(10))
End If
HtmlTempStr = Replace(HtmlTempStr, "{$NowStats}", NowStats)
HtmlTempStr = Replace(HtmlTempStr, "{$Title}", HtmlTitle)
HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(0)}", NewCloud_Ads.RunScriptAds(7))
HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(1)}", NewCloud_Ads.BannerAds(7))
HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(2)}", NewCloud_Ads.AdsColumn(7, 2))
HtmlTempStr = Replace(HtmlTempStr, "{$Adcolumn(3)}", NewCloud_Ads.AdsColumn(7, 3))
Response.Write HtmlTempStr
TempFootStr = Replace(TempFootStr, "{$FootMeun}", Newasp.mainset(11))
TempFootStr = Replace(TempFootStr, "{$Width}", Newasp.mainset(0))
TempFootStr = Replace(TempFootStr, "{$Adcolumn(4)}", NewCloud_Ads.ScriptFloatAds(7))
TempFootStr = Replace(TempFootStr, "{$Adcolumn(5)}", NewCloud_Ads.ScriptFixedAds(7))
If Newasp.memberName = Empty Then
	Response.Write "    <table width=""" & Newasp.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=20 width=58 src='skin/default/reg.gif' alt='用户注册' align=absMiddle border=0></a>&nbsp;&nbsp;&nbsp;&nbsp;" & vbCrLf
	Response.Write "    <input type=""image"" name=""Submit"" title='用户登陆' height=20 width=58 src='skin/default/login.gif' align=absMiddle>" & vbCrLf
	Response.Write "    </td></tr></form>" & vbCrLf
	Response.Write "    </table>" & vbCrLf
Else
	username = Newasp.memberName
	userid = CLng(Newasp.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 Newasp.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
		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
		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
%>