关于自定义函数不执行的问题
我写个文件corel.asp
<%
Sub Show_catalogue_index(record_nums,node_id,title_length,more_page)
set rs=server.createobject( "adodb.recordset ")
sql= "SELECT top 4 * FROM T_News WHERE F_CategoryID=1 ORDER BY F_ID DESC "
rs.open sql,conn,1,1
do while not rs.eof
if len(rs( "F_Title "))> 15 then
response.Write(left(rs( "F_Title "),15))
else
response.Write(rs( "F_Title "))
end if
n=n+1
rs.movenext
if n> =10 then exit do
loop
rs.close
set rs=nothing
End Sub
%>
在index.asp
调用
<%call Show_catalogue_index(2,4,8, "newsmore.asp ")%>
不论怎么搞就是没有错误提示也没有反映,请各位高手指点
[解决办法]
record_nums,node_id,title_length,more_page这些字段在函数里面没有看到
你下面调用肯定是什么都没有显示的
[解决办法]
do while not rs.eof
你说没输出东西
是不是rs没select到数据啊
检查SQL
[解决办法]
我打个比方
session验证
Function CheckSession(Weburl)
If Session( "username ")= " " And Session( "usertype ")= " " Then
Response.Redirect Weburl
End if
End Function 这里的weburl就是通用的变量,指向一个转向的页面
调用的时候 call checksession "*** " 星号部分是可变的
