📄 admin_confirm.asp

📁 BBS源码利用ASP的一个功能齐全的BBS论坛源码
💻 ASP
📖 第 1 页 / 共 5 页
字号:
	Response.Write "<script>BBS94KKimg.width=" & Fix((i/sum) * 400) & ";" & VbCrLf
	Response.Write "BBS94KKtxt.innerHTML=""" & FormatNumber(i/sum*100,4,-1) & """;" & VbCrLf
	Response.Write "BBS94KKT.innerHTML="""& StrTxt & """;"& VbCrLf
	Response.Write "</script>" & VbCrLf
	Response.Flush
End Sub
Sub EditLink
	Dim BbsName,Url,Pic,Readme,Admin,ID,Pass,IsPic
	ID=BBS94KK.Fun.GetStr("id")
	BbsName=BBS94KK.Fun.GetStr("bbsname")
	Url=BBS94KK.Fun.ubbg(BBS94KK.Fun.GetStr("url"))
	Pic=BBS94KK.Fun.GetStr("pic")
	Readme=BBS94KK.Fun.GetStr("Readme")
	Admin=BBS94KK.Fun.GetStr("admin")
	Pass=BBS94KK.Fun.GetStr("pass")
	IsPic=BBS94KK.Fun.GetStr("ispic")	
	If BbsName=""  or url=""  then
		Call GoBack("","")
		Exit Sub
	ElseIf Not BBS94KK.Fun.CheckName(BbsName) Or (Admin<>"" And Not BBS94KK.Fun.CheckName(Admin)) Then
		Call GoBack("","请不要使用了非法字符")
		Exit Sub
	End if
	BBS94KK.execute("Update [KK_Link]Set Url='"&Url&"',Pic='"&Pic&"',BbsName='"&BbsName&"',Readme='"&Readme&"',Admin='"&Admin&"',pass="&pass&",IsPic="&IsPic&" where ID="&ID&"")
	SetLinkjs
	Call Suc("","修改论坛联盟连接成功！","Admin_Action.asp?action=BbsLink")
End Sub

Sub DelLink
	Dim ID
	ID=request.querystring("ID")
	IF  Not isnumeric(ID) Then
		Call GoBack("","提交的参数不正确！")
	Else
		BBS94KK.execute("delete from [KK_link] where ID="&ID&"")
		SetLinkjs
		Call Suc("","删除论坛联盟连接成功！","Admin_Action.asp?action=BbsLink")
	End If
End Sub

Sub DelIP
	Dim ID
	ID=Int(Request("ID"))
	BBS94KK.Execute("Delete From[KK_LockIP] Where ID="&ID&"")
	Cache.Name="IPData"
	Cache.clean()
	Response.redirect "Admin_Action.asp?Action=LockIp"
End Sub

Sub AddIp
	Dim StartIP,EndIP,Readme
	StartIp=BBS94KK.Fun.GetStr("StartIp")
	EndIp=BBS94KK.Fun.GetStr("EndIp")
	Readme=BBS94KK.Fun.GetStr("Readme")
	If StartIp="" Then
		Call GoBack("","")
		Exit Sub
	End If
	if EndIp="" then EndIp=StartIp
	BBS94KK.execute("Insert into [KK_LockIp](StartIp,EndIp,Readme,lock)values("&BBS94KK.Fun.IpEncode(StartIp)&","&BBS94KK.Fun.IpEncode(EndIp)&",'"&Readme&"',true)")
	Call Suc("网段封锁成功","倒霉的孩子的IP已经被封!","Admin_Action.asp?action=LockIp")
	Cache.Name="IPData"
	Cache.clean()
End Sub

Sub EditIp
	Dim ID,StartIP,EndIP,Readme
	ID=BBS94KK.Fun.GetStr("ID")
	StartIp=BBS94KK.Fun.GetStr("StartIp")
	EndIp=BBS94KK.Fun.GetStr("EndIp")
	Readme=BBS94KK.Fun.GetStr("Readme")
	If StartIp="" Then
		Call GoBack("",""):Exit Sub
	End If
	If EndIp="" then EndIp=StartIp
	BBS94KK.execute("update [KK_LockIp]Set StartIp="&BBS94KK.Fun.IpEncode(StartIp)&",EndIp="&BBS94KK.Fun.IpEncode(EndIp)&",Readme='"&Readme&"' where ID="&ID&"")
	Call Suc("","修改封锁IP成功!","Admin_Action.asp?Action=LockIp")
	Cache.Name="IPData"
	Cache.clean()
End Sub

Sub LockIp
	Dim ID,IsLock
	ID=Int(Request("ID"))
	IsLock=BBS94KK.Execute("Select Lock From[KK_LockIp] where Id="&ID&"")(0)
	If IsLock Then
		BBS94KK.Execute("update [Kk_LockIp] set Lock=False where Id="&ID&"") 
	Else
		BBS94KK.Execute("update [Kk_LockIp] set Lock=True where Id="&ID&"") 
	End IF
	Cache.Name="IPData"
	Cache.clean()
	Response.redirect "Admin_Action.asp?Action=LockIp"
End Sub

Sub AuteSqlTable
	Dim Aute,Temp,AllTable,i
	Aute=BBS94KK.Fun.GetStr("Aute")
	AllTable=Split(BBS94KK.BBSTable(0),",")
	Temp=""
	For i=0 To uBound(AllTable)
		If Aute=AllTable(i) Then Temp="yes"
	Next
	If Temp="" Then
		Call Goback("系统出错","无效的数据表名称！"):Exit Sub
	End If
	IF Int(Aute)<>Int(BBS94KK.BBSTable(1)) Then
		Temp=BBS94KK.BBSTable(0)&"|"&Int(Aute)
		BBS94KK.execute("Update [KK_Config] Set BbsTable='"&Temp&"' ")
	End If
	Cache.name="Config"
	Cache.clean()
	Call Suc("","更改论坛默认数据表成功！","Admin_Action.asp?Action=SqlTable")
End Sub

Sub AddSqlTable
	Dim TableName,AllTable,I,Temp
	TableName=BBS94KK.Fun.GetStr("TableName")
	If not BBS94KK.Fun.isInteger(TableName) then
		Call GoBack("","请用正整数的数字填写！")
		Exit Sub
	End If
	If Int(TableName)=0 Then
		Call GoBack("","数据表名不能为0")
		Exit Sub
	End If
	AllTable=Split(BBS94KK.BBSTable(0),",")
	For i=0 To uBound(AllTable)
	If Int(TableName)=Int(AllTable(i)) then
		Call GoBack("","数据表名已经存在！")
		Exit Sub
	End if
	Next
	Temp=BBS94KK.BBSTable(0)&","&TableName&"|"&BBS94KK.BBSTable(1)
	BBS94KK.execute("update [KK_config] Set BbsTable='"&Temp&"'")
	BBS94KK.execute("CREATE TABLE [KK_bbs"&TableName&"](BbsID int IDENTITY (1, 1) NOT NULL CONSTRAINT PrimaryKey PRIMARY KEY,TopicID int default 0,ReplyTopicID int default 0,BoardID int default 0,Name varchar(20),Caption varchar(255),Content text,Face int Default 0,AddTime Datetime,LastTime datetime,IsDel bit,Buyer text,Ip varchar(40),IsAppraise bit,UbbString varchar(255))")
	BBS94KK.execute("create index TopicID on [KK_bbs"&TableName&"] (TopicID)")
	BBS94KK.execute("create index BoardID on [KK_bbs"&TableName&"] (BoardID)")
	BBS94KK.execute("create index ReplyTopicID on [KK_bbs"&TableName&"] (ReplyTopicID)")
	Cache.name="Config"
	Cache.clean()
	Call Suc("","成功的添加了 KK_Bbs"&TableName&" 数据表！","Admin_Action.Asp?Action=SqlTable")
End Sub

Sub DelSqlTable
	Dim ID,Temp,AllTable,I
	ID=request.querystring("ID")
	If int(ID)=int(BBS94KK.BBSTable(1)) Then
		Call GoBack("","该表被设定为默认使用表，不能删除！")
		Exit Sub
	End if
	AllTable=Split(BBS94KK.BBSTable(0),",")
	Temp=""
	For i=0 To uBound(AllTable)
		If int(ID)=Int(AllTable(i)) Then Temp="yes"
	Next
	If Temp="" Then
		Call Goback("系统出错","无效的数据表名称！"):Exit Sub
	End If
	Temp=""
	For i=0 To uBound(AllTable)
		If Int(ID)<>int(AllTable(i)) then
			Temp=Temp&AllTable(i)&","
		End if
	Next
	Temp=Left(Temp,len(Temp)-1)
	Temp=Temp&"|"&BBS94KK.BBSTable(1)
	BBS94KK.execute("update [KK_Config] Set BbsTable='"&Temp&"'")
	BBS94KK.Execute("Drop table [KK_bbs"&ID&"]")
	BBS94KK.Execute("Delete*From [KK_Topic] where SqlTableID="&ID&"")
	Cache.name="Config"
	Cache.clean()
	Call Suc("","成功的删除名称为 KK_Bbs"&ID&" 的数据表！同时也删除了该数据表的所有帖子！","Admin_Action.asp?Action=SqlTable")
End Sub

Sub AddTopAdmin
	Dim TopAdminName,Flag
	TopAdminName=BBS94KK.Fun.GetStr("Name")
	Flag=BBS94KK.Fun.GetStr("Flag")
	If TopAdminName="" Then
		Call GoBack("",""):Exit Sub
	End If
	Set Rs=BBS94KK.execute("Select Name,password From[KK_user] where name='"&TopAdminName&"'")
	If Rs.eof Then
		Call GoBack("","不能添加管理员，该用户名称还没有注册。")
	ElseIf Not BBS94KK.Execute("select Name From[KK_Admin] where BoardID<1 and Name='"&TopadminName&"'").eof Then
		Call GoBack("","该用户已经是管理员！")
	Else
	 BBS94KK.execute("Insert into[KK_Admin](name,[password],BoardID)values('"&Rs(0)&"','"&Rs(1)&"',"&Flag&")")
	 Call UpdateGrade(TopadminName)
	 Call Suc("","成功添加了管理员 "&TopadminName&" !","Admin_Action.asp?Action=TopAdmin")
	End If
	Rs.Close
End Sub

Sub DelTopAdmin
	Dim TopAdminName
	TopAdminName=Trim(Replace(Request("name"),"'",""))
	BBS94KK.Execute("Delete From[KK_Admin] where BoardID<1 And Name='"&TopAdminName&"'")
	Call UpdateGrade(TopadminName)
	Response.redirect "Admin_Action.asp?Action=TopAdmin"
End Sub

Sub AddVip
	Dim VipName
	VipName=BBS94KK.Fun.GetStr("Name")
	If VipName="" Then
		Call GoBack("",""):Exit Sub
	End IF
	Set Rs=BBS94KK.execute("Select Name,isVip From[KK_user] where name='"&VipName&"'")
	If Rs.eof Then
		Call GoBack("","不能添加VIP用户，该用户名称还没有注册。")
	ElseIf Rs(1) Then
		Call GoBack("","该用户已经是VIP用户了。")
	Else
	 BBS94KK.execute("update [KK_User]Set IsVip=true where name='"&VipName&"'")
	 Call Suc("","成功升级了会员 "&VIPName&" 为Vip会员!","Admin_Action.asp?Action=Vip")
	End If
	Rs.Close
End Sub

Sub DelVip
	Dim VipName
	VipName=Trim(Replace(Request("name"),"'",""))
	BBS94KK.Execute("Update [KK_User] Set IsVip=False where IsVip And Name='"&VIPName&"'")
	Response.redirect "Admin_Action.asp?Action=Vip"
End Sub

Sub BoardAdmin
	Dim BoardAdminName,Flag,BoardID,Temp,temp1,i
	BoardAdminName=BBS94KK.Fun.GetStr("Name")
	Flag=BBS94KK.Fun.GetStr("Flag")
	BoardID=BBS94KK.Fun.GetStr("BoardID")
	If BoardAdminName="" Then
		Call GoBack("","")
		Exit Sub
	ElseIf BoardID="" Then
		Call GoBack("","请先选择管理的论坛版块")
		Exit Sub
	ElseIf Flag="Add" Then
		Set Rs=BBS94KK.execute("Select Name,password From[KK_user] where name='"&BoardAdminName&"'")
		If Rs.eof Then
			Call GoBack("","不能添加版主，该用户名称还没有注册。"):Exit Sub
		ElseIf Not BBS94KK.Execute("select Name From[KK_Admin] where BoardID="&BoardID&" and Name='"&BoardadminName&"'").eof Then
			Call GoBack("","该用户已经是本版的版主了。"):Exit Sub
		Else
			Temp=BBS94KK.Execute("Select BoardAdmin From[KK_Board] where BoardID="&BoardID&"")(0)
			If Temp="" or isnull(Temp) Then
				Temp=BoardAdminName
			Else
				Temp=Temp&"|"&BoardAdminName
			End If
			BBS94KK.execute("Insert into[KK_Admin](name,[password],BoardID)values('"&Rs(0)&"','"&Rs(1)&"',"&BoardID&")")
			BBS94KK.execute("update [KK_Board] Set BoardAdmin='"&Temp&"' where BoardID="&BoardID)
			Call UpdateGrade(BoardAdminName)
			Call Suc("","成功的添加了版主 "&BoardAdminName&" !","Admin_Action.asp?Action=BoardAdmin")
		End If
		Rs.Close
	ElseIF BBS94KK.Execute("select Name From[KK_Admin] where BoardID="&BoardID&" and Name='"&BoardadminName&"'").eof Then
		Call GoBack("","该用户不是管理这个版面的版主！"):Exit Sub
	Else
		Temp=BBS94KK.Execute("Select BoardAdmin From[KK_Board] where BoardID="&BoardID&"")(0)
		Temp=split(Temp,"|")
		For i=0 To uBound(temp)
			IF lcase(BoardAdminName)<>lcase(Temp(i)) Then Temp1=Temp1&Temp(i)&"|"
		Next
		If Temp1<>"" THen Temp1=left(Temp1,len(Temp1)-1)
		BBS94KK.Execute("Delete From[KK_Admin] where BoardID="&BoardID&" And Name='"&BoardadminName&"'")
		BBS94KK.Execute("Update [KK_Board] Set BoardAdmin='"&Temp1&"' where BoardID="&BoardID&"")
		Call UpdateGrade(BoardAdminName)
		Call Suc("","成功撤消了版主 "&BoardAdminName&" 的职位！","Admin_Action.asp?Action=BoardAdmin")
	End if
		Cache.Name="BoardInfo"
		Cache.clean()
End Sub
'更新用户的级别
Function UpdateGrade(UserName)
	Dim Temp
💿 文件大小 447 K
👤 上传用户 csytml
📂 所属分类通讯编程文档
🏷️ 相关标签

#BBS #ASP #源码 #论坛
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -