| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 547 人关注过本帖
标题:请问,运行代码,不能“返回”按钮 回页面
只看楼主 加入收藏
撒布拉斯
Rank: 2
等 级:论坛游民
帖 子:35
专家分:12
注 册:2011-3-2
结帖率:92.86%
收藏
已结贴  问题点数:20 回复次数:4 
请问,运行代码,不能“返回”按钮 回页面
请问,运行代码,不能“返回”按钮 回页面



<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
    set adocon=server.createobject("adodb.connection")
    adocon.Open"Driver={SQL Server};Server=(Local);UID=sa;PWD=sa;"& _
    "database=book;"
   
  
    sql = "select * from book "
    set rs=Server.CreateObject("Adodb.Recordset")
    rs.open sql,adocon,1,3
   
   
    rs.addnew
    rs("email")=Input
    rs("email")=Input3
    rs("email")=Input4
    rs("email")=Input5

   
    rs.update
    rs.close
    set rs=nothing
    response.Write("添加成功!")
    response.Write("<a href=""regedit.asp"">返回</a>")
    response.End()
   
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.
<html xmlns="http://www.
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>验证注册表</title>
<style type="text/css">
<!--
.s2 {
    color: #FF0000;
    text-decoration: blink;
    direction: inherit;
    font-weight: 100;
    font-family: "新宋体";
    font-size: 24px;
    font-variant: normal;
    line-height: normal;
    background-color: #FFFFFF;
    border-top-color: #FFFFFF;
    float: right;
}
.c3 {
    font-family: "新宋体";
    font-size: 24px;
    font-style: normal;
    line-height: normal;
    font-weight: lighter;
    text-decoration: blink;
    border-top-color: #C2D3FC;
    float: inherit;
    border-right-color: #0099FF;
    border-bottom-color: #33FFFF;
    border-left-color: #66CCFF;
    outline-color: #99FF00;
    border-top-width: medium;
    border-right-width: medium;
    border-bottom-width: medium;
    border-left-width: medium;
    border-top-style: solid;
    border-right-style: solid;
    border-bottom-style: solid;
    border-left-style: solid;
    clip: rect(auto,5cm,auto,auto);
}
.STYLE1 {font-size: 18px}
.STYLE4 {font-size: 12px}
-->
</style>
</head>

<body>

<div class="s2">填写注册信息</div>
<p>&nbsp;</p>
<div class="c3"  >
<pre class="STYLE1">                                                                     *<strong> 必填项</strong>
<form id="form1" name="form1" method="post" action="regedit.asp">

    电子邮箱:<input name="Input" type="text" /> *

<span class="STYLE4" id="emailTip">         建议输入您的常用电子邮箱,以便我们联系您</span>

       码:<input name="Input3" type="password" /> *

<span class="STYLE4" id="passwordTip">         由6-16位字母、数字、特殊字符组成</span>

    密码确认:<input name="Input4" type="password" /> *

<span class="STYLE4" id="password2Tip">         确认密码必须和密码完全一致并注意区分字符大小写</span>

       名:<input name="Input5" type="text" /> *

<span class="STYLE4" id="truenameTip">         请输入您的真实姓名,以方便企业找到您</span>

    电话号码:<input name="Input6" type="text" /> *
<p>   
    验证码  :<input name="codeOK" type="text" size="6" onkeyup="value=value.replace(/[^\d]/g,'') ">   <a href="#2" title="单击刷新此验证码"><img border=0 src="code.asp" onclick="this.src='code.asp'" /></a></p>
    <%
session("code")=Session("GetCode")
if (request.form("codeOK"))<>null then
if int(session("code"))<>int(trim(request.form("codeOK"))) then
response.write "<script>alert('验证码错误!');history.go(-1); </script>"
response.end
else
response.write "<script>alert('正确!');history.go(-1); </script>"
response.end
end if
end if
%>

<center><p><input type="submit" name="Submit" value="提交" />   <input name="Input2" type="reset" value="重置" /></p>
</center></form>
   
</pre>
</div>
<p>&nbsp;</p>
</body>
</html>
搜索更多相关主题的帖子: Server email book 
2011-03-07 14:53
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:18 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
    set adocon=server.createobject("adodb.connection")
    adocon.Open"Driver={SQL Server};Server=(Local);UID=sa;PWD=sa;"& _
    "database=book;"
   
  
    sql = "select * from book "
    set rs=Server.CreateObject("Adodb.Recordset")
    rs.open sql,adocon,1,3
   
   
    rs.addnew
    rs("email")=Input
    rs("email")=Input3
    rs("email")=Input4
    rs("email")=Input5
    这里的Input3-5是哪里来的?
   
    rs.update
    rs.close
    set rs=nothing
    response.Write("添加成功!")
    response.Write("<a href=""regedit.asp"">返回</a>")
    response.End()
   
%>
2011-03-07 16:37
mai_25
Rank: 3Rank: 3
来 自:上海
等 级:论坛游侠
帖 子:206
专家分:131
注 册:2006-7-22
收藏
得分:2 
Response.write "<script language='javascript'>alert('添加成功!');window.document.location.href='xxxx.asp';</script>"
Response.End()

http://www.,就算跌倒也要豪迈的笑。
2011-03-07 16:38
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
LZ这段代码的问题绝不仅有不能“返回”按钮的问题,页面开头第一段就有问题
2011-03-07 16:39
撒布拉斯
Rank: 2
等 级:论坛游民
帖 子:35
专家分:12
注 册:2011-3-2
收藏
得分:0 
rs.addnew
    rs("email")=Input
    rs("email")=Input3
    rs("email")=Input4
    rs("email")=Input5
    这里的Input3-5是哪里来的?
你说得对,那里出了问题,没有写获取的代码
2011-03-07 16:45
快速回复:请问,运行代码,不能“返回”按钮 回页面
数据加载中...
 
   



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

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