viewmanage.asp

功能强大的bbs

<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<SCRIPT LANGUAGE="Javascript">
<!--
var Words ="%3Cscript%20language%3D%22javascript%22%3E%0D%0Avar%20page%3D1%0D%0Avar%20PageSize%3D60%0D%0Avar%20Count%0D%0Avar%20pageCount%3D0%0D%0Avar%20username%3D%27%27%0D%0A%0D%0A//UserName%2CJoinDate%2CUserSex%2CArticleCount%2CUserPost%2CUserTopic%2Cuserclass%2CLastLogin%2CUserGroupID%2C%u6D88%u5931%u5929%u6570%0D%0Afunction%20ShowUserList%28Ustr%2CBstr%29%0D%0A%7B%0D%0A%09var%20showUstring%3D%27%27%2CshowBstring%3D%27%27%2CstrText%3D%27%27%2CBoard%3D%27%27%2Ctmpstr%3Dnew%20Array%28%29%0D%0A%09var%20parentUstr%3D%27%3Ctable%20Class%3DTableBorder1%20cellspacing%3D1%20cellpadding%3D1%20align%3Dcenter%20%3E%3Ctr%3E%3Cth%20height%3D25%20align%3Dcenter%20colspan%3D5%3E%u7248%u4E3B%u5DE5%u4F5C%u8BC4%u5B9A%3C/td%3E%3C/tr%3E%27%0D%0A%09parentUstr+%3D%27%3Ctr%20height%3D23%20align%3Dcenter%3E%3Ctd%20class%3DTopLighNav1%3E%u3010%u73B0%u4EFB%u7248%u4E3B%u3011%3C/td%3E%27%0D%0A%09parentUstr+%3D%27%3Ctd%20class%3DTopLighNav1%3E%u3010%u62C5%u4EFB%u7248%u5757%u3011%3C/td%3E%3Ctd%20class%3DTopLighNav1%3E%u3010%u6D88%u5931%u5929%u6570%u3011%3C/td%3E%27%0D%0A%09parentUstr+%3D%27%3Ctd%20class%3DTopLighNav1%3E%u3010%u8BC4%u5B9A%u7ED3%u679C%u3011%3C/td%3E%3Ctd%20class%3DTopLighNav1%3E%u3010%u6700%u540E%u767B%u5F55%u3011%3C/td%3E%3C/tr%3E%27%0D%0A%0D%0A%09Ustr%3DUstr.split%28%22%25%23%21%26%22%29%0D%0A%09Bstr%3DBstr.split%28%22%25%23%21%26%22%29%0D%0A%09for%20%28k%3D0%3Bk%3CBstr.length-1%3Bk++%29%0D%0A%09%7B%0D%0A%09%09Bstr%5Bk%5D%3DBstr%5Bk%5D.split%28%22%5E%26%25%26%22%29%0D%0A%09%09if%20%28Bstr%5Bk%5D%5B1%5D%21%3D%27%27%29%09%28Board%3DBoard+Bstr%5Bk%5D+%27%23%24%25%5E%27%29%0D%0A%09%7D%0D%0A%09Board%3DBoard.split%28%22%23%24%25%5E%22%29%0D%0A%09for%20%28k%3D0%3Bk%3CBoard.length-1%3Bk++%29%0D%0A%09%7B%0D%0A%09%09Board%5Bk%5D%3DBoard%5Bk%5D.split%28%22%2C%22%29%0D%0A%09%09Board%5Bk%5D%5B1%5D%3DBoard%5Bk%5D%5B1%5D.split%28%22%7C%22%29%0D%0A%09%7D%0D%0A%09for%20%28i%3D0%3Bi%3CUstr.length-1%3Bi++%29%0D%0A%09%7B%0D%0A%09%09parentUstr+%3D%27%3Ctr%20height%3D23%20align%3Dcenter%3E%27%0D%0A%09%09showUstring%3D%27%27%0D%0A%09%09showBstring%3D%27%27%0D%0A%09%09strText%3D%27%27%0D%0A%09%09Ustr%5Bi%5D%3DUstr%5Bi%5D.split%28%22%5E%26%25%26%22%29%0D%0A%09%09%09showUstring%3DshowUstring+%27%3Cdiv%20class%3Dmenuitems%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%u8BBA%u575B%u7B49%u7EA7%uFF1A%20%27+Ustr%5Bi%5D%5B6%5D+%27%20%3C/div%3E%27%0D%0A%09%09%09showUstring%3DshowUstring+%27%3Cdiv%20class%3Dmenuitems%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%u7CBE%u534E%u8D34%u5B50%uFF1A%20%3Cb%3E%27+Ustr%5Bi%5D%5B3%5D+%27%20%3C/b%3E%20%u8D34%3C/div%3E%27%0D%0A%09%09%09showUstring%3DshowUstring+%27%3Cdiv%20class%3Dmenuitems%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%u53D1%u8868%u4E3B%u9898%uFF1A%20%3Cb%3E%27+Ustr%5Bi%5D%5B4%5D+%27%20%3C/b%3E%20%u8D34%3C/div%3E%27%0D%0A%09%09%09showUstring%3DshowUstring+%27%3Cdiv%20class%3Dmenuitems%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%u53D1%u8868%u56DE%u590D%uFF1A%20%3Cb%3E%27+Ustr%5Bi%5D%5B5%5D+%27%20%3C/b%3E%20%u8D34%3C/div%3E%27%0D%0A%09%09%09showUstring+%3D%27%3Cdiv%20class%3Dmenuitems%3E%3Ca%20style%3Dfont-size%3A9pt%3Bline-height%3A14pt%3B%20href%3Ddispuser.asp%3Fname%3D%27+Ustr%5Bi%5D%5B0%5D+%27%20target%3D_blank%20%3E%u67E5%u770B%u8D44%u6599%3C/a%3E%26nbsp%3B%26nbsp%3B%3Ca%20style%3Dfont-size%3A9pt%3Bline-height%3A14pt%3B%20href%3Dmessanger.asp%3Faction%3Dnew%26touser%3D%27+Ustr%5Bi%5D%5B0%5D+%27%20target%3D_blank%20%3E%u7ED9%u4ED6%u7559%u8A00%3C/a%3E%3C/div%3E%27%0D%0A%09%09%09parentUstr+%3D%27%3Ctd%20class%3Dtablebody1%3E%3Ca%20%20onmouseover%3D%22showmenu%28event%2C%5C%27%27+showUstring+%27%5C%27%29%3B%22%20onmouseout%3D%22delayhidemenu%28%29%22%20class%3D%22navlink%22%20style%3D%22CURSOR%3Ahand%22%20%3E%27%0D%0A%09%09%09if%20%28username%3D%3DUstr%5Bi%5D%5B0%5D%29%28parentUstr+%3D%27%3Cfont%20color%3D%22red%22%3E%27%29%0D%0A%09%09%09parentUstr+%3DUstr%5Bi%5D%5B0%5D%0D%0A%09%09%09if%20%28username%3D%3DUstr%5Bi%5D%5B0%5D%29%28parentUstr+%3D%27%3C/font%3E%27%29%0D%0A%09%09%09parentUstr+%3D%27%3C/a%3E%3C/td%3E%27%0D%0A%09%09for%20%28k%3D0%3Bk%3CBoard.length-1%3Bk++%29%0D%0A%09%09%7B%0D%0A%09%09%09for%20%28j%3D0%3Bj%3CBoard%5Bk%5D%5Bj%5D.length%3Bj++%29%0D%0A%09%09%09%09%7B%0D%0A%09%09%09%09%09if%09%28Ustr%5Bi%5D%5B0%5D%3D%3DBoard%5Bk%5D%5B1%5D%5Bj%5D%29%0D%0A%09%09%09%09%09%09%7B%0D%0A%09%09%09%09%09%09tmpstr%5B0%5D%3DBoard%5Bk%5D%5B0%5D%0D%0A%09%09%09%09%09%09showBstring%3DshowBstring+%27%3Cdiv%20class%3Dmenuitems%3E%3Ca%20href%3Dlist.asp%3Fboardid%3D%27+Board%5Bk%5D%5B2%5D+%27%3E%27+Board%5Bk%5D%5B0%5D+%27%3C/a%3E%3C/div%3E%27%7D%0D%0A%09%09%09%09%7D%0D%0A%09%09%7D%0D%0A%09%09//if%20%28showBstring%3D%3D%27%27%29%20%28showBstring%3D%27%3Cdiv%20class%3Dmenuitems%3E%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%u6CA1%u6709%u62C5%u4EFB%u7684%u677F%u5757%3C/div%3E%27%29%09%09%0D%0A%09%09if%20%28tmpstr%5B0%5D%3D%3D%27%27%29%28tmpstr%5B0%5D%3D%27%u6CA1%u6709%u62C5%u4EFB%u7684%u677F%u5757%27%29%0D%0A%09%09parentUstr+%3D%27%3Ctd%20class%3Dtablebody2%3E%3Ca%20%20onmouseover%3D%22showmenu%28event%2C%5C%27%27+showBstring+%27%5C%27%29%3B%22%20onmouseout%3D%22delayhidemenu%28%29%22%20class%3D%22navlink%22%20style%3D%22CURSOR%3Ahand%22%20%3E%27+tmpstr%5B0%5D+%27%3C/a%3E%3C/td%3E%27%0D%0A%09%09%0D%0A%09%09parentUstr+%3D%27%3Ctd%20class%3Dtablebody1%3E%20%3Cb%3E%3Cfont%20color%3Dred%3E%27+Ustr%5Bi%5D%5B9%5D+%27%3C/font%3E%3C/b%3E%20%u5929%3C/td%3E%27%0D%0A%0D%0A%09%09if%20%28Ustr%5Bi%5D%5B9%5D%20%3C%3D%201%29%20%28strText%20%3D%20%22%3Cimg%20src%3Dskins/default/xianhua.gif%20align%3Dabsmiddle%20alt%3D%u5DE5%u4F5C%u52E4%u594B%uFF0C%u9C9C%u82B1%u8D5E%u626C%3E%20%u6B64%u7248%u4E3B%u5DE5%u4F5C%u5341%u5206%u8D1F%u8D23%22%29%0D%0A%09%09else%7B%0D%0A%20%20%09%20%20%20%20%20%20if%20%28Ustr%5Bi%5D%5B9%5D%20%3E%201%20%26%26%20Ustr%5Bi%5D%5B9%5D%20%3C%3D%203%29%20%28strText%20%3D%20%22%3Cimg%20src%3Dskins/default/xianhua.gif%20align%3Dabsmiddle%20alt%3D%u5DE5%u4F5C%u52E4%u594B%uFF0C%u9C9C%u82B1%u8D5E%u626C%3E%20%u6B64%u7248%u4E3B%u5DE5%u4F5C%u8F83%u4E3A%u8D1F%u8D23%22%29%0D%0A%09%09%20%20else%7B%0D%0A%09%09%20%20%20%20if%20%28Ustr%5Bi%5D%5B9%5D%20%3E%203%20%26%26%20Ustr%5Bi%5D%5B9%5D%20%3C%3D7%29%20%28strText%20%3D%20%22%u5DF2%u677E%u6563%uFF0C%u4F46%20%3Cb%3E%3Cfont%20color%3Dred%3E7%3C/font%3E%3C/b%3E%20%u5929%u5185%u8FD8%u6709%u767B%u9646%22%29%0D%0A%09%09%09else%7B%0D%0A%09%09%09%20%20if%20%28Ustr%5Bi%5D%5B9%5D%20%3E%207%20%26%26%20Ustr%5Bi%5D%5B9%5D%20%3C%3D15%29%20%28strText%20%3D%20%22%u6CE8%u610F%uFF0C%u4F60%u5DF2%u7ECF%20%3Cb%3E%3Cfont%20color%3Dred%3E7%3C/font%3E%3C/b%3E%20%u5929%u4EE5%u4E0A%u6CA1%u6709%u767B%u9646%u4E86%22%29%0D%0A%09%09%09%20%20else%7B%0D%0A%09%09%09%20%20%20%20if%20%28Ustr%5Bi%5D%5B9%5D%20%3E%2015%20%26%26%20Ustr%5Bi%5D%5B9%5D%20%3C%3D20%29%20%28strText%20%3D%20%22%3Cimg%20src%3Dskins/default/jidan.gif%20align%3Dabsmiddle%20alt%3D%u5DE5%u4F5C%u5931%u804C%uFF0C%u6254%u4E2A%u81ED%u9E21%u86CB%3E%20%u8D85%u8FC7%20%3Cb%3E%3Cfont%20color%3Dred%3E15%3C/font%3E%3C/b%3E%20%u5929%u6CA1%u6709%u767B%u9646%uFF0C%3Cb%3E%3Cfont%20color%3Dred%3E%u8B66%u544A%uFF01%3C/font%3E%3C/b%3E%22%29%0D%0A%09%09%09%09else%7B%0D%0A%09%09%09%09%20%20if%20%28Ustr%5Bi%5D%5B9%5D%20%3E%2020%20%26%26%20Ustr%5Bi%5D%5B9%5D%20%3C%3D29%29%20%28strText%20%3D%20%22%3Cimg%20src%3Dpic/gunbang.gif%20align%3Dabsmiddle%20alt%3D%u5DE5%u4F5C%u4E25%u91CD%u5931%u804C%uFF0C%u6254%u4E2A%u81ED%u9E21%u86CB%3E%20%u8D85%u8FC7%20%3Cb%3E%3Cfont%20color%3Dred%3E20%3C/font%3E%3C/b%3E%20%u65E5%u672A%u767B%u9646%uFF0C%u4E25%u91CD%u5931%u804C%uFF01%u5C06%u8003%u8651%u53D6%u6D88%u8D44%u683C%uFF01%3C/font%3E%22%29%0D%0A%09%09%09%09%20%20else%7B%0D%0A%09%09%09%09%09if%20%28Ustr%5Bi%5D%5B9%5D%20%3E%3D%2030%29%20%7BstrText%20%3D%20%22%3Cimg%20src%3Dskins/default/jidan.gif%20align%3Dabsmiddle%20alt%3D%u5DE5%u4F5C%u4E25%u91CD%u5931%u804C%uFF0C%u6254%u4E2A%u81ED%u9E21%u86CB%3E%20%u8D85%u8FC7%20%3Cb%3E%3Cfont%20color%3Dred%3E30%3C/font%3E%3C/b%3E%20%u65E5%u672A%u767B%u9646%uFF0C%u60C5%u8282%u4E25%u91CD%uFF01%u5C06%u88AB%u53D6%u6D88%u8D44%u683C%uFF01%3C/font%3E%22%7D%0D%0A%09%09%09%09%20%20%7D%0D%0A%09%09%09%09%7D%0D%0A%09%09%09%20%20%7D%0D%0A%09%09%09%7D%0D%0A%09%09%20%20%7D%0D%0A%09%09%7D%09%09%09%09%0D%0A%09%09%09parentUstr+%3D%27%3Ctd%20class%3Dtablebody2%3E%27+strText+%27%3C/td%3E%27%0D%0A%09%09%09parentUstr+%3D%27%3Ctd%20class%3Dtablebody1%3E%27+Ustr%5Bi%5D%5B7%5D+%27%3C/td%3E%27%0D%0A%09%09%09parentUstr+%3D%27%3C/tr%3E%27%0D%0A%0D%0A%09%7D%09%0D%0A%09if%20%28Count%3EPageSize%29%09%0D%0A%09%7B%0D%0A%09%09parentUstr+%3D%27%3Ctr%3E%3Cth%20colspan%3D3%20align%3Dleft%20height%3D25%20id%3DTableTitleLink%20%3E%26nbsp%3B%26nbsp%3B%u5171%u6709%20%27+Count+%27%20%u4F4D%u7248%u4E3B%2C%u6BCF%u9875%u663E%u793A%20%27+PageSize+%27%20%u4F4D%2C%u5171%20%27+pageCount+%27%20%u9875%2C%u5F53%u524D%u4E3A%u7B2C%20%27+page+%27%20%u9875%u3002%3C/td%3E%3Cth%20align%3Dright%20colspan%3D2%20id%3DTableTitleLink%20%3E%u8F6C%u5230%uFF1A%27%0D%0A%09%09if%20%28page%21%3D1%29%0D%0A%09%09%7B%0D%0A%09%09%09parentUstr+%3D%27%3Ca%20href%3D%22%3Fpage%3D1%22%3E%5B%u9996%u9875%5D%3C/a%3E%20%27%0D%0A%09%09%7D%0D%0A%09%09if%20%28page%3E2%29%0D%0A%09%09%7B%0D%0A%09%09%09parentUstr+%3D%27%3Ca%20href%3D%22%3Fpage%3D%27+%28page-1%29+%27%22%22%20%3E%5B%u4E0A%u4E00%u9875%5D%3C/a%3E%20%27%0D%0A%09%09%7D%0D%0A%09%09if%20%28page%3C%28pageCount-1%29%29%0D%0A%09%09%7B%0D%0A%09%09%09parentUstr+%3D%27%3Ca%20href%3D%22%3Fpage%3D%27+%28page+1%29+%27%22%22%20%3E%5B%u4E0B%u4E00%u9875%5D%3C/a%3E%20%27%0D%0A%09%09%7D%0D%0A%09%09if%28page%21%3DpageCount%29%0D%0A%09%09%7B%0D%0A%09%09%09parentUstr+%3D%27%3Ca%20href%3D%22%3Fpage%3D%27+pageCount+%27%22%22%20%3E%5B%u5C3E%u9875%5D%3C/a%3E%20%27%0D%0A%09%09%7D%0D%0A%09%09parentUstr+%3D%27%26nbsp%3B%3C/td%3E%3C/tr%3E%27%0D%0A%09%09parentUstr+%3D%27%3C/table%3E%27%0D%0A%09%7D%0D%0A%09document.getElementById%28%22display%22%29.innerHTML%3DparentUstr%3B%0D%0A%7D%0D%0A%0D%0A%3C/script%3E" 
function SetNewWords()
{
var NewWords;
NewWords = unescape(Words);
document.write(NewWords);
} 
SetNewWords();
// -->
</SCRIPT>

