📄 to13.asp

📁 鄂尔多斯建站网全站程序(冬季修正版)
💻 ASP
字号:
<!--#include file="conn.asp"--> 
<!--#include file="md5.asp"-->
<%on error resume next
header="<html><head><LINK href='images/5256.css' type=text/css rel=stylesheet><title>柏图留言本1.3 数据库升级程序</title></head><body><br><b><font color=blue>柏图留言本1.3 数据库升级程序</font></b><br><br>"
footer="</body></html>"
action=request("action")
if action="update1" then
response.write header
set GetsiteInfo=conn.execute("select username,siteurl from gbinfo")
btstr="CopyRight &copy; 2004-2006 <a href="&GetsiteInfo("siteurl")&">"&GetsiteInfo("username")&"</a> 版权所有"
set GetsiteInfo=nothing
conn.execute("alter table gbinfo add lymax varchar(50),shhe varchar(50)")
response.write "成功创建lymax,shhe字段<br>"
conn.execute("alter Table gbinfo Drop Column bak1")
conn.execute("alter Table gbinfo Drop Column bak2")
conn.execute("alter table gbinfo add showlynum2 int default 20,defaultstyle varchar(6),zanghua text,Bottomstr varchar(190)")
response.write "成功创建showlynum2、defaultstyle、zanghua,Bottomstr字段<br>"
conn.execute("alter table gb add psw varchar(50),oicq int")
response.write "成功创建psw,oicq字段<br>"
conn.execute("update gbinfo set showlynum2=20,defaultstyle='board',zanghua='他妈的|王八蛋|操',Bottomstr='"&btstr&"&nbsp;<a href=http://gbook.bootu.com target=_blank>BTB1.3</A>'")
response.write "成功初始化showlynum2、defaultstyle、zanghua的值<br>"
conn.execute("update gbinfo set lymax='2|800', shhe=0")
response.write "成功初始化lymax、shhe的值<br><br><br><br>"
response.write "<b>第二步：转换超级用户密码</b><br><br>为提高留言本的安全，新版本超级用户密码采用MD5加密方式，原来的明文密码必须转换成MD5加密密码，否则无法登陆管理。<br><br><font color=red>注意：<br>转换只能操作一次，否则将无法登陆管理<br>如果你已转换过密码，请不要进行此操作！直接进入<a href=admin.asp><b><U>管理中心</U></b></a>设置有关参数。</font><form name=ud2 action='' method=post><input name=action type=hidden value=update2><input name=chpass type=submit value=开始转换密码></form>"
response.write footer
Conn.Close
set Conn=Nothing
end if

if action="update2" then
set GetPWD=conn.execute("select LogPWD from gbinfo")
PWD=MD5(GetPWD("LogPWD"))
set GetPWD=nothing
conn.execute("update gbinfo set LogPWD='"&PWD&"'")
response.write header
response.write "<br>成功转换密码<br><br>"
response.write "留言本数据库升级完毕!<br><br><br><b>第三步：参数设置</b><br><br><FONT COLOR=RED>请马上用FTP删除你空间上的To13.asp文件，切记！！</FONT><BR><BR>然后进入<a href=admin.asp><b><U>管理中心</U></b></a>设置有关参数。"
response.write footer
Conn.Close
set Conn=Nothing
end if

if action="" then
response.write header
%>
<form name=ud2 action="" method=post>
<input name=action type=hidden value=update1>
<b>第一步：升级数据库</b><br><br>
<font color=red>升级前请务必先备份你的旧数据库</font><br>
<br><br>
&nbsp;&nbsp;<input name=update type=submit value=开始升级数据库></form>
<%
response.write footer
end if%>
⌨️ 快捷键说明

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