发点恐怖的

zWEBHero 2010-02-24 03:58:46
想实现一个列表，在不同行的外观不同，1-4行使用一个样式，最后一行使用另一个样式，恐怖的是运行页面报出语句未结束，没有报多少行错，我猜应该是content="<li class='"&st&"'><a href='"&rsitem("link")&"' target='_blank'>"&"rsitem("itemDetail")"&"</a></li>"引号的问题，结果修改之后还这样，有没有高手说说写引号的技巧啊？我都是先写完双引号，然后在双引号里一点点的添加内容，怎么还出错？不会得了引号恐惧症吧？55555~~~


先说下数据库,表item

id itemClass itemDetail link
1 产品分类 第一产品分类 detail.asp
2 产品分类 第二产品分类 detail.asp
3 产品分类 第三产品分类 detail.asp
4 产品分类 第四产品分类 detail.asp
5 产品分类 第五产品分类 detail.asp

<!--#include file="..\frist\f.asp"-->
<link type="text/css" href="1.css" rel="stylesheet" rev="stylesheet" />
。。。。。。。。
。。。。。。。。

<div id="frist">
<ul>
<%=chooseItem("产品分类")%>
</ul>
</div>

==========================================================================================
f.asp代码：

<%
function chooseItem(ite)
dim rsitem,sqlitem,st,content
set rsitem=server.CreateObject("adodb.recordset")
sqlitem="select * from item where itemClass='"&ite&"' order by id"
rsitem.open sqlitem,conStr,1,1
for i=1 to 5
if i=5 then '1到4行使用一个样式，第5行单独使用一个样式
st="bottom"
else
st="li"
content="<li class='"&st&"'><a href='"&rsitem("link")&"' target='_blank'>"&"rsitem("itemDetail")"&"</a></li>"
rsitem.movenext
next
chooseItem=content
rsitem.close
end function
%>
...全文
192 18 打赏 收藏 转发到动态 举报
写回复
用AI写文章
18 条回复
切换为时间正序
请发表友善的回复…
发表回复
lp7wshishui 2010-07-02
  • 打赏
  • 举报
 回复
yunxiang_myx 2010-06-02
  • 打赏
  • 举报
 回复
路过，学习。
jhqd1380 2010-05-21
  • 打赏
  • 举报
 回复
[Quote=引用 3 楼 xiaofanku 的回复:]

try:
VBScript code

function chooseItem(ite)
dim rsitem,sqlitem,st,content
set rsitem=server.CreateObject("adodb.recordset")
sqlitem="select * from item where itemClass='"&……
[/Quote]
没有判断i=1 to 5,,,,i=5之后依然会执行,,直到eof
pilihuofeng 2010-05-12
  • 打赏
  • 举报
 回复
学习中 呵呵！
iisbsd 2010-03-20
  • 打赏
  • 举报
 回复
[Quote=引用 11 楼 zwebhero 的回复:]
这部分哪写错了呢？我这报错 ----
错误类型：
Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
C:\INETPUB\WWWROOT\FRIST\..\frist\f.asp, line 21, column 84
content="<li class='"&st&"'><a href='"&rsitem("link")&"' target='_blank'>"&"rsitem("itemDetail")"&"</a></li>"
[/Quote]

最后一行从"rsitem开始：
&"rsitem("itemDetail")"&

自己再看看？
zWEBHero 2010-02-25
  • 打赏
  • 举报
 回复
引用 12 楼 xiaofanku 的回复:
仔细看看


眼睛都看花了，告诉我吧
街头小贩 2010-02-24
  • 打赏
  • 举报
 回复
仔细看看
zWEBHero 2010-02-24
  • 打赏
  • 举报
 回复
引用楼主 zwebhero 的回复:
想实现一个列表，在不同行的外观不同，1-4行使用一个样式，最后一行使用另一个样式，恐怖的是运行页面报出语句未结束，没有报多少行错，我猜应该是content=" <li class='"&st&"'> <a href='"&rsitem("link")&"' target='_blank'>"&"rsitem("itemDetail")"&" </a> </li>"引号的问题，结果修改之后还这样，有没有高手说说写引号的技巧啊？我都是先写完双引号，然后在双引号里一点点的添加内容，怎么还出错？不会得了引号恐惧症吧？55555~~~


先说下数据库,表item

id      itemClass          itemDetail            link
1      产品分类          第一产品分类        detail.asp
2      产品分类          第二产品分类        detail.asp
3      产品分类          第三产品分类        detail.asp
4      产品分类          第四产品分类        detail.asp
5      产品分类          第五产品分类        detail.asp


f.asp代码：

