asp常用字元處理函數

function get_substring(str,length)
 dim result
 result = str
 if len(str)>length then
  result = left(str,length-1)&"..."
 end if
 get_substring = result
end function

function getpage(page)
 dim result
 if isnull(page) or isempty(page) or (not isnumeric(page)) then
  result =1
 else
  result=abs(cint(page))
 end if
 if result<1 then result=1
 getpage=result
end function

sub jsReturn(wordstr,url)
 if url="" then
 response.Write "<script language=""javascript"">alert("""&wordstr&""");history.go(-1);</script>"
 else
 response.Write "<script language=""javascript"">alert("""&wordstr&""");location.href="""&url&""";</script>"
 end if
 response.End()
end sub
function WchangeNum()
 WchangeNum = "onKeyUp=""value=value.replace(/D+/g,'')"""
end function