简单生活 发表于 2015-1-16 22:20:58

ASP网页编程之ASP:超长字符的智能分页

结论:和PHP一样,ASP简单而易于维护,很适合小型网站应用,通过DCOM和MTS技术,ASP甚至还可以完成小规模的企业应用,但ASP的致命缺点就是不支持跨平台的系统,在大型项目开发和维护上非常困难。分页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)
I_Body=Mid(I_Body,N_Len+1)
B_Len=Len(I_Body)

Else
N_Body=I_Body
T_Loop=false
EndIf

Addtodatabase
Exec_prc_Content_InsI_Forder,I_Topic,I_Title,I_Source,N_Body,i_ispic,i_pic,i_ishot,I_Keyword,B_Pages
这里一个function,你能够本人处置,归正了局有两个,一个是body,一个是b_pages,就是页码。

B_Pages=B_Pages+1
Loop

%>
<html>
<head>
<metaname="GENERATOR"content="MicrosoftFrontPage5.0">
<metaname="ProgId"content="FrontPage.Editor.Document">
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<title>新建网页1</title>
<linkrel="stylesheet"type="text/css"href="../CSS/default.css">
</head>
<body>
<divalign="center">
<center>
<tableborder=1width="300"height="128"bordercolor="#000000"cellspacing="0"cellpadding="0"style="border-collapse:collapse"><tr>
<tdbgcolor="#DEDBD6"height="31">
录进乐成</td></tr><tr><tdheight="96">
<palign="center">此文章共分<%=B_Pages-1%>页
</td></tr></table>

</center>
</div>
<script>
top.main_top.location.reload();
</script>

</body>
ASP.NET和ASP的比较,技术上比较已经没什么可说的了.新一代在大部分程度来说当然是比旧一代好了.关键看你对所做软件的理解了.因人而定.会写的话也可能比ASP.NET写得更有效率和更方便重用

admin 发表于 2015-1-19 09:08:31

不能只是将它停留在纸上谈兵的程度上。

蒙在股里 发表于 2015-1-28 05:59:19

学习是为了用的,是为了让你的程序产生价值,把握住这个原则会比较轻松点。除此之外,课外时间一定要多参加一些社会实践活动,来锻炼自己的能力。

第二个灵魂 发表于 2015-2-5 18:33:23

ASP(ActiveServerPages)是Microsfot公司1996年11月推出的WEB应用程序开发技术,它既不是一种程序语言,也不是一种开发工具,而是一种技术框架,不须使用微软的产品就能编写它的代码,能产生和执行动态、交互式、高效率的站占服务器的应用程序。

分手快乐 发表于 2015-2-13 06:00:37

如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:

因胸联盟 发表于 2015-3-3 16:38:39

先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习

爱飞 发表于 2015-3-11 12:26:04

多看多学多思。多看一些关于ASP的书籍,一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人,向同学老师多多学习,不论知识的大小;多思则是要将学到的知识灵活运用。

兰色精灵 发表于 2015-3-18 17:33:49

Request:从字面上讲就是“请求”,因此这个是处理客户端提交的东东的,例如Resuest.Form,Request.QueryString,或者干脆Request("变量名")

谁可相欹 发表于 2015-3-26 13:07:59

用户端的浏览器不需要提供任何别的支持,这样大提高了用户与服务器之间的交互的速度。
页: [1]
查看完整版本: ASP网页编程之ASP:超长字符的智能分页