国际标准书号(International Standard Book Number,ISBN ;拟发音is-ben),是国际通用的图书或独立的出版物(除定期出版的期刊)代码。出版社可以通过国际标准书号清晰的辨认所有非期刊书籍。一个国际标准书号只有一个或一份相应的出版物与之对应。新版本如果在原来旧版的基础上没有内容上太大的变动,在出版时也不会得到新的国际标准书号码。当平装本改为精装本出版时,原来相应的国际标准书号号码也应当收回。
复制以下代码到记事本并另存为vbs格式,即可在Windows系统上使用。 isbn = InputBox("Please input ISBN", "ISBN") k = "" For i = 1 To Len(isbn) s = Mid(isbn, i, 1) If s <> "-" Then k = k & s End If Next If Len(k) <> 9 Then MsgBox "Wrong Input" End If a = 0 For i = 1 To 9 a = a + (11 - i) * Mid(k, i, 1) Next a = a Mod 11 a = 11 - a If a = 10 Then isbn = isbn & "-X" Else If a = 11 Then isbn = isbn & "-0" Else isbn = isbn & "-" & a End If End If MsgBox isbn
function checkISBN10(code){ code=(code+).replace(/-\s/g'); if(!/^\d{9}\dxX?$/.test(code))return; var i=0,c=0; // c:checksum for(;i<9;) c+=code.charAt(i++)*i; c%=11;if(c==10)c='X'; if(code.length==9)return code+c; return c