ISBN号校检程序，C#与SQL版
1
2 /*
3 Author:EF
4 Email:escms@qq.com
5 Date:08-10-14
6 Desc:计算正确ISBN号,错误则返回为空
7 DEMO:select dbo.isbn('7504536093')
8 */
9
10 CREATE FUNCTION ISBN(@isbn varchar(50))
11 --ALTER FUNCTION ISBN(@isbn varchar(50))
12 RETURNS nvarchar(50)
13 AS
14 BEGIN
15 DECLARE @i int
16 DECLARE @sn int
17 DECLARE @endisbn nvarchar(50)
18 SET @endisbn = ''
19
20 IF (len(@isbn) >=12 and left(@isbn,3) = '978')
21 BEGIN
22 SET @isbn = rtrim(ltrim(replace(@isbn,'-','')))
23 SET @isbn = replace(replace(@isbn,'x',''),'.','')
24 IF (ISNUMERIC(@isbn)=1 and len(@isbn) >= 9)
25 BEGIN
26 SET @sn = cast(left(@isbn,1) as int) +
27 cast(right(left(@isbn,2),1) as int) * 3 +
28 cast(right(left(@isbn,3),1) as int) +
29 cast(right(left(@isbn,4),1) as int) * 3 +
30 cast(right(left(@isbn,5),1) as int) +
31 cast(right(left(@isbn,6),1) as int) * 3 +
32 cast(right(left(@isbn,7),1) as int) +
33 cast(right(left(@isbn,8),1) as int) * 3 +
34 cast(right(left(@isbn,9),1) as int) +
35 cast(right(left(@isbn,10),1) as int) * 3 +
36 cast(right(left(@isbn,11),1) as int) +
37 cast(right(left(@isbn,12),1) as int) * 3
38 SET @sn = 10-(@sn % 10)
39 IF @sn = 10
40 SET @sn = 0
41 SET @endisbn = left(@isbn,12) + cast(@sn as varchar)
42 END
43 ELSE
44 SET @endisbn = 'Error'
45
46 END
47 IF (len(@isbn) >=9 and len(@isbn) <= 10 and left(@isbn,1) = '7')
48 BEGIN
49 SET @isbn = rtrim(ltrim(replace(@isbn,'-','')))
50 SET @isbn = replace(replace(@isbn,'x',''),'.','')
51 IF (ISNUMERIC(@isbn)=1 and len(@isbn) >= 9)
52 BEGIN
53 SET @sn = cast(right(left(@isbn,1),1) as int) * 10 +
54 cast(right(left(@isbn,2),1) as int) * 9 +
55 cast(right(left(@isbn,3),1) as int) * 8 +
56 cast(right(left(@isbn,4),1) as int) * 7 +
57 cast(right(left(@isbn,5),1) as int) * 6 +
58 cast(right(left(@isbn,6),1) as int) * 5 +
59 cast(right(left(@isbn,7),1) as int) * 4 +
60 cast(right(left(@isbn,8),1) as int) * 3 +
61 cast(right(left(@isbn,9),1) as int) * 2
62
63 SET @sn = 11-(@sn % 11)
64 IF @sn = 10
65 SET @endisbn = left(@isbn,9) + 'X'
66 ELSE
67 BEGIN
68 IF @sn = 11
69 SET @endisbn = left(@isbn,9) + '0'
70 ELSE
71 SET @endisbn = left(@isbn,9) + cast(@sn as varchar)
72 END
73 END
74 ELSE
75 SET @endisbn = 'Error'
76
77 END
78 IF @endisbn = ''
79 SET @endisbn = @isbn
80
81 RETURN @endisbn
82 END
输入9~10位ISBN号可计算出10位正确的ISBN号。
输入11~14位ISBN号可计算出13位正确的ISBN号。
用于校检和规范ISBN号。
C#版：
1
2 private void button1_Click(object sender, EventArgs e)
3 {
4 if (textBox1.Text == "" || textBox1.Text.Length > 15)
5 {
6 MessageBox.Show("书号输入不正确!","错误");
7 return;
8 }
9 try
10 {
11 string isbnstr;
12 int isbns;
13 isbnstr = textBox1.Text.Trim();
14 isbnstr = isbnstr.Replace("-", "").Replace("X", "").Replace(".", "");
15 if (isbnstr.Length >= 11 && isbnstr.Length <= 14)
16 {
17 isbns=0;
18 isbns += Convert.ToInt32(isbnstr.Substring(0, 1)) * 1;
19 isbns += Convert.ToInt32(isbnstr.Substring(1, 1)) * 3;
20 isbns += Convert.ToInt32(isbnstr.Substring(2, 1)) * 1;
21 isbns += Convert.ToInt32(isbnstr.Substring(3, 1)) * 3;
22 isbns += Convert.ToInt32(isbnstr.Substring(4, 1)) * 1;
23 isbns += Convert.ToInt32(isbnstr.Substring(5, 1)) * 3;
24 isbns += Convert.ToInt32(isbnstr.Substring(6, 1)) * 1;
25 isbns += Convert.ToInt32(isbnstr.Substring(7, 1)) * 3;
26 isbns += Convert.ToInt32(isbnstr.Substring(8, 1)) * 1;
27 isbns += Convert.ToInt32(isbnstr.Substring(9, 1)) * 3;
28 isbns += Convert.ToInt32(isbnstr.Substring(10, 1)) * 1;
29 isbns += Convert.ToInt32(isbnstr.Substring(11, 1)) * 3;
30 isbns = 10 - (isbns % 10);
31 if (isbns == 10) { isbns = 0; }
32 textBox2.Text = isbnstr.Substring(0, 12) + isbns.ToString();
33 }
34 else if (isbnstr.Length >= 9 && isbnstr.Length <= 10)
35 {
36 isbns = 0;
37 isbns += Convert.ToInt32(isbnstr.Substring(0, 1)) * 10;
38 isbns += Convert.ToInt32(isbnstr.Substring(1, 1)) * 9;
39 isbns += Convert.ToInt32(isbnstr.Substring(2, 1)) * 8;
40 isbns += Convert.ToInt32(isbnstr.Substring(3, 1)) * 7;
41 isbns += Convert.ToInt32(isbnstr.Substring(4, 1)) * 6;
42 isbns += Convert.ToInt32(isbnstr.Substring(5, 1)) * 5;
43 isbns += Convert.ToInt32(isbnstr.Substring(6, 1)) * 4;
44 isbns += Convert.ToInt32(isbnstr.Substring(7, 1)) * 3;
45 isbns += Convert.ToInt32(isbnstr.Substring(8, 1)) * 2;
46 isbns = 11 - (isbns % 11);
47 if (isbns == 10) {
48 textBox2.Text = isbnstr.Substring(0, 9) + "X";
49 }
50 else if (isbns == 11)
51 { textBox2.Text = isbnstr.Substring(0, 9) + "0"; }
52 else
53 {
54 textBox2.Text = isbnstr.Substring(0, 9) + isbns.ToString();
55 }
56 }
57 else {
58 MessageBox.Show("不可识别的ISBN号", "错误");
59 return;
60 }
61 }
62 catch
63 {
64 MessageBox.Show("不可识别的ISBN号", "错误");
65 return;
66 }
67
68
69 }
70