新闻更新系统(2)-ASP教程,ASP应用

作者：米仙圣人　
  功能：在滚动文本框中添加一定的文本格式，来自动的更新数据库。
  方法：数据库名称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)千万可别奇怪哟。