【導讀】人類社會已經邁入了21世紀，信息技術的浪潮也沖擊著社會的方方面面。生產業(yè)也不例外。為之奮斗的人們興奮過，也沮喪過。一年前，當失去耐心的人開始疾呼互聯(lián)網是。泡沫，大家不要陷進去的時候，中國互聯(lián)網仍然我行我素，走著自己該走的路。專家們對于互聯(lián)網企業(yè)將有90%關門的預言如今也不攻自破。這些風風雨雨讓許。商務活動的方式。它為企業(yè)與企業(yè)之間、企業(yè)與消費者之間提供?；贗nter的企業(yè)網站作為企業(yè)進行電子商務活。動的窗口，是企業(yè)為合作伙伴和客戶提供訪問企業(yè)內部各種資源的平臺。給客戶提供的各種服務：通過網站，企業(yè)能更好地宣傳自己，提高企業(yè)知名度，進行有效的網絡營銷。inter網環(huán)境，我們開發(fā)、建立良精集團企業(yè)網及銷售系統(tǒng)。隨著Inter的普及，越來越多的企業(yè)建立了自己的WWW網站，進行交流和溝通，與兄弟企業(yè)建立聯(lián)系，以及開展電子商務等。用，一方面可以用來動態(tài)發(fā)布有關企業(yè)網絡或新技術。第一章簡要介紹了本系統(tǒng)的設計總體線路。

　　

【正文】 (val hi)) { return(false)。 } else { return(true)。 } } // 判斷是否為整數 function isInt (theStr) { var flag = true。 if (isEmpty(theStr)) { flag=false。 } else { for (var i=0。 i。 i++) { if (isDigit((i,i+1)) == false) { flag = false。 break。 } } } return(flag)。 } //校驗是否全由數字組成 function isDigit(s) { var patrn=/^[09]{1,20}$/。 if (!(s)) return false return true } // 判斷是否為空 function isEmpty (str) { if ((str==null)||(==0)) return true。 else return(false)。 38 } /SCRIPT /head body form name=form1 method=POST action= center table border=0 width=80% tr td align=middle h4 align=centerfont color=7966C6匹配查詢/font/h4 /td /tr tr td align=leftfont color=000080 發(fā)布日期： 從 input type=text name=sdate size=10 到 input type=text name=edate size=10/font （日期格式為： 20210808） /td /tr tr td align=left pfont color=000080 查找 :/font font color=000080 input type=text name=searchcontent size=20 /font font color=000080 39 input type=radio name=fanwei value=all 精確 input type=radio checked name=fanwei value=part 模糊 /font /td /tr tr td align=left pfont color=000080范圍 :/font select name=D1 size=1 option selected value=title 企業(yè)網絡標題/option option value=content企業(yè)網絡內容 /option /select /td /tr tr td align=middle div align=center input type=submit value= 開 始 language=javascript name=tijiao onclick=return button2_onclick() input type=reset value= 重 來 name=cancel /div /td /tr /table 40 /center /form/body/html 企業(yè)網絡結構設置模塊編碼設計 企業(yè)網絡結構設置模塊界面如圖 所示 圖 具體編碼如下： !include file= 41 !include file= head meta equiv=ContentType content=text/html。 charset=gb2312 title修改企業(yè)網絡 /title link rel=stylesheet href= script language=javascript function form_onsubmit(obj) { ValidationPassed = true。 if( 0) { alert(請選擇企業(yè)網絡類別 ) ValidationPassed = false。 return ValidationPassed。 } if( == ) { alert(請?zhí)顚懫髽I(yè)網絡標題 )。 ValidationPassed = false。 return ValidationPassed。 } if( == ) { alert(請?zhí)顚懫髽I(yè)網絡內容！ )。 ValidationPassed = false。 return ValidationPassed。 } } /script /head 42 body html % Set rsNews = () Set rsCate = () 39。讀取指定企業(yè)網絡數據 Set rsNews = (SELECT * FROM News WHERE id = amp。 (id)) If Not Then 39。對企業(yè)網絡內容進行替換 txtcontent = rsNews(content) txtcontent = replace(txtcontent, br, chr(13)) txtcontent = replace(txtcontent, , ) rqtContent = replace(txtcontent, 39。39。, 39。) % p align=centerfont color=red style=fontfamily: 宋體 。 fontsize: 11ptb修改企業(yè)網絡 /b/font/p form action= method=POST name=myform align=center onsubmit=return ValidationPassed input type=hidden name=id value=%=rsNews(id)% table border=0 width=98% align=center trtd類別 /tdtd select name=Cate % 39。顯示企業(yè)網絡類別 Set rsCate = (Select * from Category order by 43 CateId) DO WHILE Not 39。如果當前類別等于企業(yè)網絡類別，則將其設置為 當前下拉菜單的顯示內容 If CInt(rsNews(CateId)) = rsCate(CateId) Then % option value=%=rsCate(CateId)% selected%=rsCate(CateName)%/option % Else % option value=%=rsCate(CateId)%%=rsCate(CateName)%/option % End If () LOOP % /select /td /tr tr td 題目 /tdtd input type=text name=title size=40 value=%=rsNews(title)% style=fontfamily: 宋體 。 fontsize: 9pt input type=checkbox name=attpic value=1 %if rsNews(attpic)=true then% checked %end if% 附圖 /td /tr tr td width=19% height=30 align=leftb照片上傳 :/b/td 44 td width=81% height=30iframe frameborder=0 width=400 height=50 scrolling=no src= /iframe /td /tr tr td align=center height=30 colspan=2 !include file= /td /tr tr td align=left width=20%內容介紹 /td td textarea rows=22 name=txtcontent cols=60%=rqtContent%/textarea /td /tr /table p align=centerinput type=submit value= 確定 name=B1 onclick=form_onsubmit() style=fontfamily: 宋體 。 fontsize: 9pt input type=reset value= 取消 name=cmdcancel style=fontfamily: 宋體 。 fontsize: 9pt/p /form %end if% /body 45 數據庫連接語句： % dim Conn dim ConnStr set Conn=() provider=SQLOLEDB。Database=news。Uid=sa。Pwd=。datasource=localhost % % 39。如果尚未定義 Passed 對象，則將其定義為 False，表示沒有通過身份認證 If IsEmpty(Session(Passed)) Then Session(Passed) = False End If 39。如果 UserName 是 空，則轉向 If Session(Passed)=False Then 39。讀取從表單傳遞過來的身份數據 UserName = (UserName) UserPwd = (UserPwd) If UserName = Then Errmsg = 請輸入用戶名和密碼 Else 46 39。=============連接數據庫 =============== 39。Server 對象的 CreateObject 方法建立 Connection 對象 Set Conn=() 39。Driver 表示 ODBC 驅動程序 39。Server 表示數據庫服務器名稱 39。UID 表示用戶賬號 39。PWD 表示用戶密碼 39。Database 表示在數據庫服務器上的一個 Database 名稱 =driver={SQL Server}。server=localhost。UID=sa。PWD=。Database=news 39。連接數據庫 39。============ 從表 Users 中 讀 取 用 戶 數 據============== 39。定義 Recordset 對象 Set rs=() 39。設置