PM对比口袋吧珍钻PM图鉴

<% 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 & "
") k=k+1 end if next end if else ' end if %>

<% 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 %>

<% for k=0 to i %><%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 %><%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 %><%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 %><%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 %><%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 %><%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 %><%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 %><%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 %> <%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 %> <%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 %><%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 %><%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 %><%if k=4 then exit for next %> <% if i<4 then n=1 for n=1 to 4-i %><% next end if %>

[PM对比]
	No.<%=id(k)%> <%=chnname(k)%>

属性	<%=types(k)%>
身高体重	<%=hw(k)%>
生蛋组别	<%=egg(k)%>
100级EXP	<%=exp100(k)%>
ＨＰ	<%=hp(k)%>
攻击	<%=atk(k)%>
防御	<%=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)%>)
速度	<%=spd(k)%>
特攻	<%=spatk(k)%>
特防	<%=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)%>)
总和	<%=all(k)%>

<% end if %>

<% cnn.close%>