1. 论坛系统升级为Xenforo，欢迎大家测试！
    排除公告

各位大侠...程序严重错误...敬请入内一看!!!!急!!!!

本帖由 Rongi2006 于 2006-03-10 发布。版面名称：后端开发

  1. Rongi2006

    Rongi2006 New Member

    注册:
    2006-03-04
    帖子:
    32
    赞:
    0
    各位大侠早...小弟菜鸟在测试这段程序时...程序可以收到从表单中收到数据...可是却不能弹出对话框......小弟是想让这段程序判断数据输入的东东,,,然后弹出一个消息框...可惜怎么也弹不出来来!!!!!!请教各位大侠............谢谢!!!不胜感激!!!!!!!!:cry: :cry: :cry: :cry:

    <html>
    <head></head>
    <title>注册会员 </title>
    <body>
    <%
    response.Write "<table border=""0"" align=""center"" >"
    response.Write "<tr><td border=""1"" align=""center"">"
    response.Write "K3会员注册"
    response.Write "</td></tr>"
    response.Write "</table>"

    url = request.ServerVariables("HTTP_REFERER")
    action=trim(request.QueryString("action"))
    Select Case action
    case "regform"
    call regform()
    Case else
    response.Redirect("?action=regform")
    End Select

    Sub regform()
    sid= Replace(trim(request.Form("sid")),"'","")
    response.write ""&sid&" "
    %>
    <script language="javascript">
    <!--
    function isok(registerform)
    (

    if (sid >3)
    ( alert("id已注册！");
    registerform.sid.focus();
    return (false);
    )
    else
    ( alert("id已注册！");
    registerform.sid.focus();
    return (false);
    )
    return(true);
    )
    -->
    </script>


    <form name="registerform" method="post" action="?action=regform" onsubmit="return isok(this)" >
    <table>
    <tr>
    <td>
    ID<input type=text name=sid><br>
    姓名<input type=text name=nickname><br>
    密码<input type=password name=password><br>
    <input type=submit name=Submit value="发送"></td>
    </td>
    </tr>
    </table>
    </form>
    <%
    End Sub
    %>

    </body>
    </html>
     
    #1 Rongi2006, 2006-03-10
  2. Ulysses

    Ulysses New Member

    注册:
    2006-02-05
    帖子:
    10,018
    赞:
    16
    前台后台脚本混为一团。
     
    #2 Ulysses, 2006-03-10
  3. Rongi2006

    Rongi2006 New Member

    注册:
    2006-03-04
    帖子:
    32
    赞:
    0
    这样的程序是可以的呀!!!!
     
    #3 Rongi2006, 2006-03-10
  4. Ulysses

    Ulysses New Member

    注册:
    2006-02-05
    帖子:
    10,018
    赞:
    16
    请理解清楚什么是前台脚本，什么是后台脚本。

    还有如何让后台的变量内容在前台的脚本中显示。

    另外在后台是不会弹出对话框的。
     
    #4 Ulysses, 2006-03-10
  5. Rongi2006

    Rongi2006 New Member

    注册:
    2006-03-04
    帖子:
    32
    赞:
    0
    哦...这样的呀...可是我见到人家的注册会员的程序只有一篇呀.....也是前台和后台在一起的呀...只不过他是用?action=****这个参数来调用的.....就像我表单上面的程序那样
     
    #5 Rongi2006, 2006-03-10
  6. 亚马逊的雨季

    亚马逊的雨季 New Member

    注册:
    2005-09-05
    帖子:
    1,984
    赞:
    12
    别人是在后台进行判断，然后向前台输出对应的前台脚本。

    sid > 3 这个判断应该是在后台完成(当然你要做前台验证，也可以)。

    if (sid >3) 这里的 sid 是前台的变量，没有对其赋值，脚本当然无法执行了。

    前台脚本语法错误一堆。

    总是，你那段 JavaScript 脚本只能用乱七八糟来形容。

    PHP:
    <script language="javascript">
    <!--
    function     isok(registerform) {
        if (    document.registerform.sid.value > 3) {
                alert("id已注册！");
                document.registerform.sid.focus();
            return     false;
        } else {
                alert("id已注册！");
                document.registerform.sid.focus();
            return     false;
        }
        return     true ;
    }
    -->
    </    script>
    上面修改后的只是体现了语法，但是逻辑上依然不对：if...else...两个分支的处理结果一样，那还不如不判断。
     
    #6 亚马逊的雨季, 2006-03-10
  7. Rongi2006

    Rongi2006 New Member

    注册:
    2006-03-04
    帖子:
    32
    赞:
    0
    谢谢各位大侠...我再改一下...
     
    #7 Rongi2006, 2006-03-10
  8. Rongi2006

    Rongi2006 New Member

    注册:
    2006-03-04
    帖子:
    32
    赞:
    0
    黄金长老亚马逊的雨季,你好...我已经按你说的改了....还做了一些修改...可是那个前台的判断依然没有出来呀......也就是说前台没有弹出对话框.......请再指教一下......谢谢
    <html>
    <head></head>
    <title>注册会员 </title>
    <body>
    <%
    response.Write "<table border=""0"" align=""center"" >"
    response.Write "<tr><td border=""1"" align=""center"">"
    response.Write "K3会员注册"
    response.Write "</td></tr>"
    response.Write "</table>"

    %>
    <%
    url = request.ServerVariables("HTTP_REFERER")
    action=trim(request.QueryString("action"))
    Select Case action
    Case "regform"
    Call regform()
    Case"reg"
    Call reg()
    Case else
    response.Redirect("?action=regform")
    End Select
    '------------------------------------------------
    Sub reg()
    sid=Replace(trim(request.Form("sid")),"'","")
    if len(sid)>6 then
    response.write "ID不可超过6位"
    else
    response.write"ID可以注册!!"
    end if
    end sub
    '--------------------------------------
    Sub regform()
    sid= Replace(trim(request.Form("sid")),"'","")
    response.write ""&sid&" "
    %>
    <script language="javascript">
    <!--
    function isok(registerform)
    {

    if (document.registerform.sid.value >30) {
    ( alert("比30大！");
    document.registerform.sid.focus();
    return (false);
    )
    }
    else{
    alert("比30小!")
    document.registform.sid.focus();
    return (false);
    }

    return(true);
    }
    -->
    </script>


    <form name="registerform" method="post" action="?action=reg" onsubmit="return isok(this)" >
    <table>
    <tr>
    <td>
    ID<input type=text name=sid><br>
    姓名<input type=text name=nickname><br>
    密码<input type=password name=password><br>
    <input type=submit name=Submit value="发送"></td>
    </td>
    </tr>
    </table>
    </form>
    <%
    End Sub
    %>

    </body>
    </html>
     
    #8 Rongi2006, 2006-03-10
  9. Ulysses

    Ulysses New Member

    注册:
    2006-02-05
    帖子:
    10,018
    赞:
    16
    很多 JavaScript 语法错误。

    看别人的程序，应该仔细点。
     
    #9 Ulysses, 2006-03-10
  10. Rongi2006

    Rongi2006 New Member

    注册:
    2006-03-04
    帖子:
    32
    赞:
    0
    哦......谢谢.我以后会注意多一点..喳喳...其实除了<script>里面的...其他的是VBscript的语言....

    请指教.......运行时候并没有提示错误.....
     
    #10 Rongi2006, 2006-03-10
  11. Rongi2006

    Rongi2006 New Member

    注册:
    2006-03-04
    帖子:
    32
    赞:
    0
    你能再帮我看看我改过的程序吗????我实在是搞不懂
     
    #11 Rongi2006, 2006-03-10
  12. Rongi2006

    Rongi2006 New Member

    注册:
    2006-03-04
    帖子:
    32
    赞:
    0
    版主去哪里啦....我想你们的帮助呀....为什么不回我的贴子
     
    #12 Rongi2006, 2006-03-11
  13. Rongi2006

    Rongi2006 New Member

    注册:
    2006-03-04
    帖子:
    32
    赞:
    0
    各位大侠们....偶已经解觉了问题..............谢谢各位
     
    #13 Rongi2006, 2006-03-11
  14. sluke

    sluke New Member

    注册:
    2005-09-04
    帖子:
    4,550
    赞:
    13
    完全不懂
     
    #14 sluke, 2006-03-12
  15. hcy980

    hcy980 New Member

    注册:
    2006-03-12
    帖子:
    33
    赞:
    0
    原来是ASP啊．看不懂．
     
    #15 hcy980, 2006-03-12
(您必须注册并登陆后发新主题。)
Toggle Width
语言
简体中文