s = "00841636959931"
s = replace(replace(trim(replace(s & "a","0", " "))," ","0"),"a","")
response.write s

------解决方案--------------------
VBScript code

<%
s = "00841636959931"
Response.Write Trim0(s)
s = "013693289011"
Response.Write Trim0(s)
s = "000123465656"
Response.Write Trim0(s)

Function Trim0(s)
    Dim re
    Set re = New RegExp
    re.Pattern = "^0+"
    Trim0 = re.Replace(s, "")
End Function

%>