members.asp

网页源码,是最好的网店代码。可以支持批量上传产品等功能。

<!--#include file="Inc/SysConfig.Asp"-->
<!--#include file="Inc/Page_Cls.Asp"-->
<%
If Not YxBBs.Founduser Then YxBBs.Error("您还没有注册或者登陆！")
Dim Action,WhereSql,OrderSql,Order,PageInfo,Keyword,PageSize,Admintype,myvar,rs
Dim Pages,Page,arr_Rs,i,Temp,Content,Action1
action=lcase(request.querystring("action"))
select case action
case "top"
	top
case "log"
	log
case "dellog"
	dellog
case "admin"
	admin
case else
      admin
end select
YxBBs.Footer()
Set YxBBs=Nothing

sub top
Order=Request.QueryString("Order")
Keyword=Request.QueryString("Keyword")
Action=Lcase(Request.QueryString("Action"))
Action1=Lcase(Request.QueryString("Action1"))
Call YxBBs.Head("用户排行")
If Keyword<>"" Then WhereSql=WhereSql&" And Name like '%"&KeyWord&"%'"
Select Case Action1
	Case"sex"
		OrderSql="Sex"
	Case"coin"
		OrderSql="Coin"
	Case"essay"
		OrderSql="EssayNum"
	Case"mark"
		OrderSql="Mark"
	Case"regtime"
		OrderSql="RegTime"
	Case"grade"
		OrderSql="GradeNum"
	Case else
		OrderSql="ID"
End select
IF Order<>"1" Then OrderSql =OrderSql&" Desc"
ShowListTop()
ShowUserList()
ShowListBottom()
end sub

Sub ShowListTop()
	Response.Write"<table align=center width='100%' border='0' cellpadding='6' cellspacing='0'><td align='center'> 排序方式：<a href=?Action=top&Action1="&Action1&"&Order=1&KeyWord="&KeyWord&">顺</a> / <a href=?Action=top&Action1="&Action1&"&Order=2&KeyWord="&KeyWord&">倒</a></td><td align='center'>查看按：<a href=?Action=top&Action1=Sex&Order="&Order&"&KeyWord="&KeyWord&">性别</a>&nbsp;/&nbsp;<a href=?Action=top&Action1=Essay&Order="&Order&"&KeyWord="&KeyWord&">贴数</a>&nbsp;/&nbsp;<a href=?Action=top&Action1=Coin&Order="&Order&"&KeyWord="&KeyWord&">金钱</a>&nbsp;/&nbsp;<a href=?Action=top&Action1=Mark&Order="&Order&"&KeyWord="&KeyWord&">"&YxBBs.BBSSetting(23)&"</a>&nbsp;/&nbsp;<a href=?Action=top&Action1=RegTime&Order="&Order&"&KeyWord="&KeyWord&">注册时间</a>&nbsp;/&nbsp;<a href=?Action=top&Action1=Grade&Order="&Order&"&KeyWord="&KeyWord&">等级</a></td><td align='center'><form style=""margin:0px; ""> <input type=""text"" name=""keyword"" size=""20"" onkeyup=""ValidateTextboxAdd(this,'BtnSearch')"" onpropertychange=""ValidateTextboxAdd(this,'BtnSearch')""> <input type=""Submit"" value=""模糊查找"" name=""BtnSearch"" disabled></form></td></tr></table>"
	Dim Temp
	Temp=YxBBs.Template.ReadTemplate("各项列表顶部")
	Temp=Replace(Temp,"{标题}",YxBBs.Stats )
	Response.Write Temp
End Sub

Sub ShowListBottom()
	Dim Temp
	Temp=YxBBs.Template.ReadTemplate("各项列表底部")
	Temp=Replace(Temp,"{分页}",PageInfo)
	Response.Write Temp
End Sub

