?? gbupdata.asp
字號:
<%Server.ScriptTimeout=99999
dim conn,db
%>
<!--#include file="CONN.ASP"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>升級程序</title>
</head>
<body>
<table width="75%" border="1" align="center" cellpadding="3" cellspacing="0" bordercolor="#AFDCED" style="border-collapse:collapse">
<tr>
<td bgcolor="#E2F7FA"><div align="center">升級程序</div></td>
</tr>
<tr>
<td height="74"><div align="center"><br>
<br>
<%
If Request.Form("go")=1 Then
set conn=Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & db
'升級程序
strSQL = "CREATE TABLE myfriend("
strSQL =strSQL +"id int IDENTITY (1,1) NOT NULL , "
strSQL =strSQL +"jd_mid nvarchar (20) NULL, "
strSQL =strSQL +"jd_yid nvarchar (20) NULL, "
strSQL =strSQL +"jd_yn tinyint default 0 "
strSQL =strSQL +")"
Conn.Execute(strSQL)
strSQL = "ALTER TABLE forum "
strSQL =strSQL +"ADD jd_rz ntext NULL "
strSQL =strSQL +" "
Conn.Execute(strSQL)
strSQL = "ALTER TABLE msg "
strSQL =strSQL +"ADD jd_nodel tinyint default 0 "
strSQL =strSQL +" "
Conn.Execute(strSQL)
strSQL = "ALTER TABLE topics "
strSQL =strSQL +"ADD jd_rnd nvarchar (16) NULL "
strSQL =strSQL +" "
Conn.Execute(strSQL)
Conn.Execute( "ALTER TABLE topics ALTER COLUMN jd_reply nvarchar (255) NULL " )
Conn.Execute("ALTER TABLE topics ALTER COLUMN jd_jf int default 0 " )
Conn.Execute("ALTER TABLE topics ALTER COLUMN jd_forumid int default 0 " )
Conn.Execute("ALTER TABLE topics ALTER COLUMN jd_cls tinyint default 0 " )
strSQL = "ALTER TABLE reply "
strSQL =strSQL +"add jd_stop tinyint default 0 ,"
strSQL =strSQL +"jd_cls tinyint default 0 ,"
strSQL =strSQL +"jd_rnd nvarchar (16) NULL "
strSQL =strSQL +" "
Conn.Execute(strSQL)
Conn.Execute("update reply set jd_stop=0,jd_cls=0")
strSQL = "ALTER TABLE msg "
strSQL =strSQL +"ALTER COLUMN jd_view int default 0 "
strSQL =strSQL +" "
Conn.Execute(strSQL)
Conn.Execute("ALTER TABLE member ALTER COLUMN jd_count int default 0 " )
Conn.Execute("ALTER TABLE member ALTER COLUMN jd_jf int default 0 " )
Conn.Execute("ALTER TABLE member ALTER COLUMN jd_ww int default 0 " )
Conn.Execute("ALTER TABLE member ALTER COLUMN jd_st int default 0 " )
strSQL = "ALTER TABLE admin "
strSQL =strSQL +"ADD jd_smtp nvarchar (50) NULL , "
strSQL =strSQL +"jd_mailname nvarchar (50) NULL , "
strSQL =strSQL +"jd_mailpw nvarchar (50) NULL , "
strSQL =strSQL +"jd_photoup int default 0 , "
strSQL =strSQL +"jd_pagetime int default 0 ,"
strSQL =strSQL +"jd_regtime tinyint default 0 ,"
strSQL =strSQL +"jd_img2 nvarchar (20) NULL,"
strSQL =strSQL +"jd_noregtext nvarchar (255) NULL"
strSQL =strSQL +" "
Conn.Execute(strSQL)
Conn.Execute("update admin set jd_photoup=0,jd_pagetime=0,jd_regtime=0,jd_img2='img/',jd_table_w=750 ")
Conn.Execute("update admin set jd_noregtext='系統消息|游客|法輪功|輪功|法輪|毛澤東|江澤民|胡錦濤|fuck'")
strSQL = "ALTER TABLE member "
strSQL =strSQL +"ADD jd_conjury int default 0 ,"
strSQL =strSQL +"jd_reply int default 0 ,"
strSQL =strSQL +"jd_del int default 0,"
strSQL =strSQL +"jd_todytopic int default 0, "
strSQL =strSQL +" jd_daytime datetime null , "
strSQL =strSQL +" jd_birthday datetime null , "
strSQL =strSQL +" jd_sx tinyint default 0 , "
strSQL =strSQL +" jd_star tinyint default 0 "
strSQL =strSQL +" "
Conn.Execute(strSQL)
Conn.Execute("update member set jd_conjury=0,jd_del=0,jd_reply=0,jd_todytopic=0,jd_star=0,jd_sx=0")
'游客表
strSQL = "CREATE TABLE guest("
strSQL =strSQL +"id int IDENTITY (1,1) NOT NULL , "
strSQL =strSQL +"jd_rnd nvarchar (16) NULL , "
strSQL =strSQL +"jd_name nvarchar (20) NULL, "
strSQL =strSQL +"jd_sex tinyint default 0 , "
strSQL =strSQL +"jd_head nvarchar (10) NULL, "
strSQL =strSQL +"jd_web nvarchar (50) NULL, "
strSQL =strSQL +"jd_email nvarchar (50) NULL, "
strSQL =strSQL +"jd_come nvarchar (50) NULL, "
strSQL =strSQL +"jd_qq nvarchar (50) NULL, "
strSQL =strSQL +"jd_ip nvarchar (15) NULL, "
strSQL =strSQL +"jd_date datetime NULL "
strSQL =strSQL +")"
Conn.Execute(strSQL)
strSQL = "ALTER TABLE topics "
strSQL =strSQL +"ALTER COLUMN jd_reply nvarchar (255) NULL "
strSQL =strSQL +" "
Conn.Execute(strSQL)
'刪除字段
strSQL = "ALTER TABLE topics "
strSQL =strSQL +"drop COLUMN jd_sex,"
strSQL =strSQL +"jd_head,"
strSQL =strSQL +"jd_web,"
strSQL =strSQL +"jd_email,"
strSQL =strSQL +"jd_come,"
strSQL =strSQL +"jd_qq"
strSQL =strSQL +" "
Conn.Execute(strSQL)
strSQL = "ALTER TABLE msg "
strSQL =strSQL +"ALTER COLUMN jd_msg ntext NULL "
strSQL =strSQL +" "
Conn.Execute(strSQL)
strSQL = "ALTER TABLE topics "
strSQL =strSQL +" ADD jd_ww tinyint default 0 "
strSQL =strSQL +" "
Conn.Execute(strSQL)
Conn.Execute("update topics set jd_ww=0")
Conn.Execute("update msg set jd_msg=jd_title+jd_msg")
Conn.Execute("update msg set jd_title=0")
strSQL = "ALTER TABLE msg "
strSQL =strSQL +"ALTER COLUMN jd_title tinyint default 0 "
strSQL =strSQL +" "
Conn.Execute(strSQL)
strSQL = "ALTER TABLE topics "
strSQL =strSQL +" ADD jd_color tinyint default 0 "
strSQL =strSQL +" "
Conn.Execute(strSQL)
Conn.Execute("update topics set jd_color=0")
strSQL = "ALTER TABLE a "
strSQL =strSQL +"ADD jd_toptopic int default 0 , "
strSQL =strSQL +"jd_topicdate datetime NULL, "
strSQL =strSQL +"jd_nowtopic int default 0 , "
strSQL =strSQL +"jd_nowdate datetime null , "
strSQL =strSQL +"jd_topiced int default 0 "
strSQL =strSQL +" "
Conn.Execute(strSQL)
Conn.Execute("update a set jd_nowtopic=0,jd_topiced=0,jd_toptopic=0")
conn.close
set conn=nothing
Response.write ("升級成功,本程序只需運行一次,請不要重復升級")
Response.write ("<br><br>升級后,請刪除本文件")
else
%>
<form name="form1" method="post" action="">
<!--v1.0升級到v2.0<input type="radio" name="jdv" value="1"> <input type="radio" name="jdv" value="2"> --> v1.0升級到v2.0<br>
<br>
<input type="hidden" name="go" value="1">
<input type="submit" name="Submit" value=" 開 始 ">
</form>
<%End if
%>
<br>
<br>
</div></td>
</tr>
</table>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -