📄 papasite_update.asp
字号:
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>升级程序(V1.1-V1.2)-爬爬思特新闻管理系统</title>
<LINK href="PPst_Inc/0.css" type=text/css rel=stylesheet>
</head>
<body>
<%
Response.Buffer = True
Server.ScriptTimeout=9999999
'添加字段通用函数
Sub AddColumn(TableName,ColumnName,ColumnType)
On Error Resume Next
Conn.Execute("Alter Table "&TableName&" Add "&ColumnName&" "&ColumnType&"")
If Err Then
Response.Write "新建 "&TableName&" 表中字段<font color=blue>错误</font>，请手动将数据库中 <B>"&ColumnName&"</B> 字段建立，<br>属性为 <B>"&ColumnType&"</B>，原因：" & Err.Description & "<BR>"
Err.Clear
Response.Flush
Else
Response.Write "新建 "&TableName&" 表中字段 "&ColumnName&" 成功 <BR>"
Response.Flush
End If
Response.Write "<hr>"
End Sub
'删除字段通用函数
Sub DelColumn(TableName,ColumnName)
On Error Resume Next
Conn.Execute("Alter Table "&TableName&" Drop "&ColumnName&"")
If Err Then
Response.Write "删除 "&TableName&" 表中字段<font color=blue>错误</font>，请手动将数据库中 <B>"&ColumnName&"</B> 字段删除，原因：" & Err.Description & "<BR>"
Err.Clear
Response.Flush
Else
Response.Write "删除 "&TableName&" 表中字段 "&ColumnName&" 成功 <BR>"
Response.Flush
End If
Response.Write "<hr>"
End Sub
'增加表通用函数
Sub AddTable(TableName,ColumnName)
On Error Resume Next
Conn.Execute("Create table "&TableName&" ("&ColumnName&" integer identity(1,1) primary key)")
If Err Then
Response.Write "建立数据库表 "&TableName&" <font color=blue>错误</font>，请手动将数据库中 表<B>"&ColumnName&"</B> 建立，主键字段为："&ColumnName&"原因：" & Err.Description & "<BR>"
Err.Clear
Response.Flush
Else
Response.Write "建立数据库表 "&TableName&" 表、自动编号字段 "&ColumnName&" 成功 <BR>"
Response.Flush
End If
Response.Write "<hr>"
End Sub
Action=request("Action")
%>
<table width="550" height="30" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td> </td>
</tr>
</table>
<table width="550" border="0" align="center" cellpadding="0" cellspacing="0" class="lantable">
<tr>
<td height="25" colspan="3" align="center" valign="middle" background="PPst_Images/skin/0/back.gif"><span class="cuti_baise">爬爬思特新闻管理系统数据库结构升级</span></td>
</tr>
<tr>
<td height="10" colspan="3"></td>
</tr>
<%if Action="" then%>
<tr>
<td width="10" height="100"> </td>
<td width="530" align="left" valign="top"><span class="tablebody1" style="font-size: 12px;line-height : 18px ;">升级到版本: 爬爬思特新闻管理系统V1.2版<br>
适用于版本: 爬爬思特新闻管理系统V1.1版（其他版本请先升级到本版本）<br>
时间: 2006-11-10
作者: 爬爬思特(PaPasite) QQ:14921995 Email:PaPasite@sina.com <br>
网址:www.PaPasite.Net 爬爬思特工作室 [PaPasite Studio]</span> 电话:13506442363<br>
<hr><center><b><br>
升级须知:</b></center><font color=red>(将本文件放在新闻系统根目录下，即和本系统的其他文件同一目录)</font><br>
<br>
一、升级前请先<font color=red>备份</font>你的数据库，以免升级失败，对您造成不必要的损失，对此，本工作室不承担任何责任。<br>
二、升级前请仔细阅读升级说明，以免操作不当造成升级失败，由此造成的损失，本工作室不承担任何责任。<br>
三、升级中，如果出现<font color=blue>错误</font>信息提示，请仔细阅读，一般都包含了解决办法，这时或许需要您手动调整部分信息，如果是出现异常的没有解决的问题，请到官方讨论区[<a href="Http://www.papasite.net" target="_blank">www.PaPasite.Net</a>]发言，我们将热心为你服务。由此造成的升级失败，本工作室不承担任何责任。<br>
四、升级结束前，请不要中断升级程序的运行，直到出现红色提示文字“升级完毕...”，以免造成升级失败，对此，本工作室不承担任何责任。<br>
五、升级结束后，请务必删除本文件，一面对你的网站造成不必要的影响，由此而造成的安全问题，本工作室不承担任何责任。<br>
<br><center>
<a href="Papasite_Update.asp?action=Update"><u>阅读完毕，确定升级...<u></a><br>
<br>
</center></td>
<td width="10"> </td>
</tr>
<%End If
if Action="Update" then%>
<!--#include file="PPst_Conn.asp" -->
<tr>
<td width="10" height="30"> </td>
<td width="530" align="left" valign="middle"><br>
<%
Call AddColumn("PPst_News","SmallClassID","Integer default 0")
Call AddColumn("PPst_News","Shenhe","Integer default 0")
Call AddColumn("PPst_News","SmallPicURL","Text(255)")
SQL="UpDate [PPst_News] Set SmallClassID=0,Shenhe=1"
Conn.Execute (SQL)
Call Addtable("PPst_SmallClass","SmallClassID")
Call AddColumn("PPst_SmallClass","SmallClassName","Text(50)")
Call AddColumn("PPst_SmallClass","SmallClassURL","Text(255)")
Call AddColumn("PPst_SmallClass","ForBigClassID","Integer default 0")
Conn.Close
%><br><center>
<font color="#FF0000"><b>升 级 程 序 运 行 完 毕 ...</b></font><br>
<br>
请务必删除本文件...</center>
</td>
<td width="10"> </td>
</tr>
<%End If%>
<tr>
<td height="10" colspan="3"> </td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -