knifewei的专栏

<br />Function AddX(val,digit)       //参数，第一个：处理的变量；第二个：处理后的位数<br /><br /><br />if isnull(val) then val="" end if <br />Dim Ret:Ret=CStr(val)<br />if(Len(Ret)>digit)then<br />Ret=right(Ret,digit)<br />else<br />Ret=Replace(Space(digit-Len(Ret))," ","0")&Re

<br />function formatNum(num, formatLen)<br />numLen = len(num)<br />if formatLen<numLen then<br /> formatNum = num<br />else<br /> tmpLen = formatLen-numLen<br /> for j=1 to tmpLen<br />  tmpStr = tmpStr&"0"<br /> next<br /> formatNum = tmpStr&num<br />en

<br />function formatNum(num, formatLen)<br />numLen = len(num)<br />if formatLen<numLen then<br /> formatNum = num<br />else<br /> tmpLen = formatLen-numLen<br /> for j=1 to tmpLen<br />  tmpStr = tmpStr&"0"<br /> next<br /> formatNum = tmpStr&num<br />en

<br /><!--#include file="../yy_oledb/yy3668_main.asp"--><br /><%call Creat_odb("","")<br />dim u_1,u_2<br />Dim url,host,snum,dll,sms(4),men_v,xml,Stat,ecid,pass,sents<br />Dim b0,b1,b2,b3,b4,b5,c:b5=0<br />url=Re_format("SMS","Server_url")<br />host=Re_fo