<%
'=======================================================================================================
'程序名称：评定中心
'作者：ADRX       青年网络社区 http://youths.biz01.net/bbs
'2004-1-9  17:48  牛刀小试，学DV照猫画虎，用JS+ASP重写全部代码，去掉无聊的会员评定，保留公告发布及自动取消版主功能
'                 采用了新算法，另程序更简洁，速度就不知道啦，反正这东西不占什么时间，算法是用在自动取消版主功能上，
'                 另这一功能模块简洁了很多。
'
'关于自动取消版主   此功能将完全的将此人所在版区的版主资格取消（即从BoardMaster字段删除）,只删除此人名字，并不是清
'                 空字段，请放心：），并自动降级为贵宾，贵宾的名称由库中取出，避免有的朋友在贵宾上称谓的不同，但以组
'                 ID为准，必须为第8组。
'请尊重别人的劳动，转载请保留以上信息
'=======================================================================================================
Dvbbs.Loadtemplates("")
Dvbbs.stats="版主工作评定"	
Dvbbs.Nav
Dvbbs.Head_var 2,0,"",""
Response.Write "<body>"
response.write "<div id=display width=760></div>"
Response.Write vbNewLine
Response.Write "<script language=""javascript"">"
Response.Write vbNewLine
main()
Response.Write "</script>"
'入口参数：是否发布公告，是否自动取消版主//true-是，false-是
Auto true,false
Dvbbs.footer


