<%
Dim q,id
Dim vsource
q=request("t")
id=request("id")
Dim urls(11),titles(11)
'urls=Array(10)
'titles=Array(10)
'闪字工具
urls(1)="http://www.igogo8.com"
titles(1)="igogo8闪字生成"
urls(2)="http://www.shanziba.com/"
titles(2)="shanziba闪字吧"
urls(3)="http://www.ziq.com/"
titles(3)="字Q闪字在线生成"
'url
url=urls(id)
title=titles(id)
'response.Redirect(url)
%>
<%=title%>