⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 up.asp

📁 一个asp写的论坛源代码,论坛所需要的功能都有
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
End Sub

Sub Upskins
	Dim tRs
	On Error Resume Next
	If Not IsObject(Conn) Then ConnectionDatabase
	conn.execute("delete * from [style]")
	If Not IsObject(mConn) Then myConnectionDatabase
	Dim i
	Dim InsertName,InsertValue
	Set TRs= mconn.Execute("select * from [Style] where id = 1 ")
	Do while not TRs.eof
	InsertName=""
	InsertValue=""
		For i = 1 to TRs.Fields.Count-1
			InsertName=InsertName & TRs(i).Name
			InsertValue=InsertValue & "'" &checkStr(TRs(i)) & "'"
			If i<> TRs.Fields.Count-1 Then 
				InsertName	= InsertName & ","
				InsertValue	= InsertValue & ","
			End If
		Next
	conn.Execute("insert into [Style] ("&InsertName&") values ("&InsertValue&") ")
	TRs.movenext
	loop
	TRs.close
	set TRs=Nothing
	conn.execute("delete * from [online]")
	Application.Contents.RemoveAll()
	Response.write "<li>模版导入成功，现在将转入论坛首页<BR><meta http-equiv=refresh content=3;url=../>" 
End Sub

Function Checkstr(Str)
		If Isnull(Str) Then
			CheckStr = ""
			Exit Function 
		End If
		Str = Replace(Str,Chr(0),"")
		CheckStr = Replace(Str,"'","''")
End Function



Sub Up05()
	On Error Resume Next
	Response.Write"<div align=left id=UpFile class=a1><div class=a4>"
	If Not IsObject(Conn) Then ConnectionDatabase
	dim MU,MU1,MU2,i
	MU = conn.Execute("Select Allclass from [Clubconfig] ")(0)
	MU1=Split(MU,"$$$")
	For i=0 to Ubound(MU1)
		If i = 40 Then 
			MU2 = MU2 &"TEAM 1.0.5$$$"
		ElseIf i=39 Then
			MU2 = MU2 &"0$$$"
		ElseIf i= Ubound(MU1) Then
			MU2 = MU2 & MU1(i)
		Else
			MU2 = MU2 & MU1(i)&"$$$"
		End If
	Next
	conn.Execute("Update [Clubconfig] set Allclass='"&MU2&"' ")
	conn.Execute("ALTER TABLE [forum] add  isblog int default 0 ")
	conn.Execute("Update [forum] set isblog=0 ")
	Response.write "<li>添加用户博客成功! <BR>" 
	'添加用户博客
	conn.Execute("ALTER TABLE [user] add  postblog int default 0 ")
	conn.Execute("Update [user] set postblog=0 ")
	'添加统计
	conn.Execute("ALTER TABLE [ClubConfig] add  PostNum int default 0")
	conn.Execute("ALTER TABLE [ClubConfig] add  RepostNum int default 0")
	conn.Execute("ALTER TABLE [ClubConfig] add  UserNum int default 0")
	conn.Execute("Update [ClubConfig] set PostNum=0,RepostNum=0,UserNum=0")
	Response.write "<li>添加统计成功!<BR>" 
	Response.Write"<li> TEAM 1.0.4 --> 1.0.5 ok ! </li>"
	Response.Write"<li>升级成功. 请在论坛根目录删除此文件! 文件名 [Up.asp] </li></div></div>"
	Application.Contents.RemoveAll() 
	Up06()
End Sub

Sub Up04()
	Response.Write"<div align=left id=UpFile class=a1><div class=a4>"
	If Not IsObject(Conn) Then ConnectionDatabase
	dim MU,MU1,MU2,i
	MU = conn.Execute("Select Allclass from [Clubconfig] ")(0)
	MU1=Split(MU,"$$$")
	For i=0 to Ubound(MU1)
		If i = 40 Then 
			MU2 = MU2 &"TEAM 1.0.4$$$"
		ElseIf i=39 Then
			MU2 = MU2 &"0$$$"
		ElseIf i= Ubound(MU1) Then
			MU2 = MU2 & MU1(i)
		Else
			MU2 = MU2 & MU1(i)&"$$$"
		End If
	Next
	conn.Execute("Update [Clubconfig] set Allclass='"&MU2&"' ")
	conn.Execute("ALTER TABLE [User] add  LoginNum Text(50)")

	Response.Write"<li> TEAM 1.0.3 --> 1.0.4 ok ! </li>"
	Response.Write"<li>升级成功. 请在论坛根目录删除此文件! 文件名 [Up.asp] </li></div></div>"
	Application.Contents.RemoveAll() 
	Up05()
End Sub


Sub Up03()
	Response.Write"<div align=left id=UpFile class=a1><div class=a4>"
	If Not IsObject(Conn) Then ConnectionDatabase
	dim MU,MU1,MU2,i
	MU = conn.Execute("Select Allclass from [Clubconfig] ")(0)
	MU1=Split(MU,"$$$")
	For i=0 to Ubound(MU1)
		If i = 40 Then 
			MU2 = MU2 &"TEAM 1.0.3$$$" 
		ElseIf i= Ubound(MU1) Then
			MU2 = MU2 & MU1(i)
		Else
			MU2 = MU2 & MU1(i)&"$$$"
		End If
	Next
	conn.Execute("Update [Clubconfig] set Allclass='"&MU2&"' ")
	conn.Execute("ALTER TABLE [Style] ALTER COLUMN  StyleUrl Text(250)")
	Response.Write"<li> TEAM 1.0.2 --> 1.0.3 ok ! </li>"
	Response.Write"<li>升级成功. 请在论坛根目录删除此文件! 文件名 [Up.asp] </li></div></div>"
	Application.Contents.RemoveAll() 
	Up04()
