<% dim t,color
t=Request.QueryString("T")
if t="Mv" then
On Error Resume Next
dim N
N=Request.QueryString("N")%>
可习得<%=N%>的PM有
<% dim er,id
color=0
sql="SELECT * FROM MvLv where Mv='" & N & "'; "
dete.open sql,cnn,3,3
dete.movefirst
er=""
er=dete("PMID")
if er="" then
response.Write("
无
")
else
do until dete.eof
sql="SELECT PMID,chnname,jpnname,type1,type2,trait1,trait2,hp,atk,def,spd,spatk,spdef,allzz FROM DPPM where pmid=" & dete("PMID") & "; "
dete2.open sql,cnn,3,3
dete2.movefirst
id=dete2("pmid")
if len(id)<2 then id="00" & id
if len(id)<3 then id="0" & id
color=color+1 %>
bgcolor="#F4FBFF"<%
color=0
end if%>>
<%=dete2("pmid")%> |
<%=dete2("chnname")%> |
<%=dete2("jpnname")%> |
<%=dete2("type1")%>/<%=dete2("type2")%> |
<%if len(dete2("trait1") & "/" & dete2("trait2"))>7 then
response.Write("" & left(dete2("trait1") & "/" & dete2("trait2"),7) & "...")
else
response.Write(dete2("trait1") & "/" & dete2("trait2"))
end if%> |
<%=dete2("hp")%> |
<%=dete2("atk")%> |
<%=dete2("def")%> |
<%=dete2("spd")%> |
<%=dete2("spatk")%> |
<%=dete2("spdef")%> |
<%=dete2("allzz")%> |
<% dete2.close
dete.movenext
loop
end if
dete.close%>
<%
color=0
sql="SELECT * FROM MvEgg where Mv='" & N & "'; "
dete.open sql,cnn,3,3
dete.movefirst
er=""
er=dete("PMID")
if er="" then
response.Write("
无
")
else
do until dete.eof
sql="SELECT * FROM DPPM where pmid=" & dete("PMID") & "; "
dete2.open sql,cnn,3,3
dete2.movefirst
id=dete2("pmid")
if len(id)<2 then id="00" & id
if len(id)<3 then id="0" & id
color=color+1 %>
bgcolor="#F4FBFF"<%
color=0
end if%>>
<%=dete2("pmid")%> |
<%=dete2("chnname")%> |
<%=dete2("jpnname")%> |
<%=dete2("type1")%>/<%=dete2("type2")%> |
<%if len(dete2("trait1") & "/" & dete2("trait2"))>7 then
response.Write("" & left(dete2("trait1") & "/" & dete2("trait2"),7) & "...")
else
response.Write(dete2("trait1") & "/" & dete2("trait2"))
end if%> |
<%=dete2("hp")%> |
<%=dete2("atk")%> |
<%=dete2("def")%> |
<%=dete2("spd")%> |
<%=dete2("spatk")%> |
<%=dete2("spdef")%> |
<%=dete2("allzz")%> |
<% dete2.close
dete.movenext
loop
end if
dete.close%>
<%
color=0
sql="SELECT * FROM MvTH where Mv='" & N & "' order by pmid; "
dete.open sql,cnn,3,3
dete.movefirst
er=""
er=dete("PMID")
if er="" then
response.Write("
无
")
else
do until dete.eof
sql="SELECT * FROM DPPM where pmid=" & dete("PMID") & "; "
dete2.open sql,cnn,3,3
dete2.movefirst
id=dete2("pmid")
if len(id)<2 then id="00" & id
if len(id)<3 then id="0" & id
color=color+1 %>
bgcolor="#F4FBFF"<%
color=0
end if%>>
<%=dete2("pmid")%> |
<%=dete2("chnname")%> |
<%=dete2("jpnname")%> |
<%=dete2("type1")%>/<%=dete2("type2")%> |
<%if len(dete2("trait1") & "/" & dete2("trait2"))>7 then
response.Write("" & left(dete2("trait1") & "/" & dete2("trait2"),7) & "...")
else
response.Write(dete2("trait1") & "/" & dete2("trait2"))
end if%> |
<%=dete2("hp")%> |
<%=dete2("atk")%> |
<%=dete2("def")%> |
<%=dete2("spd")%> |
<%=dete2("spatk")%> |
<%=dete2("spdef")%> |
<%=dete2("allzz")%> |
<% dete2.close
dete.movenext
loop
end if
dete.close%>
<%
color=0
sql="SELECT * FROM MvOld where Mv='" & N & "'; "
dete.open sql,cnn,3,3
dete.movefirst
er=""
er=dete("PMID")
if er="" then
response.Write("
无
")
else
do until dete.eof
sql="SELECT * FROM DPPM where pmid=" & dete("PMID") & " order by pmid; "
dete2.open sql,cnn,3,3
dete2.movefirst
id=dete2("pmid")
if len(id)<2 then id="00" & id
if len(id)<3 then id="0" & id
color=color+1 %>
bgcolor="#F4FBFF"<%
color=0
end if%>>
<%=dete2("pmid")%> |
<%=dete2("chnname")%> |
<%=dete2("jpnname")%> |
<%=dete2("type1")%>/<%=dete2("type2")%> |
<%if len(dete2("trait1") & "/" & dete2("trait2"))>7 then
response.Write("" & left(dete2("trait1") & "/" & dete2("trait2"),7) & "...")
else
response.Write(dete2("trait1") & "/" & dete2("trait2"))
end if%> |
<%=dete2("hp")%> |
<%=dete2("atk")%> |
<%=dete2("def")%> |
<%=dete2("spd")%> |
<%=dete2("spatk")%> |
<%=dete2("spdef")%> |
<%=dete2("allzz")%> |
<% dete2.close
dete.movenext
loop
end if
dete.close%>
<%end if
cnn.close
%>