大家帮忙看看~~吐血调试,

<script language="vbscript" runat="server">
Function getnum(a,b)
dim c,sql,num1,num,rs,insect_num
c=replace(a,"'",b)
sql="select * from PER_Client where num like '%c%'"
set rs =cn.execute(sql)
if rs.eof then
num1="c000001"
else
do while not rs.eof
num=num+1
rs.movenext
loop
num=num+1
for i=1 to (6-clng(len(num)))
insect_num="0" & num
next
num1="c" & num
end if
end Function
</script>
大家看看我能得到值c&NUM

 

但是不用like,我用MID(NUM,1,1)=C
SQLSERVER会提示MID无效,
所以我就想到用模糊查询来帮助我

 

问题很严重啊``~~
现在调试的结果竟然是说我缺少END语句,请大哥们在指点一下
错误如下

<script language="vbscript" runat="server">
Function getnum(a,b)
dim c,sql,num1,num,rs,insect_num
c=replace(a,"'",b)
sql="select * from PER_Client where num like '%"&c&"%'"
set rs =cn.execute(sql)
if rs.eof then
num1="c000001"
else
do while not rs.eof
num=num+1
rs.movenext
loop
num=num+1
for i=1 to (6-clng(len(num)))
insect_num="0" & num
next
num1="c" & num
end if
End function '(这行提示)缺少end语句
</script>

 

Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/@/@@/@@@/@@@@.asp，行20

 

那个语句倒是没有问题,
提示的是说我的语句缺少END.