function.inc.asp

[FIF]ASP互动视频VIP教程 书包

<%
'在客户端弹出提示消息
sub msgboxU(str)
  response.write("<script language=vbscript>msgbox "&chr(34)&str&chr(34)&"</script>")
end sub

'截断字符串函数
function cutstr(str,length,addstr)
  if len(str)<=length then
    cutstr=str
  else
    cutstr=left(str,length)&addstr
  end if
end function

%>