【文章內(nèi)容簡介】 End Sub 39。添加工作類別過程 Private Sub Button1_Click(ByVal sender As , ByVal e As ) Handles If = Then Exit Sub mysql = insert into myjobs_jobkinds(jobkinds) values(39。 + + 39。) Dim mycmd As SqlCommand = New SqlCommand(mysql, mysqlcon) () () () (scriptalert(39。\n恭喜您，成功添加了一個(gè)工作類別！\n39。)。/script) getdata() End Sub 39。翻頁事件過程 Private Sub DataGrid1_PageIndexChanged(ByVal source As , ByVal e As ) = getdata() End Sub 39。發(fā)布新聞過程那個(gè) Private Sub Button3_Click(ByVal sender As , ByVal e As ) Handles If And And Then Dim title As String = (39。, ) Dim writer As String = (39。, ) Dim content As String = (39。, ).Replace(Chr(13), br) Dim pubtimes As DateTime = mysql = insert into myjobs_news(title,writer,pubtime,content)values(39。 + title + 39。,39。 + writer + 39。,39。 + pubtimes + 39。 ,39。 + content + 39。) Dim mycmd As SqlCommand = New SqlCommand(mysql, mysqlcon) () () () (scriptalert(39。\n恭喜您，成功發(fā)布了一條新聞！\n39。)。/script) End If End Sub 39。進(jìn)入類別管理面板 Private Sub Button5_Click(ByVal sender As , ByVal e As ) Handles If Session(admin) = admin Then = True = False getdata() End If End Sub 39。進(jìn)入發(fā)布新聞面板 Private Sub Button6_Click(ByVal sender As , ByVal e As ) Handles If Session(admin) = admin Then = False = True End If End Sub 39。管理員登陸過程 Private Sub Button4_Click(ByVal sender As , ByVal e As ) Handles If = (pwd) Then Session(admin) = admin = False (scriptalert(39。\n恭喜您，登錄成功！！\n39。)。/script) Else (scriptalert(39。\n對(duì)不起，密碼有誤?。n39。)。/script) End If End SubEnd Class39。code end 編譯后，管理員登錄系統(tǒng)后，就可以進(jìn)行工作類別管理和新聞發(fā)布了。圖 工作類別管理圖 發(fā)布相關(guān)就業(yè)新聞 企業(yè)信息管理部分 ，：%@ Page Language=vb AutoEventWireup=false Codebehind= Inherits=%!DOCTYPE HTML PUBLIC //W3C//DTD HTML Transitional//ENHTML HEAD titleComReg/title meta content=Microsoft Visual Studio .NET name=GENERATOR meta content=Visual Basic .NET name=CODE_LANGUAGE meta content=JavaScript name=vs_defaultClientScript meta content= name=vs_targetSchema /HEAD body MS_POSITIONING=GridLayout form id=Form1 method=post runat=server FONT face=宋體 TABLE id=Table1 cellSpacing=1 cellPadding=1 width=760 border=1 style=BACKGROUNDCOLOR: seashell TR TD colSpan=3FONT size=7STRONG歡迎企業(yè)會(huì)員注冊/STRONG/FONT/TD /TR TR TD style=WIDTH: 70px登陸ID/TD TD style=WIDTH: 461pxasp:textbox id=TextBox1 runat=server/asp:textbox/TD TDasp:requiredfieldvalidator id=RequiredFieldValidator1 runat=server ControlToValidate=TextBox1 FontSize=XSmall ErrorMessage=必須填寫項(xiàng)/asp:requiredfieldvalidator/TD /TR TR TD style=WIDTH: 70px。 HEIGHT: 27px密碼/TD TD style=WIDTH: 461px。 HEIGHT: 27pxasp:textbox id=TextBox2 runat=server/asp:textbox再次輸入密碼 asp:textbox id=TextBox7 runat=server/asp:textbox/TD TD style=HEIGHT: 27pxasp:requiredfieldvalidator id=RequiredFieldValidator2 runat=server ControlToValidate=TextBox2 FontSize=XSmall ErrorMessage=必須填寫項(xiàng)/asp:requiredfieldvalidatorasp:parevalidator id=CompareValidator1 runat=server ControlToValidate=TextBox7 FontSize=XSmall ErrorMessage=密碼不一致！ ControlToCompare=TextBox2/asp:parevalidator/TD /TR TR TD style=WIDTH: 70px企業(yè)全稱/TD TD style=WIDTH: 461pxasp:textbox id=TextBox3 runat=server/asp:textbox/TD TDasp:requiredfieldvalidator id=RequiredFieldValidator3 runat=server ControlToValidate=TextBox3 FontSize=XSmall ErrorMessage=必須填寫項(xiàng)/asp:requiredfieldvalidator/TD /TR TR TD style=WIDTH: 70px電話/TD TD style=WIDTH: 461pxasp:textbox id=TextBox4 runat=server/asp:textbox/TD TDasp:requiredfieldvalidator id=RequiredFieldValidator4 runat=server ControlToValidate=TextBox4 FontSize=XSmall ErrorMessage=必須填寫項(xiàng)/asp:requiredfieldvalidator/TD /TR TR TD style=WIDTH: 70px地址/TD TD style=WIDTH: 461pxasp:textbox id=Textbox8 runat=server Width=432px/asp:textbox/TD TDasp:requiredfieldvalidator id=Requiredfieldvalidator7 runat=server ControlToValidate=TextBox8 FontSize=XSmall ErrorMessage=必須填寫項(xiàng)/asp:requiredfieldvalidator/TD /TR TR TD style=WIDTH: 70px。 HEIGHT: 28px郵箱/TD TD style=WIDTH: 461px。 HEIGHT: 28pxasp:textbox id=TextBox5 runat=server/asp:textbox/TD TD style=HEIGHT: 28pxasp:requiredfieldvalidator id=RequiredFieldValidator5 runat=server ControlToValidate=TextBox5 FontSize=XSmall ErrorMessage=必須填寫項(xiàng)/asp:requiredfieldvalidator/TD /TR TR TD style=WIDTH: 70px企業(yè)簡介/TD TD style=WIDTH: 461pxasp:textbox id=TextBox6 runat=server Width=520px Height=352px TextMode=MultiLine/asp:textbox/TD TDasp:requiredfieldvalidator id=RequiredFieldValidator6 runat=server ControlToValidate=TextBox6 FontSize=XSmall ErrorMessage=必須填寫項(xiàng)/asp:requiredfieldvalidator/TD /TR TR TD style=WIDTH: 70px。 HEIGHT: 27px/TD TD style=WIDTH: 461px。 HEIGHT: 27pxasp:button id=Button1 runat=server Width=120px Text=提交注冊/asp:button/TD TD style=HEIGHT: 27px/TD /TR TR TD style=WIDTH: 70px/TD TD style=WIDTH: 461px/TD TD/T