简单的ASP过程调用的问题

[fisher007]

第一次做网站，好多地方不懂，请教各位高手

首页调用过程<% call shownews() %>

此过程在<!--include file="../inc/syscode.asp"-->里


提示错误:Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft VBScript 运行时错误 错误 '800a000d'

类型不匹配: 'shownews'

哪位高手指点一下！

[fisher007]

TO 兔子
iis里开启父目录的，请问怎么开启？？

TO Carignano
没报错误在调用的时候就提示错误了：类型不匹配: 'shownews'

[fisher007]

iis里已经开启父目录了，还是出错！

[fisher007]

咦？人都哪去了？提前过五一了？

[笨笨兔兔兔兔兔]

<!--include file="../inc/syscode.asp"-->

这个的路径呢？？有可能路径出错，你这个错误的明显就是ShowNews没有被当成sub

[fisher007]

TO 兔子
我这次把syscode.asp和conn.asp都拷到当前目录里了
<!--include file="../inc/syscode.asp"-->
也改成<!--include file="syscode.asp"-->
可问题依旧！大哥，这是怎么回事啊？？

[leo963258]

改了一下,copy过去看有没错
<!--include file="conn.asp"-->
<%
sub ShowNews()
set ra=server.createobject("adodb.recordset")
ra.open "select * from f_news where deleted<>0 order by input_date",conn,1,1
if ra.recordcount>0 then
if ra.recordcount<6 then
f_count=ra.recordcount
else
f_count=6
end if
for i=0 to f_count

response.write "<tr><td width='2%'> </td><td>
response.write "·<a href='../fitment/newsinfo.asp?id="&ra("id")&"'>"&trim(ra("title"))&"</a>"
response.write "</td></tr>"
if not ra.eof then ra.movenext
next
else
end if
end sub
%>

[leo963258]

response.write "<tr><td width='2%'> </td><td> //这一行少一个引号,加上去啊

[fisher007]

TO 读书之人
可能不是sub shownews里的问题
它总是在调用 call shownews的时候提示错误，是不是我的机器设置的问题？？

[leo963258]

不会..

是那里面的问题

[fisher007]

IE总是提示：
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft VBScript 运行时错误 错误 '800a000d'

类型不匹配: 'shownews'

/fitment/index.asp，行66


这个缺少 'End' 是什么意思？？是不是这个事？

[leo963258]

你调用的时候不要用
call 和 括号 直接用 showNews 这个

[leo963258]

对,就是少了
end if
或多了个 if 才导致那样的问题.
贴出来

[leo963258]

你自己检查你一下, 你的判断语句流...
问题就在那里..绝对没错!!!

[fisher007]

多谢读书之人！！
问题我解决了,真不知道dreamwaver怎么想的,我把<!--include file="conn.asp"-->重新输入后就好了！
能调用shownews了，不过又出新问题了！
在syscode.asp里的
ra.open "select * from f_news where deleted<>0 order by input_date",conn,1,1
时提示
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'

/iisHelp/common/500-100.asp，行242

ADODB.Recordset 错误 '800a0bb9'

参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。

/fitment/syscode.asp，行5

这个问题，等会我另外开贴给分！

[leo963258]

<!--include file="conn.asp"-->
<%
sub ShowNews()
set ra=server.createobject("adodb.recordset")
ra.open "select * from f_news where deleted<>0 order by input_date",conn,1,1
if ra.recordcount>0 then
if ra.recordcount<6 then
f_count=ra.recordcount
else
f_count=6
end if
for i=0 to f_count

response.write "<tr><td width='2%'> </td><td>
response.write "·<a href='../fitment/newsinfo.asp?id="&ra("id")&"'>"&trim(ra("title"))&"</a>"
response.write "</td></tr>"
if not ra.eof then ra.movenext
next
else
end if
end if //这里少了个end if 你看下是不是放在这里,,,是if ra.recordcount>0 then 这个语句的
end sub
%>

[fisher007]

TO 读书之人 谢谢你的关注！！
不过问题不是在那,我的end if不少！

在syscode.asp里的

ra.open "select * from f_news where deleted<>0 order by input_date",conn,1,1

时提示:


Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'

/iisHelp/common/500-100.asp，行242

ADODB.Recordset 错误 '800a0bb9'

参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。

/fitment/syscode.asp，行5

[leo963258]

QQ80872418
加上来,这里太慢!!!不介意的话,

[fisher007]

呵呵，问题解决了，都是自己马虎的毛病！
include前没加#

[leo963258]

不好意思,刚看错了.
这里面好像有问题哈!!
<!--include file="conn.asp"-->
conn这个有问题

[笨笨兔兔兔兔兔]

to leo963258(读书之人)

if 有两种写法，你用if ...then
end if
和

if ....then ...是一样的不需要写end if 的