📄 admin_confirm.asp

📁 BBS源码利用ASP的一个功能齐全的BBS论坛源码
💻 ASP
📖 第 1 页 / 共 5 页
字号:
12 3 4 5 下一页
<!--#include file="Admin_Check.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%Server.ScriptTimeout=9999999
Dim Action
AdminHead()
Action=Lcase(request.querystring("Action"))
Select Case Action
Case"bbsinfo"
	Response.flush
	Call BbsInfo()
Case"gapad"
	Gapad
Case"updatelink"'论坛连盟
	UpdateLink
Case"addlink"
	Response.flush
	AddLink
Case"editlink"
	Response.flush
	EditLink
Case"dellink"
	DelLink
Case"autesqltable"
	Response.flush
	AuteSqlTable
Case"addsqltable"
	Response.flush
	AddSqlTable
Case"delsqltable"
	Response.flush
	DelSqlTable
Case"lockip"
	LockIp	
Case"addip"
	AddIp
Case"editip"
	EditIp	
Case"delip"
	DelIp
Case"addtopadmin"
	AddTopAdmin
Case"deltopadmin"	
	DelTopAdmin
Case"addtopadmin"
	AddTopAdmin
Case"delvip"
	DelVip
Case"addvip"
	AddVip
Case"boardadmin"
	BoardAdmin
Case"deluser"
	DelUser
Case"recalluser"
	RecallUser
Case"updateusercm"'更新金钱积分
	UpdateUserCM
Case"updateuserpw"'更新密码
	UpdateUserPw
Case"updateusername"
	UpdateUserName
Case"updateusershow"
	UpdateUserShow
Case"updateusersign"
	UpdateUserSign
Case"updateuserhonor"
	UpdateUserHonor
Case"updatebbsdate"
	UpdateBbsDate
Case"updatetopic"
	UpdateTopic
Case"updatealluser"
	UpdateAllUser
Case"delwuiong"
	DelWuiong
Case"compressdata"
	Call CompressData()
Case"backupdate"
	Call BackupDate()
Case"restoredata"
	Call RestoreData()
Case"executesql"
	ExecuteSql
Case"savegradename"
	SaveGradeName
Case"delessay"
	DelEssay
Case"delsms"
	DelSms
Case"moveessay"
	MoveEssay
Case"allsms"
	AllSms
Case "saveplus"
	SavePlus
Case "delplus"
	DelPlus
Case "delfaction"
	DelFaction
Case  "updatefaction"
	UpdateFaction
Case "bank"
	Bank
Case "delbankplacard"
	DelBankPlacard
Case "clean"
	Clean
End select
AdminFooter()

Sub SaveGradeName
Dim I,Temp
For I = 0 to 20
	IF Trim(BBS94KK.Fun.GetStr("Grade_"&i))="" Then
		Call GoBack("","")
		Exit Sub
	End If
	Temp=Temp&Trim(BBS94KK.Fun.GetStr("Grade_"&i))&"|"
Next
	Temp=Left(Temp,len(Temp)-1)
	BBS94KK.Execute("Update [KK_Config] Set GradeName='"&Temp&"'")
	Cache.name="Config"
	Cache.clean()
	Call Suc("","论坛用户等级名称修改成功","Admin_Action.Asp?Action=GradeName")
End Sub

