攒机助手网页版2.0

nkc3g4

此版本已不再开发
旧版源码在下面

nkc3g4

源码：

1. Public Class _Default
   
2.     Inherits System.Web.UI.Page
   
3.     Public cpu(30) As String '
   
4.     Public cpu1(30) As Long
   
5.     Public gpu(30) As String '
   
6.     Public gpu1(30) As Long
   
7.     Public ram(20) As String '
   
8.     Public ram1(20) As Long
   
9.     Public mb(20) As String '
   
10.     Public mb1(20) As Long
    
11.     Public power(20) As String '
    
12.     Public power1(20) As Long
    
13.     Public lcd(20) As String '
    
14.     Public lcd1(20) As Long
    
15.     Public box(20) As String '
    
16.     Public box1(20) As Long
    
17.     Public hdd(20) As String '
    
18.     Public hdd1(20) As Long
    
19.     Public ssd(20) As String '
    
20.     Public ssd1(20) As Long
    
21.     Public fan(20) As String '
    
22.     Public fan1(20) As Long
    
23.     Public sum As Long
    
24.     Public sr As Long
    
25.     Dim p
    
26.     Dim a = 0
    
27.     Dim m
    
28.     Dim i
    
29.     Dim j
    
30.     Dim min As Long
    
31.     Dim sc
    
32.     Dim t As Long
    
33.     Dim z
    
34.     Public flag = 1
    
35.     Dim area
    
36.     Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    
37.         cpu(1) = "Intel 奔腾 G620（盒）"
    
38.         cpu(2) = "Intel 酷睿i3 2100（盒）"
    
39.         cpu(3) = "Intel 酷睿i5 2300或2310（盒）"
    
40.         cpu(4) = "Intel 酷睿i7 2600（盒）"
    
41.         cpu(5) = "Intel 酷睿i7 2600K（盒）"
    
42.         cpu(6) = "Intel 赛扬 D 336 2.8G 64位（散）"
    
43.         cpu(7) = "Intel 酷睿i7 980X（至尊版）/散"
    
44.         cpu(8) = "Intel 酷睿i7 990X（至尊版）/盒"
    
45.         cpu(9) = "Intel 酷睿i3 2100（散）"
    
46.         cpu(10) = "Intel 酷睿i5 2300（散）"
    
47.         cpu(11) = "Intel 酷睿i5 2500K"
    
48.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
    
49.         cpu1(1) = 490
    
50.         cpu1(2) = 750
    
51.         cpu1(3) = 1180
    
52.         cpu1(4) = 1920
    
53.         cpu1(5) = 2060
    
54.         cpu1(6) = 80
    
55.         cpu1(7) = 6300
    
56.         cpu1(8) = 8000
    
57.         cpu1(9) = 710
    
58.         cpu1(10) = 1065
    
59.         cpu1(11) = 1559
    
60.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
    
61.         mb(1) = "斯巴达克MIH61M-DU3-LF "
    
62.         mb(2) = "华硕P8H61-M LE "
    
63.         mb(3) = "微星PH67S-C43(B3) "
    
64.         mb(4) = "华硕p8h67  "
    
65.         mb(5) = "华硕 P8z68-v "
    
66.         mb(6) = "华硕 P8z68-v pro "
    
67.         mb(7) = "技嘉 GA-G31M-ES2C "
    
68.         mb(8) = "华硕 Rampage III Black Edition "
    
69.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
    
70.         mb1(1) = 399
    
71.         mb1(2) = 499
    
72.         mb1(3) = 799
    
73.         mb1(4) = 999
    
74.         mb1(5) = 1599
    
75.         mb1(6) = 1799
    
76.         mb1(7) = 399
    
77.         mb1(8) = 4999
    
78.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
    
79.         ram(1) = "威刚 2GB DDR3 1333（万紫千红）"
    
80.         ram(2) = "金士顿 4GB DDR3 1333"
    
81.         ram(3) = "威刚 4GB DDR3 1333（万紫千红） "
    
82.         ram(4) = "金士顿 4GB DDR3 1333 ×2"
    
83.         ram(5) = "三星 金条4GB DDR3 1333"
    
84.         ram(6) = "威刚 4GB DDR3 1600G（游戏威龙双通道）"
    
