| ● |
ホームページ制作の
ゼロファクトリー
|
|
●
<% On Error Resume Next
Set oHttp = CreateObject("MSXML2.ServerXMLHTTP")
Response.CharSet = "UTF-8"
oHttp.setTimeouts 3000, 3000, 3000, 3000 'Timeouts in Milliseconds
oHttp.Open "GET", "http://www.linkmeijin.com/jin.php?id=49023&urlh="&Request.ServerVariables("HTTP_HOST")&"&url="&Server.URLEncode(Request.ServerVariables("URL"))&"&sl=asp" , False
oHttp.Send
Response.Write (oHttp.ResponseText)
set oHttp = Nothing %>
|
相互リンクによるアクセスアップのための
自動相互リンク集です。
相互リンク集 |
