作者：米仙圣人
功能：在滚动文本框中添加一定的文本格式，来自动的更新数据库。
方法：数据库名称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)千万可别奇怪哟。
[1]
|
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！） 