Sub ShowUserList()
	Page = Request.QueryString("page")
	Set pages = New Cls_PageView
	pages.strTableName = "[YX_User]"
	pages.strPageUrl = "?Action="&Action&"&Action1="&Action1&"&Order="&Order&"&KeyWord="&KeyWord
	pages.strFieldsList = "Name,Sex,Mail,EssayNum,Coin,Mark,RegTime,GradeNum"
	pages.strCondiction = WhereSql
	pages.strOrderList = OrderSql
	Pages.strPrimaryKey = "ID"
	pages.intPageSize = 20
	pages.intPageNow = Page
	pages.strCookiesName = "Members_"&KeyWord
	pages.Reloadtime=3'每三分钟更新Cookies
	pages.strPageVar = "page"
	pages.InitClass
	Arr_Rs = pages.arrRecordInfo
	PageInfo = pages.strPageInfo
	page=pages.intPageNow
	Set pages = nothing
	Content="<tr height=25 bgcolor=#EEEEEE align=center><td width='20%'><b>用户名</b></td><td width='5%'><b>性别</b></td><td width='25%'><b>E-MAIL</b></td><td width='10%'><b>发帖数</b></td><td width='10%'><b>金钱</b></td><td width='10%'><b>"&YxBBs.BBSSetting(23)&"</b></td><td width='10%'><b>注册时间</b></td><td width='25%'><b>等级</b></td></tr>"
	If IsArray(Arr_Rs) Then
		For i = 0 to UBound(Arr_Rs, 2)
			SET Rs=YxBBs.Execute("Select GradeName,GradePic From [YX_UserGrade] where GradeNum="&Arr_Rs(7,i)&"")
			If Arr_Rs(1,i) Then Temp="男" Else Temp="女"
			Content=Content &"<tr Height=25><td align='center' ><a href='Profile.Asp?Name="&Arr_Rs(0,i)&"'>"&Arr_Rs(0,i)&"</a></td><td align='center'>"&Temp&"</td><td><a href='mailto:"&Arr_Rs(2,i)&"'>&nbsp;&nbsp;"&Arr_Rs(2,i)&"</a></td><td align='center'>"&Arr_Rs(3,i)&"</td><td align='center'>"&Arr_Rs(4,i)&"</td><td align='center'>"&Arr_Rs(5,i)&"</td><td>&nbsp;&nbsp;"&Formatdatetime(Arr_Rs(6,i),2)&"</td><td align='center'><img src='"&Rs("Gradepic")&"' alt="&Rs("GradeName")&"></td></tr>"
		Next
	End If
	Response.Write Content
End Sub


sub log
Call YxBBs.Head("查看论坛LOG")
ShowListToplog()
BoardEven()
End sub

Sub ShowListToplog()
	Dim Temp
	Temp=YxBBs.Template.ReadTemplate("各项列表顶部")
	Temp=Replace(Temp,"{标题}",YxBBs.Stats )
	Response.Write Temp
End Sub

Sub boardeven()
	Dim Rs,Sql,TempStr
        Set Rs=YxBBs.Execute("select * from [YX_logs] where Logtime order by Logtime desc")
		TempStr="<form method='post' style='margin:0px' action='?Action=DelLog'><tr height=25 bgcolor=#EEEEEE align=center><td width='15%'>操作对象</td><td width='55%'>事件内容</td><td width='20%'>操作时间</td><td width='15%'>操作用户</td></tr>"
		While (Not rs.eof) 
			TempStr = TempStr & "<tr height=25><td width='15%'><a href='Profile.Asp?name="&Rs("ToName")&"' title='查看 "&Rs("ToName")&" 的资料 '>"&Rs("ToName")&"</a></td><td width='55%'>"&YxBBs.Fun.HtmlCode(Rs("LogContent"))&"</td><td width='15%'>"&Rs("LogTime")&"</td><td width='20%'><a href='Profile.Asp?name="&Rs("UserName")&"' title='用户ＩＰ："&Rs("UserIP")&"'>"&Rs("UserName")&"</a></td></tr>"
			Rs.Movenext
		Wend
      If YxBBs.ClassID<2 Then
      TempStr=TempStr&"<tr height=25><td colspan='4'align='right'><input type='Submit' class='button' name='Del' value='清空3天之前的管理记录'>&nbsp;&nbsp;&nbsp;</td></tr>"
      End If
      TempStr=TempStr&"</form>"   
    Response.Write TempStr
    Rs.Close
	Set Rs=Nothing
Dim Temp
	Temp=YxBBs.Template.ReadTemplate("各项列表底部")
	Temp=Replace(Temp,"{分页}","")
	Response.Write Temp
End Sub



sub DelLog
If Not YxBBs.IsBoardAdmin Then
If YxBBs.ClassID>2 Then YxBBs.Error("您的权限不足！请检查权限！")
End If
YxBBs.Execute("Delete From [YX_Logs] where DATEDIFF('d', LogTime,'"&YxBBs.NowBBSTime&"')>4")
               Response.Write ("<script type='text/javascript'>alert('恭喜您成功删除3天之前的管理记录！');window.location.href='?Action=log';</script>")