85.         ram(7) = "金士顿 HyperX 6GB DDR3 1600（三通道)*2"
    
86.         ram(8) = "海盗船 CMG6GX3M3A2000C7(三通道装) "
    
87.         ram(9) = "海盗船 TW3X4G2000C9DF × 3"
    
88.         ram(10) = "威刚 4GB DDR3 1333（万紫千红）*2"
    
89.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
    
90.         ram1(1) = 80
    
91.         ram1(2) = 145
    
92.         ram1(3) = 140
    
93.         ram1(4) = ram1(2) * 2
    
94.         ram1(5) = 290
    
95.         ram1(6) = 320
    
96.         ram1(7) = 560 * 2
    
97.         ram1(8) = 5699
    
98.         ram1(9) = 7500 * 3
    
99.         ram1(10) = ram1(3) * 2
    
100.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
     
101.         hdd(1) = "希捷 500GB 7200.12 16M（串口/散）ST3"
     
102.         hdd(2) = "WD WD5000AAKX 500GB蓝盘"
     
103.         hdd(3) = "希捷Barracuda 1TB SATA 6Gb/s 32M 7200.12"
     
104.         hdd(4) = "日立 P7K500 250GB 7200转 8MB"
     
105.         hdd(5) = "日立 T7K500 320GB 7200转 16MB"
     
106.         hdd(6) = "希捷 1TB SATA2 32M 7200.12/ST3100052"
     
107.         hdd(7) = "日立 7K1000.C 1TB 7200转 32MB"
     
108.         hdd(8) = "希捷 Barracuda XT 3TB（ST33000651AS）"
     
109.         hdd(9) = "希捷 Barracuda XT 3TB（ST33000651AS）×4"
     
110.         hdd(10) = "日立 P7K500 500GB 7200转 16MB"
     
111.         hdd(11) = "WD 1TB 7200转 64M（串口WD10EURS） "
     
112.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
     
113.         hdd1(1) = 250
     
114.         hdd1(2) = 285
     
115.         hdd1(3) = 350
     
116.         hdd1(4) = 0
     
117.         hdd1(5) = 250
     
118.         hdd1(6) = 0
     
119.         hdd1(7) = 325
     
120.         hdd1(8) = 1270
     
121.         hdd1(9) = hdd1(8) * 4
     
122.         hdd1(10) = 260
     
123.         hdd1(11) = 375
     
124.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
     
125.         gpu(1) = "微星R6850 hawk"
     
126.         gpu(2) = "影驰GTX550Ti 黑将"
     
127.         gpu(3) = "影驰GTX560 Ti黑将"
     
128.         gpu(4) = "蓝宝 HD5670 512M GDDR5 至尊版"
     
129.         gpu(5) = "蓝宝HD6790 1GB GDDR5 白金版 "
     
130.         gpu(6) = "微星 R6790 至尊 1G"
     
131.         gpu(7) = "影驰 GTX570 黑将"
     
132.         gpu(8) = "索泰 GTX590 极速版"
     
133.         gpu(9) = "华硕 ENGTX590/3DIS/3GD5"
     
134.         gpu(10) = "华硕 ENGTX590/3DIS/3GD5 *2"
     
135.         gpu(11) = "华硕 ARES/2DIS/4GD5"
     
136.         gpu(12) = "华硕 ARES/2DIS/4GD5*2"
     
137.         gpu(13) = "华硕MATRIX GTX580 P/2DIS/1536MD5"
     
138.         gpu(14) = "华硕MATRIX GTX580 P/2DIS/1536MD5*4"
     
139.         gpu(15) = "影驰 GT430虎将 D5"
     
140.         gpu(16) = "索泰 GTX550Ti-1GD5雷霆版"
     
141.         gpu(17) = "影驰 GTS450黑将"
     
142.         gpu(18) = "影驰GTX460黑将版"
     
143.         gpu(19) = "影驰 GT430黑将"
     
144.         gpu(20) = "七彩虹 iGame450 烈焰战神 U 1024M(鲨鱼仿生学)"
     
145.         gpu(21) = "镭风 HD6850 Xstorm 1GB"
     
146.         gpu(22) = "集成"
     
147.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
     
148.         gpu1(1) = 1099
     
