设为首页收藏本站订阅更新

无忧脚本

 找回密码
 加入无忧

QQ登录

只需一步,快速开始

搜索
查看: 2851|回复: 0

[求助] 高手求助:判断提交表单完成后,才可以显示下载链接....

[复制链接]
发表于 2013-7-17 17:56:52 | 显示全部楼层 |阅读模式
有个留言板,要求所有文本框填写并提交内容完成后,弹出对话框“留言成功”,点确定后返回当前页,在当前页显示“下载”的按钮;
请问怎么改这段代码

留言页面--------------------------
<form action="save.asp?action=add" method="post" >
    <div class="faqline">
        <span class="faqtit">业务选择:</span>
        <select name="FaqTitle">
          <option selected="selected">请选择</option>
          <option>注册真实帐户</option>
          <option>注册模拟帐户</option>
          <option>培训预约</option>
        </select><font color="#FF0000">*</font>
    </div>   
   <div class="faqline">
        <span class="faqtit">联 系 人:</span>
        <input name="Contact" type="text"  style="BORDER: #ccc 1px solid;WIDTH: 360px; height:18px;"/><font color="#FF0000">*请填写真实姓名</font>
    </div>
   <div class="faqline">
        <span class="faqtit">联系方式:</span>
        <input name="ContactWay" type="text"  style="BORDER: #ccc 1px solid;WIDTH: 360px; height:18px;"/><font color="#FF0000">*请填写真实手机或座机</font>
    </div>
    {aspcms:form}

    <div class="Content">
        <span class="faqtit">内  容:</span>
        <textarea name="Content" cols="60" rows="5"  style="BORDER: #ccc 1px solid;WIDTH: 460px; height:100px;"></textarea><font color="#FF0000">*</font>
    </div>
  <div class="faqline">
        <span class="faqtit">验 证 码:</span>
        <input name="code" type="text" class="login_verification" id="verification" size="6" maxlength="6" style="BORDER: #ccc 1px solid;WIDTH: 240px; height:18px;"/><font color="#FF0000">*</font>
        <img src="{aspcms:sitepath}/inc/checkcode.asp" alt="看不清验证码?点击刷新!" />
    </div>
   <div class="faqline">
        <span class="faqtit">&nbsp;</span>
        <input type="submit" value=" 提交 "/>


   </div>

</form>




save.asp页面----------------------------------------
<%
dim action : action=getForm("action","get")
if action="add" then addGbook

dim FaqID,FaqTitle,Contact,ContactWay,Content,Reply,AddTime,ReplyTime,FaqStatus,AuditStatus,tab,sql
Sub addGbook
        if getForm("code","post")<>Session("Code") then alertMsgAndGo "验证码不正确","-1"
        'if session("faq") then alertMsgAndGo "请不要重复提交","-1"
        FaqTitle=encodeHtml(filterPara(getForm("FaqTitle","post")))
        Contact=encodeHtml(filterPara(getForm("Contact","post")))
        ContactWay=encodeHtml(filterPara(getForm("ContactWay","post")))
        Content=encodeHtml(filterPara(getForm("Content","post")))
        AddTime=now()
        FaqStatus=false
        AuditStatus=false
       
        tab=split(getForm("tab","post"),",")       
        dim tabStr        : tabStr=""
        dim tabValue  : tabValue=""
        dim valueStr        : valueStr=""
       
       
                dim i        :i=0
                dim rsObj
                sql = "select tabField,tabControlType from {prefix}tabSet order by tabOrder,tabID"
                Set rsObj=Conn.Exec(sql,"r1")
                '0 文本,1 数字,2 编辑器,3 附件,4 日期,5 颜色,6 单选,7 多选
                Do While not rsObj.Eof                
                        tabStr = tabStr&","&rsObj(0)
                        if rsObj(1) = 2 then
                        valueStr = valueStr & ",'" &encode(getForm(rsObj(0),"post")) & "'"
                        else
                        valueStr = valueStr & ",'" &getForm(rsObj(0),"post") & "'"
                        end if                       
                        i=i+1
                        rsObj.MoveNext
                Loop
                rsObj.Close        :        set rsObj=Nothing
       
       
       
       
        if isnul(FaqTitle) then alertMsgAndGo "问题不能为空","-1"
        if isnul(Contact) then alertMsgAndGo "内容不能为空","-1"
        if isnul(Content) then alertMsgAndGo "联系人不能为空","-1"
        if isnul(ContactWay) then alertMsgAndGo "联系方式不能为空","-1"
       
       
        Conn.Exec"insert into {prefix}GuestBook(LanguageID,FaqTitle,Contact,ContactWay,Content,AddTime,FaqStatus,AuditStatus"&tabStr&") values("&setting.languageID&",'"&FaqTitle&"','"&Contact&"','"&ContactWay&"','"&Content&"','"&AddTime&"',"&FaqStatus&","&AuditStatus&""&valueStr&")","exe"
        session("faq")=true
       
        if messageReminded then sendMail messageAlertsEmail,setting.sitetitle,setting.siteTitle&setting.siteUrl&"--留言信息提醒邮件!","您的网站<a href=""http://"&setting.siteUrl&""">"&setting.siteTitle&"</a>有新的留言信息!<br>"&"<br>问题:"&FaqTitle&"<br>内容:"&Content&"<br>联系人:"&Contact&"<br>联系方式:"&ContactWay&"<br>时间:"&AddTime       
       
        if SwitchCommentsStatus=0 then
                alertMsgAndGo "留言成功!",getRefer       
        else       
                alertMsgAndGo "留言成功,请等待审核中!",getRefer       
        end if
End Sub

%>


您需要登录后才可以回帖 登录 | 加入无忧

本版积分规则

小黑屋|手机版|Archiver|无忧脚本 ( 苏ICP备05080427号 )|值班电话:027-62300445   鄂公网安备 42011102000433号

GMT+8, 2017-11-18 07:03 , Processed in 0.091101 second(s), 7 queries , Gzip On, Memcache On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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