📄 update.asp

📁 这是一套基于WEB的网站管理系统
💻 ASP
字号:
<html>
<head>
<title>新云网站管理系统 升级程序</title>
<style type=text/css>
A:link,A:active,A:visited{text-decoration:none ;Color:#000000}
A:hover{text-decoration: underline;Color:#4455aa}
body{font-size: 12px;color: #000000;font-family:  宋体;background-color: #EDEDED}
font{line-height : normal ;}
table {word-break: break-all;}
td{font-family: 宋体;font-size: 12px;line-height : 18px ;}
th{background-color: #3795D2;color: white;font-size: 12px;font-weight:bold;height: 25;}
td.TableBody1{background-color: #F8F8ED;line-height : normal ;padding:5px;}
.tableBorder1{border: 1px #3795D2 solid ; background-color: #FFFFFF;font: 12px;width: 680;}
textarea.updateinfo{border : 1px dotted #666666;width:100%;height:300px;overflow: auto; background-color: #ffffff;font-size: 14px;padding:5px;color:#003399;}
.tdborder{background-color: #555555;}
</style>
</head>
<%
Response.Buffer = True
On Error Resume Next
Server.ScriptTimeout=9999999
Dim Conn,db,ConnStr
Dim tConn,tConnStr,DBPath
DBPath = "data/newasp.mdb"   '默认连接请不要修改
tConnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBPath)
'-------------------------------------------------------------------------------
Set tConn = Server.CreateObject("ADODB.Connection")
tConn.Open tConnStr
If Err Then
	Err.Clear
	Set tConn = Nothing
	Response.Write ("数据库连接出错，<br>请打开update.asp检查连接字串。")
	Response.End
End If

Dim Rs,SQL,i
Dim TableTop,TableEnd
TableTop="<TABLE border=""0"" width=""660"" align=""center"" cellspacing=0 cellpadding=0><tr><td class=""tablebody1"">"
TableEnd="</td></tr></table>"


Select Case LCase(Request("Action"))
Case "step1"
	Step1()
Case "step2"
	Step2()
Case Else
	Step1()
End Select
Sub ConnectionDatabase()
	db = Replace(Request.Form("dbPath"), "'", "")
	Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
	On Error Resume Next
	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Open Connstr
	If Err Then
		Err.Clear
		Set Conn = Nothing
		Response.Write ("<br><br><br><p align=""center""><font color=red size=3>数据库连接出错，<br>请检查您的数据库路径是否正确。</font></p>")
		Response.End
	End If
End Sub
Sub Step1()
%>
<table cellspacing="1" cellpadding="3" align="center" class="tableBorder1">
	<tr>
		<th colspan="2">新云网站管理系统 V1.0.2 To V2.0.0 (ACCESS版)</th>
	</tr>
	<tr>
		<td><a href="http://www.newasp.net" target=_blank><img src="images/logo.gif" width="180" height="60" border=0 alt="欢迎访问新云网络"></a></td>
		<td align="right"><img src="images/gears.gif" width="71" height="76" border=0></td>
	</tr>
	<tr>
		<td colspan="2" height="1" class="tdborder"></td>
	</tr>
	<tr>
		<td colspan="2" Class="tablebody1">
		<textarea class="updateinfo">+ 操作说明，请仔细阅读操作说明后进行操作：

1、强烈建议您在本地升级，升级完成后再上传到你的服务器，在更新前做好数据库备份工作。

2、把新云V1.02的数据库从WEB空间下载到本地和升级程序放在同一目录，运行update.asp开始升级。

3、如升级过程出错，或出现错误信息提示，请仔细阅读，一般都包含了解决办法，这时或许需要您手动调整部分信息，或者替换数据库重新再试。

4、升级完成后，请将升级后数据库放到新云网站管理系统database目录，然后和程序一起上传到你的WEB空间覆盖V1。02的所有文件。

5、登陆后台修改模板，把你以前修改过的模板内容复制到新模板(新云默认模板（Newasp.Net）)中即可，确定无误后可以删除旧模板。

6、欢迎访问新云论坛(bbs.newasp.net)，就您使用新云网站管理系统的问题发表您的意见。

多谢大家一直以来对新云的支持，相信我们会做得更好！</textarea></td>
	</tr>
	<form name=myform method=post action=?action=step2>
	<tr>
		<td colspan="2" align="center" Class="tablebody1">
			<br>您的数据库路径：<input type="text" name="dbPath" size="25" value="newasp.mdb">
			<input type=submit value="开始升级"></td>
	</tr>
	</form>
</table>
<br>
<table align="center">
	<tr>
		<td align="center">Powered By ：<a href = "http://www.newasp.net" target = "_blank">NewCloud Content Management System Version 2.0.0</a><br>Copyright &copy;2002 - 2005  <a href="http://www.newasp.net"><font face=Verdana, Arial, Helvetica, sans-serif><b>Newasp<font color=#CC0000>.Net</font></b></font></a></td>
	</tr>
</table>
<%
End Sub

Sub Step2()
	Call ConnectionDatabase
	DelTable("NC_ShopList")
	DelTable("NC_Payment")
	DelTable("NC_buy")
	DelTable("NC_Card")
	
	SQL = "CREATE TABLE [NC_FlashList] ([flashid] int IDENTITY (1, 1) NOT NULL CONSTRAINT PrimaryKey PRIMARY KEY,"
	SQL = SQL &_
	"[ChannelID] int NOT NULL default 0," &_
	"[ClassID] int NOT NULL default 0," &_
	"[SpecialID] int NOT NULL default 0," &_
	"[title] nvarchar (250) NOT NULL ," &_
	"[ColorMode] smallint NOT NULL default 0," &_
	"[FontMode] smallint NOT NULL default 0," &_
	"[Introduce] text NULL ," &_
	"[Related] nvarchar (255) NULL ," &_
	"[Describe] nvarchar (255) NULL ," &_
	"[filesize] int NULL default 0," &_
	"[Author] nvarchar (255) NULL ," &_
	"[ComeFrom] nvarchar (255) NULL ," &_
	"[star] smallint NOT NULL default 0," &_
	"[miniature] nvarchar (255) NULL ," &_
	"[UserGroup] int NOT NULL default 0," &_
	"[PointNum] int NULL default 0," &_
	"[UserName] nvarchar (50) NULL ," &_
	"[addTime] smalldatetime default Now()," &_
	"[HtmlFileDate] nvarchar (255) NULL ," &_
	"[AllHits] int NOT NULL default 0," &_
	"[DayHits] int NULL default 0," &_
	"[WeekHits] int NULL default 0," &_
	"[MonthHits] int NULL default 0," &_
	"[HitsTime] smalldatetime default Now()," &_
	"[grade] int NULL default 0," &_
	"[showmode] smallint NULL default 0," &_
	"[isTop] tinyint NOT NULL default 0," &_
	"[IsBest] tinyint NOT NULL default 0," &_
	"[ErrCode] int NULL default 0," &_
	"[downmode] smallint NULL default 0," &_
	"[downid] int NOT NULL default 0," &_
	"[showurl] nvarchar (255) NULL ," &_
	"[DownAddress] nvarchar (255) NULL ," &_
	"[UploadFile] text NULL ," &_
	"[isUpdate] smallint NULL default 0," &_
	"[isAccept] tinyint NOT NULL default 0," &_
	"[ForbidEssay] tinyint NULL default 0," &_
	"[AlphaIndex] nvarchar (10) NULL " &_
	")"
	Conn.Execute(SQL)
	If Err.Number <> 0 Then
		Response.Write TableTop & "新建 " & TableName & " 表错误，原因" & Err.Description & "操作,跳过.<BR>" & TableEnd
		Err.Clear()
		Response.Flush
	Else
		Response.Write TableTop & "新建 " & TableName & " 表成功。<BR>" & TableEnd
		Response.Flush
	End If
	Conn.Execute ("UPDATE NC_Template SET isDefault=0")
	Conn.Execute ("UPDATE NC_Channel SET StopChannel=1,IsHidden=1 WHERE ChannelID=3")
	Dim SkinRs,TemplateDir,newskinid
	Dim TemplateFields,TemplateValues
	Set SkinRs = Conn.Execute("SELECT MAX(skinid) FROM [NC_Template] WHERE pageid = 0")
	If Not (SkinRs.EOF And SkinRs.bof) Then
		newskinid = SkinRs(0)
	End If
	If IsNull(newskinid) Then newskinid = 0
	SkinRs.Close
	newskinid = newskinid + 1
	Set Rs = tConn.Execute("SELECT * FROM NC_Template ORDER BY ChannelID ASC,TemplateID ASC")
	If Not (Rs.BOF And Rs.EOF) Then
		Do While Not Rs.EOF
			If Not IsNull(Rs("TemplateDir")) Then
				TemplateDir = CheckStr(Rs("TemplateDir"))
			Else
				TemplateDir = ""
			End If
			TemplateFields = "ChannelID,skinid,pageid,TemplateDir,page_name,page_content,page_setting,Template_Help,isDefault"
			TemplateValues = "" & Rs("ChannelID") & ","& newskinid &"," & Rs("pageid") & ",'" & TemplateDir & "','" & CheckStr(Rs("page_name")) & "','" & CheckStr(Rs("page_content")) & "','" & CheckStr(Rs("page_setting")) & "','" & CheckStr(Rs("Template_Help")) & "',1"
			SQL = "insert into [NC_Template](" & TemplateFields & ")values(" & TemplateValues & ")"
			Conn.Execute (SQL)
			Rs.movenext
		Loop
	End If
	Set Rs = Nothing
	Dim neworders
	Set Rs = Conn.Execute ("SELECT MAX(orders) FROM NC_Channel")
	If Not (Rs.EOF And Rs.bof) Then
		neworders = Rs(0)
	End If
	If IsNull(neworders) Then neworders = 0
	Set Rs = Nothing
	Set Rs = Server.CreateObject("ADODB.Recordset")
	SQL = "SELECT * FROM NC_Channel"
	Rs.Open SQL,Conn,1,3
	Rs.Addnew
		Rs("ChannelID") = 5
		Rs("orders") = neworders + 1
		Rs("ColorModes") = 0
		Rs("FontModes") = 0
		Rs("ChannelName") = "动画频道"
		Rs("Caption") = "动画频道"
		Rs("ChannelDir") = "flash/"
		Rs("StopChannel") = 0
		Rs("IsHidden") = 0
		Rs("LinkTarget") = 0
		Rs("ChannelType") = 0
		Rs("ChannelUrl") = "http://"
		Rs("modules") = 5
		Rs("BindDomain") = 0
		Rs("DomainName") = "http://"
		Rs("ModuleName") = "动画"
		Rs("ChannelSkin") = 0
		Rs("HtmlPath") = 0
		Rs("HtmlForm") = 3
		Rs("IsCreateHtml") = 0
		Rs("HtmlExtName") = ".html"
		Rs("HtmlPrefix") = "flash_"
		Rs("StopUpload") = 1
		Rs("MaxFileSize") = 500
		Rs("UpFileType") = "rar|zip|exe|gif|jpg|png|bmp|swf"
		Rs("IsAuditing") = 1
		Rs("AppearGrade") = 0
		Rs("PostGrade") = 0
		Rs("LeastString") = 10
		Rs("MaxString") = 500
		Rs("PaginalNum") = 15
		Rs("LeastHotHist") = 50
		Rs("Channel_Setting") = "|||@@@|||@@@|||"
	Rs.update
	Rs.Close:Set Rs = Nothing
	Application.Contents.RemoveAll
	Response.Write TableTop & "<font color=blue size=3>恭喜您^_^升级成功！</font><BR><br>【<a href='#' onClick=""window.close();"">关闭本窗口</a>】" & TableEnd
	Response.Flush
End Sub

'删除表通用函数
Sub DelTable(TableName)
	On Error Resume Next
	Conn.Execute("Drop Table "&TableName&"")
	If Err Then
		Response.Write TableTop & "删除 "&TableName&" 表<font color='blue'>错误</font>，请手动将数据库中 <B>"&TableName&"</B> 表删除，原因" & Err.Description & "<BR>" & TableEnd
		Err.Clear
		Response.Flush
	Else
		Response.Write TableTop & "删除 "&TableName&" 表成功<BR>" & TableEnd
		Response.Flush
	End If
End Sub

'----过滤非法字符
Function CheckStr(str)
	If Isnull(str) Then
		CheckStr = ""
		Exit Function 
	End If
	str = Replace(str,Chr(0),"")
	CheckStr = Replace(str,"'","''")
End Function
%>
💿 文件大小 3395 K
👤 上传用户 jc6629402
📂 所属分类 Internet/网络编程
🏷️ 相关标签

#WEB #网站 #管理系统
⌨️ 快捷键说明

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