<% set rs=server.createobject("adodb.recordset") rs.open "select * from armor where greater > 10 and greater < 21 order by greater desc",conn,1,1 if rs.recordcount>0 then rs.PageSize =20 '每页记录条数 iCount=rs.RecordCount '记录总数 iPageSize=rs.PageSize maxpage=rs.PageCount page=request("page") if Not IsNumeric(page) or page="" then page=1 else page=cint(page) end if if page<1 then page=1 elseif page>maxpage then page=maxpage end if rs.AbsolutePage=Page if page=maxpage then x=iCount-(maxpage-1)*iPageSize else x=iPageSize end if For i=1 To x %>
名称:<%=rs("name")%>[id:<%=rs("item_id")%>]
查看掉率
类型:<%if (rs("type") = "helm") then response.write(" 头盔 ") elseif (rs("type") = "cloak") then response.write(" 斗篷 ") elseif (rs("type") = "T") then response.write(" 内衣 ") elseif (rs("type") = "armor") then response.write(" 盔甲 ") elseif (rs("type") = "glove") then response.write(" 手套 ") elseif (rs("type") = "boots") then response.write(" 靴子 ") elseif (rs("type") = "shield") then response.write(" 盾牌 ") elseif (rs("type") = "amulet") then response.write(" 项链 ") elseif (rs("type") = "ring") then response.write(" 戒指 ") elseif (rs("type") = "belt") then response.write(" 腰带 ") elseif (rs("type") = "earring") then response.write(" 耳环 ") elseif (rs("type") = "guarder") then response.write(" 臂甲 ") end if %> <% dim star star = (rs("greater") - 10) %> <%if (rs("greater") > "10") and (rs("greater") < "21") then response.write(" 橙色装备,溶解指数") response.write(star) response.write("星,溶解可以获得宠物金牌或更好的物品。") end if %> 防御:<%=rs("ac")%>.安定:<%=rs("safenchant")%>. .可用职业:<%if (rs("use_royal") = "1") then response.write(" 王、 ") end if %> <%if (rs("use_knight") = "1") then response.write(" 骑、 ") end if %> <%if (rs("use_mage") = "1") then response.write(" 法、 ") end if %> <%if (rs("use_elf") = "1") then response.write(" 妖、 ") end if %> <%if (rs("use_darkelf") = "1") then response.write(" 黑、 ") end if %> <%if (rs("use_dragonknight") = "1") then response.write(" 龙骑、 ") end if %> <%if (rs("use_illusionist") = "1") then response.write(" 幻 ") end if %>
具体属性 <%if (rs("add_str") <> "0") then response.write(" 力量+ ") response.write rs("add_str") end if %> <%if (rs("add_con") <> "0") then response.write(" 体质+ ") response.write rs("add_con") end if %> <%if (rs("add_dex") <> "0") then response.write(" 敏捷+ ") response.write rs("add_dex") end if %> <%if (rs("add_int") <> "0") then response.write(" 智力+ ") response.write rs("add_int") end if %> <%if (rs("add_wis") <> "0") then response.write(" 精神+ ") response.write rs("add_wis") end if %> <%if (rs("add_cha") <> "0") then response.write(" 魅力+ ") response.write rs("add_cha") end if %> <%if (rs("add_hp") <> "0") then response.write(" HP+ ") response.write rs("add_hp") end if %> <%if (rs("add_mp") <> "0") then response.write(" MP+ ") response.write rs("add_mp") end if %> <%if (rs("add_hpr") <> "0") then response.write(" 回血+ ") response.write rs("add_hpr") end if %> <%if (rs("add_mpr") <> "0") then response.write(" 回蓝+ ") response.write rs("add_mpr") end if %> <%if (rs("m_def") <> "0") then response.write(" 魔防+ ") response.write rs("m_def") end if %> <%if (rs("add_sp") <> "0") then response.write(" 魔攻+ ") response.write rs("add_sp") end if %> <%if (rs("damage_reduction") <> "0") then response.write(" 伤害吸收: ") response.write rs("damage_reduction") end if %> <%if (rs("weight_reduction") <> "0") then response.write(" 负重强化: ") response.write rs("weight_reduction") end if %> <%if (rs("hit_modifier") <> "0") then response.write(" 攻击成功+ ") response.write rs("hit_modifier") end if %> <%if (rs("dmg_modifier") <> "0") then response.write(" 额外攻击点数+ ") response.write rs("dmg_modifier") end if %> <%if (rs("bow_hit_modifier") <> "0") then response.write(" 弓的命中率+ ") response.write rs("bow_hit_modifier") end if %> <%if (rs("bow_dmg_modifier") <> "0") then response.write(" 弓的额外伤害+ ") response.write rs("bow_dmg_modifier") end if %> <%if (rs("defense_water") <> "0") then response.write(" 水属性防御+ ") response.write rs("defense_water") end if %> <%if (rs("defense_wind") <> "0") then response.write(" 风属性防御+ ") response.write rs("defense_wind") end if %> <%if (rs("defense_fire") <> "0") then response.write(" 火属性防御+ ") response.write rs("defense_fire") end if %> <%if (rs("defense_earth") <> "0") then response.write(" 地属性防御+ ") response.write rs("defense_earth") end if %> <%if (rs("regist_stun") <> "0") then response.write(" 抗晕+ ") response.write rs("regist_stun") end if %> <%if (rs("regist_stone") <> "0") then response.write(" 抗石化+ ") response.write rs("regist_stone") end if %> <%if (rs("regist_sleep") <> "0") then response.write(" 抗睡眠+ ") response.write rs("regist_sleep") end if %> <%if (rs("regist_freeze") <> "0") then response.write(" 抗冻结+ ") response.write rs("regist_freeze") end if %> <%if (rs("trade") = "0") then response.write(" 可以交易. ") else response.write(" 不可交易. ") end if %> <%if (rs("bless") = "0") then response.write(" 祝福物品. ") else response.write(" 非祝福物品. ") end if %> <%if (rs("max_use_time") <> "0") then response.write(" 时限(秒): ") response.write rs("max_use_time") end if %>
<% rs.movenext next call PageControl(iCount,maxpage,page,"border=0 align=center","

") end if rs.close set rs=Nothing Sub PageControl(iCount,pagecount,page,table_style,font_style) '生成上一页下一页链接 Dim query, a, x, temp action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME") query = Split(Request.ServerVariables("QUERY_STRING"), "&") For Each x In query a = Split(x, "=") If StrComp(a(0), "page", vbTextCompare) <> 0 Then temp = temp & a(0) & "=" & a(1) & "&" End If Next Response.Write("" & vbCrLf ) Response.Write("" & vbCrLf ) Response.Write("" & vbCrLf ) Response.Write("" & vbCrLf ) Response.Write("
" & vbCrLf ) Response.Write(font_style & vbCrLf ) if page<=1 then Response.Write ("首 页 " & vbCrLf) Response.Write ("上一页 " & vbCrLf) else Response.Write("首 页 " & vbCrLf) Response.Write("上一页 " & vbCrLf) end if if page>=pagecount then Response.Write ("下一页 " & vbCrLf) Response.Write ("尾 页 " & vbCrLf) else Response.Write("下一页 " & vbCrLf) Response.Write("尾 页 " & vbCrLf) end if Response.Write(" 页次:" & page & "/" & pageCount & "页" & vbCrLf) Response.Write(" 共有 " & iCount & " 条信息" & vbCrLf) Response.Write(" 转到" & "" & "页" & vbCrLf & "") Response.Write("
" & vbCrLf ) End Sub %>