Sub BbsInfo()
	Dim I,Temp,IsOpen,BBSPb,UserNum,UploadType,BuildDate,AllEssayNum,TopicNum,MaxEssayNum,MaxOnlineNum,MaxOnlineTime,Hits,BadName,BadEssay,RegAutoSms
	BBSPb="Powe"&"red"
	IsOpen=False
	Temp=""
	For i=0 to 40
		IF i=0 or i=1 Then
			IF BBS94KK.Fun.GetStr("info"&i)="" Then
				Call GoBack("","")
				Exit Sub
			End if		 
		ElseIF I>4 and I<40 Then
			If Not BBS94KK.Fun.isInteger(BBS94KK.Fun.GetStr("info"&i)) then
				Call GoBack("","一些参数必须填为正整数，否则论坛不能正常运行。")
				Exit Sub
			End if
		End if
		Temp=Temp&BBS94KK.Fun.GetStr("info"&i)&"|"
	Next
	BBSPb=BBSPb&" b"&"y：<a h"&"ref=ht"&"tp://"&"ww"
	BuildDate=BBS94KK.Fun.GetStr("builddate")
	UploadType=Replace(BBS94KK.Fun.GetStr("uploadtype"),"&#124;","|")
	BBSPb=BBSPb&"w."&"94kk"&".c"&"om>9"&"4"
	BadName=Replace(BBS94KK.Fun.GetStr("badname"),"&#124;","|")
	BadEssay=Replace(BBS94KK.Fun.GetStr("badessay"),"&#124;","|")
	RegAutoSms=BBS94KK.Fun.GetStr("regautosms")
	BBSPb=BBSPb&"KK"&"BBS"
	IF Request.form("sqlauto")<>"" Then
		IsOpen=True
		Hits=BBS94KK.Fun.GetStr("hits")
		UserNum=BBS94KK.Fun.GetStr("usernum")
		AllEssayNum=BBS94KK.Fun.GetStr("allessaynum")
		TopicNum=BBS94KK.Fun.GetStr("topicnum")
		MaxEssayNum=BBS94KK.Fun.GetStr("maxessaynum")
		MaxOnlineNum=BBS94KK.Fun.GetStr("maxonlinenum")
		MaxOnlineTime=BBS94KK.Fun.GetStr("maxonlinetime")
		If Not BBS94KK.Fun.isInteger(Hits) or Not BBS94KK.Fun.isInteger(UserNum) Or Not BBS94KK.Fun.isInteger(AllEssayNum) or Not BBS94KK.Fun.isInteger(TopicNum) or Not BBS94KK.Fun.isInteger(MaxEssayNum) or Not BBS94KK.Fun.isInteger(MaxOnlineNum) Then
			Call GoBack("","一些参数必须填为正整数，否则论坛不能正常运行。")
		End if
	End If
	Temp=Temp&BBSPb&" 20"&"05</a>"
	IF IsOpen Then
		BBS94KK.execute("update [KK_Config] set Info='"&Temp&"',UpLoadtype='"&UploadType&"',BuildDate='"&BuildDate&"',BadName='"&BadName&"',BadEssay='"&BadEssay&"',RegAutoSms='"&RegAutoSms&"',Hits="&hits&",UserNum="&UserNum&",AllEssayNum="&AllEssayNum&",TopicNum="&TopicNum&",MaxEssayNum="&MaxEssayNum&",MaxOnlineNum="&MaxOnlineNum&",MaxOnlineTime='"&MaxOnlineTime&"'")
	Else
		BBS94KK.execute("update [KK_Config] set Info='"&Temp&"',UpLoadtype='"&UploadType&"',BuildDate='"&BuildDate&"',BadName='"&BadName&"',BadEssay='"&BadEssay&"',RegAutoSms='"&RegAutoSms&"'")
	End If
	Call Suc("修改成功","论坛名称以及其他参数修改成功","Admin_Action.Asp?Action=BbsInfo")
	Cache.name="Config"
	Cache.clean()
End Sub

Sub GapAd
Dim content
If Session(BBS94KK.CacheName&"fso")="no" Then
	Call GoBack("","空间不支持FSO文件读写。无法进入下一步。")
	Exit Sub