End Sub

Sub Up02()

	Response.Write"<div align=left id=UpFile class=a1><div class=a4>"
	If Not IsObject(Conn) Then ConnectionDatabase
	dim MU,MU1,MU2,i
	MU = conn.Execute("Select Allclass from [Clubconfig] ")(0)
	MU1=Split(MU,"$$$")
	For i=0 to Ubound(MU1)
		If i = 40 Then 
			MU2 = MU2 &"TEAM 1.0.2$$$" 
		ElseIf i= Ubound(MU1) Then
			MU2 = MU2 & MU1(i)
		Else
			MU2 = MU2 & MU1(i)&"$$$"
		End If
	Next
	conn.Execute("Update [Clubconfig] set Allclass='"&MU2&"' ")
	conn.Execute("ALTER TABLE [Style] ADD StyleHid Int default 0")

	Response.Write"<li> TEAM 1.0.1 --> 1.0.2 ok ! </li>"
	Response.Write"<li>升级成功. 请在论坛根目录删除此文件! 文件名 [Up.asp] </li></div></div>"
	Application.Contents.RemoveAll() 
	Up03()
End Sub


Sub Up00()
	Response.Write"<div align=left id=UpFile class=a1><div class=a4>"
	If Not IsObject(Conn) Then ConnectionDatabase
	On Error Resume Next
	dim rs,sql,i
	Set Rs=Server.CreateObject("Adodb.RecordSet")
	sql="Select userpass from [user] "
	Rs.Open SQL,Conn,3,2
	i=0
	do while not rs.eof
		i=i+1
		If Len(Lcase(rs(0)))>17 Then
			Rs(0)=mid(Lcase(rs(0)),9,16)
		End If
		Rs.Update
		Response.Write"<li>USER-"&i&" - ok </li>"
	Rs.Movenext
	loop
	Rs.Close:Set Rs=Nothing
	Response.Write"<li> TEAM 用户密码转换成功 </li>"
	Dim Rs1,SQL1
	Set Rs1=Server.CreateObject("Adodb.RecordSet")
	sql1="Select adminpass from [Admin] "
	Rs1.Open SQL1,Conn,3,2
	do while not rs1.eof
		If Len(Lcase(rs1(0)))>17 Then
			Rs1(0)=mid(Lcase(rs1(0)),9,16)
		End If
		Rs1.Update
	Rs1.Movenext
	loop
	Rs1.Close:Set Rs1=Nothing
	Response.Write" <li>TEAM 后台管理密码转换成功,此次共转换用户 "&i&" 位! </li>"

	dim MU,MU1,MU2
	MU = conn.Execute("Select Allclass from [Clubconfig] ")(0)
	MU1=Split(MU,"$$$")
	For i=0 to Ubound(MU1)
		If i = 40 Then 
			MU2 = MU2 &"TEAM 1.0.1$$$" 
		ElseIf i= Ubound(MU1) Then
			MU2 = MU2 & MU1(i)
		Else
			MU2 = MU2 & MU1(i)&"$$$"
		End If
	Next
	conn.Execute("Update [Clubconfig] set Allclass='"&MU2&"' ")
	Response.Write"<li> TEAM 1.0.0 --> 1.0.1 ok ! </li>"
	Response.Write"<li>升级成功. 请在论坛根目录删除此文件! 文件名 [Up.asp] </li></div></div>"
	Application.Contents.RemoveAll() 
	Up02()
End Sub

Sub Main %>

	<BR/><BR/><body Style="background-color:#9EB6D8" text="#000000" leftmargin="10" topmargin="10">
	<form method="Post" action="?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>升级文件说明: 本升级文件适合team所有版本升级,系统自动判断用户版本(前提是需要用户的版本信息没有修改).</td>
	 </tr>
	 <tr class="a4">
		<td valign="top"> 
		 <li><b><a href=?Menu=oldupte Style='cursor:hand;color:red;font-size: 20px;'>  beta版本升级 － 1.0.5 --> 请点击此处进行升级。 </a></li></b></td>
	 </tr>
	 <tr class="a3">
		<td valign="top"> 
		 <li> <B>1.0.X 升级到1.0.5 ，直接运行，自动判断。</B> </li></td>
	 </tr>
	 <tr class="a4">
		<td valign="top"> 
		<li> <B>TEAM 论坛升级文件2.0.0 Beta更新记录: </B> 
		<OL>
			<LI> 一 . 全面改进数据库,文件架构设计,增强系统功能! </LI>
			<LI>二 . 优化代码,更新新后台程序. </LI>
			<LI> 1.0.5  － 2.0.0 版本。  </LI>
			<LI> 暂无更新记录 </LI>
		  </OL>
	 </li>
	 <li> <B>升级前注意：</B> <BR>
	      <OL>
			  <LI>   升级前请先备份您的数据库。</LI>
			   <LI>升级过程中请勿停止程序运行，否则将导致数据库损坏。</LI>
			  <LI>模版数据库将被更新，所以请将老的模版导出到数据库进行备份。</LI>
	 </OL>
	</li>
		 </td>
	 </tr>
	 <tr class="a3">
		<td valign="top"> 
		<li> <a href=?Menu=Upskins> 更新论坛模版 ==>> </a></li>
		</td>
	 </tr>
	</table><br/>
	<center>
	<input type="submit" name="settingsubmit" value="进行升级->"></center></form>
<%
End Sub
%>
123

⌨️ 快捷键说明

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