<%
function chooseItem(ite)
dim rsitem,sqlitem,st,content
set rsitem=server.CreateObject("adodb.recordset")
sqlitem="select * from item where itemClass='"&ite&"' order by id"
rsitem.open sqlitem,conStr,1,1
for i=1 to 5
if i=5 then        '1到4行使用一个样式，第5行单独使用一个样式
st="bottom"
else
st="li"
content=" <li class='"&st&"'> <a href='"&rsitem("link")&"' target='_blank'>"&"rsitem("itemDetail")"&" </a> </li>"
rsitem.movenext
next
chooseItem=content
rsitem.close
end function
%>



这部分哪写错了呢？我这报错 ----
错误类型：
Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
C:\INETPUB\WWWROOT\FRIST\..\frist\f.asp, line 21, column 84
content="<li class='"&st&"'><a href='"&rsitem("link")&"' target='_blank'>"&"rsitem("itemDetail")"&"</a></li>"

不是引号有问题还是？？？具体说说哈，我比较笨，嘿嘿，3Q~
zWEBHero 2010-02-24
  • 打赏
  • 举报
 回复
引用 9 楼 xiaofanku 的回复:
搜了下vbscript的教程写的也太粗了，都没什么例子，很打击我55555555
re:
js确实很强大！但和服务器端还是不一样的！ASP除了用VBScript的语法还有它有自已的内置对象


觉得vbscript很麻烦，比javascript麻烦多了，太容易出错了，
vbscript内置对象我知道session,application,server,response,requset常用就这些吧？
街头小贩 2010-02-24
  • 打赏
  • 举报
 回复
搜了下vbscript的教程写的也太粗了，都没什么例子，很打击我55555555
re:
js确实很强大！但和服务器端还是不一样的！ASP除了用VBScript的语法还有它有自已的内置对象
街头小贩 2010-02-24
  • 打赏
  • 举报
 回复
引用 6 楼 zwebhero 的回复:
为么出错？？？逻辑上没问题吧？

好好看看我写 的和你写的！有哪都不一样
zWEBHero 2010-02-24
  • 打赏
  • 举报
 回复
引用 2 楼 lure2222 的回复:
字符串用'""'没问题

你数字类型的还用这个？？？必须出错啊，我猜你这句错了！sqlitem="select * from item where itemClass='"&ite&"' order by id"

itemclass是数字类型吧！改为 itemClass="&ite&"试试


老大你没看我前面写的数据库吗？itemclass里写的是文本类型的，不是数字
zWEBHero 2010-02-24
  • 打赏
  • 举报
 回复
引用 1 楼 xiaofanku 的回复:
这是缩进后的一种:
VBScript codefunction chooseItem(ite)dim rsitem,sqlitem,st,contentset rsitem=server.CreateObject("adodb.recordset")
sqlitem="select * from item where itemClass='"&ite&"' order by id"
rsitem.open sqlitem,conStr,1,1for i=1to5if i=5then'1到4行使用一个样式，第5行单独使用一个样式 st="bottom"else
st="li"
content=" <li class='"&st&"'> <a href='"&rsitem("link")&"' target='_blank'>"&"rsitem("itemDetail")"&" </a> </li>"
rsitem.movenextnext
chooseItem=content
rsitem.closeend function
你觉得它会正常执行么?即使有end if它依然会出错


为么出错？？？逻辑上没问题吧？
zWEBHero 2010-02-24
  • 打赏
  • 举报
 回复
引用 4 楼 xiaofanku 的回复:
好好去看看基础知识！我都不知道说你什么好


我根本没看过vbscript的教程，我会javascript，觉得有些地方比较相似，搜了下vbscript的教程写的也太粗了，都没什么例子，很打击我55555555
街头小贩 2010-02-24
  • 打赏
  • 举报
 回复
好好去看看基础知识！我都不知道说你什么好
街头小贩 2010-02-24
  • 打赏
  • 举报
 回复
try:


function chooseItem(ite)

       dim rsitem,sqlitem,st,content

       set rsitem=server.CreateObject("adodb.recordset")

       sqlitem="select * from item where itemClass='"&ite&"' order by id"

       rsitem.open sqlitem,conStr,1,1

       

       If Not rsitem.EOF then 

              Dim I:I=1  

              do while NOT qRs.EOF                     

                       if I=5 then        '1到4行使用一个样式，第5行单独使用一个样式

                              st="bottom"

                       else

                              st="li"

                       end if

                      content=content&" <li class='"&st&"'> <a href='"&rsitem("link")&"' target='_blank'>"&rsitem("itemDetail")&" </a> </li>"

                       I=I+1

                      rsitem.movenext

              loop

       End If

       chooseItem=content

       rsitem.close

                

