有这种函数吗？求这段函数的意思

sub HintWorkTZ(dbname,titlename,qxwh0,qxck0,qxckarea,ahref) '

 

对不起哦,
这个帖子发错了
~~
我把整个函数给大家(天天看程序,眼睛早花了)

sub HintWork(dbname,titlename,qxwh0,qxck0,qxckarea,ahref)
'加入权限start:
dim QxQuerySql
QxQuerySql=""
if InStr(session("role_qx"),","&qxckarea&",")<>"0" then
QxQuerySql="and area like '%"&session("area")&"%'"
end if
'startend
IF InStr(session("role_qx"),","&qxwh0&",")<>"0" or InStr(session("role_qx"),","&qxck0&",")<>"0" or InStr(session("role_qx"),","&qxckarea&",")<>"0" or session("login_name")="Admin" THEN
sql0="select readname from "&dbname&" where FBDATE>'"&idate&"' AND readname+',' not like '%,"&session("employee_id")&",%' "&QxQuerySql&""
rs0.open sql0,cn,1,1
count0=rs0.recordcount
if not rs0.eof then
response.write "<tr><td height='20'><a href='#' onClick=""window.open('../../"&ahref&"','','resizable=yes,scroll=no,status=no,titlebar=no,width=800,height=500,top=20,left=100')""><font style='font-size:14px'>有<font style='font-size:14px' color='red'>"&count0&"</font>个新的"&titlename&"需要阅读!</font></a></td></tr>"
'else
'response.write "<tr><td>无新的"&titlename&"</td></tr>"
end if
rs0.close
END IF
end sub