| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1598 人关注过本帖
标题:如何在asp页面中获取当前网页的"标题"(title)和"网址"(ur ...
只看楼主 加入收藏
sower
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2006-5-20
收藏
 问题点数:0 回复次数:6 
如何在asp页面中获取当前网页的"标题"(title)和"网址"(ur),并传递给提交网页
小弟正在制作一个信息纠错页面(全部是ASP页面),工作原理如下:
1、a.asp页面为普通信息页面(不固定),b.asp页面为专门用来向数据库(SQL)提交错误信息的页面(用表单提交);
2、在a.asp页面,点击纠错链接,打开b.asp页面;
3、打开b.asp页面的同时,a.asp页面的“title"和“url"提交到b.asp页面的表单中。

哪位高手能告诉我,如何a.asp页面的"标题"(title)和"网址"(ur),传递给b.asp。

代码越详细越好,如果有完整代码参考请给出详细地址。
搜索更多相关主题的帖子: 网页 title asp 网址 页面 
2006-05-20 13:56
sower
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2006-5-20
收藏
得分:0 
如何不能实现,可以直接告诉我啊!
2006-05-20 16:29
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
收藏
得分:0 
标题不清楚,
URL到是知道,提交到b.asp后,应该可以在b.asp页面用
Request.ServerVariables("HTTP_REFERER")
这样的代码来得到提交到的a.asp页面的URL,楼主可以试试。
2006-05-20 20:39
小鼓锤
Rank: 1
等 级:新手上路
帖 子:175
专家分:0
注 册:2005-11-29
收藏
得分:0 
我顶下!
我也想知道这个问题啊!
2006-05-21 00:53
hws888
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2005-11-17
收藏
得分:0 

我记得神州网址站里就有报错的页面,好象和你要求的差不多,源码在百度搜一下N多

2006-05-21 15:09
阳光白雪
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:39
帖 子:2220
专家分:0
注 册:2005-11-18
收藏
得分:0 

<%
Function getHTTPPage(url)
on error resume next
dim http
set http=Server.createobject("Msxml2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=bytes2BSTR(Http.responseBody)
set http=nothing
if err.number<>0 then
err.Clear
end if
End Function

Function bytes2BSTR(vIn)
dim strReturn
dim i,ThisCharCode,NextCharCode
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function

Function GetPageTitle(HtmlContent)
Dim l,j,strTitle
l = InStr(LCase(HtmlContent), "<title>")
If l > 0 Then
l = l + 7
j = InStr(l, LCase(HtmlContent), "</title>")
If j > 0 Then
strTemp = Mid(HtmlContent, l, j - l)
Else
strTemp = "无法获取网页标题!"
End If
Else
strTemp = "无法获取网页标题!"
End If
GetPageTitle = strTemp
End Function

HtmlCldeContent = getHTTPPage("http://www.bc-cn.net/bbs/") '要提取页面的url地址
Title = GetPageTitle(HtmlCldeContent)
response.write(Title)
%>

[此贴子已经被作者于2006-5-21 17:06:03编辑过]


专注于WEB前端交互平台开发:[url=http://blog./]blog.[/url](富客户端技术(RIA)交流平台)
2006-05-21 17:05
程序错误
Rank: 1
等 级:新手上路
帖 子:52
专家分:0
注 册:2006-4-30
收藏
得分:0 
偶找这代码好长时间了,呵呵,收下了,谢谢!!

天因你而更蔚蓝~~~~~~
地狱因我而黑暗~~~~~~
2006-05-23 15:11
快速回复:如何在asp页面中获取当前网页的"标题"(title)和"网址"(ur ...
数据加载中...
 
   



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

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