请高手帮我再修改一下这段ASP代码

来源:百度知道 编辑:UC知道 时间:2024/06/30 14:29:33
别人帮我做了一个ASP:参见http://zhidao.baidu.com/question/32855459.html中歪鼻木熊的答案
我在这里再把问题补允一下:这个ASP上面略去的部分主要功能是 做一个文本输入框,当我们把文字输入后(保存为char),ASP从数据库的TAB_CHAR表中检查FLD_NAME一栏,每一个FLD_NAME对应有一个FLD_ITEM值,歪鼻木熊给我的答案好像是提取所有的FLD_ITEM进行修改,我的意思是当文字输入后,查到并读取char在TAB_CHAR里对应的FLD_ITEM,保存为一个变量,再对这个char对应的FLD_ITEM值进行cvt修改,请高手帮我再改改这个ASP,谢谢

<%
'连接数据库略
set rs = conn.execute("select FLD_NAME,FLD_ITEM from TBL_Char where FLD_ITEM='"&Request("str输入的文字Name")&"'")
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
%>