首页    技术博客    PHP教程    数据库技术    前端开发   HTML5    Nginx    php论坛
新用户注册 | 会员登录
加入会员，解锁专属内容
取消
热门标签 | HotTags
当前位置:  开发笔记 > 编程语言 > 正文

ASP+ajax无刷新提交表单演示代码

作者：董白菜 | 来源：互联网 | 2014-05-27 11:53
oneblog.asp表单填写页面:scripttypetext/javascript!--//将用户输入异步提交到服务器functionajaxSubmit(){//获取用户输入vartitledocument.forms[0].title.value;varusernamedocument.forms[0].use

oneblog.asp表单填写页面:



   
    " maxlength="100">
  
   
    


    姓     名:      (* 必填)

    电       话:      (* 只允许输入数字)

   

   

    E-mail:    

    网       址:    

   
   

    
内容：

    
<%=comment%>  还可输入 个字符

    
    

     

    
     
     
     



  
 

    恭喜！您的评论已发表成功...Close
   

 

 


 当前还剩10秒
 
 

 
 




   
   
    
    
    

   

   
 

 

blogcomment.asp异步数据提交处理页面：




<%
'Dim conn,rs
'Dim connstr
'Dim sqlCmd

'创建数据库连接对象并打开
'set cOnn=server.createobject("adodb.connection")
'cOnnstr="Provider=Microsoft.jet.oledb.4.0;data source=" & server.mappath("GuestBook.mdb")
'conn.open connstr

'将提交的数据加入数据库
'sqlCmd="insert into data(title,author,content) values('" & request.form("title") & "','" & request.form("author") & "','" & request.form("content") & "')"
'conn.execute(sqlCmd)

'返回服务器时间
'Response.write(Date)
%>

  <%
   dim title,tel,comment,commenttime,ip,www,youremail,username
      dim Action,rsRepeat
     ''  action=request.QueryString("action")
      ' if action="blogcomment" then '保存编辑产品信息
    'if Request.Form("title")="" then
    ' response.end
   ' response.Redirect "oneblog.asp?id="&id
   ' else
   
          title=Request.Form("title")
    tel=Request.Form("tel")
    comment=Request.Form("comment")
    www=Request.Form("www")
    username=Request.Form("username")
    youremail=Request.Form("youremail")
    ip=request.ServerVariables("REMOTE_ADDR")
    commenttime=now()
 
   Set rs = Server.CreateObject ("ADODB.Recordset")
   sql = "select * from blogcomment"
   rs.Open sql,Conn,1,3
   
   rs.addnew
   rs("title")=title
   rs("tel")=tel
   rs("comment")=comment
   rs("ip")=ip
   rs("youremail")=youremail
   rs("www")=www
   rs("username")=username
   rs("commenttime")=commenttime
   rs.update
    ' end if
   '  end if
      rs.close
        conn.close
     set rs=nothing
     set cOnn=nothing
    %>


推荐阅读
author-avatar
董白菜
这个家伙很懒，什么也没留下！
Tags | 热门标签
RankList | 热门文章
PHP1.CN | 中国最专业的PHP中文社区 | DevBox开发工具箱 | json解析格式化 |PHP资讯 | PHP教程 | 数据库技术 | 服务器技术 | 前端开发技术 | PHP框架 | 开发工具 | 在线工具
Copyright © 1998 - 2020 PHP1.CN. All Rights Reserved | 京公网安备 11010802041100号 | 京ICP备19059560号-4 | PHP1.CN 第一PHP社区 版权所有