【www.gdgbn.com--文本特效】

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

本文来源：http://www.gdgbn.com/wangyetexiao/8136/