|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
源代码保护方面其实现在考虑得没那么多了..NET也可以反编译.ASP写得复杂的话别人能看得懂的话.他也有能力自己写了.这方面担心的倒不太多.纵观现在网上可以下载的那些所谓BBS还有什么网站等等的源代码排序程序称号:savelyb.asp
程序功效:保留贴子内容
<!--#includefile="lybcon.inc"-->
<%
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><br><br><fontsize=4color=red>材料不完全,留言题目和姓名必需填写</font><br><br><ahref=javascript:history.back();>前往重填</a><ahref=index.asp?pageno="&pageno&">保持宣布</a></center>")
response.end
endif
guestcomm=replace(guestcomm,"","")
guestcomm=replace(guestcomm,chr(13),"<br>")
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><br><br><fontcolor=56abffsize=4>感谢你的留言!<br><br></font><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">
<!--
a{text-decoration:none}
body{line-height:18px;font-size:10.5pt;font-family:宋体}
a:hover{color:#FF0000;text-decoration:none}
-->
</style>
</head>
<bodytopmargin=16background=topbg.gif>
<%=message%>
</body>
</html>
<%endsub
subposttome
guestcomm=replace(guestcomm,"","")
guestcomm=replace(guestcomm,"<br>","")
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
</p>asp是基于web的一种编程技术,可以说是cgi的一种。它可以完成以往cgi程序的所有功能,如计数器、留言簿、公告板、聊天室等等。 |
|