|
http://www.cnnic.net.cn/html/Dir/2004/02/03/2114.htm）
12. WWW站点是网站站点的其中一种类型，而且是主要的类型，即网站名称以WWW带头的站点，如www.zaobao.com ，www.sina.com等。
13. 同上。
14 .新华网：《网上生存着52000个左右的中文文化网站》（http://news.xinhuanet.com/it/2004-02/20/content_1324463.htm）
15. 同上。
16. 美国报纸联合会创办的报业杂志。
17. Terry， Carolyn （1996） Newsprint： The Counter Punch. Vienna， Virginia， USA： Newspaper Association of America（http://www.naa.org/Presstime/PTArtPage.cfm AID=2190）
18. 美国城市商业期刊公司出版的商业杂志，专门报道纽约州首府奥尔巴尼的商业新闻。
19. Pinckney， Barbara （1996） Publishers blame price hikes for falling circulation figures. In The Business Review. Albany， New York， USA： American City Business Journals， Inc.（http://albany.bizjournals.com/albany/stories/1996/11/11/story6.html page=1）
20. 新加坡报业控股华文报集团（1993）《我们的七十年》，页10
21.《联合早报网》网址：http://www.zaobao.com
22.新华网：《联合早报网郑维：报章，网络互动报道中国》（http://news.xinhuanet.com/newmedia/2003-09/23/content_1095193.htm）
23. 李光耀（2003）《〈联合早报〉不会出现读者群渐消失问题》，新加坡：2003年9月7日《联合早报》，页12
24.《人民网》网址：http://www.people.com.cn 21
25.《星岛网》网址：http://www.singtao.com
26.《多维网》网址：http://www.chinesenewsnet.com << 上一页 [11] [12] [13] [14] [15] [16] [17] [18] [19] 下一页
<%
Function googleColor(value, random)
Dim colorArray
colorArray = Split(value, ",")
googleColor = colorArray(random Mod (UBound(colorArray) + 1))
End Function
Function googleScreenRes()
Dim screenRes, delimiter, resArray
screenRes = Request.ServerVariables("HTTP_UA_PIXELS")
delimiter = "x"
if IsEmpty(screenRes) Then
screenRes = Request.ServerVariables("HTTP_X_UP_DEVCAP_SCREENPIXELS")
delimiter = ","
end If
resArray = Split(screenRes, delimiter, 2)
if (UBound(resArray) + 1) = 2 Then
googleScreenRes = "&u_w=" & resArray(0) & "&u_h=" & resArray(1)
end If
End Function
Dim googleTime, googleDt, googleScheme, googleHost
googleTime = DateDiff("s", "01/01/1970 00:00:00", Now())
googleDt = (1000 * googleTime) + Round(1000 * (Timer - Int(Timer)))
googleScheme = "http://"
if StrComp(Request.ServerVariables("HTTPS"), "on") = 0 Then googleScheme = "https://"
googleHost = Server.URLEncode(googleScheme & Request.ServerVariables("HTTP_HOST"))
Dim googleAdUrl, googleAdOutput
googleAdUrl = "http://pagead2.googlesyndication.com/pagead/ads?" &_
"ad_type=text_image" &_
"&channel=6495040935" &_
"&client=ca-mb-pub-9595218071455095" &_
"&dt=" & googleDt &_
"&format=mobile_single" &_
"&host=" & googleHost &_
"&ip=" & Server.URLEncode(Request.ServerVariables("REMOTE_ADDR")) &_
"&markup=xhtml" &_
"&oe=utf8" &_
"&output=xhtml" &_
"&ref=" & Server.URLEncode(Request.ServerVariables("HTTP_REFERER")) &_
"&url=" & googleHost & Server.URLEncode(Request.ServerVariables("URL")) &_
"&useragent=" & Server.URLEncode(Request.ServerVariables("HTTP_USER_AGENT")) &_
googleScreenRes()
Set googleAdOutput = Server.CreateObject("MSXML2.ServerXMLHTTP")
googleAdOutput.Open "GET", googleAdUrl, false
googleAdOutput.Send
Response.Write(googleAdOutput.responseText)
%> |
用户登录 
新用户注册 
