| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 495 人关注过本帖
标题:大家帮忙看个问题,或许很简单
只看楼主 加入收藏
accp_ap
Rank: 2
等 级:论坛游民
帖 子:50
专家分:34
注 册:2011-5-24
结帖率:88.89%
收藏
已结贴  问题点数:20 回复次数:9 
大家帮忙看个问题,或许很简单
<%@LANGUAGE="JAVASCRIPT" CODEPAGE="936"%>
<%
title=Request.QueryString("title");
namefhs=Request.QueryString("name");
email=Request.QueryString("email");
phone=Request.QueryString("phone");
address=Request.QueryString("address");
content=Request.QueryString("content");
%>
<%
Dim conn
conn="provider=microsoft.jet.oledb.4.0;Data Source="&Server.MapPath("date_fhs/fhs.mdb")
Set bb=server.CreateObject("adodb.connection")
bb.open conn
Set rs=server.CreateObject("adodb.recordset")
rs.open "select * from fhs_response_system", bb,1,3
rs.addnew
rs("LTitle")=title
rs("LName")=namefhs
rs("LEmail")=email
rs("LPhone")=phone
rs("LAddress")=address
rs("LContent")=content
rs("LTime")=now
rs.update
rs.close
Set bb=Nothing
%>
<% Response.Write "<script>window.alert('谢谢您的留言!');window.location='index.asp';</script>"
Response.End %>
这是提交后的处理页面,可是为什么点提交后没反应呢
搜索更多相关主题的帖子: email content phone address content phone email address 
2011-07-29 15:26
dzt0001
Rank: 13Rank: 13Rank: 13Rank: 13
等 级:蒙面侠
威 望:5
帖 子:1281
专家分:4998
注 册:2005-10-12
收藏
得分:20 
请给表单代码。

----我怎能在别人的苦难面前转过脸去----
2011-07-29 16:20
accp_ap
Rank: 2
等 级:论坛游民
帖 子:50
专家分:34
注 册:2011-5-24
收藏
得分:0 
回复 2楼 dzt0001
<form id="myform" name="myform">
        <table width="100%" height="350" border="1" cellpadding="0" cellspacing="0">
          <tr align="left">
            <td>主题:
              <input name="fhstitle" type="text" id="fhstitle" onblur="clifhstitle(this.id)" value="" maxlength="20" />
              <div id="divtitle" style="display:inline">*反馈信息的主题</div></td>
          </tr>
          <tr align="left">
            <td>姓名:
              <input name="textfield2" type="text" id="fhsname" value="" onblur="clifhstitle(this.id)" maxlength="20" />
              <div id="divname" style="display:inline">*您的姓名</div></td>
          </tr>
          <tr align="left">
            <td>邮箱:
              <input type="text" name="textfield3" id="fhsemail" value="" onblur="clifhstitle(this.id)" />
              <div id="divemail" style="display:inline">*您的电子邮箱</div></td>
          </tr>
          <tr align="left">
            <td>电话:
              <input type="text" name="textfield4" value="" id="fhsphone"/>
              <div id="divphone" style="display:inline">*您的常用手机号码</div></td>
          </tr>
           <tr align="left">
            <td>地址:
                <input name="textfield6" type="text" value="" id="fhsaddress" maxlength="50"/>
              <div id="divaddress" style="display:inline">您的现居住地址(选填)</div></td>
          </tr>
          <tr align="left">
            <td height="147">内容:
              <textarea name="textfield5" cols="100" rows="6" id="fhscontent" onblur="clifhstitle(this.id)"></textarea>
              <div id="divcontent" align="center">*您要反馈的内容</div></td>
          </tr>
          <tr align="center">
            <td><input type="button" name="Submit" value="提交" onclick="submitcli()"/>
              &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type="reset" name="Submit2" value="重置" /></td>
          </tr>
        </table>
        </form>
