📄 up1.asp

📁 一个asp写的论坛源代码,论坛所需要的功能都有
💻 ASP
字号:
<!-- #include file="../conn.asp" -->
<link rel="stylesheet" rev="stylesheet" href="../skins/teams/bbs.css" type="text/css" media="all" />
<%
Server.ScriptTimeout= 9999
MyDbPath = "../"
Select Case Request("menu")
	Case "update"
		Update()
	Case Else
		Main
End Select

Sub Update()
	Dim Rs,newx,p,i
	Response.Write"<body text=""#000000"" leftmargin=""10"" topmargin=""10""><Br><BR><div class=a3 style=""padding: 15px;width:600""><div class=a4>"
	If Not IsObject(Conn) Then ConnectionDatabase
	On Error Resume Next
	Conn.execute("Update [User] Set Levelname=Levelname+'||0'")
	Conn.execute("Update [UserGroup] Set IsBrowse='1|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|' Where ID=28")
	Conn.execute("Update [UserGroup] Set IsBrowse='1|1|1|1|1|2|3|1|1|1|1|0|20|1|1|1|0|0|1|0|1|0|0|50|1|1|1|100|50|' Where ID=27")
	Conn.execute("Update [UserGroup] Set IsBrowse='1|10|1|1|1|2|1|1|1|1|1|1|20|1|1|1|0|0|1|0|1|1|1|50|1|1|1|100|50|' Where ID=26")
	Conn.execute("Update [UserGroup] Set IsBrowse='1|20|1|1|1|2|1|1|1|1|1|1|50|1|1|1|0|0|1|0|1|0|0|50|1|1|1|100|50|' Where ID=25")
	Conn.execute("Update [UserGroup] Set IsBrowse='1|30|1|1|1|2|3|1|1|1|1|1|50|1|1|1|0|0|1|0|1|0|0|50|1|1|2|100|50|' Where ID=24")
	Conn.execute("Update [UserGroup] Set IsBrowse='1|40|1|1|1|2|1|1|1|1|1|1|50|1|1|1|0|0|1|0|1|0|0|50|1|1|2|100|50|' Where ID=23")
	Conn.execute("Update [UserGroup] Set IsBrowse='1|50|1|1|1|2|3|1|1|1|1|1|50|1|1|1|0|0|1|0|1|0|0|50|1|1|2|100|50|' Where ID=22")
	Conn.execute("Update [UserGroup] Set IsBrowse='1|60|1|1|1|2|3|1|1|1|1|1|50|1|1|1|0|0|1|0|1|0|0|50|1|1|3|200|50|' Where ID=21")
	Conn.execute("Update [UserGroup] Set IsBrowse='1|70|1|1|1|0|3|1|1|1|1|1|50|1|1|1|0|0|1|0|1|0|0|50|1|1|3|200|50|' Where ID=20")
	Conn.execute("Update [UserGroup] Set IsBrowse='1|80|1|1|1|2|3|1|1|1|1|1|50|1|1|1|0|0|1|0|1|0|0|50|1|1|3|200|50|' Where ID=19")
	Conn.execute("Update [UserGroup] Set IsBrowse='1|100|1|1|1|2|1|1|1|1|1|1|50|1|1|1|0|0|1|0|1|0|0|50|1|1|3|200|50|' Where ID=18")
	Conn.execute("Update [UserGroup] Set IsBrowse='1|110|1|1|1|1|1|1|1|1|1|1|100|1|1|1|0|1|1|1|1|1|1|255|1|1|10|512|50|' Where ID=17")
	Conn.execute("Update [UserGroup] Set IsBrowse='1|110|1|1|1|2|1|1|1|1|1|1|100|1|1|1|0|1|1|1|1|1|1|255|1|1|10|512|50|' Where ID=16")
	Conn.execute("Update [UserGroup] Set IsBrowse='1|130|1|1|1|2|1|1|1|1|1|1|100|1|1|1|0|1|1|1|1|1|1|255|1|1|10|512|50|' Where ID=15")
	Conn.execute("Update [UserGroup] Set IsBrowse='1|130|1|1|1|2|1|1|1|1|1|1|100|1|1|1|0|1|1|1|1|1|1|255|1|1|10|512|50|' Where ID=14")
	Conn.execute("Update [UserGroup] Set IsBrowse='1|150|1|1|1|2|1|1|1|1|1|1|100|1|1|1|0|1|1|1|1|1|1|255|1|1|10|512|50|' Where ID=13")
	Conn.execute("Update [UserGroup] Set IsBrowse='1|170|1|1|1|2|1|1|1|1|1|1|100|1|1|1|0|1|1|1|1|1|1|255|1|1|10|512|50|' Where ID=12")
	Conn.execute("Update [UserGroup] Set IsBrowse='1|180|1|1|1|2|1|1|1|1|1|1|100|1|1|1|0|1|1|1|1|1|1|255|1|1|10|512|50|' Where ID=11")
	Conn.execute("Update [UserGroup] Set IsBrowse='1|200|1|1|1|2|0|1|1|1|1|1|100|1|1|1|0|1|0|0|1|1|1|50|1|1|10|1024|200|' Where ID=10")
	Conn.execute("Update [UserGroup] Set IsBrowse='1|240|1|1|1|2|0|1|1|1|1|1|100|1|1|1|0|1|0|0|1|1|1|50|1|1|10|1024|200|' Where ID=9")
	Conn.execute("Update [UserGroup] Set IsBrowse='1|250|1|1|1|2|0|1|1|1|1|1|100|1|1|1|0|1|0|0|1|1|1|50|1|1|10|1024|200|' Where ID=8")
	Conn.execute("Update [UserGroup] Set IsBrowse='0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0' Where ID=7")
	Conn.execute("Update [UserGroup] Set IsBrowse='1|0|1|0|0|0|1|0|0|0|0|0|20|0|0|0|0|0|0|0|0|0|0|50|0|0|0|0|0|' Where ID=6")
	Conn.execute("Update [UserGroup] Set IsBrowse='0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0' Where ID=5")
	Conn.execute("Update [UserGroup] Set IsBrowse='1|255|1|1|1|2|0|1|1|1|1|1|50|1|1|1|0|1|0|0|1|1|1|50|1|1|10|1024|200|' Where ID=4")
	Conn.execute("Update [UserGroup] Set IsBrowse='1|255|1|1|1|2|0|1|1|1|1|1|500|1|1|1|3|1|1|1|1|1|1|255|1|1|10|1024|200|',IsManage='1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1' Where ID=3")
	Conn.execute("Update [UserGroup] Set IsBrowse='1|255|1|1|1|2|0|1|1|1|1|1|500|1|1|1|3|1|1|1|1|1|1|255|1|1|10|1024|200|',IsManage='1|2|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1' Where ID=2")
	Conn.execute("Update [UserGroup] Set IsBrowse='1|255|1|1|1|2|0|1|1|1|1|1|500|1|1|1|3|1|1|1|1|1|1|255|1|1|10|1024|200|',IsManage='1|2|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1|1' Where ID=1")
	conn.Execute("ALTER TABLE [Clubconfig] add Starday text(50)")
	conn.Execute("Update [ClubConfig] set Starday='"&now()&"'")
	conn.Execute("Update [Style] set StyleCss='@@@@@@@@@@@@@@@#结尾#'")
	conn.Execute("ALTER TABLE [Wages] add WageGroupID int default 0")
	Conn.execute("Update [Clubconfig] Set Allclass='0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0*0$$$0$$$0$$$论坛维护中,请稍后访问!$$$1$$$$$$1$$$0$$$TEAM 2.0.0 RC2$$$$$$0$$$0.2$$$100$$$0$$$10$$$0$$$欢迎加入TEAM论坛!$$$1$$$1$$$20$$$10$$$20$$$15$$$3$$$0$$$1000$$$1$$$1$$$1$$$1$$$team论坛,asp,bbs,免费,急速$$$team论坛,asp,bbs,免费,急速$$$3$$$1$$$30$$$31$$$1$$$1$$$1$$$0$$$1$$$$$$1$$$0$$$60$$$60$$$$$$3$$$0$$$1$$$10$$$30$$$10$$$500$$$5$$$$$$0$$$$$$$$$粤ICP备05004532号$$$5$$$1$$$1$$$1$$$0$$$0$$$TEAM BOARD$$$10000$$$10$$$1$$$0$$$200$$$100$$$rar|jpg|txt|gif|zip$$$999$$$0$$$images/Mypic/logo.gif$$$88$$$1$$$$$$$$$$$$宋体$$$0$$$$$$1$$$$$$30$$$40$$$80$$$0$$$20$$$0$$$0$$$0$$$1$$$1$$$1$$$1$$$1$$$51$$$$$$$$$$$$100$$$100$$$0$$$0$$$$$$$$$$$$',ExtCredits='积分,点,0,1,1|金币,枚,1,1,1|魅力,度,1,1,1|,,,0,0|,,,0,0|,,,0,0|,,,0,0|,,,0,0',MustOpen='3,1,5,0,0,0,0,1,0,0|5,3,7,0,0,0,0,5,0,0|2,1,3,0,0,0,0,3,0,0|0,0,0,0,0,0,0,0,0,0|0,0,0,0,0,0,0,0,0,0|0,0,0,0,0,0,0,0,0,0|0,0,0,0,0,0,0,0,0,0|0,0,0,0,0,0,0,0,0,0'")
	rs.close
	Response.Write "更新OK"
End Sub

Sub Main %>

	<BR/><BR/><body Style="background-color:#9EB6D8" text="#000000" leftmargin="10" topmargin="10">
	<form method="Post" action="up1.asp?menu=update">
	<table border="0" cellspacing="1" cellpadding="5" width="98%" align="center" class="a2">
	<tr class="a1" align="center">
		<td>TEAM 论坛升级文件 >>> </td>
	 </tr>
	 <tr class="a2" align="center">
		<td> 2.0.0 数据库更新</td>
	 </tr>
	</table><br/>
	<center>
	<input type="submit" name="settingsubmit" value="进行升级->"></center></form>
<%
End Sub
%>
⌨️ 快捷键说明

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