新聞更新系統(2)

來源:互聯網
上載者:User
作者:米仙聖人 
  功能:在滾動文字框中添加一定的文字格式設定,來自動的更新資料庫。
  方法:資料庫名稱News.mdb
  
  1:AddNews.asp。
  Dim DBStr
  DBStr=""
  DBStr=Request.Form("tNewsIndex")
  AddRecord(DBStr)
  DBStr=Request.Form("tNewsIndex")是用來讀取滾動文字框中的資料,調用DataModal.asp中的ADDRecord過程。
  
  2:DataModal.asp
  
  Sub AddRecord(InputStr)
  Dim LineStr, AllStr
  Dim DBNews
  Dim tempTextStream
  Dim ObjFileSys
  Dim FieldsStr(6)
  Dim I, blpos, elpos, bApos, eAPos, LCStr, FCStr
  Dim SqlStr
  
  FieldsStr(0)=""
  FCStr = chr(255)
  LCStr = chr(13)
  
  AllStr = Trim(InputStr)
  
  if AllStr="" Then Exit Sub
  'AllStr中存的就是滾動文字框提交的資料,每條紀錄用斷行符號(chr(13)分開
  Do While AllStr<>""
  eAPos = Len(AllStr)
  bAPOs = InStr(AllStr, LCStr)
  if bAPos<=0 Then Exit Sub
  LineStr= Mid(Allstr, 1, bAPos-1)
  AllStr= Mid(AllStr, bAPos+1, eAPos-bAPos)
  
  '總共是六個欄位,LineStr中存的就是各個欄位,欄位中間是通過chr(255)分割的
  '下列迴圈語句是擷取各個欄位數值,存在FieldsStr數組中。
  For I = 0 to 6 Step 1
  elPos = Len(LineStr)
  blPos = InStr(LineStr, FCStr)
  
  FieldsStr(I)= Mid(Linestr, 1, blPos-1)
  LineStr= Mid(LineStr, blPos+1, elPos-blPos)
  Next
  SqlStr = "Insert Into NewsList (News_Issue, "_
  & "News_ClassID,News_Class,News_Title,"_
  & "News_Date, News_HtmlPath,News_ImgPath) Values ( "_
  & " '"&FieldsStr(0)&"' , '"&FieldsStr(1)&"' , '"&FieldsStr(2)&"' ,"_
  & " '"&FieldsStr(3)&"' , '"&FieldsStr(4)&"' , '"&FieldsStr(5)&"' ,"_
  & " '"&FieldsStr(6)&"' ) "
  
  'Response.Write SqlStr & "<BR>"
  Conn.BeginTrans
  Conn.Execute SqlStr
  Conn.CommitTrans
  Loop
  End Sub
  
  注意該過程中的SqlStr語句的寫法,這句話可把作者給折騰死了,據說有點類似VB的寫法。這裡執行的SQL語句和查詢語句有所不同,查詢是Conn.Execute(SqlStr),而更新是通過Conn.Execute SqlStr來執行,其他沒有什麼了,就是一些簡單的迴圈語句了。忘了說明了,在本文本裡面資料庫的各個欄位,作者是通過chr(255)來分割的,所以在本過程裡面看到chr(255)千萬可別奇怪喲。



相關文章

Beyond APAC's No.1 Cloud

19.6% IaaS Market Share in Asia Pacific - Gartner IT Service report, 2018

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。