asp 往字符串开头的0 _ASP

asp 去字符串开头的0
asp 去字符串开头的0
例如00841636959931为841636959931
或013693289011为13693289011
或000123465656为123465656

------解决方案--------------------

VBScript code

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

%>