当前位置：网学 > 设计下载 > JSP,NET,JAVA类别 > 正文

VB.NET电子商务网站

来源：http://myeducs.cn 联系QQ：

作者：用户投稿来源：网络发布时间： 13/05/11

鉴于大家对JSP,NET,JAVA类别十分关注，我们编辑小组在此为大家搜集整理了“VB.NET电子商务网站”一文，供大家参考学习

客服咨询，网学网竭诚为您服务，本站永久域名：myeducs.cn

第四章、系统程序实现

（一）系统主界面

在IE里运行本系统，出现系统的主界面，包括登陆信息、产品类别、产品信息显示列表、新闻信息列表模块。如图：

图4.1系统主界面

相关代码如下：

Public strTslb As String = ""

Public strTsxx As String = ""

Dim tmpData As New DataControl

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

If Not Page.IsPostBack Then

Dim tmpda As DataTable

Dim i As Long

tmpda = tmpData.Get_Table("select * from 产品类别")

If tmpda.Rows.Count > 0 Then

If tmpda.Rows.Count Mod 2 = 0 Then

''如果记录数%2等于0将产品类别循环拼合到字符串变量中

strTslb = ""

For i = 0 To tmpda.Rows.Count / 2 - 1

strTslb = strTslb & "<tr>"

Dim strTmpLx As String = ""

strTmpLx = "<td class=''smallText''oncontextmenu=''return(false)'' onselectstart=''return false'' vAlign=''top'' noWrap align=''left'' width=''20%'' >" & "<img src=''/uploadfile/201305/11/9D15957311.jpg''> <a href=Index.aspx?lbid=" & tmpda.Rows(2 * i)("类别编号").ToString() + ">" & tmpda.Rows(2 * i)("类别名称").ToString() & "</a><br><br></td>"

strTmpLx = strTmpLx + "<td class=''smallText''oncontextmenu=''return(false)'' onselectstart=''return false'' vAlign=''top'' noWrap align=''left'' width=''20%'' >" & "<img src=''/uploadfile/201305/11/9D15957311.jpg''><a href=Index.aspx?lbid=" & tmpda.Rows(2 * i + 1)("类别编号").ToString() & ">" & tmpda.Rows(2 * i + 1)("类别名称").ToString() & "</a><br><br></td>"

strTslb = strTslb & strTmpLx & "</tr>"

Else

strTslb = ""

''否则循环显示全部记录－1 在后面补足最后一条记录

For i = 0 To Fix(tmpda.Rows.Count / 2) - 1

strTslb = strTslb + "<tr>"

Dim strTmpLx As String = ""

strTslb = strTslb & strTmpLx & "</tr>"

''拼接最后一条记录

Dim strTmpLx1 As String = ""

strTslb = strTslb + "<tr>"

strTmpLx1 = "<td class=''smallText''oncontextmenu=''return(false)'' onselectstart=''return false'' vAlign=''top'' noWrap align=''left'' width=''20%'' >" & "<img src=''/uploadfile/201305/11/9D15957311.jpg''> <a href=Index.aspx?lbid=" & tmpda.Rows(tmpda.Rows.Count - 1)("类别编号").ToString() & ">" & tmpda.Rows(tmpda.Rows.Count - 1)("类别名称").ToString() & "</a><br><br></td>"

strTslb = strTslb & strTmpLx1 & "</tr>"

End If

Dim DPath As String

DPath = "Admin\Pic\"

If Request.QueryString("lbid") = "" Then

''显示全部的产品信息

strTsxx = DataControl.initItemList(tmpData.Get_Table("select * from 产品信息"), DPath, "CpxxSee.aspx")

Else

''显示指定类型的产品信息

strTsxx = DataControl.initItemList(tmpData.Get_Table("select * from 产品信息 where 类别编号=" + Request.QueryString("lbid").ToString()), DPath, "CpxxSee.aspx")

End If

If Request.QueryString("str") <> "" Then

''显示指定类型的产品信息

strTsxx = DataControl.initItemList(tmpData.Get_Table("select * from 产品信息 where " + Request.QueryString("str").ToString()), DPath, "CpxxSee.aspx")

End If

End Sub

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

''判断登陆人员的密码和用户是不是正确

If TextBox1.Text.Trim() = "admin" Then

Dim tmpda As New DataTable()