成全高清视频免费观看动漫版-成全视频动漫免费高清-午夜不卡久久精品无码免费

你好，欢迎来到电脑编程技巧与维护杂志社！

杂志社简介│广告服务│读者反馈│编程社区

您的位置：技术专栏 / Linux开发

新闻更新系统(2)

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)千万可别奇怪哟。
(编辑:aniston)

推荐精品文章


·2024年12月目录 ·2024年11月目录 ·2024年10月目录 ·2024年9月目录 ·2024年8月目录 ·2024年7月目录 ·2024年6月目录 ·2024年5月目录 ·2024年4月目录 ·2024年3月目录 ·2024年2月目录 ·2024年1月目录 ·2023年12月目录 ·2023年11月目录

联系方式

TEL：010-82561037
Fax: 010-82561614
QQ: 100164630
Mail：gaojian@comprg.com.cn

友情链接

中国软件网│软件开发网│