| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 563 人关注过本帖
标题:哪位高手帮帮我啊!!!!!
只看楼主 加入收藏
zhangwh5
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2008-6-12
收藏
 问题点数:0 回复次数:6 
哪位高手帮帮我啊!!!!!
<INPUT onclick="window.open('http://www.******.com/tp/view.asp?sid=8')" type="button" value="查看结果" name="submit">

以上这段代码是点击查看结果,要怎么样才能不用点击就看到结果
就是说,我想在网页中插入这个投票的结果,就是附件那种只要结果的,代码应该怎么写
兄弟们,高手们帮帮忙吧!!!!!

[[it] 本帖最后由 zhangwh5 于 2008-6-12 13:09 编辑 [/it]]

t.jpg (171.55 KB)
图片附件: 游客没有浏览图片的权限,请 登录注册
搜索更多相关主题的帖子: ASP 
2008-06-12 11:21
gdk2006
Rank: 4
等 级:业余侠客
威 望:8
帖 子:928
专家分:270
注 册:2006-7-2
收藏
得分:0 
你需要打开的窗口没有菜单条和状态栏等什么的吗!如果不是直接用:
onclick="javascript:windw.location.href='http://www.******.com/tp/view.asp?sid=8';"

或者:
<INPUT onclick="javascript:window.open('http://www.******.com/tp/view.asp?sid=8')" type="button" value="查看结果" name="submit">

程序员的悲哀如何找女朋友?
追女解决方案百度“让她着迷”!
2008-06-12 12:41
zhangwh5
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2008-6-12
收藏
得分:0 
我是想要只有投票结果的
2008-06-12 13:01
gdk2006
Rank: 4
等 级:业余侠客
威 望:8
帖 子:928
专家分:270
注 册:2006-7-2
收藏
得分:0 
直接跳到结果页面不就行了

程序员的悲哀如何找女朋友?
追女解决方案百度“让她着迷”!
2008-06-12 13:08
zhangwh5
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2008-6-12
收藏
得分:0 
就是我不会做啊,我代码大全还没有全看完呢

[[it] 本帖最后由 zhangwh5 于 2008-6-12 13:17 编辑 [/it]]
2008-06-12 13:11
zhangwh5
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2008-6-12
收藏
得分:0 
大哥,帮小弟把吧,小弟先谢过了!
2008-06-12 13:19
gdk2006
Rank: 4
等 级:业余侠客
威 望:8
帖 子:928
专家分:270
注 册:2006-7-2
收藏
得分:0 
仔细看了一下才明白,原来是这样的啊!用个小偷程序就搞定了。
'asp远程读取网页源代码
'读取数据
Function GetURL(URL)
Set http=Server.CreateObject("Microsoft.XMLHTTP")
     On Error Resume Next
     http.Open "GET",URL,False
     http.send()
     if Err then
     Err.Clear
     Response.Write("没有找到网页!")
     Response.End()
     End if
     getHTTPPage=bytesToBSTR(Http.responseBody,"gb2312")
set http=nothing
GetURL=getHTTPPage
End Function
'转换编码
Function BytesToBstr(body,Cset)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
'调用方法
Content=GetURL("http://www.******.com/tp/view.asp?sid=8")
Response.Write(Content)


用这个调用这样:Content=GetURL("http://www.******.com/tp/view.asp?sid=8")
将Content中投票部分提取出来就可以了!这样也算是偷别人的东西,再灵活运用Replace函数就可以了。先就这么多了!

程序员的悲哀如何找女朋友?
追女解决方案百度“让她着迷”!
2008-06-12 21:57
快速回复:哪位高手帮帮我啊!!!!!
数据加载中...
 
   



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

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