新闻更新系统(2)
更 新 新 闻
作者：米仙圣人
功能：在滚动文本框中添加一定的文本格式，来自动的更新数据库。
方法：数据库名称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
...[ 查看全文 ]
2016-01-29
标签:
