ools.asp 仿MOP对开式论坛程序 1.0源码程序 - ASP源码程序

www.gusucode.com > 仿MOP对开式论坛程序 1.0源码程序 > tools.asp
    <%@language="VBScript"%>
<!--#include file="title.asp"-->
<%
Dim i,toollist
contents=contents &"<title>道具使用－"& caption &"</title>"&_
"</head>"&_
"<base target="""& bbssn &"market"">"&_
"<body>"&_
""&_
"<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"" class=""tdc"">"
if gbmaduser="" then
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">出错</td></tr><tr><td><br>你还没登陆或者已经掉线。<br>请<a href=""login.asp"">登陆</a>，2秒后自动执行<Script Language=""JavaScript"">setTimeout(""location.href='login.asp'"",3000)</script>。<br><br></td></tr>"
else
rs.Open "tools Where gbmaduser='"& gbmaduser &"' Order by toolname",conn,1,1
if rs.Eof then
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">道具使用</td></tr><tr><td><br>你还没任何的道具，请到<a href=""market.asp"">道具市场</a>购买。<Script Language=""JavaScript"">window.open(""market.asp"","""& bbssn &"market"");</Script><br><br></td></tr>"
else
contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">你所拥有的道具</td></tr>"&_
"<tr class=""tds""><td>"&_
"<form name=""toolsell"" method=""post"" action=""toolsell.asp""><a href=""market.asp"" title=""进入道具超市"">道具超市</a>　<a href=""toolsell.asp"" title=""查看自己在道具市场出售的道具"">待售道具</a>　出售道具：<select name=""toolname"" size=""1"">"
toollist="<table border=""0"" cellpadding=""3"" cellspacing=""3"" width=""100%"">"&_
"<tr class=""toptr""><td width=""36""></td><td>道具说明</td><td width=""36"">数量</td></tr>"
For i=1 to rs.RecordCount
contents=contents &"<option value="""& rs("toolname") &""">"& rs("toolname") &"</option>"
Select Case rs("toolname")
Case "暗夜极光"
toollist=toollist &"<tr><td>暗夜极光</td><td class=""otr"">暗夜极光：在北半球夏日时，南极处于黑暗一片，就在这无尽的暗夜里有着多彩的极光，有人用魔法取得了极光。在发贴子时使用暗夜极光标题就可以选择各种绚丽的色彩了。此处不能使用。</td><td class=""otr"">"& rs("amount") &"</td></tr>"
Case "凤之羽粉"
toollist=toollist &"<tr><td><a href=""featherpowder.asp"">凤之羽粉</a></td><td class=""otr"">凤之羽粉：凤凰掠过天边，留下特别的光辉，凤之纹章是用凤凰的羽毛磨成的粉末，使用之后在你每次发贴或回帖之后就会留下你特有的印记。因为之含有少量的凤凰羽毛，所以只会留下50处印记。点击使用。</td><td class=""otr"">"& rs("amount") &"</td></tr>"
Case "精美礼盒"
toollist=toollist &"<tr><td><a href=""giftbox.asp"">精美礼盒</a></td><td class=""otr"">精美礼盒：精美的包装礼盒，你可以用它包装你的道具，然后送给其他人。点击使用。</td><td class=""otr"">"& rs("amount") &"</td></tr>"
Case "乱抱树熊"
toollist=toollist &"<tr><td>乱抱树熊</td><td class=""otr"">乱抱树熊：树熊很懒，很喜欢抱在树上睡觉，而乱抱树熊见到什么都想抱，如果抱住置顶的帖子就会使置顶时效减少48个小时。此处不能使用。</td><td class=""otr"">"& rs("amount") &"</td></tr>"
Case "社区支票"
toollist=toollist &"<tr><td><a href=""cheque.asp"">社区支票</a></td><td class=""otr"">社区支票：这是由社区银行制作的"& gbname &"转帐支票，用于把自己的"& gbname &"给其他人。点击使用。</td><td class=""otr"">"& rs("amount") &"</td></tr>"
Case "探察视镜"
toollist=toollist &"<tr><td>探察视镜</td><td class=""otr"">探察视镜：是用特殊工艺制作而成的视镜，用了它就可以看被删除掉的回复，不过由于厂商贪图利润，所以制作出来的视镜只能看一个回复，看完就会消失。此处不能使用。</td><td class=""otr"">"& rs("amount") &"</td></tr>"
Case "天使翅膀"
toollist=toollist &"<tr><td>天使翅膀</td><td class=""otr"">天使翅膀：就是从天使身上取下来的翅膀，本来是很稀少的，可是由于天使量产了之后就使得天使翅膀泛滥了，所以价格不会很高。使用了天使翅膀之后你的帖子就会被天使翅膀带到空中，由于是天使的翅膀，所以会在空中持续72小时。此处不能使用。</td><td class=""otr"">"& rs("amount") &"</td></tr>"
Case "显影水晶"
toollist=toollist &"<tr><td>显影水晶</td><td class=""otr"">显影水晶：在显影山脉上取得的水晶石，它拥有一种特殊的力量，就是可以通过它可以看到平时看不到的那些没有名字的发言人，但是使用一次后就消失了。此处不能使用。</td><td class=""otr"">"& rs("amount") &"</td></tr>"
Case "悬浮陨石"
toollist=toollist &"<tr><td>悬浮陨石</td><td class=""otr"">悬浮陨石：这是在一次彗星撞击地球的时候留下的大量陨石，这种陨石拥有一种特殊的力量，就是会带着你的帖子悬浮，但是只能悬浮24小时，24小时候后就会消失。此处不能使用。</td><td class=""otr"">"& rs("amount") &"</td></tr>"
End Select
rs.MoveNext
Next
toollist=toollist &"</table>"
contents=contents &"</select>　<input name=""button"" type=""submit"" value=""提交"" onmouseover=""this.className='over';"" onmouseout=""this.className='out';"" class=""out"">"&_
"</form>"& toollist &_
"</td></tr>"
end if
rs.Close
end if
contents=contents &"</table>"&_
""
%>
<!--#include file="bottom.asp"-->