End If
	Dim Temp,I,objFSO,objname,TmpStr,ad_num,ad_tmp,adv_num,ii
	Set objFSO = Server.CreateObject("Scr"&"ipting"&".Fil"&"eSy"&"stemOb"&"ject")
	Set objName=objFSO.OpenTextFile(Server.MapPath("inc/ads.js"))
	tmpstr=objName.readall
	temp=split(tmpstr,chr(13)&chr(10))
	ad_num=replace(Temp(1),";if(a==0){a=1}","")
	ad_num=Int(replace(ad_num,"a=",""))
	objName.close
	Set objFSO=nothing
	Content=""
	ii=0
	for i=1 to ad_num+1
		ad_tmp=Replace(Request.form("ad_v"&i&""),"'","")
		if Trim(ad_tmp)<>"" or isnull(ad_tmp)then
		ii=ii+1
		Content=Content&"b["&ii&"].under='"&ad_tmp&"'"&vbcrlf
		end if
	next
	Set objFSO = Server.CreateObject("Scr"&"ipting"&".Fil"&"eSy"&"stemOb"&"ject")
	Set objname=objFSO.CreateTextFile(Server.MapPath("Inc/Ads.js"),True)
	objname.Write"<!--"&vbcrlf&"a="&ii&";if(a==0){a=1}"&vbcrlf&"var slump=Math.random();"&vbcrlf&"var talet=Math.round(slump * (a-1))+1;"&vbcrlf&"function create(){ "&vbcrlf&"this.under=''"&vbcrlf&"}"&vbcrlf&"b=new Array()"&vbcrlf&"for(var i=1; i<=a; i++){b[i]=new create()}"&vbcrlf&Content&"var visa="""";"&vbcrlf&"document.write(b[talet].under+'</center>');"&vbcrlf&"//-->"
	objname.close
	set objfso=nothing
	Response.redirect"Admin_Action.asp?Action=GapAd"
End Sub

Sub UpdateLink
	Dim ID,I,Orders,Pass,IsPic
	For i=1 to request.form("id").count
	ID = Replace(request.form("id")(i),"'","")
	Orders = Replace(request.form("orders")(i),"'","")
	Pass = Replace(request.form("pass"&i&""),"'","")
	IsPic= Replace(request.form("ispic"&i&""),"'","")
	IF Not isnumeric(ID) or Not isnumeric(Orders) Then
		Call GoBack("","请用数字填写!")
		Exit Sub
	End IF
	BBS94KK.Execute("Update [KK_Link]Set Orders="&Orders&",Pass="&pass&",IsPic="&IsPic&" where ID="&ID&"")
	Next
	 SetLinkjs
	Response.Redirect Request.ServerVariables("HTTP_REFERER")
End Sub

Sub SetLinkjs
	Dim i,ii,TempText,TempPic
	If Session(BBS94KK.CacheName&"fso")="no" Then
		Call GoBack("","空间不支持FSO文件读写。无法进入下一步。")
		Exit Sub
	End If
	Set Rs=BBS94KK.Execute("Select ID,Orders,BbsName,Url,pic,Readme,pass,Ispic From[KK_Link] where pass order by orders")
		i=0:ii=0
	do while not rs.eof
	if len(Rs("pic"))<5 or isnull(rs("pic")) or Not Rs("isPic") then
		i=i+1
		TempText=TempText&"<td  align=\""center\""><a target=\""_blank\"" href=\"""&rs("url")&"\"" title=\"""&rs("Readme")&"\"">"&rs("BbsName")&"</a></td>"
		If i=7 Then i=0 : TempText=TempText&"</tr><tr>"
	ElseIF Rs("IsPic") Then
		ii=ii+1
		TempPic=TempPic&"<td align=\""center\""><a target=\""_blank\"" href=\"""&rs("url")&"\""><img src=\"""&rs("pic")&"\"" border=\""0\"" title=\"""&rs("Readme")&"\"" width=\""88\"" height=\""31\""></a></td>"
		If ii=7 Then ii=0 : TempPic=TempPic&"</tr><tr>"
	End if
	Rs.movenext
	loop
	Rs.close
	dim objFSO,objname
	Set objFSO = Server.CreateObject("Scr"&"ipting"&".Fil"&"eSy"&"stemOb"&"ject")
	Set objname=objFSO.CreateTextFile(Server.MapPath("Inc/Link.js"),True)
	objname.Write"document.writeln(""<table width=\""100%\""  border=\""0\"" align=\""center\"" cellpadding=\""0\"" cellspacing=\""5\""><tr>"&TempText&"</tr></table><table width=\""100%\""  border=\""0\"" align=\""center\"" cellpadding=\""5\"" cellspacing=\""0\""><tr>"&TempPic&"</tr></table>"");"
	objname.close
	Set objfso=nothing
End Sub

Sub AddLink
	Dim BbsName,Url,Pic,Readme,Admin,Orders,IsPic
	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")
	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
	Orders=BBS94KK.execute("select Count(ID) From[KK_Link]")(0)
	Orders=Int(Orders+1)
	BBS94KK.execute("insert into[KK_Link](Bbsname,Url,Pic,Readme,admin,Orders,IsPic,pass)values('"&BbsName&"','"&Url&"','"&Pic&"','"&Readme&"','"&Admin&"',"&Orders&","&IsPic&",true)")
	Call Suc("","添加论坛联盟连接成功！","Admin_Action.asp?action=BbsLink")
	SetLinkJs
End Sub
'进度条
Sub PicPro(i,sum,strtxt)
12 3 4 5 下一页
💿 文件大小 447 K
👤 上传用户 csytml
📂 所属分类通讯编程文档
🏷️ 相关标签

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

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