149.         gpu1(2) = 899
     
150.         gpu1(3) = 1699
     
151.         gpu1(4) = 499
     
152.         gpu1(5) = 999
     
153.         gpu1(6) = 1099
     
154.         gpu1(7) = 2299
     
155.         gpu1(8) = 6999
     
156.         gpu1(9) = 7999
     
157.         gpu1(10) = gpu1(9) * 2
     
158.         gpu1(11) = 9999
     
159.         gpu1(12) = gpu1(11) * 2
     
160.         gpu1(13) = 5299
     
161.         gpu1(14) = gpu1(13) * 4
     
162.         gpu1(15) = 499
     
163.         gpu1(16) = 0
     
164.         gpu1(17) = 799
     
165.         gpu1(18) = 1399
     
166.         gpu1(19) = 599
     
167.         gpu1(20) = 799
     
168.         gpu1(21) = 1399
     
169.         gpu1(22) = 0
     
170.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
     
171.         box(1) = " 酷冷至尊霹雳战神（TC-230-KKP1）"
     
172.         box(2) = "先马 冰麒麟i9"
     
173.         box(3) = "酷冷至尊 特警430"
     
174.         box(4) = "自选"
     
175.         box1(1) = 190
     
176.         box1(2) = 399
     
177.         box1(3) = 329
     
178.         box1(4) = 300
     
179.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
     
180.         power(1) = "机箱自带"
     
181.         power(2) = " 航嘉多核DH6"
     
182.         power(3) = "航嘉冷静王钻石2.3+版"
     
183.         power(4) = "航嘉冷静王至尊版"
     
184.         power(5) = "ANTEC VP550P"
     
185.         power(6) = "鑫谷 GP700G"
     
186.         power(7) = "酷冷至尊 Silent Pro Gold 1200W"
     
187.         power(8) = "Tt ToughPower 1500W（W0171）"
     
188.         power(9) = "阿尔萨斯 EPS 1500ELA（80+）"
     
189.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
     
190.         power1(1) = 0
     
191.         power1(2) = 368
     
192.         power1(3) = 248
     
193.         power1(4) = 419
     
194.         power1(5) = 449
     
195.         power1(6) = 859
     
196.         power1(7) = 2399
     
197.         power1(8) = 2480
     
198.         power1(9) = 3480
     
199.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
     
200.         lcd(1) = "AOC 919SW+"
     
201.         lcd(2) = "三星E2220W 液晶显示器        "
     
202.         lcd(3) = "LG E1948S"
     
203.         lcd(4) = "AOC e2343F（LED屏）"
     
204.         lcd(5) = "AOC E941S（LED屏）"
     
205.         lcd(6) = "三星S23A300B 液晶显示器"
     
206.         lcd(7) = "三星 S24A350H"
     
207.         lcd(8) = "三星 PX2370 "
     
208.         lcd(9) = "戴尔 U2711"
     
209.         lcd(10) = "戴尔 U3011"
     
210.         lcd(11) = "三星 EX1920W"
     
211.         lcd(12) = "优冠科技 VIEWG A2056"
     
212.         lcd(13) = "三星 S27A950D "
     
213.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
     
214.         lcd1(1) = 650
     
215.         lcd1(2) = 960
     
216.         lcd1(3) = 828
     
217.         lcd1(4) = 1080
     
218.         lcd1(5) = 730
     
219.         lcd1(6) = 1299
     
220.         lcd1(7) = 1670
     
221.         lcd1(8) = 2200
     
222.         lcd1(9) = 7500
     
223.         lcd1(10) = 8600
     
224.         lcd1(11) = 819
     
225.         lcd1(12) = 588
     
226.         lcd1(13) = 4239
     
227.         TextBox1.Width = 400
     
228.         TextBox3.Width = 400
     
229.         TextBox4.Width = 400
     
230.         TextBox5.Width = 400
     
231.         TextBox6.Width = 400
     
232.         TextBox7.Width = 400
     
233.         TextBox8.Width = 400
     
234.         TextBox9.Width = 400
     
235.         TextBox10.Width = 400
     
236.         TextBox11.Width = 400
     
237.         TextBox22.Width = 400
     
238.         If DropDownList1.Items.Count = 0 Then
     
