up-leitai.asp

BBSXP插件！社区比赛用的

<!-- #include file="conn.asp" -->
<%
If IsSqlDataBase=0 Then connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&datapath&""&datafile&"")
Set Conn=Server.CreateObject("ADODB.Connection")
conn.Open connstr


on error resume next '忽列错误

conn.execute("CREATE TABLE mytools")
conn.execute("alter table [mytools] add username varchar(255)")
conn.execute("alter table [mytools] add toolname varchar(255)")
conn.execute("alter table [mytools] add [sum] int default 0")
conn.execute("alter table [mytools] add buydate datetime default "&SqlNowString&"")
conn.execute("alter table [mytools] add info varchar(255)")
conn.execute("alter table [mytools] add price int default 0")
conn.execute("alter table [mytools] add use int default 0")

conn.execute("CREATE TABLE leitai")
conn.execute("alter table [leitai] add id int IDENTITY (1, 1)")
conn.execute("alter table [leitai] add bwname varchar(255)")
conn.execute("alter table [leitai] add bwjieguo varchar(255)")
conn.execute("alter table [leitai] add bwbeizhan int default 0")
conn.execute("alter table [leitai] add zhstopic int default 0")
conn.execute("alter table [leitai] add bwtopic int default 0")
conn.execute("alter table [leitai] add bwnow datetime default "&SqlNowString&"")
conn.execute("alter table [leitai] add bwtime int default 0")

conn.execute("CREATE TABLE tools")
conn.execute("alter table [tools] add toolname varchar(255)")
conn.execute("alter table [tools] add toolimg varchar(255)")
conn.execute("alter table [tools] add info varchar(255)")
conn.execute("alter table [tools] add price int default 0")
conn.execute("alter table [tools] add exp int default 0")
conn.execute("alter table [tools] add magicpower int default 0")
conn.execute("alter table [tools] add life int default 0")
conn.execute("alter table [tools] add use int default 0")



set rs=server.CreateObject("adodb.recordset")


rs.Open "select * from [tools]",Conn,1,3

rs.AddNew
rs("toolname")="笑笑巧克力"
rs("toolimg")="images/plus/qiaoke.gif"
rs("price")=100
rs("exp")=0
rs("magicpower")=0
rs("life")=80
rs("use")=1
rs("info")="选料考究，香甜可口，吃了以后心情愉快，体力大补."
rs.Update


rs.AddNew
rs("toolname")="金庸全集"
rs("toolimg")="images/plus/jh.gif"
rs("price")=200
rs("exp")=5
rs("magicpower")=15
rs("life")=0
rs("use")=0
rs("info")="倾倒无数英雄的武侠小说全集，对发贴有帮助."
rs.Update

rs.AddNew
rs("toolname")="时空移动器"
rs("toolimg")="images/plus/move.gif"
rs("price")=500
rs("exp")=0
rs("magicpower")=40
rs("life")=0
rs("use")=0
rs("info")="社区流行的高科技产品，能够瞬间转移物体."
rs.Update

rs.AddNew
rs("toolname")="炒股专用电脑"
rs("toolimg")="images/plus/pc.gif"
rs("price")=1000
rs("exp")=0
rs("magicpower")=0
rs("life")=0
rs("use")=0
rs("info")="炒股一族的最佳排档，能够快速分析股票走势."
rs.Update


rs.AddNew
rs("toolname")="体力药丸"
rs("toolimg")="images/plus/9.gif"
rs("price")=100
rs("exp")=0
rs("magicpower")=5
rs("life")=60
rs("use")=1
rs("info")="由千年老参所制，可迅速补充体力60，提高魅力5."
rs.Update


rs.AddNew
rs("toolname")="经验药丸"
rs("toolimg")="images/plus/7.gif"
rs("price")=300
rs("exp")=10
rs("magicpower")=5
rs("life")=0
rs("use")=1
rs("info")="由万年雪莲所制，可增加经验10，增加魅力5."
rs.Update


rs.AddNew
rs("toolname")="鲜花"
rs("toolimg")="images/plus/flowers.gif"
rs("price")=500
rs("exp")=15
rs("magicpower")=6
rs("life")=0
rs("use")=0
rs("info")="送给心上人的决佳礼品，可增加经验15，增加魅力6."
rs.Update


rs.AddNew
rs("toolname")="鸡蛋"
rs("toolimg")="images/plus/egg.gif"
rs("price")=500
rs("exp")=-10
rs("magicpower")=-5
rs("life")=0
rs("use")=1
rs("info")="有点变质，可降低经验10，魅力5."
rs.Update


rs.AddNew
rs("toolname")="倚天剑"
rs("toolimg")="images/plus/arms08.jpg"
rs("price")=15000
rs("exp")=25
rs("magicpower")=0
rs("life")=0
rs("use")=2
rs("info")="与青釭剑是一对，为曹操所有，倚天是冲天的意思."
rs.Update


rs.AddNew
rs("toolname")="青釭剑"
rs("toolimg")="images/plus/arms04.jpg"
rs("price")=15000
rs("exp")=25
rs("magicpower")=0
rs("life")=0
rs("use")=2
rs("info")="与倚天剑是一对，据说削铁如泥，赵云在长阪坡取得."
rs.Update


