一个vbscript程序,自动按编号排序,看能实现他的功能吗?

<%
sub getnum(a,b)
b=replace(a,b)
sql="select * from 数据表 where mid(num,1,1)=’b’"
set rs =conn.execute(sql)
if rs.eof then
num1="b00000001"
else
do while not rs.eof
num=num+1
rs.movenext
loop
num=num+1
for i=1to(8-clng(len(num)))
insect_num="0" & num
next
num1="b" & num
end if
end sub
%>~~'
这个程序功能主要实现
b00000001
至b11111111
b的值可改变

 

我调试了一下,MID函数在SQLSERVER中不能使用,