239.             DropDownList1.Items.Add("自动选择")
     
240.             For z = 1 To 11
     
241.                 DropDownList1.Items.Add(cpu(z))
     
242.             Next
     
243.         End If
     
244.         If DropDownList2.Items.Count = 0 Then
     
245.             DropDownList2.Items.Add("自动选择")
     
246.             For z = 1 To 8
     
247.                 DropDownList2.Items.Add(mb(z))
     
248.             Next
     
249.         End If
     
250.         If DropDownList3.Items.Count = 0 Then
     
251.             DropDownList3.Items.Add("自动选择")
     
252.             For z = 1 To 10
     
253.                 DropDownList3.Items.Add(ram(z))
     
254.             Next
     
255.         End If
     
256.         If DropDownList4.Items.Count = 0 Then
     
257.             DropDownList4.Items.Add("自动选择")
     
258.             For z = 1 To 11
     
259.                 DropDownList4.Items.Add(hdd(z))
     
260.             Next
     
261.         End If
     
262.         If DropDownList5.Items.Count = 0 Then
     
263.             DropDownList5.Items.Add("自动选择")
     
264.             For z = 1 To 21
     
265.                 DropDownList5.Items.Add(gpu(z))
     
266.             Next
     
267.         End If
     
268.         If DropDownList7.Items.Count = 0 Then
     
269.             DropDownList7.Items.Add("自动选择")
     
270.             For z = 1 To 4
     
271.                 DropDownList7.Items.Add(box(z))
     
272.             Next
     
273.         End If
     
274.         If DropDownList6.Items.Count = 0 Then
     
275.             DropDownList6.Items.Add("自动选择")
     
276.             For z = 1 To 13
     
277.                 DropDownList6.Items.Add(lcd(z))
     
278.             Next
     
279.         End If
     
280.         If DropDownList10.Items.Count = 0 Then
     
281.             DropDownList10.Items.Add("自动选择")
     
282.             For z = 1 To 9
     
283.                 DropDownList10.Items.Add(power(z))
     
284.             Next
     
285.         End If
     
286.     End Sub
     
287. 
     
288.     Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
     
289.         On Error GoTo 10
     
290.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
     
291.         m = TextBox2.Text
     
292.         If DropDownList1.SelectedIndex = 0 Then
     
293.             If m <= 2000 Then
     
294.                 i = 6
     
295.             ElseIf m > 2000 And m <= 3000 Then
     
296.                 i = 1
     
297.             ElseIf m > 3000 And m <= 5000 Then
     
298.                 i = 2
     
299.             ElseIf m > 5000 And m <= 7000 Then
     
300.                 i = 3
     
301.             ElseIf m > 7000 And m <= 10000 Then
     
302.                 i = 4
     
303.             ElseIf m > 10000 And m <= 20000 Then
     
304.                 i = 5
     
305.             ElseIf m > 20000 Then
     
306.                 i = 8
     
307.             End If
     
308.         Else
     
309.             i = DropDownList1.SelectedIndex
     
310.         End If
     
311. 
     
312. 
     
313.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
     
314.         cpu(0) = cpu(i)
     
315.         cpu1(0) = cpu1(i)
     
316.         sum = cpu1(0) + gpu1(0) + ram1(0) + mb1(0) + power1(0) + lcd1(0) + box1(0) + hdd1(0) + ssd1(0)
     
