<%dbdns="../"%>
<!--#include file="../main.asp"-->
<%
if request("action")="edit" then
set fs=server.createobject("scripting.filesystemobject")
set file1=fs.CreateTextFile(server.mappath("zgcren.asp"))
file1.WriteLine(request("book"))
file1.close
end if
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('http://www.jsw360.com/club/','_parent');</script>"
response.end
end if

user=first_name(0)


set rs=server.createobject("adodb.recordset")
sql="select *  from T_Member where F_UserName='"&user&"'"
rs.open sql,conn,1,1
if not rs.eof then
  
    id=rs("F_ID")
    coname=rs("F_UserName")
	co=rs("F_co")
    response.write"<title>"&coname&"</title>"
    url="http://www.jsw360.com/club/co/"&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>"
else
    response.write"<script>alert('页面打开出错，下面是产生错误的可能原因：\n\n·该用户可能不存在');window.open('http://www.jsw360.com/club/','_parent');</script>"
    response.end
end if
rs.close%>