萝卜头IT论坛

了解更多
搜索
查看: 3325|回复: 8
收起左侧

攒机助手网页版2.0

  [复制链接]
发表于 2011-8-18 14:17:23 | 显示全部楼层 |阅读模式
此版本已不再开发
旧版源码在下面
回复

使用道具 举报

 楼主| 发表于 2011-8-18 15:29:57 | 显示全部楼层
源码:
  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.     Protected Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  288.         On Error GoTo 10
  289.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
  290.         m = TextBox2.Text
  291.         If DropDownList1.SelectedIndex = 0 Then
  292.             If m <= 2000 Then
  293.                 i = 6
  294.             ElseIf m > 2000 And m <= 3000 Then
  295.                 i = 1
  296.             ElseIf m > 3000 And m <= 5000 Then
  297.                 i = 2
  298.             ElseIf m > 5000 And m <= 7000 Then
  299.                 i = 3
  300.             ElseIf m > 7000 And m <= 10000 Then
  301.                 i = 4
  302.             ElseIf m > 10000 And m <= 20000 Then
  303.                 i = 5
  304.             ElseIf m > 20000 Then
  305.                 i = 8
  306.             End If
  307.         Else
  308.             i = DropDownList1.SelectedIndex
  309.         End If


  310.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
  311.         cpu(0) = cpu(i)
  312.         cpu1(0) = cpu1(i)
  313.         sum = cpu1(0) + gpu1(0) + ram1(0) + mb1(0) + power1(0) + lcd1(0) + box1(0) + hdd1(0) + ssd1(0)
  314.         ''''''''''''''''''''''''''''''''''''''''''''''''''''
  315.         sr = m - sum
  316.         If DropDownList2.SelectedIndex = 0 Then
  317.             If i = 6 Then
  318.                 j = 7
  319.             ElseIf i = 1 Then
  320.                 j = 2
  321.             ElseIf i = 2 Or i = 9 Then
  322.                 j = 2
  323.             ElseIf (i = 3 Or i = 10) Then
  324.                 j = 3
  325.             ElseIf i = 4 Then
  326.                 j = 4
  327.             ElseIf i = 5 Then
  328.                 j = 6
  329.             ElseIf i = 8 Or i = 7 Then
  330.                 j = 8
  331.             ElseIf i = 11 Then
  332.                 j = 5
  333.             End If
  334.         Else
  335.             j = DropDownList2.SelectedIndex
  336.         End If
  337.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
  338.         mb(0) = mb(j)
  339.         mb1(0) = mb1(j)
  340.         sum = cpu1(0) + gpu1(0) + ram1(0) + mb1(0) + power1(0) + lcd1(0) + box1(0) + hdd1(0) + ssd1(0)
  341.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
  342.         If DropDownList3.SelectedIndex = 0 Then
  343.             If m <= 2000 Then
  344.                 j = 1
  345.             ElseIf m > 2000 And m <= 6000 Then
  346.                 j = 3
  347.             ElseIf m > 6000 Then
  348.                 j = 4
  349.             End If
  350.         Else
  351.             j = DropDownList3.SelectedIndex
  352.         End If
  353.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
  354.         ram(0) = ram(j)
  355.         ram1(0) = ram1(j)
  356.         sum = cpu1(0) + gpu1(0) + ram1(0) + mb1(0) + power1(0) + lcd1(0) + box1(0) + hdd1(0) + ssd1(0)
  357.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
  358.         If DropDownList4.SelectedIndex = 0 Then
  359.             If m <= 4000 Then
  360.                 j = 2
  361.             ElseIf m > 4000 And m <= 8000 Then
  362.                 j = 11
  363.             ElseIf m > 8000 And m <= 40000 Then
  364.                 j = 8
  365.             Else
  366.                 j = 9
  367.             End If
  368.         Else
  369.             j = DropDownList4.SelectedIndex
  370.         End If
  371.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
  372.         hdd(0) = hdd(j)
  373.         hdd1(0) = hdd1(j)
  374.         sum = cpu1(0) + gpu1(0) + ram1(0) + mb1(0) + power1(0) + lcd1(0) + box1(0) + hdd1(0) + ssd1(0)
  375.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
  376.         If DropDownList5.SelectedIndex = 0 Then
  377.             If m <= 2000 Then
  378.                 j = 0
  379.             ElseIf m > 2000 And m <= 2500 Then
  380.                 j = 15
  381.             ElseIf m > 2500 And m <= 3000 Then
  382.                 j = 19
  383.             ElseIf m > 3000 And m <= 4000 Then
  384.                 j = 20
  385.             ElseIf m > 4000 And m <= 5000 Then
  386.                 j = 1
  387.             ElseIf m > 5000 And m <= 6000 Then
  388.                 j = 18
  389.             ElseIf m > 6000 And m <= 7000 Then
  390.                 j = 3
  391.             ElseIf m > 7000 And m <= 10000 Then
  392.                 j = 7
  393.             ElseIf m > 10000 And m <= 20000 Then
  394.                 j = 13
  395.             ElseIf m > 20000 Then
  396.                 j = 9
  397.             End If
  398.         Else
  399.             j = DropDownList5.SelectedIndex
  400.         End If

  401.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
  402.         If j = 0 Then
  403.             gpu(0) = "集成"
  404.             gpu1(0) = 0
  405.         Else
  406.             gpu(0) = gpu(j)
  407.             gpu1(0) = gpu1(j)
  408.         End If
  409.         sum = cpu1(0) + gpu1(0) + ram1(0) + mb1(0) + power1(0) + lcd1(0) + box1(0) + hdd1(0) + ssd1(0) + fan1(0)
  410.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
  411.         If DropDownList7.SelectedIndex = 0 Then
  412.             If m <= 2000 Then
  413.                 j = 1
  414.             ElseIf m > 2000 And m <= 3000 Then
  415.                 j = 3
  416.             ElseIf m > 3000 And m <= 5000 Then
  417.                 j = 4
  418.             ElseIf m > 5000 Then
  419.                 j = 2
  420.             End If
  421.         Else
  422.             j = DropDownList7.SelectedIndex
  423.         End If
  424.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
  425.         box(0) = box(j)
  426.         box1(0) = box1(j)
  427.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
  428.         If DropDownList10.SelectedIndex = 0 Then
  429.             If j <> 1 And j <> 3 Then
  430.                 If m <= 3000 Then
  431.                     p = 3
  432.                 ElseIf m > 3000 And m <= 5000 Then
  433.                     p = 2
  434.                 ElseIf m > 5000 And m < 7000 Then
  435.                     p = 5
  436.                 ElseIf m > 7000 And m <= 10000 Then
  437.                     p = 6
  438.                 ElseIf m > 10000 And m <= 20000 Then
  439.                     p = 7
  440.                 ElseIf m > 20000 And m <= 50000 Then
  441.                     p = 8
  442.                 Else
  443.                     p = 9
  444.                 End If
  445.             Else
  446.                 p = 1
  447.             End If
  448.         Else
  449.             p = DropDownList10.SelectedIndex
  450.         End If
  451.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
  452.         power(0) = power(p)
  453.         power1(0) = power1(p)
  454.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
  455.         If DropDownList6.SelectedIndex = 0 Then
  456.             sum = cpu1(0) + gpu1(0) + ram1(0) + mb1(0) + power1(0) + lcd1(0) + box1(0) + hdd1(0) + ssd1(0) + fan1(0)
  457.             sr = m - sum
  458.             min = 100000
  459.             For sc = 1 To 13
  460.                 t = sr - lcd1(sc)
  461.                 If t >= 0 And t < min Then
  462.                     min = t
  463.                     j = sc
  464.                 End If
  465.             Next
  466.             If min = 100000 Then
  467.                 j = 12
  468.             End If
  469.         Else
  470.             j = DropDownList6.SelectedIndex
  471.         End If
  472.         lcd(0) = lcd(j)
  473.         lcd1(0) = lcd1(j)

  474.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
  475.         sum = cpu1(0) + gpu1(0) + ram1(0) + mb1(0) + power1(0) + lcd1(0) + box1(0) + hdd1(0) + ssd1(0) + fan1(0)
  476.         If a = 0 Then
  477.             TextBox1.Text = "CPU  " + cpu(0)
  478.             TextBox12.Text = CStr(cpu1(0)) + "元"
  479.             TextBox3.Text = "主板  " + mb(0)
  480.             TextBox13.Text = CStr(mb1(0)) + "元"
  481.             TextBox4.Text = "内存  " + ram(0)
  482.             TextBox14.Text = CStr(ram1(0)) + "元"
  483.             TextBox5.Text = "硬盘  " + hdd(0)
  484.             TextBox15.Text = CStr(hdd1(0)) + "元"
  485.             TextBox6.Text = "显卡  " + gpu(0)
  486.             TextBox16.Text = CStr(gpu1(0)) + "元"
  487.             TextBox7.Text = "LCD  " + lcd(0)
  488.             TextBox17.Text = CStr(lcd1(0)) + "元"
  489.             TextBox8.Text = "机箱  " + box(0)
  490.             TextBox18.Text = CStr(box1(0)) + "元"
  491.             TextBox9.Text = "散热器  " + fan(0)
  492.             TextBox19.Text = CStr(fan1(0)) + "元"
  493.             TextBox10.Text = "固态硬盘  " + ssd(0)
  494.             TextBox20.Text = CStr(ssd1(0)) + "元"
  495.             TextBox11.Text = "电源  " + power(0)
  496.             TextBox21.Text = CStr(power1(0)) + "元"
  497.             TextBox22.Text = "合计金额:"
  498.             TextBox23.Text = CStr(sum) + "元"
  499.         Else
  500. 10:         TextBox1.Text = "没有找到您需要的配置"
  501.         End If
  502.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
  503.         '''''''''''''''''''''''''''''''''''''''''''''''''''''
  504.     End Sub
  505. End Class
