信天不如要自己 发表于 2010-4-26 10:41:37

asp分段插入数据库

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

alleen 发表于 2010-5-5 03:02:06

<%
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 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
%>
页: [1]
查看完整版本: asp分段插入数据库