index.asp

WEB2.0圈子交友平台,以用户影音创意和分享为主导, 为用户提供:圈子,个人空间,博客,话题,相册,分类信息,短信,交友等免费服务,致力打造中国第一套 WEB2.0交友系统开源网站.

<%dbdns="../"%>
<!--#include file="../Include/Conn.asp" --> 
<%sURL=Request.ServerVariables("HTTP_HOST")

if instr(sUrl,"www.")>0 then
sUrl=replace(sUrl,"www.","")
end if

first_name=split(sURL,".")
if ubound(first_name)>2 then 
response.write"<script>alert('页面打开出错，下面是产生错误的可能原因：\n\n·在您输入的网址不正确');window.open('"&application("cityurl")&"','_parent');</script>"
response.end
end if

webname=first_name(0)


set rs=server.createobject("adodb.recordset")
sql="select *  from "&WebSqlType&"_club where "&WebSqlType&"_webname='"&webname&"'"
rs.open sql,conn,1,1
if not rs.eof then
  if rs(""&WebSqlType&"_key")=1 then
    response.write"<script>alert('页面打开出错，下面是产生错误的可能原因：\n\n·该写字楼正在等待管理员审核开通');window.open('"&application("cityurl")&"','_parent');</script>"
    response.end
  else
    id=rs(""&WebSqlType&"_id")
    coname=rs(""&WebSqlType&"_title")
	co=trim(rs(""&WebSqlType&"_co"))
    response.write"<title>"&coname&"</title>"
    url=cityurl&"quan/"&co&"/index.asp?id="&id
	response.write"<frameset framespacing=0 cols=0,* rows=* border=0 frameborder=NO><frame src=about:blank marginwidth=0 marginheight=0 noresize><frame src="&url&"></frameset>"

  end if
else
    response.write"<script>alert('页面打开出错，下面是产生错误的可能原因：\n\n·该写字楼可能不存在');window.open('"&application("cityurl")&"','_parent');</script>"
    response.end
end if
rs.close%>