rs.AddNew
rs("toolname")="方天画戟"
rs("toolimg")="images/plus/arms05.jpg"
rs("price")=10000
rs("exp")=18
rs("magicpower")=0
rs("life")=0
rs("use")=2
rs("info")="戟的尖端有月牙状的横刃，是吕布惯用的兵器."
rs.Update


rs.AddNew
rs("toolname")="青龙偃月刀"
rs("toolimg")="images/plus/arms01.jpg"
rs("price")=8000
rs("exp")=15
rs("magicpower")=0
rs("life")=0
rs("use")=2
rs("info")="关羽爱用的大刀，揭竿起义时请铁匠铸造，重八十二斤."
rs.Update


rs.AddNew
rs("toolname")="丈八蛇矛"
rs("toolimg")="images/plus/arms03.jpg"
rs("price")=8000
rs("exp")=15
rs("magicpower")=0
rs("life")=0
rs("use")=2
rs("info")="张飞惯用的钢矛，揭竿起义时请铁匠铸造，长一丈八尺. "
rs.Update


rs.AddNew
rs("toolname")="雌雄双剑"
rs("toolimg")="images/plus/arms02.jpg"
rs("price")=7500
rs("exp")=13
rs("magicpower")=0
rs("life")=0
rs("use")=2
rs("info")="刘备所使用的剑，揭竿起义时，由村中铁匠打造. "
rs.Update


rs.AddNew
rs("toolname")="七星宝刀"
rs("toolimg")="images/plus/arms07.jpg"
rs("price")=7000
rs("exp")=11
rs("magicpower")=0
rs("life")=0
rs("use")=2
rs("info")="曹操为刺杀董卓而向王允借的宝刀，上面镶嵌着七种宝石. "
rs.Update


rs.AddNew
rs("toolname")="古锭刀"
rs("toolimg")="images/plus/arms06.jpg"
rs("price")=7000
rs("exp")=11
rs("magicpower")=0
rs("life")=0
rs("use")=2
rs("info")="孙坚惯用的刀，大战董卓时，用以指挥战斗,刀不离手. "
rs.Update


rs.AddNew
rs("toolname")="手戟"
rs("toolimg")="images/plus/black03.jpg"
rs("price")=5000
rs("exp")=8
rs("magicpower")=0
rs("life")=0
rs("use")=3
rs("info")="暗器，短小的戟，演义中太史慈与孙策大战时使用 . "
rs.Update


rs.AddNew
rs("toolname")="袖箭"
rs("toolimg")="images/plus/black04.jpg"
rs("price")=4500
rs("exp")=7
rs("magicpower")=0
rs("life")=0
rs("use")=3
rs("info")="暗器，筒状，以弹簧的力量发射短箭，藏在袖中使用."
rs.Update


rs.AddNew
rs("toolname")="流星锤"
rs("toolimg")="images/plus/black05.jpg"
rs("price")=3500
rs("exp")=5
rs("magicpower")=0
rs("life")=0
rs("use")=3
rs("info")="暗器，绳的两端栓着铁锤，用来投掷.是王双的武器。."
rs.Update


rs.AddNew
rs("toolname")="飞刀"
rs("toolimg")="images/plus/black02.jpg"
rs("price")=1500
rs("exp")=3
rs("magicpower")=0
rs("life")=0
rs("use")=3
rs("info")="暗器，用于投掷的小刀，由孟获之妻祝融夫人使用."
rs.Update


rs.AddNew
rs("toolname")="玉玺"
rs("toolimg")="images/plus/guard01.jpg"
rs("price")=15000
rs("exp")=0
rs("magicpower")=25
rs("life")=0
rs("use")=4
rs("info")="始皇帝用蓝田的名玉所制成的印玺，作为帝位的证明."
rs.Update


rs.AddNew
rs("toolname")="赤兔马"
rs("toolimg")="images/plus/horse01.jpg"
rs("price")=12000
rs("exp")=0
rs("magicpower")=20
rs("life")=0
rs("use")=4
rs("info")="全身红如火焰，高一丈八尺的马，据说能够日行千里[四百公里]。"
rs.Update


rs.AddNew
rs("toolname")="的卢"
rs("toolimg")="images/plus/horse02.jpg"
rs("price")=7500
rs("exp")=0
rs("magicpower")=13
rs("life")=0
rs("use")=4
rs("info")="全身红如火焰，高一丈八尺的马，据说能够日行千里[四百公里]。"
rs.Update


rs.AddNew
rs("toolname")="绝影"
rs("toolimg")="images/plus/horse03.jpg"
rs("price")=7000
rs("exp")=0
rs("magicpower")=11
rs("life")=0
rs("use")=4
rs("info")="曹操的爱马，绝影指不见影子，形容其跑得飞快。大宛种。 "
rs.Update
rs.Close
%>
升级成功<br>
<br>如果有什么问题，请来 <a href=http://ecc.x-8.org/bbsxp/>ECC计算机协会论坛</a> 论坛提出，为你解决！