|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
强大的可扩展性。ASP具有强大的扩展性,可以实现与多种网络、硬件设备的连接:通过专用的通讯线路远程接入企业;通过远程拨号服务器为远程拨号客户提供服务;通过WAP为移动电话互联网客户服务。分页也许在九九年做游戏网站的时分,就对文章的公布感应贫苦,不外那会儿玩ASP不精。只是迁就用着。在碰到长文件10000字时网页就是一年夜片长了。
客岁,做一个通用的文章与旧事办理体系时,曾写了一段代码,用来分别。如今贴出来。
要申明的是:
我的文章录进界面是基于WEB的HEMLEDITOR,就像这里的ABC代码差未几。以是实践提交的是HTML格局的文本。
对HTML做了响应的处置,不会由HTML代码中切开。
这里另外一位兄弟曾宣布过一个,道理一样,不外我没细心看过,不知有啥分歧。
代码以下:
--------------------------------------
RequestFormItem
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")
ifi_ishot=""theni_ishot="N"
i_ispic=request.form("ispic")
ifi_ispic=""theni_ispic="N"
i_pic=request.form("InsertImage")
i_body=replace(i_body,"contentEditable=true","contentEditable=false")
CheckInput
......
GetPages,B=Body
B_Len=Len(I_Body)
B_Pages=1
T=Temp
T_Loop=true
DoWhileT_Loop这里loop屡次,每4000分一页,算出页码并到场库。
IfB_Len>4000then
N_Body=Left(I_Body,4000)N=New
If"<P"inN_Body,Else">"inN_Body
IfInstrrev(N_Body,"<P")>0and(Len(N_Body)-Instrrev(N_Body,"<P"))<400then
N_Body=Left(N_Body,InstrRev(N_Body,"<P")-1)
elseifInstrrev(N_Body," ")>0and(Len(N_Body)-Instrrev(N_Body," "))<400then
N_Body=Left(N_Body,InstrRev(N_Body," ")-1)
ElseIfInstrrev(N_Body,"。")>0and(Len(N_Body)-Instrrev(N_Body,"。"))<400then
N_Body=Left(N_Body,InstrRev(N_Body,"。"))
ElseIfInstrrev(N_Body,";")>0and(Len(N_Body)-Instrrev(N_Body,";"))<400then
N_Body=Left(N_Body,InstrRev(N_Body,";"))
elseifInstrrev(N_Body,",")>0and(Len(N_Body)-Instrrev(N_Body,","))<400then
N_Body=Left(N_Body,InstrRev(N_Body,","))
elseifInstrrev(N_Body,".")>0and(Len(N_Body)-Instrrev(N_Body,"."))<400then
N_Body=Left(N_Body,InstrRev(N_Body,"."))
endif
endif
EndIf
EndIf
endif
Endif
N_Len=Len(N_Body)
&nbs</p>SQLServer是基于服务器端的中型的数据库,可以适合大容量数据的应用,在功能上管理上也要比Access要强得多。在处理海量数据的效率,后台开发的灵活性,可扩展性等方面强大。 |
|