2011-08-01 14:42
dzt0001
Rank: 13Rank: 13Rank: 13Rank: 13
等 级:蒙面侠
威 望:5
帖 子:1281
专家分:4998
注 册:2005-10-12
收藏
得分:0 
第一句 %@LANGUAGE="VBSCRIPT" CODEPAGE="936"%


其他没有看,先改了试试

----我怎能在别人的苦难面前转过脸去----
2011-08-01 16:51
accp_ap
Rank: 2
等 级:论坛游民
帖 子:50
专家分:34
注 册:2011-5-24
收藏
得分:0 
回复 4楼 dzt0001
是表单页面还是处理页面
2011-08-02 11:36
accp_ap
Rank: 2
等 级:论坛游民
帖 子:50
专家分:34
注 册:2011-5-24
收藏
得分:0 
回复 4楼 dzt0001
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
title=Request.QueryString("title");
namefhs=Request.QueryString("name");
email=Request.QueryString("email");
phone=Request.QueryString("phone");
address=Request.QueryString("address");
content=Request.QueryString("content");
%>
<%
Dim conn
conn="provider=microsoft.jet.oledb.4.0;Data Source="&Server.MapPath("date_fhs/fhs.mdb")
Set bb=server.CreateObject("adodb.connection")
bb.open conn
Set rs=server.CreateObject("adodb.recordset")
rs.open "select * from fhs_response_system", bb,1,3
rs.addnew
rs("LTitle")=title
rs("LName")=namefhs
rs("LEmail")=email
rs("LPhone")=phone
rs("LAddress")=address
rs("LContent")=content
rs("LTime")=now
rs.update
rs.close
Set bb=Nothing
%>
<% Response.Write "<script>window.alert('谢谢您的留言!');window.location='index.asp';</script>"
Response.End %>
还是没有反应啊
2011-08-02 11:47
dzt0001
Rank: 13Rank: 13Rank: 13Rank: 13
等 级:蒙面侠
威 望:5
帖 子:1281
专家分:4998
注 册:2005-10-12
收藏
得分:0 
表单没有action。
如果用 onclick="submitcli()",那submitcli()这个JS代码是怎么写的?

----我怎能在别人的苦难面前转过脸去----
2011-08-02 12:39
accp_ap
Rank: 2
等 级:论坛游民
帖 子:50
专家分:34
注 册:2011-5-24
收藏
得分:0 
回复 7楼 dzt0001
function submitcli(){
    if(subcli()){
    submitLiuyanban($("#fhstitle").val(),$("#fhsname").val(),$("#fhsemail").val(),$("#fhsphone").val(),$("#fhsaddress").val(),$("#fhscontent").val());
    }else{
        return false;
    }
}

function submitLiuyanban(title,name,email,phone,address,content){
    $.ajax({
type:'GET',           
url:'docontactus.asp',
data:'title='+title+'&name='+name+'&email='+email+'&phone='+phone+'&address='+address+'&content='+content+'&t='+Math.random(),
async:false,
success:function(data){
    var partn=/<script.*>.*<\/script>/;
    if(data=='empty' && partn.test(data)){return;}
    $("#divLast").html(data);
    //location.href="welcome.html";
}           
});
}
2011-08-02 13:13
dzt0001
Rank: 13Rank: 13Rank: 13Rank: 13
等 级:蒙面侠
威 望:5
帖 子:1281
专家分:4998
注 册:2005-10-12
收藏
得分:0 
回复 8楼 accp_ap
看了这段代码,这个问题就变得不那么简单了。用到了AJAX。即使ASP代码正确,如果JS代码有问题也会没有任何反应的,要查错的话要更多的代码和时间。

----我怎能在别人的苦难面前转过脸去----
2011-08-02 13:49
accp_ap
Rank: 2
等 级:论坛游民
帖 子:50
专家分:34
注 册:2011-5-24
收藏
得分:0 
回复 9楼 dzt0001
已经好了,是访问权限的问题,everyone就可以了,谢谢您孜孜不倦的关注和帮助
2011-08-03 13:07
快速回复:大家帮忙看个问题,或许很简单
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.024029 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved