<form id="form1" name="form1" method="post" action="store_save.asp?act=save">
<ul style="list-style-type:none; padding:0; margin-left:10px;">
<li><input name="store" type="text" id="st_store" style="border:1px solid #0099FF;" value="" size="30" maxlength="20" />
</li>
<li></li>
<li><input name="name" type="text" id="st_name" style="border:1px solid #0099FF;" value="" size="30" maxlength="20" />
</li>
<li></li>
<li><input name="add" type="text" id="st_add" style="border:1px solid #0099FF;" value="" size="30" maxlength="20" />
</li>
<li></li>
<li><input name="phone" type="text" id="st_phone" style="border:1px solid #0099FF;" value="" size="30" maxlength="20" />
</li>
<li></li>
<li><input name="qq" type="text" id="st_qq" style="border:1px solid #0099FF;" value="" size="30" maxlength="20" />
</li>
<li></li>
<%
if request.querystring("act")="save" then
if st_store="" or st_name="" or st_add="" or st_phone="" or st_qq="" then
response.Write("<br>请您填完所有信息!")
response.Redirect "store.asp"
else
response.Redirect "store_save.asp"
end if
end if
%>
<li><input style="width:60px;height:30px;margin-top:60px; border:1px solid #0099FF; background-image:url(doupanpic/sy_10.gif);" type="submit" name="Submit" value="提交" /></li>
<%
if request.querystring("act")="save" then
if st_store="" or st_name="" or st_add="" or st_phone="" or st_qq="" then
response.Write("<br>请您填完所有信息!")
response.Redirect "store.asp"
else
response.Redirect "store_save.asp"
end if
end if
%>
我的这段代码不知道哪里有问题,没法实现检查后再跳转,每次一点按钮就跳转了。
如何用VB让页面在提交表单后检查表单是否填完,填完了再跳转页面
st_phone=request.form("phone")st_qq=request.form("qq")if st_store="" or st_name="" or st_add="" or st_phone="" or st_qq="" then response.write "" & chr(13) & "alert('请您填完所有信息!")');" & "history.back()" & ""Response.End else response.Redirect "...
VB做一个可以用Excel内容批量提交到网页表单提交一份后再回到填写网页的...
Private Sub FILL_ListView()Connect ListView1.ListItems.Clear Dim n, m, ct As Integer Dim sql As String sql = "select * from ygb order by bh"rs.Open sql, cn ct = rs.Fields.Count - 1 If rs.BOF = False Then rs.MoveFirst m = 1 While rs.EOF = False ListView1.ListIt...
如何用vb自动填写,选择下拉框选项并提交网页表单
使用webbrowser控件打开当前网页,然后 set vdoc=webbrowser1.document vdoc.all.你的id.value="你要的内容“ 使用这样的格式就可以自动填上你的网页了
如何用vb实现网页表单的自动填充并提交
如果你电脑的的默认输入语言如果是五笔的话,下面的代码能实现运行后,打开hao123.com网页,并在百度一下的输入栏中写上“幸福一生”四个字。供你参考吧! Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Form_Load() Dim ie Set ie = CreateObject("interne...
vb.net 网页提交表单
发送页面:用get传值 如 点击button时 response.redirect("接受页面的url"?canshu=textbox.text)在接受页面:用Request.QueryString["canshu"].toString(); 这样就接受到textbox里的值了。然后根据这个值到数据库里查询就行了。
form怎么实现跳转form跳转页面
3.Jsp页面跳转的第三种方式:重定向分 代码如下:!--重定向--> \/\/1.response.sendRedirect("page2.jsp");> form表单选择多文件上传,怎么不跳转页面提交?实现以上功能可以用表单大师,可以不用写编码,用表单大师现成的字段进行拖载,一个表单就搭建好了。vb如何先打开登录框frmLogin后跳转到主窗体...
vb关于后台操作webbrowser,模拟键盘填写表单的问题(需要按方向键和tab...
其他表单元素可以用上述类似的方法逐一赋值。最后,找到submit按钮执行click方法即可提交表单了。如果submit按钮有id或name就最好办了,比如表单上的submit按钮是这样的: 那么VB中可以这样:WebBrowser1.document.getElementById("submit1").Click 如果没有id或name就稍微复杂一些:Dim objs As Object, obj...
客户端验证未通过却提交表单
function check(){ if(document.form1.aa.value.length==""){ alert("你未输入内容,请先输入后再提交");return false;\/\/这里只是做了一个最简单的检查用户是否输入了内容,如果没输入内容,则返回假,即不提交。} return true;\/\/这里是当上面的if判断不成功(即用户有输入了内容,那就提交...
VB编程步步高-表单篇
然后,将这个表单保存在模板目录下,比如:C:Program FilesMicrosoft Visual StudioVb98TemplateForms。现在,从工程菜单中选择“添加表单”,就出现了你刚才建立表单的一个选择。当添加了这个类型的表单后,原本设置好的属性也就存在了。关于.FRX文件 什么是FRX文件?怎样我它们?没有它们能够正常工作吗?Vi...
VB静音提交网页表单方法
使用form的submit方法