<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> 招式表 口袋吧珍钻PM图鉴
<% dim page,n,m,c On Error Resume Next page=Request.QueryString("page") c=Request.QueryString("c") c=cint(c) if page="" then page=1 select case page case 1 n="草" m="type" case 2 n="火" m="type" case 3 n="水" m="type" case 4 n="冰" m="type" case 5 n="电" m="type" case 6 n="超能" m="type" case 7 n="龙" m="type" case 8 n="邪恶" m="type" case 9 n="鬼" m="type" case 10 n="普通" m="type" case 11 n="岩石" m="type" case 12 n="地面" m="type" case 13 n="飞行" m="type" case 14 n="毒" m="type" case 15 n="钢" m="type" case 16 n="虫" m="type" case 17 n="格斗" m="type" case 18 n="?" m="type" case 19 n="物理" m="Class" case 20 n="特殊" m="Class" case 21 n="其它" m="Class" case 22 n="坚强" m="jinshen" case 23 n="聪明" m="jinshen" case 24 n="美丽" m="jinshen" case 25 n="出色" m="jinshen" case 26 n="可爱" m="jinshen" case 27 n="敌二体" m="fanwei" case 28 n="自身" m="fanwei" case 29 n="不定" m="fanwei" case 30 n="己方全场" m="fanwei" case 31 n="自身以外" m="fanwei" case 32 n="全场" m="fanwei" case 33 n="敌随机" m="fanwei" case 34 n="队友" m="fanwei" case 0 n=Request.QueryString("n") m=Request.QueryString("m") case else n="草" m="type" end select %> <% dim pmid pmid=Request.QueryString("pmid") if pmid<>"" then%>
继续查看此精灵资料<%end if %>
[招式]
  招式名 项目
<% dim color color=0 sql="SELECT * FROM Move where " & m & "='" & n & "' order by ID;" dete.open sql,cnn,3,3 dete.movefirst do until dete.eof color=color+1 %> bgcolor="#F4FBFF"<% color=0 end if%> title="<%=dete("chnname")%> 优先级:<%=dete("youxian")%> 可否被保护:<%=dete("baohu")%> 魔法衣是否有效:<%=dete("mofayi")%> 可否被抢夺:<%=dete("qiangduo")%> 鹦鹉学舌可否模仿:<%=dete("yingmu")%> 王者之印是否有效:<%=dete("wangzhe")%>">
" target="_blank">搜 "><%if c=dete("ID") then response.Write("")%><%=dete("chnname")%> 属性 <%=dete("type")%> 类型 <%=dete("class")%> 威力 <%=dete("power")%> 命中 <%=dete("acc")%> PP <%=dete("pp")%> 范围 <%=dete("fanwei")%>
<%if c=dete("ID") then response.Write("")%><%=dete("jpnname")%> 一般效果 <%=dete("about")%>
<%=dete("engname")%> 选美属性 <%=dete("jinshen")%> 选美得分 <%=dete("defen")%>  
  选美效果 <%=dete("xmabout")%>
<% response.Flush() dete.movenext loop dete.close cnn.close %>