ASP教程之用排序串字段完成树状布局（例程――保...

只看该作者 · 发表于 2015-1-16 23:18:03

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

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

x

源代码保护方面其实现在考虑得没那么多了..NET也可以反编译.ASP写得复杂的话别人能看得懂的话.他也有能力自己写了.这方面担心的倒不太多.纵观现在网上可以下载的那些所谓BBS还有什么网站等等的源代码排序程序称号：savelyb.asp
程序功效：保留贴子内容


<%
posttype=request("posttype")
pageno=request("pageno")
keyid=request("keyid")
ifkeyid=""thenkeyid=0
emailpost=request("emailpost")
guestitle=trim(request.form("guestitle"))
guestname=trim(request.form("guestname"))
guestcomm=rtrim(request.form("guestcomm"))
guestemail=request.form("guestemail")
emailflag=request.form("emailflag")
ifguestitle=""orguestname=""then
callerrmessage("<center> <fontsize=4color=red>材料不完全，留言题目和姓名必需填写 <ahref=javascript:history.back();>前往重填</a><ahref=index.asp?pageno="&pageno&">保持宣布</a></center>")
response.end
endif
guestcomm=replace(guestcomm,"","")
guestcomm=replace(guestcomm,chr(13)," ")
ifemailflag="on"then
temailflag=1
else
temailflag=0
endif

ifsession("guestitle")=guestitlethenresponse.redirect"index.asp"
setguestconn=Server.CreateObject("ADODB.connection")
guestconn.Openlybstr
setcm=Server.CreateObject("ADODB.Command")
Setcm.ActiveConnection=guestconn
cm.CommandText="lybsave"
cm.CommandType=4
setp=cm.Parameters
p.Appendcm.CreateParameter("@keyid",3,1,4)
p.Appendcm.CreateParameter("@guestname",202,1,20)
p.Appendcm.CreateParameter("@guestitle",202,1,100)
p.Appendcm.CreateParameter("@guestcomm",201,1,16000)
p.Appendcm.CreateParameter("@guestemail",202,1,50)
p.Appendcm.CreateParameter("@emailflag",17,1,1)
p.Appendcm.CreateParameter("@fromip",202,1,15)
p.Appendcm.CreateParameter("@recimail",202,2,50)

cm("@keyid")=keyid
cm("@guestname")=guestname
cm("@guestitle")=guestitle
cm("@guestcomm")=guestcomm
cm("@guestemail")=ltrim(guestemail)
cm("@emailflag")=temailflag
cm("@fromip")=Request.ServerVariables("REMOTE_ADDR")
cm.execute

iftrim(guestemail)=""thenguestemail="swuse@21cn.com"假如复兴的用户没有填写Email地点，则利用版主Email地点发信
ifguestemail="swuse@21cn.comabc"thenguestemail="swuse@21cn.com"处置版主邮件地点
ifcm("@recimail")""thencallposttome
callerrmessage("<center> <fontcolor=56abffsize=4>感谢你的留言！ <ahref=index.asp?pageno="&pageno&">浏览留言</a></center>")
session("guestitle")=guestitle
guestconn.close
setguestconn=nothing
response.end

suberrmessage(message)%>
<html>
<head><title>软件利用留言薄复兴</title>
<styleTYPE="text/CSS">

</style>
</head>
<bodytopmargin=16background=topbg.gif>
<%=message%>
</body>
</html>
<%endsub

subposttome
guestcomm=replace(guestcomm,"","")
guestcomm=replace(guestcomm," ","")
SetmyMail=Server.CreateObject("CDONTS.NewMail")
myMail.From=guestemail
myMail.To=cm("@recimail")
myMail.Subject=guestitle&"―"&guestname
myMail.body=guestcomm&vbCrLf&vbCrLf&"软件利用留言薄http://swuse.yeah.net"
myMail.Send
SetmyMail=Nothing
endsub
%>

软件利用主页http://swuse.yeah.net
asp是基于web的一种编程技术，可以说是cgi的一种。它可以完成以往cgi程序的所有功能，如计数器、留言簿、公告板、聊天室等等。

只看该作者 · 发表于 2015-1-20 09:16:54

在平时的学习过程中要注意现学现用，注重运用，在掌握了一定的基础知识后，我们可以尝试做一些网页，也许在开始的时候我们可能会遇到很多问题，比如说如何很好的构建基本框架。

只看该作者 · 发表于 2015-1-20 09:16:54

我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。

只看该作者 · 发表于 2015-1-25 14:15:52

运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。

只看该作者 · 发表于 2015-2-2 22:20:32

我想问如何掌握学习节奏(先学什么再学什么)最好详细点?

只看该作者 · 发表于 2015-2-8 14:00:25

如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。

只看该作者 · 发表于 2015-2-25 15:33:47

封装性使得代码逻辑清晰，易于管理，并且应用到ASP.Net上就可以使业务逻辑和Html页面分离，这样无论页面原型如何改变，业务逻辑代码都不必做任何改动；继承性和多态性使得代码的可重用性大大提高。

只看该作者 · 发表于 2015-3-7 23:31:04

它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。

只看该作者 · 发表于 2015-3-15 16:45:01

运用ASP可将VBscript、javascript等脚本语言嵌入到HTML中，便可快速完成网站的应用程序，无需编译，可在服务器端直接执行。容易编写，使用普通的文本编辑器编写，如记事本就可以完成。由脚本在服务器上而不是客户端运行，ASP所使用的脚本语言都在服务端上运行。

只看该作者 · 发表于 2015-3-22 02:10:05

掌握asp的特性而且一定要知道为什么。

		自动登录	找回密码
密码			立即注册

[学习教程] ASP教程之用排序串字段完成树状布局（例程――保...

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

相关帖子