 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
更 新 新 闻 作者：米仙圣人 功能：在滚动文本框中添加一定的文本格式，来自动的更新数据库。 方式：数据库名称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)千万可别希奇哟。 返回类别: 教程 上一教程: 用VB6做一个简朴的文件上传组件(二) 下一教程: 如何在服务器上保存一定时间的信息 您可以阅读与"新闻更新系统(2)"相关的教程: · 用asp.net和xml做的新闻更新系统(2) · 新闻更新系统(3) · 用asp.net和xml做的新闻更新系统(1) · 新闻更新系统(1) · 构建你的网站新闻自动发布系统之二 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