317.         ''''''''''''''''''''''''''''''''''''''''''''''''''''
     
318.         sr = m - sum
     
319.         If DropDownList2.SelectedIndex = 0 Then
     
320.             If i = 6 Then
     
321.                 j = 7
     
322.             ElseIf i = 1 Then
     
323.                 j = 2
     
324.             ElseIf i = 2 Or i = 9 Then
     
325.                 j = 2
     
326.             ElseIf (i = 3 Or i = 10) Then
     
327.                 j = 3
     
328.             ElseIf i = 4 Then
     
329.                 j = 4
     
330.             ElseIf i = 5 Then
     
331.                 j = 6
     
332.             ElseIf i = 8 Or i = 7 Then
     
333.                 j = 8
     
334.             ElseIf i = 11 Then
     
335.                 j = 5
     
336.             End If
     
337.         Else
     
338.             j = DropDownList2.SelectedIndex
     
339.         End If
     
340.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
     
341.         mb(0) = mb(j)
     
342.         mb1(0) = mb1(j)
     
343.         sum = cpu1(0) + gpu1(0) + ram1(0) + mb1(0) + power1(0) + lcd1(0) + box1(0) + hdd1(0) + ssd1(0)
     
344.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
     
345.         If DropDownList3.SelectedIndex = 0 Then
     
346.             If m <= 2000 Then
     
347.                 j = 1
     
348.             ElseIf m > 2000 And m <= 6000 Then
     
349.                 j = 3
     
350.             ElseIf m > 6000 Then
     
351.                 j = 4
     
352.             End If
     
353.         Else
     
354.             j = DropDownList3.SelectedIndex
     
355.         End If
     
356.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
     
357.         ram(0) = ram(j)
     
358.         ram1(0) = ram1(j)
     
359.         sum = cpu1(0) + gpu1(0) + ram1(0) + mb1(0) + power1(0) + lcd1(0) + box1(0) + hdd1(0) + ssd1(0)
     
360.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
     
361.         If DropDownList4.SelectedIndex = 0 Then
     
362.             If m <= 4000 Then
     
363.                 j = 2
     
364.             ElseIf m > 4000 And m <= 8000 Then
     
365.                 j = 11
     
366.             ElseIf m > 8000 And m <= 40000 Then
     
367.                 j = 8
     
368.             Else
     
369.                 j = 9
     
370.             End If
     
371.         Else
     
372.             j = DropDownList4.SelectedIndex
     
373.         End If
     
374.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
     
375.         hdd(0) = hdd(j)
     
376.         hdd1(0) = hdd1(j)
     
377.         sum = cpu1(0) + gpu1(0) + ram1(0) + mb1(0) + power1(0) + lcd1(0) + box1(0) + hdd1(0) + ssd1(0)
     
378.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
     
379.         If DropDownList5.SelectedIndex = 0 Then
     
380.             If m <= 2000 Then
     
381.                 j = 0
     
382.             ElseIf m > 2000 And m <= 2500 Then
     
383.                 j = 15
     
384.             ElseIf m > 2500 And m <= 3000 Then
     
385.                 j = 19
     
386.             ElseIf m > 3000 And m <= 4000 Then
     
387.                 j = 20
     
388.             ElseIf m > 4000 And m <= 5000 Then
     
389.                 j = 1
     
390.             ElseIf m > 5000 And m <= 6000 Then
     
391.                 j = 18
     
392.             ElseIf m > 6000 And m <= 7000 Then
     
393.                 j = 3
     
394.             ElseIf m > 7000 And m <= 10000 Then
     
395.                 j = 7
     
396.             ElseIf m > 10000 And m <= 20000 Then
     
397.                 j = 13
     
398.             ElseIf m > 20000 Then
     
399.                 j = 9
     
400.             End If
     
401.         Else
     
402.             j = DropDownList5.SelectedIndex
     
403.         End If
     
404. 
     
405.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
     
406.         If j = 0 Then
     
407.             gpu(0) = "集成"
     
408.             gpu1(0) = 0
     
409.         Else
     
410.             gpu(0) = gpu(j)
     
411.             gpu1(0) = gpu1(j)
     
412.         End If
     
413.         sum = cpu1(0) + gpu1(0) + ram1(0) + mb1(0) + power1(0) + lcd1(0) + box1(0) + hdd1(0) + ssd1(0) + fan1(0)
     
414.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
     
415.         If DropDownList7.SelectedIndex = 0 Then
     
416.             If m <= 2000 Then
     
417.                 j = 1
     
418.             ElseIf m > 2000 And m <= 3000 Then
     
419.                 j = 3
     
420.             ElseIf m > 3000 And m <= 5000 Then
     
421.                 j = 4
     
422.             ElseIf m > 5000 Then
     
423.                 j = 2
     
424.             End If
     
425.         Else
     
426.             j = DropDownList7.SelectedIndex
     
427.         End If
     
428.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
     
429.         box(0) = box(j)
     
430.         box1(0) = box1(j)
     
431.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
     
432.         If DropDownList10.SelectedIndex = 0 Then
     
433.             If j <> 1 And j <> 3 Then
     
434.                 If m <= 3000 Then
     
435.                     p = 3
     
436.                 ElseIf m > 3000 And m <= 5000 Then
     
437.                     p = 2
     
438.                 ElseIf m > 5000 And m < 7000 Then
     
439.                     p = 5
     
440.                 ElseIf m > 7000 And m <= 10000 Then
     
441.                     p = 6
     
442.                 ElseIf m > 10000 And m <= 20000 Then
     
443.                     p = 7
     
444.                 ElseIf m > 20000 And m <= 50000 Then
     
445.                     p = 8
     
446.                 Else
     
447.                     p = 9
     
448.                 End If
     
449.             Else
     
450.                 p = 1
     
451.             End If
     
452.         Else
     
453.             p = DropDownList10.SelectedIndex
     
454.         End If
     
455.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
     
456.         power(0) = power(p)
     
457.         power1(0) = power1(p)
     
458.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
     
459.         If DropDownList6.SelectedIndex = 0 Then
     
460.             sum = cpu1(0) + gpu1(0) + ram1(0) + mb1(0) + power1(0) + lcd1(0) + box1(0) + hdd1(0) + ssd1(0) + fan1(0)
     
461.             sr = m - sum
     
462.             min = 100000
     
463.             For sc = 1 To 13
     
464.                 t = sr - lcd1(sc)
     
465.                 If t >= 0 And t < min Then
     
466.                     min = t
     
467.                     j = sc
     
468.                 End If
     
469.             Next
     
470.             If min = 100000 Then
     
471.                 j = 12
     
472.             End If
     
473.         Else
     
474.             j = DropDownList6.SelectedIndex
     
475.         End If
     
476.         lcd(0) = lcd(j)
     
477.         lcd1(0) = lcd1(j)
     
478. 
     
479.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
     
480.         sum = cpu1(0) + gpu1(0) + ram1(0) + mb1(0) + power1(0) + lcd1(0) + box1(0) + hdd1(0) + ssd1(0) + fan1(0)
     
481.         If a = 0 Then
     
482.             TextBox1.Text = "CPU  " + cpu(0)
     
483.             TextBox12.Text = CStr(cpu1(0)) + "元"
     
484.             TextBox3.Text = "主板  " + mb(0)
     
485.             TextBox13.Text = CStr(mb1(0)) + "元"
     
486.             TextBox4.Text = "内存  " + ram(0)
     
487.             TextBox14.Text = CStr(ram1(0)) + "元"
     
488.             TextBox5.Text = "硬盘  " + hdd(0)
     
489.             TextBox15.Text = CStr(hdd1(0)) + "元"
     
490.             TextBox6.Text = "显卡  " + gpu(0)
     
491.             TextBox16.Text = CStr(gpu1(0)) + "元"
     
492.             TextBox7.Text = "LCD  " + lcd(0)
     
493.             TextBox17.Text = CStr(lcd1(0)) + "元"
     
494.             TextBox8.Text = "机箱  " + box(0)
     
495.             TextBox18.Text = CStr(box1(0)) + "元"
     
496.             TextBox9.Text = "散热器  " + fan(0)
     
497.             TextBox19.Text = CStr(fan1(0)) + "元"
     
498.             TextBox10.Text = "固态硬盘  " + ssd(0)
     
499.             TextBox20.Text = CStr(ssd1(0)) + "元"
     
500.             TextBox11.Text = "电源  " + power(0)
     
501.             TextBox21.Text = CStr(power1(0)) + "元"
     
502.             TextBox22.Text = "合计金额："
     
503.             TextBox23.Text = CStr(sum) + "元"
     
504.         Else
     
505. 10:         TextBox1.Text = "没有找到您需要的配置"
     
506.         End If
     
507.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
     
508.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
     
509.     End Sub
     
510. End Class

复制代码

nkc3g4

1. <%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Default.aspx.vb" Inherits="WebApplication1._Default" %>
   
2. 
   
3. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
   
4. 
   
5. <html xmlns="http://www.w3.org/1999/xhtml">
   
6. <head runat="server">
   
7.     <title></title>
   
8.     <style type="text/css">
   
9.         #Select1 {
   
10.             width: 171px;
    
11.         }
    
12.     </style>
    
13.     <script language="javascript" type="text/javascript">
    
14. // <![CDATA[
    
15. 
    
16.         function Select1_onclick() {
    
17. 
    
18.         }
    
19. 
    
20. // ]]>
    
21.     </script>
    
22. </head>
    
23. <body>
    
24.     <form id="form1" runat="server">
    
25.     <div align="left">
    
26.    
    
27.         攒机助手2.0网页版（Alpha）<br />
    
28.         <br />
    
29.         请输入预算金额<br />
    
30.         <asp:TextBox ID="TextBox2" runat="server"></asp:TextBox>
    
31.         <br />
    
32.         <asp:Button ID="Button1" runat="server" Text="查看配置" />
    
33.    
    
34.         <asp:Panel ID="Panel1" runat="server" Height="63px">
    
35.             要求：<br />
    
36.             <asp:CheckBox ID="CheckBox1" runat="server" Text="AMD" />
    
37.             <br />
    
38.             <asp:CheckBox ID="CheckBox2" runat="server" Text="SSD" />
    
39.         </asp:Panel>
    
40.         指定硬件<br />
    
41.         CPU:<asp:DropDownList ID="DropDownList1" runat="server"
    
42.             AppendDataBoundItems="True" CausesValidation="True">
    
43.         </asp:DropDownList>
    
44.         <br />
    
45.         主板：<asp:DropDownList ID="DropDownList2" runat="server">
    
46.         </asp:DropDownList>
    
47.         注意：手动选择主板有可能不兼容<br />
    
48.         内存：<asp:DropDownList ID="DropDownList3" runat="server">
    
49.         </asp:DropDownList>
    
50.         <br />
    
51.         硬盘：<asp:DropDownList ID="DropDownList4" runat="server">
    
52.         </asp:DropDownList>
    
53.         <br />
    
54.         显卡：<asp:DropDownList ID="DropDownList5" runat="server">
    
55.         </asp:DropDownList>
    
56.         <br />
    
57.         显示器：<asp:DropDownList ID="DropDownList6" runat="server">
    
58.         </asp:DropDownList>
    
59.         <br />
    
60.         机箱：<asp:DropDownList ID="DropDownList7" runat="server">
    
61.         </asp:DropDownList>
    
62.         <br />
    
63.         散热器：<asp:DropDownList ID="DropDownList8" runat="server">
    
64.         </asp:DropDownList>
    
65.         <br />
    
66.         固态硬盘：<asp:DropDownList ID="DropDownList9" runat="server">
    
67.         </asp:DropDownList>
    
68.         <br />
    
69.         电源：<asp:DropDownList ID="DropDownList10" runat="server">
    
70.         </asp:DropDownList>
    
71.         <br />
    
72.         <br />
    
73.    
    
74.     </div>
    
75.     <asp:TextBox ID="TextBox1" runat="server" Height="16px" ReadOnly="True"
    
76.         Width="394px" BorderStyle="None"></asp:TextBox>
    
77.     <asp:TextBox ID="TextBox12" runat="server" Height="16px" ReadOnly="True"
    
78.         Width="112px" BorderStyle="None"></asp:TextBox>
    
79.     <br />
    
80.     <asp:TextBox ID="TextBox3" runat="server" Height="16px" ReadOnly="True"
    
81.         Width="517px" BorderStyle="None"></asp:TextBox>
    
82.     <asp:TextBox ID="TextBox13" runat="server" Height="16px" ReadOnly="True"
    
83.         Width="112px" BorderStyle="None"></asp:TextBox>
    
84.     <br />
    
85.     <asp:TextBox ID="TextBox4" runat="server" Height="16px" ReadOnly="True"
    
86.         Width="383px" BorderStyle="None"></asp:TextBox>
    
87.     <asp:TextBox ID="TextBox14" runat="server" Height="16px" ReadOnly="True"
    
88.         Width="112px" BorderStyle="None"></asp:TextBox>
    
89.     <br />
    
90.     <asp:TextBox ID="TextBox5" runat="server" Height="16px" ReadOnly="True"
    
91.         Width="517px" BorderStyle="None"></asp:TextBox>
    
92.     <asp:TextBox ID="TextBox15" runat="server" Height="16px" ReadOnly="True"
    
93.         Width="112px" BorderStyle="None"></asp:TextBox>
    
94.     <br />
    
95.     <asp:TextBox ID="TextBox6" runat="server" Height="16px" ReadOnly="True"
    
96.         Width="424px" BorderStyle="None"></asp:TextBox>
    
97.     <asp:TextBox ID="TextBox16" runat="server" Height="16px" ReadOnly="True"
    
98.         Width="112px" BorderStyle="None"></asp:TextBox>
    
99.     <br />
    
100.     <asp:TextBox ID="TextBox7" runat="server" Height="16px" ReadOnly="True"
     
101.         Width="448px" BorderStyle="None"></asp:TextBox>
     
102.     <asp:TextBox ID="TextBox17" runat="server" Height="16px" ReadOnly="True"
     
103.         Width="112px" BorderStyle="None"></asp:TextBox>
     
104.     <br />
     
105.     <asp:TextBox ID="TextBox8" runat="server" Height="16px" ReadOnly="True"
     
106.         Width="517px" BorderStyle="None"></asp:TextBox>
     
107.     <asp:TextBox ID="TextBox18" runat="server" Height="16px" ReadOnly="True"
     
108.         Width="112px" BorderStyle="None"></asp:TextBox>
     
109.     <br />
     
110.     <asp:TextBox ID="TextBox9" runat="server" Height="16px" ReadOnly="True"
     
111.         Width="427px" BorderStyle="None"></asp:TextBox>
     
112.     <asp:TextBox ID="TextBox19" runat="server" Height="16px" ReadOnly="True"
     
113.         Width="112px" BorderStyle="None"></asp:TextBox>
     
114.     <br />
     
115.     <asp:TextBox ID="TextBox10" runat="server" Height="16px" ReadOnly="True"
     
116.         Width="421px" BorderStyle="None"></asp:TextBox>
     
117.     <asp:TextBox ID="TextBox20" runat="server" Height="16px" ReadOnly="True"
     
118.         Width="112px" BorderStyle="None"></asp:TextBox>
     
119.     <br />
     
120.     <asp:TextBox ID="TextBox11" runat="server" Height="16px" ReadOnly="True"
     
121.         Width="457px" BorderStyle="None"></asp:TextBox>
     
122.     <asp:TextBox ID="TextBox21" runat="server" Height="16px" ReadOnly="True"
     
123.         Width="112px" BorderStyle="None"></asp:TextBox>
     
124.     <br />
     
125.     <asp:TextBox ID="TextBox22" runat="server" Height="16px" ReadOnly="True"
     
126.         Width="457px" BorderStyle="None"></asp:TextBox>
     
127.     <asp:TextBox ID="TextBox23" runat="server" Height="16px" ReadOnly="True"
     
128.         Width="112px" BorderStyle="None"></asp:TextBox>
     
129.     <br />
     
130.     <br />
     
131.     <br />
     
132.     <br />
     
133.     <br />
     
134.     <a href="cjzs.7z">源代码下载 </a>
     
135.     <br />
     
136.     <a href="pz.txt">查看推荐配置</a><br />
     
137.     <a href="http://nkc3g4.oicp.net/forum.php?mod=viewthread&tid=204&extra=page=1">反馈建议
     
138. </a>
     
139.     <br />
     
140.     </form>
     
141.     <script language="javascript" type="text/javascript" src="http://js.users.51.la/5146756.js"></script>
     
142. <noscript><a href="http://www.51.la/?5146756" target="_blank"><img alt="我要啦免费统计" src="http://img.users.51.la/5146756.asp" style="border:none" /></a></noscript>
     
143. </body>
     
144. </html>
     

复制代码

html代码

mogenle

你好请问， 这套网页源码怎么用

nkc3g4

mogenle 发表于 2014-2-3 14:48
你好请问， 这套网页源码怎么用

这是asp.net源码。用visual studio编译一下

潇湘战将

网页面面呢

nkc3g4

潇湘战将 发表于 2014-10-21 10:14
网页面面呢

这个网页版已经不开发了

_lizijian_

潇湘战将 发表于 2014-10-21 10:14
**** 作者被禁止或删除 内容自动屏蔽 ****

可以自己用iis试一下