网络编程
位置:首页>> 网络编程>> Asp编程>> asp分段插入数据库

asp分段插入数据库

 来源:51js 发布时间:2010-07-02 13:13:00 

标签:数据库,插入,asp

我想让一片文章,每到3000字就分到下一条插入到数据库,求高手  

<%
Dim Content
 Content = "123456"'Request.Form("Content")
Dim Strings
 Strings = Len(Content)
Dim Steps
 Steps = 1
Dim OnceCut
 OnceCut = 5
Dim i,CurrentStr
For i = 1 To Strings Step OnceCut
 CurrentStr = Mid(Content,Steps,OnceCut)
 Set Rs = Server.CreateObject("Adodb.RecordSet")
  SQL = ("SELECT Content FROM [News] WHERE (ID IS NULL)")
  Conn.Open Rs,SQL,1,3
  Rs.Addnew
  Rs(0) = CurrentStr
  Rs.Update
  Rs.Close
 Set Rs = Nothing
 Steps = Steps + OnceCut
Next
%>

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com