end function
lure2222 2010-02-24
  • 打赏
  • 举报
 回复
字符串用'""'没问题

你数字类型的还用这个？？？必须出错啊，我猜你这句错了！sqlitem="select * from item where itemClass='"&ite&"' order by id"

itemclass是数字类型吧！改为 itemClass="&ite&"试试
街头小贩 2010-02-24
  • 打赏
  • 举报
 回复
这是缩进后的一种:


function chooseItem(ite)

       dim rsitem,sqlitem,st,content

       set rsitem=server.CreateObject("adodb.recordset")

       sqlitem="select * from item where itemClass='"&ite&"' order by id"

       rsitem.open sqlitem,conStr,1,1

              for i=1 to 5

                       if i=5 then        '1到4行使用一个样式，第5行单独使用一个样式

                              st="bottom"

                       else

                              st="li"

                              content=" <li class='"&st&"'> <a href='"&rsitem("link")&"' target='_blank'>"&"rsitem("itemDetail")"&" </a> </li>"

                              rsitem.movenext

              next

              chooseItem=content

              rsitem.close

end function

你觉得它会正常执行么?即使有end if它依然会出错
恐怖黎明稳定服务器,恐怖黎明新人联机图文教程 怎么联机-游侠网
恐怖黎明怎么联机?不少玩家想体验联机，但是不知道方法，小编这里给大家带来了新人联机图文教程，不会的萌新来学习下吧。联机图文教程:A1 联机：因为gd(grimdawn)没有自己的战网平台(就是专供联机玩的专职服务器 server)，大家联机玩实际是局域网联机(可以这样理解 ： 家庭局域网->城市局域网->世界局域网 )专业术语叫P2P 点对点的连接，大家自行百度脑补吧。A11主机：想做...
程序员述说阿里HR的恐怖：晚上11点接到面试电话
晚上11点你在做什么？ 想必大多数养身派已经入睡或者准备睡觉，习惯熬夜的夜猫子们则刷着手机网上冲浪欲罢不能。这个时间点有电话进来，要么是推销诈骗，要么是真有急事，现在还有一种可能是HR的面试电话。就有一名程序员晚上11点接到了阿里HR的面试电话，对此这名程序员表示：阿里加班太恐怖了，晚上11点打了个电话来，问我方不方便面试。 对于这名程序员晚上11点接到面试电话，无独有偶不少同行表示自己也接到过...
恐怖黎明稳定服务器,《恐怖黎明》新人联机图文教程 怎么联机
恐怖黎明怎么联机?不少玩家想体验联机，但是不知道方法，小编这里给大家带来了新人联机图文教程，不会的萌新来学习下吧。联机图文教程:A1 联机：精彩内容，尽在百度攻略：https://gl.baidu.com因为gd(grimdawn)没有自己的战网平台(就是专供联机玩的专职服务器 server)，大家联机玩实际是局域网联机(可以这样理解 ： 家庭局域网->城市局域网->世界局域网 )专业...
剧本杀恐怖本怎么写
亲爱的小伙伴们，晚上好，我是你们的小妖姐姐~最近，在和小伙伴们的沟通中，有个高频词出现——“恐怖本”。创作恐怖本剧本杀作品时，作者需要在故事讲述和游戏设计方面下足功夫，确保剧本可以在保持玩家参与度的同时，提供足够的恐怖和悬疑元素。故事必须清晰包含：起因，经过，结果，人物的结局，还得保证故事能反转，这才是好的剧本杀故事。而在最后，他们可能会发现，诅咒的真相与他们每个人的过去紧密相连。玩家可能会被挑战，面对自己最深的恐惧（例如，通过角色扮演的背景，如果某个玩家害怕鬼魂，他的任务可能就是调查被认为是闹鬼的旧宅）
恐怖机器人使用12则
 t1,钻坦克:不要直接点对方坦克,先点到离坦克1-2厘米处,再让其自动攻击.关于蜘蛛避弹:对方坦克发弹时,垂直对方坦克炮管方向快速拉动蜘蛛,基本可以成功.  2,偷基地:偷别人基地的时候带一只恐怖机器人去,如果他基地收起来,恐怖机器人进去.这里要注意一点:恐怖机器人不要坐在运兵车里,以免D后,一来它到处乱窜,很容易被对方的防守力量干掉,二来它急于立功,进了对方过来防守的坦克的肚子,对方的基地却
vbScript

4,007

社区成员

3,512

社区内容

发帖
与我相关
我的任务
社区描述
它是一种微软环境下的轻量级的解释型语言，它使用COM组件、WMI、WSH、ADSI访问系统中的元素，对系统进行管理。
社区管理员
  • vbScript社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章