收藏本站
登录 立即注册 开启辅助访问 切换到窄版

搜索
萝卜头IT论坛»论坛 › 萝卜头IT技术 › 原创小软件 › 攒机助手网页版2.0
12下一页
返回列表 发新帖
查看: 10939|回复: 8

攒机助手网页版2.0

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

使用道具 举报

nkc3g4
 楼主| 发表于 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

  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


  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

  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)

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

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

  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[

  16.         function Select1_onclick() {

  18.         }

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

使用道具 举报

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

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

使用道具 举报

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

使用道具 举报

nkc3g4
 楼主| 发表于 2014-10-21 18:56:57 | 显示全部楼层
潇湘战将 发表于 2014-10-21 10:14
网页面面呢

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

使用道具 举报

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

可以自己用iis试一下
回复

使用道具 举报

下一页 »
12下一页
返回列表 发新帖

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

GMT+8, 2024-11-25 05:39 , Processed in 0.109346 second(s), 21 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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