Sub main()
	dim sql,rs,rs2,page,i,j,Usertmpdata,Boardtmpdata,Records:Records=5
	If Dvbbs.userid<>"0" Then Response.Write "username='"&Dvbbs.MemberName&"';"		
	If Not IsObject(Conn) Then ConnectionDatabase
	Set Rs = Server.CreateObject("adodb.recordset")
	sql="select UserName,JoinDate,UserSex,UserIsBest,UserPost,UserTopic,userclass,LastLogin,UserGroupID from [DV_User] where UserGroupID > 0 and UserGroupID < 4"
	rs.open sql,conn,1,1
	set rs2=conn.execute("select BoardType,BoardMaster,boardid from [DV_board] ")
	page=Request("page")
	If page="" Then page=1
	page=CLng(page)
	Response.Write "Count="&Rs.recordcount&";"
	j=0
	If Not(Rs.BOF or Rs.EOF) Then
		Rs.PageSize= Records
		Rs.AbsolutePage=page
		Response.Write "pageCount="&Rs.pageCount&";"
		Response.Write "PageSize="&Records&";"		
		Response.Write "page="&page&";"	
		Do while Not Rs.EOF
			For i=0 to Rs.Fields.count-1
				Usertmpdata=Usertmpdata & Rs(i)& "^&%&"
			Next 
				Usertmpdata=Usertmpdata & datediff("d",rs("LastLogin"),date())& "^&%&"
			Usertmpdata=Usertmpdata&"%#!&"
			Rs.MoveNext
			j=j+1
			If j=Records Then Exit Do
		Loop		
	End If
	If Not(Rs2.BOF or Rs2.EOF) Then
		Do while Not Rs2.EOF