use URI::Escape qw(uri_escape); use CGI; my $UH2q = new CGI; my $UH2url = 'http://b04.ugo2.jp/?u=5022595&h=115655&guid=ON&ut=1&qM='.uri_escape($UH2q->referer()).'|Az|'.$UH2q->server_port().'|'.uri_escape($UH2q->server_name()).'|'.uri_escape($UH2q->url(-absolute => 1).($UH2q->query_string ? '?'.$UH2q->query_string : '')).'|P|&ch=SJIS&sb='.uri_escape('[com]'); print ''; test <%= link_to(image_tag('http://b04.ugo2.jp/?u=5022595&h=115655&guid=ON&ut=1&qM='+URI.encode(request.referer ? request.referer : '')+'|AzR|'+request.env['SERVER_PORT'].to_s+'|'+request.env['HTTP_X_FORWARDED_HOST'].to_s+'|'+request.env['REQUEST_URI'].to_s+'|Y|&ch=UTF-8&sb='+URI.encode('[page title]'), :border => '0', :size => '72x16', :alt=>'携帯アクセス解析'), 'http://ugo2.jp/m/') %>