Page probably in 99 when the game site, on the release of the article feel trouble, but then play ASP not fine. Just going to use it. In the face of long file 10000 words when the Web page is a large long.
Last year, when I was working on a common article and news management system, I wrote a piece of code to separate it. Now stick it out.
To illustrate the following:
My article Entry interface is web-based Hemleditor, similar to the ABC code here. So the actual submission is HTML-formatted text.
The HTML is processed appropriately and is not cut out of the HTML code.
Here another brother once published a principle, but I did not read it carefully, I do not know what is different.
The code is as follows:
--------------------------------------
' Request Form Item
I_forder = Request.Form ("I_folder")
I_topic = Request.Form ("I_topic")
I_title = HTMLEncode (Request.Form ("I_title"))
I_body = Request.Form ("Body")
I_source = Request.Form ("I_source")
I_keyword= HTMLEncode (Request.Form ("I_keyword"))
I_ishot = Request.Form ("Ishot")
If I_ishot = "" Then i_ishot= "N"
I_ispic = Request.Form ("Ispic")
If I_ispic = "" Then I_ispic = "N"
I_pic = Request.Form ("Insertimage")
I_body = replace (i_body, "Contenteditable=true", "Contenteditable=false")
' Check Input
'......
' Get Pages, B = Body
B_len = Len (i_body)
B_pages = 1
' T = Temp
T_loop = True
Do While T_loop ' here Loop multiple times, every 4000 minutes, calculate the page number and join the library.
IF B_len > 4000 Then
N_body = Left (i_body,4000) ' N = New
' If ' <p ' in N_body,else ' > ' in N_body
If InStrRev (n_body, "<p") > 0 and (Len (n_body)-InStrRev (N_body, "<p")) < Then
N_body = Left (N_body,instrrev (N_body, "<p")-1)
else if InStrRev (N_body, "") > 0 and (Len (n_body)-InStrRev (N_body, "")) < Then
N_body = Left (N_body,instrrev (N_body, "")-1)
Else If InStrRev (N_body, ". ") > 0 and (Len (n_body)-InStrRev (N_body). ) < Then
N_body = Left (N_body,instrrev (N_body, ". "))
Else If InStrRev (N_body, ";") > 0 and (Len (n_body)-InStrRev (N_body, ";")) < Then
N_body = Left (N_body,instrrev (N_body, ";"))
else if InStrRev (N_body, ",") > 0 and (Len (n_body)-InStrRev (N_body, ",")) < Then
N_body = Left (N_body,instrrev (N_body, ","))
else if InStrRev (N_body, ".") > 0 and (Len (n_body)-InStrRev (N_body, ".")) < Then
N_body = Left (N_body,instrrev (N_body, "."))
End If
End If
End If
End If
End If
End If
N_len = Len (n_body)
&nbs