复制代码

回复

使用道具 举报

 楼主| 发表于 2011-8-18 15:39:48 | 显示全部楼层
  1. <%@ Page Language="vb" AutoEventWireup="false" CodeBehind="Default.aspx.vb" Inherits="WebApplication1._Default" %>

  2. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

  3. <html xmlns="http://www.w3.org/1999/xhtml">
  4. <head runat="server">
  5.     <title></title>
  6.     <style type="text/css">
  7.         #Select1 {
  8.             width: 171px;
  9.         }
  10.     </style>
  11.     <script language="javascript" type="text/javascript">
  12. // <![CDATA[

  13.         function Select1_onclick() {

  14.         }

  15. // ]]>
  16.     </script>
  17. </head>
  18. <body>
  19.     <form id="form1" runat="server">
  20.     <div align="left">
  21.    
  22.         攒机助手2.0网页版(Alpha)<br />
  23.         <br />
  24.         请输入预算金额<br />
  25.         <asp:TextBox ID="TextBox2" runat="server"></asp:TextBox>
  26.         <br />
  27.         <asp:Button ID="Button1" runat="server" Text="查看配置" />
  28.    
  29.         <asp:Panel ID="Panel1" runat="server" Height="63px">
  30.             要求:<br />
  31.             <asp:CheckBox ID="CheckBox1" runat="server" Text="AMD" />
  32.             <br />
  33.             <asp:CheckBox ID="CheckBox2" runat="server" Text="SSD" />
  34.         </asp:Panel>
  35.         指定硬件<br />
  36.         CPU:<asp:DropDownList ID="DropDownList1" runat="server"
  37.             AppendDataBoundItems="True" CausesValidation="True">
  38.         </asp:DropDownList>
  39.         <br />
  40.         主板:<asp:DropDownList ID="DropDownList2" runat="server">
  41.         </asp:DropDownList>
  42.         注意:手动选择主板有可能不兼容<br />
  43.         内存:<asp:DropDownList ID="DropDownList3" runat="server">
  44.         </asp:DropDownList>
  45.         <br />
  46.         硬盘:<asp:DropDownList ID="DropDownList4" runat="server">
  47.         </asp:DropDownList>
  48.         <br />
  49.         显卡:<asp:DropDownList ID="DropDownList5" runat="server">
  50.         </asp:DropDownList>
  51.         <br />
  52.         显示器:<asp:DropDownList ID="DropDownList6" runat="server">
  53.         </asp:DropDownList>
  54.         <br />
  55.         机箱:<asp:DropDownList ID="DropDownList7" runat="server">
  56.         </asp:DropDownList>
  57.         <br />
  58.         散热器:<asp:DropDownList ID="DropDownList8" runat="server">
  59.         </asp:DropDownList>
  60.         <br />
  61.         固态硬盘:<asp:DropDownList ID="DropDownList9" runat="server">
  62.         </asp:DropDownList>
  63.         <br />
  64.         电源:<asp:DropDownList ID="DropDownList10" runat="server">
  65.         </asp:DropDownList>
  66.         <br />
  67.         <br />
  68.    
  69.     </div>
  70.     <asp:TextBox ID="TextBox1" runat="server" Height="16px" ReadOnly="True"
  71.         Width="394px" BorderStyle="None"></asp:TextBox>
  72.     <asp:TextBox ID="TextBox12" runat="server" Height="16px" ReadOnly="True"
  73.         Width="112px" BorderStyle="None"></asp:TextBox>
  74.     <br />
  75.     <asp:TextBox ID="TextBox3" runat="server" Height="16px" ReadOnly="True"
  76.         Width="517px" BorderStyle="None"></asp:TextBox>
  77.     <asp:TextBox ID="TextBox13" runat="server" Height="16px" ReadOnly="True"
  78.         Width="112px" BorderStyle="None"></asp:TextBox>
  79.     <br />
  80.     <asp:TextBox ID="TextBox4" runat="server" Height="16px" ReadOnly="True"
  81.         Width="383px" BorderStyle="None"></asp:TextBox>
  82.     <asp:TextBox ID="TextBox14" runat="server" Height="16px" ReadOnly="True"
  83.         Width="112px" BorderStyle="None"></asp:TextBox>
  84.     <br />
  85.     <asp:TextBox ID="TextBox5" runat="server" Height="16px" ReadOnly="True"
  86.         Width="517px" BorderStyle="None"></asp:TextBox>
  87.     <asp:TextBox ID="TextBox15" runat="server" Height="16px" ReadOnly="True"
  88.         Width="112px" BorderStyle="None"></asp:TextBox>
  89.     <br />
  90.     <asp:TextBox ID="TextBox6" runat="server" Height="16px" ReadOnly="True"
  91.         Width="424px" BorderStyle="None"></asp:TextBox>
  92.     <asp:TextBox ID="TextBox16" runat="server" Height="16px" ReadOnly="True"
  93.         Width="112px" BorderStyle="None"></asp:TextBox>
  94.     <br />
  95.     <asp:TextBox ID="TextBox7" runat="server" Height="16px" ReadOnly="True"
  96.         Width="448px" BorderStyle="None"></asp:TextBox>
  97.     <asp:TextBox ID="TextBox17" runat="server" Height="16px" ReadOnly="True"
  98.         Width="112px" BorderStyle="None"></asp:TextBox>
  99.     <br />
  100.     <asp:TextBox ID="TextBox8" runat="server" Height="16px" ReadOnly="True"
  101.         Width="517px" BorderStyle="None"></asp:TextBox>
  102.     <asp:TextBox ID="TextBox18" runat="server" Height="16px" ReadOnly="True"
  103.         Width="112px" BorderStyle="None"></asp:TextBox>
  104.     <br />
  105.     <asp:TextBox ID="TextBox9" runat="server" Height="16px" ReadOnly="True"
  106.         Width="427px" BorderStyle="None"></asp:TextBox>
  107.     <asp:TextBox ID="TextBox19" runat="server" Height="16px" ReadOnly="True"
  108.         Width="112px" BorderStyle="None"></asp:TextBox>
  109.     <br />
  110.     <asp:TextBox ID="TextBox10" runat="server" Height="16px" ReadOnly="True"
  111.         Width="421px" BorderStyle="None"></asp:TextBox>
  112.     <asp:TextBox ID="TextBox20" runat="server" Height="16px" ReadOnly="True"
  113.         Width="112px" BorderStyle="None"></asp:TextBox>
  114.     <br />
  115.     <asp:TextBox ID="TextBox11" runat="server" Height="16px" ReadOnly="True"
  116.         Width="457px" BorderStyle="None"></asp:TextBox>
  117.     <asp:TextBox ID="TextBox21" runat="server" Height="16px" ReadOnly="True"
  118.         Width="112px" BorderStyle="None"></asp:TextBox>
  119.     <br />
  120.     <asp:TextBox ID="TextBox22" runat="server" Height="16px" ReadOnly="True"
  121.         Width="457px" BorderStyle="None"></asp:TextBox>
  122.     <asp:TextBox ID="TextBox23" runat="server" Height="16px" ReadOnly="True"
  123.         Width="112px" BorderStyle="None"></asp:TextBox>
  124.     <br />
  125.     <br />
  126.     <br />
  127.     <br />
  128.     <br />
  129.     <a href="cjzs.7z">源代码下载 </a>
  130.     <br />
  131.     <a href="pz.txt">查看推荐配置</a><br />
  132.     <a href="http://nkc3g4.oicp.net/forum.php?mod=viewthread&tid=204&extra=page=1">反馈建议
  133. </a>
  134.     <br />
  135.     </form>
  136.     <script language="javascript" type="text/javascript" src="http://js.users.51.la/5146756.js"></script>
  137. <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>
  138. </body>
  139. </html>
复制代码

html代码
回复

使用道具 举报

发表于 2014-2-3 14:48:04 | 显示全部楼层
你好请问, 这套网页源码怎么用
回复

使用道具 举报

 楼主| 发表于 2014-2-3 15:59:25 | 显示全部楼层
mogenle 发表于 2014-2-3 14:48
你好请问, 这套网页源码怎么用

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

使用道具 举报

发表于 2014-10-21 10:14:17 | 显示全部楼层
网页面面呢
回复

使用道具 举报

 楼主| 发表于 2014-10-21 18:56:57 | 显示全部楼层

这个网页版已经不开发了
回复

使用道具 举报

发表于 2019-2-19 10:09:11 | 显示全部楼层
潇湘战将 发表于 2014-10-21 10:14
**** 作者被禁止或删除 内容自动屏蔽 ****

可以自己用iis试一下
回复

使用道具 举报

联系站长|手机版|萝卜头IT论坛 ( 苏ICP备15050961号-1 )

GMT+8, 2019-8-20 00:47 , Processed in 0.089163 second(s), 37 queries , Gzip On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表