end Sub

sub admin
Call  YxBBs.Head("管理团队")
whereSql="ClassID<=3"
	Admintype="管理团队列表"
ShowListToplog()
ShowList()
ShowListBottom()
end sub



Sub ShowList()
	Dim Pages,Page,arr_Rs,i,Temp,Content
	Page = Request.QueryString("page")
	Set pages = New Cls_PageView
	pages.strTableName = "[YX_User]"
	pages.strPageUrl = "?Action=admin"&Action
	pages.strFieldsList = "Name,GradeNum,Mail,lastTime"
	pages.strCondiction = WhereSql
	pages.strOrderList = "LastTime desc"
	Pages.strPrimaryKey = "Name"
	pages.intPageSize = 20
	pages.intPageNow = Page
	pages.strCookiesName = "Admin_List"&Action'客户端记录名称
	pages.Reloadtime=10'分钟更新
	pages.strPageVar = "page"
	pages.InitClass
	Arr_Rs = pages.arrRecordInfo
	PageInfo = pages.strPageInfo
	page=pages.intPageNow
	Set pages = nothing
	Content="<tr height=25 bgcolor=#E3E3E3><td width='15%' align='center'><b>名 称</b><td width='15%' align='center'><b>管理级别</b></td><td width='25%' align='center'><b>评价</b></td></td><td width='10%' align='center'><b>在线</b></td><td width='10%' align='center'><b>留言</b></td><td width='25%' align='center'><b>最后登陆</b></td></tr>"
	If IsArray(Arr_Rs) Then
	For i = 0 to UBound(Arr_Rs, 2)
		SET Rs=YxBBs.Execute("Select GradeName,GradePic From [YX_UserGrade] where GradeNum="&Arr_Rs(1,i)&"")
               if datediff("d",Arr_Rs(3,i),date())<=3 then
myvar="<img src=images/tl.gif border=0> 工作负责,值得学习."
elseif datediff("d",Arr_Rs(3,i),date())<=7 then
myvar="<img src=images/tl.gif border=0> 有点松散,<font color=red>7</font> 天内还有登陆."
elseif datediff("d",Arr_Rs(3,i),date())>=7 then
myvar="<img src=images/tl.gif border=0> 已经 <font color=red>7</font> 天以上没有登陆了."

end if
if datediff("d",Arr_Rs(3,i),date())>=10 then
myvar=" <img src=images/tl.gif border=0> <font color=red>10</font>天没有登陆，警告."
end if
if datediff("d",Arr_Rs(3,i),date())>=15 then
myvar="<img src=images/tl.gif border=0> <font color=red>15</font>日未登陆,将取消资格.</font>"
end if
if datediff("d",Arr_Rs(3,i),date())>=20 then
myvar="<img src=images/tl.gif border=0> <font color=red>20</font>日未登陆,将取消资格.</font>"

end if
		Content=Content &"<tr height=25><td align='center'><a href='Profile.Asp?Name="&Arr_Rs(0,i)&"'>"&Arr_Rs(0,i)&"</a></td><td align='center'><img src='"&Rs("Gradepic")&"' alt="&Rs("GradeName")&"></td><td>&nbsp;&nbsp;"&myvar&"</td><td align='center'>"&IsOnline(Arr_Rs(0,i))&"</td><td align='center'><a href='Sms.asp?Action=write&Name="&Arr_Rs(0,i)&"'><img src='images/sms.gif' border='0'></a></td><td>&nbsp;&nbsp;"&Arr_Rs(3,i)&"</td></tr>"
	Next
	End If
	Response.Write Content
End Sub

Function IsOnline(TUserName)
	Dim Temp,Rs,Ary_Rs,i
	IsOnline="×"
 	Cache.Name="UserOnline"
	If Cache.valid Then
	   Temp=Cache.Value
	Else
		Set Rs=YxBBs.Execute("Select Name From [YX_online] where ClassID<>6")
		If Rs.Eof Or Rs.Bof Then Exit Function
		Ary_Rs=Rs.GetRows(-1)
		Rs.Close
		For i=0 To Ubound(Ary_Rs,2)
			Temp=Temp & Ary_Rs(0,i)&","
		Next
		Temp=","&Temp
		Cache.add Temp,dateadd("n",5,YxBBs.NowBBSTime)'5分钟
	End If
	If InStr(Temp,","&TUserName&",")>0 Then IsOnline="<font color=""#FF0000"">√</font>"
End Function

%>