仓酷云

标题: ASP网页编程之ASP：超长字符的智能分页 [打印本页]

作者: 简单生活 时间: 2015-1-16 22:20
标题: 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
不能只是将它停留在纸上谈兵的程度上。

作者: 蒙在股里 时间: 2015-1-28 05:59
学习是为了用的，是为了让你的程序产生价值，把握住这个原则会比较轻松点。除此之外，课外时间一定要多参加一些社会实践活动，来锻炼自己的能力。

作者: 第二个灵魂 时间: 2015-2-5 18:33
ASP（ActiveServerPages）是Microsfot公司1996年11月推出的WEB应用程序开发技术，它既不是一种程序语言，也不是一种开发工具，而是一种技术框架，不须使用微软的产品就能编写它的代码，能产生和执行动态、交互式、高效率的站占服务器的应用程序。

作者: 分手快乐 时间: 2015-2-13 06:00
如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助:

作者: 因胸联盟 时间: 2015-3-3 16:38
先学习用frontpage熟悉html编辑然后学习asp和vbscript建议买书进行系统学习

作者: 爱飞 时间: 2015-3-11 12:26
多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。

作者: 兰色精灵 时间: 2015-3-18 17:33
Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名")

作者: 谁可相欹 时间: 2015-3-26 13:07
用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。

欢迎光临仓酷云 (http://ckuyun.com/)