重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
弹出提示窗口,基本上随便哪个源码里面都有用到,比如用户后台登陆,你可以参考下
站在用户的角度思考问题,与客户深入沟通,找到祁连网站设计与祁连网站推广的解决方案,凭借多年的经验,让设计与互联网技术结合,创造个性化、用户体验好的作品,建站类型包括:成都网站制作、成都网站设计、企业官网、英文网站、手机端网站、网站推广、域名注册、虚拟空间、企业邮箱。业务覆盖祁连地区。
发送页面:
用get传值 如 点击button时 response.redirect("接受页面的url"?canshu=textbox.text)
在接受页面:
用Request.QueryString["canshu"].toString(); 这样就接受到textbox里的值了。
然后根据这个值到数据库里查询就行了。
把参数写到post 中
Dim xmlhttp
Set xmlhttp = CreateObject("msxml2.xmlhttp")
With xmlhttp
.open "POST", url, False
.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
.send "userid=apcisspassword=544112255page=5"'======写到这里
End With
Set xmlhttp = Nothing
自动打开网页的BAT:
start
自动填写表单需要用VB或者VBA来写。
用自动键入数字和按钮的方法。
参看下面的贴子:
这个不容易做,本来打算用OLE的,但是发觉很难实现。我给你个思路:
1、用VB程序自动打开网页(调用那个BAT就可以了);
2、自动按下数字键1;
3、自动按下ENTER键
图有点模糊。
服务器端要有方法接收,接收的参数要看方法的定义。
Controller A里面假设有这个get Action
httppost
function get(frm as formcollection) as actionresult
dim a as string=frm("keyword")
return content(a)
end function
页面View 中
@Using FormBegin("get","A","POST")
@div
input name="keyword" type="text"/
Input type="submit" value="提交"/
end using
你在页面上点击按钮“提交”后,就会把表单的中keyword文本框的内容赋值给a.
这里我用的是MVC..前端用的VB Razor.
使用webbrowser空间实现很简单
一。 首先在窗体头部定义 Dim WithEvents MyDom As MSHTML.HTMLDocument
其次找到element对象 myDom=WebBrowser1.Document.getElementsByName("sa")
最后执行onclick : mydom.onclick
二.还有想要实现点击,直接执行点击的相应函数即可例如:假设想实现点击下面的Inputbox
input id="busT1" name="busT" type="radio" value="1" class="input5" checked="checked" onclick="busSwitchDiv('changeDiv')" tabindex="18"/
那么直接执行onclick里的函数busSwitchDiv('changeDiv')即可,执行语句如下:
WebBrowser1.Document.parentwindow.execscript "busSwitchDiv('changeDiv')"