高分求asp读取数据保存为变量

来源:百度知道 编辑:UC知道 时间:2024/05/16 11:50:38
我的问题是这样的:我的ASP已连接数据库,我想从里面的TBL_Char表中的FLD_ITEM提取16进制数,保存为变量X(或其它)
然后用于strSQL = "Update [TBL_Char] WITH(UPDLOCK) SET [TBL_Char].[FLD_ITEM]=cvt(X) Where FLD_name='"&char&"'"
这里的CVT是这样的,我找人做了一个法则(以读取到的16进制数为基础,在这个数的第33和34位上增加一位,比如当33和34位是8F时,自动变成90),如下:
<script language=vbscript>
function cvt(strnum)
if len(strnum) >= 34 then
sn = mid(strnum, 33, 2)
sn = hex(eval("&H" & sn) + 1)
sn = right("00" & sn, 2)
cvt = left(strnum, 32) & sn & right(strnum, len(strnum) - 34)
end if
end function
</script>
请高手帮我看看并完成这一代码,谢谢

<%
'连接数据库略
set rs = conn.execute("select FLD_NAME,FLD_ITEM from TBL_Char")
do while not rs.eof
strname = rs("FLD_NAME")
stritem = rs("FLD_ITEM")
strsql = "update TBL_Char with (UPDLOCK) set FLD_ITEM='" & cvt(stritem) & "' where FLD_NAME='" & strname & "'"
conn.execute strsql
rs.movenext
loop
rs.close

'下面是cvt函数
function cvt(strnum)
if len(strnum) >= 34 then
sn = mid(strnum, 33, 2)
sn = hex(eval("&H" & sn) + 1)
sn = right("00" & sn, 2)
cvt = left(strnum, 32) & sn & right(strnum, len(strnum) - 34)
end if
end function
%>