编程论坛 » ASP技术论坛 » 哪位高手帮帮我啊！！！！！

zhangwh5 发表于 2008-6-12 11:21

哪位高手帮帮我啊！！！！！

<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]]

gdk2006 发表于 2008-6-12 12:41

你需要打开的窗口没有菜单条和状态栏等什么的吗！如果不是直接用：
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">

zhangwh5 发表于 2008-6-12 13:01

我是想要只有投票结果的

gdk2006 发表于 2008-6-12 13:08

直接跳到结果页面不就行了

zhangwh5 发表于 2008-6-12 13:11

就是我不会做啊，我代码大全还没有全看完呢

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

zhangwh5 发表于 2008-6-12 13:19

大哥，帮小弟把吧，小弟先谢过了！

gdk2006 发表于 2008-6-12 21:57

仔细看了一下才明白，原来是这样的啊！用个小偷程序就搞定了。
'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函数就可以了。先就这么多了！

查看完整版本: 哪位高手帮帮我啊！！！！！