<%
'商易仿淘宝4.0(多用户)
'ACCESS版演示网站：http://www.ftaobao.com(商易仿淘宝商城)
'SQL版演示网站：http://sql.ftaobao.com
'电话：0571-56907100
'QQ：1147100
%>
<!--#include file="include/conn.asp"-->
<!--#include file="include/config.asp"-->
<%
dim geturl
geturl=replace(Request.ServerVariables("HTTP_HOST"),"www.","")

set rs=server.createobject("adodb.recordset")
sql="select * from url where home='"&geturl&"' and zt<>0"
rs.open sql,conn,1,3
if rs.eof then
response.redirect"http://"&my_url&""

else
dim tourl,company
tourl=rs("url")
lx=rs("lx")
bt=rs("bt")
rs("js")=rs("js")+1
rs.update


rs.close
set rs=nothing

if lx<>0 then
Response.write"<script language=javascript>this.location.href='"& tourl &"';</script>"
response.end
end if

%>
<HTML>
<HEAD>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
<META CONTENT="text/html; CHARSET=UTF-8" HTTP-EQUIV="Content-Type">
<TITLE><% = bt %></TITLE>
</HEAD>


<frameset frameborder="0" framespacing="0" scrolling="no" border="0" marginheight="0" marginwidth="0" rows="0,*">
<frame scrolling="NO" noresize="0" marginwidth="0" marginheight="0" framespacing="0" frameborder="0" target="main" name="main" SRC="about:blank">

<frame scrolling="yes" noresize="0" marginwidth="0" marginheight="0" framespacing="0" frameborder="0" target="main" name="main" SRC="<% =tourl %>">

<noframes>
<body>
<p>This page uses frames, but your browser doesn't support them.</p></body>
</noframes>
</frameset>
</HTML>
<%
'商易仿淘宝4.0.1演示地址
'http://www.ftaobao.com
%>
<% end if %>

