主题：js

1、在"e:\web\lib"新建一个文本文件，文件名为"valid.js"，文件内容为： 

function getcookie()              //声明函数getcookie，该加上逗号处，好像都已经加上了

{

var strcookie=document.cookie;         //从cookie中取得已有字符串  

var arrcookie=strcookie.split(";");    //分隔字符串

var yanzheng;                          //定义需要返回的验证码值    

for(var i=0;i<arrcookie.length;i++)

{

var arrcookie[i].split("=");           //将arrcookie，按=号，分成左右两边

if("yanzhengma"==arr[0])               //设置查找条件  //yanzhengma：验证码生成页面添加的cookie

yanzheng=arr[1];                       //赋值

break;                                 //找到需要的值，中断执行

}

return(yanzheng);

}

function setcookie()               //声明函数setcookie

{

document.cookie="yes_or_no=1";         //直接赋值给cookie

return null；                                          //返回空值

}

function valid_login()

{            

   var v1 = document.getElementById("isj").value;

   var v2 = document.getElementById("imm").value;

   var v3 = document.getElementById("yzm").value;

   var v4 = document.getElementById("jizhumima").value;

  if(!(/^1(3|4|5|7|8)\d{9}$/.test(v1)))

    {

     showtopyips("toptip1","请正确输入手机号!",2000)

     return false; 

    }

  else if (v3 != getcookie())  //问题1：这样调用函数，可以吗？

   {                     

    showtopyips("toptip1","请输入正确的验证码！",2000)

    return false；

   }

  else if (v4 == "是")

   {  

    setcookie（）       

    return "";         //问题2：这样返回，可以吗？

   }

  else

  {

   return true;

  }

}

这是内部函数login Dim e As RequestEventArgs = args(0)                             '登录页面 Select Case e.Path     Case "login.htm"         Dim wb As New weui         If e.PostValues.Count = 0 Then             wb.AddTopTips("","toptip1","") '用于显示动态错误提示             wb.AddForm("","form1","login.htm").Attribute = "on-sub-mit='return valid_login()'"             With wb.AddInputGroup("form1","ipg1","登录")                 If e.PostValues.ContainsKey("isj") AndAlso e.PostValues.ContainsKey("imm")  Then '判断是否是验证失败后的重新登录                     wb.AddTopTips("","toptip1","用户名或密码错误!").msec = 2000 '如果用户通过登录按钮访问,则给用户一个2秒的提示.                 End If                 With .AddInputCell("ic1")  '通过InputCell增加输入框(1表示突出显示,2表示红色警示图标)                     .AddLabel("lsj","手机",0)  '增加标签(0显示在左边)                     .AddInput("isj","text",1).PlaceHolder= "请输入手机号"  '增加输入框(0靠左显示,1居中显示,2靠右显示)                 End With                 With .AddInputCell("ic2")                     .AddLabel("lmm","密码",0)                     .AddInput("imm","password",1).PlaceHolder= "请输入密码"                 End With                 With .AddInputCell("ic5") '通过InputCell增加输入框                     .AddLabel("lyzm","验证码",0) '增加标签,0显示在左边                     .AddInput("yzm","text",1) '增加输入框,1表示显示在中间                    .AddImage("pim","/getVimg.htm",2).Attribute="o-n-click=""this.src = 'getVimg.htm?rand=' + Math.random() """ '增加一个图片,2比表示显示在右边                 End With                 .AddSwitch("jizhumima","记住密码").Value = "是"                    With wb.AddButtonGroup("form1","btg1",True)                     .Add("btn1", "登录","submit") '"/index.htm")                 End With                 With wb.AddButtonGroup("form1","btg2", False)                     .Add("btn2", "免费注册","","/register.htm").Kind = 1                     .Add("btn3", "忘记密码","","/getback.htm").Kind = 1                 End With             End With             e.WriteString(wb.Build) '生成网页         End If End Select 这是获取验证码代码：  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:获取验证码.txt

问题1、问题2，最好是异步跳转到后台处理。

js读取设置cookie，写成一个函数调用接口，参考 https://www.baidu.com/baidu?wd=js+cookie&tn=monline_4_dg

直接拷贝一个 getCookie 函数过来调试下，先取出值。