| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 990 人关注过本帖
标题:[求助}缺少语句 wend
取消只看楼主 加入收藏
thbwn
Rank: 1
等 级:新手上路
帖 子:235
专家分:0
注 册:2007-10-2
结帖率:80%
收藏
 问题点数:0 回复次数:0 
[求助}缺少语句 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()
%>
搜索更多相关主题的帖子: wend 语句 Microsoft quot Content 
2008-02-24 11:47
快速回复:[求助}缺少语句 wend
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.099387 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved