51-6.asp

一个小巧的论坛程序 本程序基本功能： 可开设任意数目的讨论区类别和版块 使用Cookies

<%dburl="6k.mdb"%>

<%
Server.ScriptTimeout="99999"
Set myconn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dburl)
myconn.open connstr%>
<%myconn.execute("select * into bbs2 from [min]")
%>
————————————————————-————————成功<br>
<%myconn.execute("select id,zhuti,name,hits,face,bd,gonggao,riqi,orders,type,isvote into bbstl from [min] where bid=0")
myconn.execute("drop table [min]")
myconn.execute("alter table bbstl add bnum int Default 0,lastre varchar(255),totable int")
myconn.execute("update bbstl set totable=1")
myconn.execute("create index name on bbstl (name)")
myconn.execute("create index bd on bbstl (bd)")
myconn.execute("create index gonggao on bbstl (gonggao)")
myconn.execute("create index orders on bbstl (orders)")
myconn.execute("create index type on bbstl (type)")
myconn.execute("create index totable on bbstl (totable)")
myconn.execute("delete * from bbstl where gonggao<>0 and gonggao<>5 and gonggao<>3")
%>
————————————————————-————————成功<br>
<%myconn.execute("alter table bbs2 alter id int")
myconn.execute("alter table bbs2 add bbsid int IDENTITY (1,1),bnum int Default 0")
myconn.execute("update bbs2 set id=0 where bid<>0")
myconn.execute("select bbsid,id,zhuti,name,body,riqi,hits,bd,bid,face,gonggao,orders,type,isvote,bnum into bbs1 from bbs2")
myconn.execute("drop table [bbs2]")
myconn.execute("create index id on bbs1 (id)")
myconn.execute("create index bbsid on bbs1 (bbsid)")
myconn.execute("create index name on bbs1 (name)")
myconn.execute("create index bd on bbs1 (bd)")
myconn.execute("create index bid on bbs1 (bid)")
myconn.execute("create index gonggao on bbs1 (gonggao)")
myconn.execute("create index type on bbs1 (type)")
myconn.execute("alter table bbs1 alter id int default 0")
myconn.execute("alter table bbs1 alter bd int Default 0")
myconn.execute("alter table bbs1 alter bid int Default 0")
myconn.execute("alter table bbs1 alter face varchar(20) Default re")
myconn.execute("alter table bbs1 alter gonggao int Default 0")
myconn.execute("alter table bbs1 alter type int Default 0")
myconn.execute("alter table bbs1 alter isvote int Default 0")
myconn.execute("alter table bbs1 alter bnum int Default 0")
myconn.execute("alter table bbs1 alter hits int Default 0")
myconn.execute("delete * from bbs1 where gonggao<>0 and gonggao<>5 and gonggao<>3")

myconn.execute("alter table bbstl alter bd int Default 0")
myconn.execute("alter table bbstl alter face varchar(20) Default re")
myconn.execute("alter table bbstl alter gonggao int Default 0")
myconn.execute("alter table bbstl alter type int Default 0")
myconn.execute("alter table bbstl alter isvote int Default 0")
myconn.execute("alter table bbstl alter bnum int Default 0")
myconn.execute("alter table bbstl alter hits int Default 0")

%>

————————————————————-————————成功<br>
<%myconn.execute("alter table [user] add question varchar(100),answer varchar(100),bbsnum int default 0")
myconn.execute("update [user] set answer=anhao,question='你的备用密码是？',bbsnum=0")
myconn.execute("alter table [user] drop anhao")
%>

————————————————————-————————成功<br>
<%
myconn.execute("alter table bdinfo add bbsnum int,tnum int,lastbbs varchar(255)")
myconn.execute("update bdinfo set tnum=0")
%>
————————————————————-————————成功<br>
<%myconn.execute("create table gonggao (id int IDENTITY (1, 1) NOT NULL CONSTRAINT PrimaryKey PRIMARY KEY,zhuti varchar(255),name varchar(20),body text,riqi datetime,bd int default 0)")
myconn.execute("create index bd on gonggao (bd)")
%>

————————————————————-————————成功<br>
<%
myconn.execute("create index bd on admin (bd)")
myconn.execute("create index name on admin (name)")
%>

————————————————————-————————成功<br>
<%
myconn.execute("create index bn on bdinfo (bn)")
%>
————————————————————-————————成功<br>

<%myconn.execute("alter table bbsinfo add topicnum int,newuser varchar(50),bbsnum int,usernum int)")
myconn.execute("update bbsinfo set tlinfo='6K论坛su|?|#A7A7A7|?|#FAFAFA|?|<a href=index.asp><img border=0 src=pic/logo.gif></a>|?|4|?|200|?|e|?|1|?|1|?||?|1'")
myconn.execute("select tlinfo,todaynum,nyr,mostonline,mosttopic,topicnum,newuser,bbsnum,usernum into aaa from bbsinfo")
myconn.execute("drop table bbsinfo")
myconn.execute("select * into bbsinfo from aaa")
myconn.execute("drop table aaa")

%>
————————————————————-————————成功<br>


<p>全部完成！请运行<b><font color="#000080"><a href="admin-index.asp">后台的<font color="#800000">数据库压缩</font>和<font color="#000080">论坛整理</font></a></font></b><font color="#000080">
</font>
</p>