Question

谁能帮我翻译一下asp一句一句的翻译越详细越好

k = 1
While instrb(k,formdata,strflag) < instrb((instrb(k,formdata,strflag)+lenb(strflag)),formdata,strflag)
start = instrb(k,formdata,strflag) + lenb(strflag) + 2
endsize = instrb((instrb(k,formdata,strflag)+lenb(strflag)),formdata,strflag) - start - 2
bin_content = midb(formdata,start,endsize)
pos1_name = instrb(bin_content,toByte("name="""))
pos2_name = instrb(pos1_name+6,bin_content,toByte(""""))
nametag = midb(bin_content,pos1_name+6,pos2_name-pos1_name-6)
pos1_filename = instrb(pos2_name,bin_content,toByte("filename="""))
If(pos1_filename = 0)Then
namevalue = toStr(midb(bin_content,pos2_name+5,lenb(bin_content)-pos2_name-4))
If(InStr(toStr(nametag),"EqName") > 0)Then
rs_2("EquipName") = namevalue
'Session("UserName") = namevalue
End If
If(InStr(toStr(nametag),"EqPro") > 0)Then
rs_2("EquipProperty") = namevalue
End If
If(InStr(toStr(nametag),"EqAmount") > 0)Then
rs_2("Amount") = namevalue
End If
If(InStr(toStr(nametag),"EqPrice") > 0)Then
rs_2("Price") = namevalue
End If

If(InStr(toStr(nametag),"EqPresent") > 0)Then
If(namevalue = "")Then
rs_2("Present") = "无"
Else
rs_2("Present") = namevalue
End IF
End If
Else
'取filename的值
pos2_filename = instrb(pos1_filename+10,bin_content,toByte(""""))
fullpath = midb(bin_content,pos1_filename+10,pos2_filename-pos1_filename-10)
If(fullpath <> "")Then

Answer 1

这只是几个数学函数取值，后面是用if判断条件，很简单的。