仓酷云

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 528|回复: 9
打印 上一主题 下一主题

[学习教程] ASP网站制作之ASP分页列表天生静态页面的小程序剧本

[复制链接]
蒙在股里 该用户已被删除
跳转到指定楼层
楼主
发表于 2015-1-16 22:07:29 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
源代码保护方面其实现在考虑得没那么多了..NET也可以反编译.ASP写得复杂的话别人能看得懂的话.他也有能力自己写了.这方面担心的倒不太多.纵观现在网上可以下载的那些所谓BBS还有什么网站等等的源代码程序|分页|剧本|静态|页面<!--#includefile="conn.asp"-->
<html><head><TITLE>分页测试</TITLE><LINKhref="inc/style.CSS"type=text/cssrel=stylesheet></head>
<%strHead=strHead&"<html>"
strHead=strHead&"<head>"
strHead=strHead&"<TITLE>分页测试</TITLE>"
strHead=strHead&"<LINKhref=""inc/style.css""type=text/cssrel=stylesheet>"
strHead=strHead&"</head>"
%>
<%
sql="select*fromnews"
setrs=server.createObject("ADODB.Recordset")
rs.opensql,conn,1,1
%><%
rs.pagesize=2
totalpage=rs.pagecount
rs.close
setrs=nothing
forj=1tototalpage
sql="select*fromnews"
setrs=server.createObject("ADODB.Recordset")
rs.opensql,conn,1,1
whichpage=j
rs.pagesize=2
totalpage=rs.pagecount
rs.absolutepage=whichpage
howmanyrecs=0
%><%
str0=""
str0=str0&"</p>"
str0=str0&"<tablebgcolor=#cecfcealign=centerborder=0width=800cellpadding=2cellspacing=1>"
%><%
dowhilenotrs.eofandhowmanyrecs<rs.pagesize
%><%
str0=str0&"<trbgcolor=#f7f7f7>"
str0=str0&"<tdbgcolor=#f7f7f7align=""center"">"&rs(0)&"</td>"
str0=str0&"<tdbgcolor=#f7f7f7align=""center"">"&rs(1)&"</td>"
str0=str0&"<tdbgcolor=#f7f7f7align=""center"">"&rs(2)&"</td>"
str0=str0&"<tdbgcolor=#f7f7f7align=""center"">"&rs(3)&"</td>"
str0=str0&"</tr>"
%><%
rs.movenext
howmanyrecs=howmanyrecs+1
loop
rs.close
setrs=nothing
%><%str0=str0&"</table>"
%><%
分页部分
ref=""
ref=ref&"<br>"
ref=ref&"<tablebgcolor=#cecfcealign=centerborder=0width=800cellpadding=0cellspacing=1>"
ref=ref&"<trbgcolor=#f7f7f7>"
ref=ref&"<td>"
ref=ref&"<b>Pages:"&j&"/"&totalpage&"</b>"
ref=ref&"</td>"
ref=ref&"<td>"
ref=ref&"<ahref=list_1.html"&">"&"<FONTface=Webdings>9</FONT>"&"</a>"
ifwhichpage=1then
ref=ref&"<FONTface=Webdings>7</FONT>"
else
ref=ref&"<ahref=list_"&j-1&".html"&">"&"<FONTface=Webdings>7</FONT>"&"</a>"
endif
forcounter=1tototalpage
ref=ref&"<ahref=list_"&counter&".html"&">["&counter&"]</a>"
ref=ref&""
ifcountermod10=0then
ref=ref&"<br>"
endif
next
if(whichpage>totalpageorwhichpage=totalpage)then
ref=ref&"<FONTface=Webdings>8</FONT>"
else
ref=ref&"<ahref=list_"&j+1&".html"&">"&"<FONTface=Webdings>8</FONT>"&"</a>"
endif
ref=ref&"<ahref=list_"&totalpage&".html"&">"&"<FONTface=Webdings>:</FONT>"&"</a>"
Dimfso,f
DimstrTitle,strContent,strOut
创立文件体系工具
Setfso=Server.createObject("Scripting.FileSystemObject")
Setf=fso.createTextFile(Server.MapPath("list_"&j&".html"),true)
写进网页内容
f.WriteLinestrHead&str0&ref
f.close
response.write"正在天生第"&j&"个页面!<br>"
%><%
next%>
Windows本身的所有问题都会一成不变的也累加到了它的身上。安全性、稳定性、跨平台性都会因为与NT的捆绑而显现出来;
再现理想 该用户已被删除
沙发
发表于 2015-1-17 15:36:12 | 只看该作者
Request:从字面上讲就是“请求”,因此这个是处理客户端提交的东东的,例如Resuest.Form,Request.QueryString,或者干脆Request("变量名")
第二个灵魂 该用户已被删除
板凳
发表于 2015-1-20 20:46:17 | 只看该作者
你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。
金色的骷髅 该用户已被删除
地板
发表于 2015-1-29 22:55:08 来自手机 | 只看该作者
交流是必要的,不管是生活还是学习我们都要试着去交流,通过交流我们可以学到很多我们自己本身所没有的知识,可以分享别人的经验甚至经历。
冷月葬花魂 该用户已被删除
5#
发表于 2015-2-6 07:13:47 | 只看该作者
运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中,便可快速完成网站的应用程序,无需编译,可在服务器端直接执行。容易编写,使用普通的文本编辑器编写,如记事本就可以完成。由脚本在服务器上而不是客户端运行,ASP所使用的脚本语言都在服务端上运行。
分手快乐 该用户已被删除
6#
发表于 2015-2-15 14:33:47 | 只看该作者
我可以结合自己的经验大致给你说一说,希望对你有所帮助,少走些弯路。
柔情似水 该用户已被删除
7#
发表于 2015-3-4 11:56:23 | 只看该作者
我认为比较好的方法是找一些比较经典的例子,每个例子比较集中一种编程思想而设计的。
飘灵儿 该用户已被删除
8#
发表于 2015-3-11 19:26:20 | 只看该作者
不能只是将它停留在纸上谈兵的程度上。
兰色精灵 该用户已被删除
9#
发表于 2015-3-19 09:47:17 | 只看该作者
我认为比较好的方法是找一些比较经典的例子,每个例子比较集中一种编程思想而设计的。
小妖女 该用户已被删除
10#
发表于 2015-3-27 19:10:59 | 只看该作者
ASP.Net和ASP的最大区别在于编程思维的转换,而不仅仅在于功能的增强。ASP使用VBS/JS这样的脚本语言混合html来编程,而那些脚本语言属于弱类型、面向结构的编程语言,而非面向对象,这就明显产生以下几个问题:
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|仓酷云 鄂ICP备14007578号-2

GMT+8, 2024-5-14 05:01

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表