<% dim i,n,k
i=-1
if Request.QueryString("P")="Y" then
for n=1 to 493
if request.Form("ChkPM" & n)>0 then
i=i+1
end if
next
if i>-1 then
k=0
redim PMID(i)
for n=1 to 493
if request.Form("ChkPM" & n)>0 then
PMID(k)=request.Form("chkpm" & n)
'response.Write(pmid(k) & " " & k & "
<%
if i>-1 then
dim sql1
redim id(i),chnname(i),types(i),hw(i),Egg(i),Exp100(i),HP(i),Atk(i),Def(i),Spd(i),SpAtk(i),SpDef(i),all(i)
for n=0 to i
sql1=sql1 & "PMID=" & pmid(n)
if n=0 then sql1="where " & sql1
if n<>i then sql1=sql1 & " or "
next
n=0
sql="SELECT pmid,chnname,type1,type2,height,weight,egg1,egg2,exp100,hp,atk,def,spd,spatk,spdef,allzz FROM DPPM " & sql1 & " order by pmid; "
'response.Write(sql1 & "
" & sql & " " & n & i & " " & pmid(0))
dete.open sql,cnn,3,3
dete.movefirst
do until dete.eof
id(n)=dete("PMID")
chnname(n)=dete("chnname")
types(n)=dete("type1")
if "--"<>dete("type2") Then types(n)=types(n) & "/" & dete("type2")
hw(n)=dete("height")
if hw(n)<1 then hw(n)="0" & hw(n)
hw(n)=hw(n) & "m/" & dete("weight") & "kg"
egg(n)=dete("Egg1")
if isnull(dete("egg2"))=false then egg(n)=egg(n) & "/" & dete("EGG2")
exp100(n)=dete("exp100")
hp(n)=dete("HP")
atk(n)=dete("atk")
def(n)=dete("def")
spd(n)=dete("spd")
spatk(n)=dete("spatk")
spdef(n)=dete("spdef")
all(n)=dete("allzz")
n=n+1
dete.movenext
loop
dete.close
for n=0 to i
if len(id(n))<2 then id(n)="00" & id(n)
if len(id(n))<3 then id(n)="0" & id(n)
next
%>
| [PM对比] |
| |
<% for k=0 to i %>No.<%=id(k)%> <%=chnname(k)%> | <%if k=4 then exit for
next %>
<% if i<4 then
n=1
for n=1 to 4-i
%> | <%
next
end if %>
| |
<% for k=0 to i %>%>.png) | <%if k=4 then exit for
next %>
<% if i<4 then
n=1
for n=1 to 4-i
%> | <%
next
end if %>
| 属性 |
<% for k=0 to i %><%=types(k)%> | <%if k=4 then exit for
next %>
<% if i<4 then
n=1
for n=1 to 4-i
%> | <%
next
end if %>
| 身高体重 |
<% for k=0 to i %><%=hw(k)%> | <%if k=4 then exit for
next %>
<% if i<4 then
n=1
for n=1 to 4-i
%> | <%
next
end if %>
| 生蛋组别 |
<% for k=0 to i %><%=egg(k)%> | <%if k=4 then exit for
next %>
<% if i<4 then
n=1
for n=1 to 4-i
%> | <%
next
end if %>
| 100级EXP |
<% for k=0 to i %><%=exp100(k)%> | <%if k=4 then exit for
next %>
<% if i<4 then
n=1
for n=1 to 4-i
%> | <%
next
end if %>
| HP |
<% for k=0 to i %><%=hp(k)%> | <%if k=4 then exit for
next %>
<% if i<4 then
n=1
for n=1 to 4-i
%> | <%
next
end if %>
| 攻击 |
<% for k=0 to i %><%=atk(k)%> | <%if k=4 then exit for
next %>
<% if i<4 then
n=1
for n=1 to 4-i
%> | <%
next
end if %>
| 防御 |
<% for k=0 to i %><%=def(k)%>(<%=fix((hp(k)*2+31+255/4)*100/100+100+10)*fix(((def(k)*2+31+255/4)*100/100+5)*1.1)%>) |
<%if k=4 then exit for
next %>
<% if i<4 then
n=1
for n=1 to 4-i
%> | <%
next
end if %>
| 速度 |
<% for k=0 to i %> <%=spd(k)%> | <%if k=4 then exit for
next %>
<% if i<4 then
n=1
for n=1 to 4-i
%> | <%
next
end if %>
| 特攻 |
<% for k=0 to i %><%=spatk(k)%> | <%if k=4 then exit for
next %>
<% if i<4 then
n=1
for n=1 to 4-i
%> | <%
next
end if %>
| 特防 |
<% for k=0 to i %><%=spdef(k)%>(<%=fix((hp(k)*2+31+255/4)*100/100+100+10)*fix(((spdef(k)*2+31+255/4)*100/100+5)*1.1)%>) | <%if k=4 then exit for
next %>
<% if i<4 then
n=1
for n=1 to 4-i
%> | <%
next
end if %>
| 总和 |
<% for k=0 to i %><%=all(k)%> | <%if k=4 then exit for
next %>
<% if i<4 then
n=1
for n=1 to 4-i
%> | <%
next
end if %>
<% end if
%>