[求助}缺少语句 wend
错误类型：Microsoft VBScript 编译器错误 (0x800A0400)
缺少语句
/bbs/jz_mingdan.asp, line 93
wend
<!--#include file="inc.asp"-->
<%
If Not BBS94KK.Founduser Then BBS94KK.GoToErr(10)
ConnectionDatabase()
bbs94kk.head("获奖章名单")
dim sql,rs,i,page_count,Pcount,totalrec,currentPage,Content
totalrec=conn.execute("select count(id) from KK_user where jzdata<>''")(0)
Content=Content&"<table border='0' width='100%' cellpadding=0 cellspacing=0 align=center><tr height='25'><td width='33.3%' align=center><a href=jz_jieshao.asp><b>奖章介绍</b></a></td><td width='33.3%' align=center><a href=jz_mingdan.asp><b>获奖章名单</b></a></td><td width='33.3%' align=center><a href=jz_shijian.asp><b>事件察看</b></a></td></tr><tr><td align=center valign=middle colspan='3' height=15></tr>"
Content=Content&"<tr><td colspan='3'><table align='center' boder='0'><tr><td><font color=red>您获得的奖章：</font></td><td style='padding-bottom:3px;'>"
set rs=conn.execute("select jzdata from kk_user where name='"&bbs94kk.myname&"'")
dim jzid,jzname,jzsm,jzpicurl,jzdata,jzq,jzrs
if rs("jzdata")<>"" then
jzdata=split(rs("jzdata"),"|||")
for i=0 to ubound(jzdata)-1
jzq=jzdata(i)
if jzq<>"0" then
set jzrs=conn.execute("select * from kk_jzdata where jzid="&jzq)
jzid=jzrs("jzid")
jzname=jzrs("jzname")
jzsm=jzrs("jzsm")
jzpicurl=jzrs("jzpicurl")
Content=Content&"<span style='padding-right:5px;'><img src=images/cham/"&jzrs("jzpicurl")&" title="&jzsm&"></span>"
end if
next
if rs("jzdata")="0|||0|||0|||0|||0|||0|||0|||0|||0|||0|||" then
Content=Content&"<font color=blue>要努力哦！你暂时没有什么奖章！</font>"
end if
else
Content=Content&"<font color=blue>要努力哦！你暂时没有什么奖章！</font>"
end if
Content=Content&"</td></tr></table></td></tr></table>"
Content=Content&"<table border='1' cellpadding=0 cellspacing=0 align=center width='100%'><tr height='25'><th colspan=11 align=center>--== 山庄奖章中心-获奖章名单 ==--</th></tr><tr><td width='*' height='22' align=center>姓名</td><td width='7%' height='22' align=center>奖章一</td><td width='7%' height='22' align=center>奖章二</td><td width='7%' height='22' align=center>奖章三</td><td width=7% height='22' align='center'>奖章四</td><td height='22' align=center width='7%'>奖章五</td><td width='7%' height='22' align='center'>奖章六</td><td width=7% height='22' align='center'>奖章七</td><td height='22' align=center width='7%'>奖章八</td><td width=7% height='22' align='center'>奖章九</td><td width=7% height='22' align='center'>奖章十</td></tr>"
Set Rs=Server.CreateObject("ADODB.RecordSet")
sql="select id,name,jzdata from [kk_user] where jzdata<>'' "
rs.open sql,conn,1,1
if rs.eof and rs.bof then
currentpage=0
Content=Content&"<tr><td valign=middle colspan=11>当前没有用户数据！</td></tr>"
else
currentPage=request.querystring("page")
if currentpage="" or isNumeric(currentpage) = 0 then
currentpage=1
else
currentpage=clng(currentpage)
if err then
currentpage=1
err.clear
end if
end if
rs.PageSize = 10
rs.AbsolutePage=currentpage
page_count=0
totalrec=rs.recordcount
while (not rs.eof) and (not page_count = rs.PageSize)
jzdata=rs("jzdata")
jzdata=split(jzdata,"|||")
Content=Content&"<tr height=22><td align=center valign=middle>"
'第一枚奖章
jzq=jzdata(0)
if jzq<>"0" then
set jzrs=conn.execute("select * from kk_jzdata where jzid="&jzq)
jzid=jzrs("jzid")
jzname=jzrs("jzname")
jzsm=jzrs("jzsm")
jzpicurl=jzrs("jzpicurl")
Content=Content&"<img src=plus/xzplus/pic/'"&jzrs("xzpicurl")&"' title='"&jzsm&"'></td>"
Content=Content&"<td align=center valign=middle>"
'第二枚奖章
jzq=xzdata(1)
if jzq<>"0" then
set jzrs=conn.execute("select * from kk_jzdata where jzid="&jzq)
jzid=jzrs("jzid")
jzname=jzrs("jzname")
jzsm=jzrs("jzsm")
jzpicurl=jzrs("jzpicurl")
Content=Content&"<img src=plus/xzplus/pic/"&jzrs("jzpicurl")&" title="&jzsm&"></td>"
Content=Content&"<td align=center valign=middle>"
'第三枚奖章
Content=Content&"</td><td align=center valign=middle>22</td><td align=center valign=middle style='padding-top:5px;padding-bottom:5px;'>22</td><td align=center valign=middle>22</td>"
Content=Content&"<td align=center>22</td><td>44</td><td>44</td><td>44</td><td>44</td></tr>"
page_count = page_count + 1
rs.movenext
wend
end if
Content=Content&"</table>"
dim endpage
Pcount=rs.PageCount
Content=Content&"<table border=0 cellpadding=0 cellspacing=0 Width='100%' align=center><tr><td valign=middle nowrap>页次：<b>"¤tpage&"</b>/<b>"&Pcount&"</b>页每页<b>"&rs.PageSize&"</b>条共有<b>"&totalrec&"</b>条记录</td><td valign=middle nowrap><div align=right><p>分页："
if currentpage > 4 then
Content=Content&"<a href=""?page=1"">[1]</a> ..."
end if
if Pcount>currentpage+3 then
endpage=currentpage+3
else
endpage=Pcount
end if
for i=currentpage-3 to endpage
if not i<1 then
if i = clng(currentpage) then
Content=Content&"<font color=red>["&i&"]</font>"
else
Content=Content&"<a href=""?page="&i&""">["&i&"]</a>"
end if
end if
next
if currentpage+3 < Pcount then
Content=Content&"... <a href=""?page="&Pcount&""">["&Pcount&"]</a>"
end if
Content=Content&"</p></div></font></td></tr></table>"
Call BBS94KK.ShowTable("获奖章名单",Content)
rs.close
set rs=nothing
conn.close
set conn=nothing
bbs94kk.footer()
%>
