求asp+access转asp+sql的个别代码！！！！！
这段代码本来在ASP+ACCESS上正常运行，但是在ASP+SQL上就出问题！
求这段代码的SQL版本的，怎么写？
——————————————————————————————————————————————————————
Function   Num2Char(ByVal   Num)
Do   While   Num   >   35
        Num2Char   =   Code2Asc(Num   Mod   36)   &   Num2Char
        Num   =   Int(Num   /   36)
Loop
Num2Char   =   Code2Asc(Num)   &   Num2Char
End   Function

'将0－35转换成（0-9   a-z）
Function   Code2Asc(ByVal   varCode)
If   varCode   >   9   Then
Code2Asc   =   Chr(varCode   +   87)
Else
Code2Asc   =   varCode
End   If
End   Function
————————————————————————————————————————————————
下面这个代码可能不需要修改，以防万一，也贴出来
Function   ShortName2ID(ByVal   sName)
ShortName2ID   =   0
'过滤SQL
sName   =   Replace(sName   &   " ",   " ' ",   " ")
sName   =   Replace(sName   &   " ",   "* ",   " ")
sName   =   Replace(sName   &   " ",   "   ",   " ")

If   Len(sName)   <   1   Then   Exit   Function

Dim   RsSI

SQL   =   "Select   Top   1   ID   From   [Tab_URL]   Where   ShortName   =   ' "   &   sName   &   " ' "
Set   RsSI   =   Conn.Execute(SQL)
If   Not   RsSI.Eof   Then   ShortName2ID   =   RsSI( "ID ")
Set   RsSI   =   Nothing
End   Function
————————————————————————————————————————————————————————

最后在递交写入数据库时，是这样的
Rs.AddNew
Rs( "Url ")   =   Url
ShortName   =   Num2Char(Rs( "ID ")   +   MinNumber) '就是这个地方调用
Rs( "ShortName ")   =   ShortName
rs( "shijian ")=now
rs( "yip ")=getIP
Rs.Update

------解决方案--------------------
什么问题，如果错误就贴出来错误信息
------解决方案--------------------
你的表的字段类型设置对了没有，以前的id是什么类型是自动增长的么？

转到sql数据库的时候自动增长自动要设置标识
------解决方案--------------------
ShortName = Num2Char(Rs( "ID ") + MinNumber) '就是这个地方调用
这个地方的+是加还是字符串连接啊，如果是字符串连接就用&
------解决方案--------------------
ShortName = Num2Char(Rs( "ID ") + MinNumber)这句中的Rs( "ID ")值是一直为空的，还没有成功添加之前就使用了Rs( "ID ")，难怪值都是0。

你再仔细检查一下Access的数据库，是不是和目前的SQL数据库中定义的字段类型一样