更 新 新 闻
作者:米仙圣人
功能:在滚动文本框中添加一定的文本格式,来自动的更新数据库。
方法:数据库名称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
...[ 查看全文 ]