Question

ASP Function 问题！

Function L_Operation(web_file,web_para,user_type)
if user_type = "1" or user_type = "2" or user_type = "3" then
'1 超级管理员 有全部功能权限
if user_type ="1" then
if rs("sh")="1" then
response.Write("<td align='center' bgcolor='#FFFFFF'><a href='"&webfile&"?id="&rs(""¶&"")&"&sh=2&action=sh'>取消审核</a>")
else
response.Write("<td align='center' bgcolor='#FFFFFF'><a href='"&webfile&"?id="&rs(""¶&"")&"&sh=1&action=sh'>通过审核</a>")
end if
response.Write("|<a href='"&webfile&"?id="&rs(""¶&"")&"&action=modify'>修改</a>|<a href='"&webfile&"?id="&rs(""¶&"")&"&action=dele'>删除</a></td>")
end if
'2 超级管理员 有二审、修改功能权限
if user_type = "2" then
if rs("sh")="1" then
response.Write("<td align='center' bgcolor='#FFFFFF'>已审核")
else
if rs("sh")="2" then
response.Write("<td align='center' bgcolor='#FFFFFF'><a href='"&webfile&"?id="&rs(""¶&"")&"&sh=3&action=sh'>取消审核</a>")
else
response.Write("<td align='center' bgcolor='#FFFFFF'><a href='"&webfile&"?id="&rs(""¶&"")&"&sh=2&action=sh'>通过审核</a>")
end if
end if
response.Write("|<a href='"&webfile&"?id="&rs(""¶&"")&"&action=modify'>修改</a></td>")
end if
'3 超级管理员 有三审、修改功能权限
if user_type = "3" then
if rs("sh")="1" or rs("sh")="2" then
response.Write("<td align='center' bgcolor='#FFFFFF'>已审核")
else
if rs("sh")="3" then
response.Write("<td align='center' bgcolor='#FFFFFF'><a href='"&webfile&"?id="&rs(""¶&"")&"&sh=0&action=sh'>取消审核</a>")
else
response.Write("<td align='center' bgcolor='#FFFFFF'><a href='"&webfile&"?id="&rs(""¶&"")&"&sh=3&action=sh'>通过审核</a>")
end if
end if
response.Write("|<a href='"&webfile&"?id="&rs(""¶&"")&"&action=modify'>修改</a></td>")
end if
else
'0 没有任何功能权限
response.Write("<td colspan='3' bgcolor='#FFFFFF'>无权限</td>")
end if
End Function

call L_Operation(manage_news.asp,NewsID,request.Cookies("minfa")("users_lb"))

错误类型：
Microsoft VBScript 编译器错误 (0x800A03EA)
语法错误
/admin/news_list.asp, line 78
Function L_Operation(web_file,web_para,user_type)

哪里出了问题？

Answer 1

你好
你的问题可以这样回答
看你问题是，怎样制作网站的人气，那就是网站的在线人数是吧，下面是我给你代码
※程序代码一
<%
Dim
RefreshTime,
IdleTime,
TotalUsers,
OnlineUser(),
Tmp(),
Num,
I,
ID
RefreshTime
=
10
IdleTime
=
RefreshTime
*
3
Application.Lock
If
Application(Session.SessionID
&
"LastAccessTime")
=
Empty
Then
If
Application("TotalUsers")
=
Empty
Then
Application("TotalUsers")
=
0
ReDim
Tmp(Application("TotalUsers")
+
1)
Num
=
0
If
Application("TotalUsers")
>
0
Then
For
I
=
LBOUND(Application("OnlineUser"))
To
UBOUND(Application("OnlineUser"))
ID
=
Application("OnlineUser")(I)
If
ID
<>
Session.SessionID
Then
Tmp(Num)
=
ID
Num
=
Num
+
1
End
If
Next
End
If
Tmp(Num)
=
Session.SessionID
Application("TotalUsers")
=
Num
+
1
ReDim
Preserve
Tmp(Application("TotalUsers"))
Application("OnlineUser")
=
Tmp
End
If
Application(Session.SessionID
&
"LastAccessTime")
=
Timer
ReDim
Tmp(Application("TotalUsers"))
Num
=
0
For
I
=
0
To
Application("TotalUsers")
-
1
ID
=
Application("OnlineUser")(I)
If
(Timer
-
Application(ID
&
"LastAccessTime"))
<
IdleTime
Then
Tmp(Num)
=
ID
Num
=
Num
+
1
Else
Application(ID
&
"LastAccessTime")
=
Empty
End
If
Next
If
Num
<>
Application("TotalUsers")
Then
ReDim
Preserve
Tmp(Num)
Application("OnlineUser")
=
Tmp
Application("TotalUsers")
=
Num
End
If
Application.UnLock
%>
※程序代码二
<%=
Application("TotalUsers")
%>'这个是显示的
这段代码可以生成一个DW插件，详细怎样生成就不详细说了
-----------------------------------------
至于统计历史网站浏览人数更简单
至于在数据库中，新建一个记录集，在新建一个字段为number的
然后读取该数据，注意要在读取数据前先加1
即
number=number+1
代码简单，就不详细诉说了

Answer 2

你这里并没有附值给它，所以可以不用输入，但函数里同样也不能输入
<%
function
sj()
randomize
a=rnd*30
response.write
a
end
function
sj()
%>
这样也可以

Answer 3

改为:
call L_Operation("manage_news.asp",NewsID,request.Cookies("minfa")("users_lb"))