 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
程序名称：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 = guestitle&"―"&guestname myMail.body =guestcomm & vbCrLf & vbCrLf & "软件使用留言薄 http://swuse.yeah.net" myMail.Send Set myMail=Nothing end sub %> 返回类别: 教程 上一教程: 动态显示图片的函数（显示广告条） 下一教程: ASP3.0中的流控制能力(1) 您可以阅读与"用排序串字段实现树状结构（例程??保存贴子内容）"相关的教程: · 用排序串字段实现树状结构(例程??保存贴子内容) · 用排序串字段实现树状结构(例程??显示贴子内容) · 用排序串字段实现树状结构(例程??删除贴子) · 用排序串字段实现树状结构（例程??删除贴子） · 用排序串字段实现树状结构(例程??回复表单) |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
