用排序串字段实现树状结构(例程——保存贴子内容)

2016-01-29 18:00 66 1 收藏

用排序串字段实现树状结构(例程——保存贴子内容),用排序串字段实现树状结构(例程——保存贴子内容)

【 tulaoshi.com - ASP 】

  程序名称:savelyb.asp
程序功能:保存贴子内容

<!-- #include file="lybcon.inc" --
<%
posttype=request("posttype")
pageno=request("pageno")
keyid=request("keyid")
if keyid="" then keyid=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")
if guestitle="" or guestname="" then
  call errmessage("<center<br<br<font size=4 color=red资料不完整,留言标题和姓名必须填写
</font<br<br<a href='javascript:history.back();'返回重填</a    <a href='index.asp?pageno="&pageno&"'
放弃发表</a</center")
  response.end
end if
guestcomm=replace(guestcomm," "," ")
guestcomm=replace(guestcomm,chr(13),"<br")
if emailflag="on" then
  temailflag=1
else
  temailflag=0
end if

if session("guestitle")=guestitle then response.redirect "index.asp"
set guestconn=Server.CreateObject("ADODB.connection")
guestconn.Open lybstr
set cm = Server.CreateObject("ADODB.Command")
Set cm.ActiveConnection = guestconn
cm.CommandText = "lybsave"
cm.CommandType = 4
set p = cm.Parameters
p.Append cm.CreateParameter("@keyid",3,1,4)
p.Append cm.CreateParameter("@guestname",202,1,20)
p.Append cm.CreateParameter("@guestitle",202,1,100)
p.Append cm.CreateParameter("@guestcomm",201,1,16000)
p.Append cm.CreateParameter("@guestemail",202,1,50)
p.Append cm.CreateParameter("@emailflag",17,1,1)
p.Append cm.CreateParameter("@fromip",202,1,15)
p.Append cm.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


if trim(guestemail)="" then guestemail="swuse@21cn.com"  '如果回复的用户没有填写Email地址,则使用版主Email地址
发信
if guestemail="swuse@21cn.com abc" then guestemail="swuse@21cn.com"  '处理版主邮件地址
if cm("@recimail")<"" then call posttome
call errmessage("<center<br<br<font color=56abff size=4谢谢你的留言!<br<br</font<a href='index.asp?
pageno="&pageno&"'阅读留言</a</center")
session("guestitle")=guestitle
guestconn.close
set guestconn=nothing
response.end

sub errmessage(message) %
<html
<head<title软件使用留言薄回复</title
<style TYPE="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
<body topmargin=16 background='topbg.gif'
<% =message %
</body
</html
<% end sub

sub posttome
   guestcomm=replace(guestcomm," "," ")
   guestcomm=replace(guestcomm,"<br","")
   Set myMail = Server.CreateObject("CDONTS.NewMail")
   myMail.From = guestemail
   myMail.To = cm("@recimail")
   myMail.Subject = gu

来源:http://www.tulaoshi.com/n/20160129/1503932.html

延伸阅读
熟悉MS-Windows和XWindowSystem事件驱动编程模型的开发人员,习惯于传递在某种事件发生时调用(即“回调”)的函数指针。Java的面向对象模型目前并不支持方法指针,这样似乎就不可能使用这种很好的机制。但我们并不是一点办法都没有! !-- frame contents -- !-- /frame contents -- Java的接口支持提供了一种获得回调的等价功...
标签: ASP
  数据库设计中order_value是用来排序的,具体实现是    **注意以下的讨论是对一个主题而言,就是对一棵树而言!    如果加一新贴那么  order_value=0    如果跟贴查比父贴  order_value大的order_value    如果有假设为next_value,那么新帖的 &nb...
标签: Web开发
SCRIPT type="text/javascript" function defaultSort(){ var a="zhishi,english,我lai,lai了,中国,测试,房地产"; a=a.split(","); a.sort(); alert(a); } function cusSort(){ var a="zhishi,english,我lai,lai了,中国,测试,房地产"; a=a.split(","); a.sort(function(a,b){   return a.localeCompare(b); }); alert(a); } /SCRIPT a hre...
冒泡排序的算法分析与改进 交换排序的基本思想是:两两比较待排序记录的关键字,发现两个记录的次序相反时即进行交换,直到没有反序的记录为止。 应用交换排序基本思想的主要排序方法有:冒泡排序和快速排序。 代码如下: public class BubbleSort implements SortUtil.Sort{ public void sort(int[] data) { int temp; for(int i=0...
标签: 办公软件
在网上查到可用的资料,你可以先选中所需的内容,然后执行复制操作,在打开的Word文档中执行粘贴命令。复制的内容一般有这样几种情况:纯文字、带有表格的文本和图文混排。针对不同的内容及你的需要,应采取不同的处理方法,以达到满意的效果。 一、纯文字内容 如果复制的内容是纯文字形式,无表格与图片,且你愿意保留HTML文...

经验教程

352

收藏

56
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部