   <% 
	data_path="../../" 'ACC连接数据库路径，对SQL无效
	numid="12"
	dir="../err.asp" 
  %>
  <!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
<!--#include file="../../inc/filesystem.asp"-->
 <!--#include file="../rolecheck.asp"-->

<%
 username=Replace_Text(request("weburl_2"))
 userid=Replace_Text(request("userid"))
 url=Replace_Text(request("url"))
 
 if userid<>"" then 
 if issession=0  then
 response.Cookies("autoid")=userid
 response.Cookies("autouser")=username
 response.Cookies("url")=url
 else
 session("autoid")=userid
 session("autouser")=username
 session("url")=url 
 end if

 end if
 
 if issession=0 then
 autoid=request.Cookies("autoid")
 autouser=request.Cookies("autouser")
 else
 autoid=session("autoid")
 autouser=session("autouser")
 end if
 If is2weburl=1 Then
	weburl_2=Replace_Text(request("weburl_2"))

	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 	if weburl_2="" then
     weburl_2=autoid
 	end if
	
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 End if
  conn.execute("update [Websen_corporation] set yx_userskin="&url&",weburl_2='"&weburl_2&"' where id="&autoid)
  
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
goname=autouser

%>
<!--#include file="dns.asp"-->
<!--#include file="webborn.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../css/style.css" rel=stylesheet type=text/css>
  <center><a href="javascript:window.close()"><font color="#FF0000">关 闭 窗 口 </font></a></center><br />

<table align="center" border="0" cellspacing="3" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber11" height="57">
<tr>
 <td width="85%" height="26" bgcolor="#E6E6E6"><font color="#CC3300">
<b><br>
&nbsp;恭喜，会员---<font color="#0099CC"><%=autouser%></font>---的网站已经自动生成！</b></font><hr size="1" noshade="noshade"  color="#0099CC"/>
 <br>&nbsp;&nbsp;&nbsp;网址：  
 <%
 if is2weburl=1 then 
 Response.write "<a href='"&usertwourl&"' target='_blank'>"&usertwourl&"</a>"
 else %>
<a target="_blank" href="<%=usertwourl%>"><%=usertwourl%></a>
<%
end if
%><br /><br /></td>
</tr>
 </table>
 
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="33%"><font color="#CC3300">
<b><br>
&nbsp; 网站的效果图如下:</b></font></td>
   </tr>
  <tr>
    <td   align="center"  height="410" bgcolor="#CCCCCC">
 
<%
typename1=Replace_Text(request("url"))
sqlsrc="select skinpic from Websen_userskin where id="&typename1&""
set rssrc=conn.execute(sqlsrc) 
if is2weburl=1  then 
	Response.write "<a href='"&usertwourl&"' target='_blank'><img src=../../"&rssrc("skinpic")&" width=""500"" border=""0""></a>"
else
	response.write "<a href="""&HOPE_InstallDir&"vipcom/"&autouser&""" target=""_blank""><img src=../../"&rssrc("skinpic")&" width=""500"" border=""0""></a>"

end if
%>
</TD>
 </TR>
 </TABLE>
 <br />
  <center><a href="javascript:window.close()"><font color="#FF0000">关 闭 窗 口 </font></a></center><br />
<%
if issession=0 then
 response.Cookies("autoid")=""
 response.Cookies("autouser")=""
 response.Cookies("url")=""
else
 session("autoid")=""
 session("autouser")=""
 session("url")=""
end if

conn.close
set conn=nothing 

Function changechr(fString)
If Not IsNull(fString) Then
fString = trim(fString)
fString = replace(fString, "--", "——")  
fString = replace(fString, "%20", "")    
fString = replace(fString, "==", "")     
fString = replace(fString, "&gt;", ">")
fString = replace(fString, "&lt;", "<")
fString = Replace(fString, CHR(32), " ")		 
fString = Replace(fString, CHR(9), " ")			 
fString = Replace(fString, CHR(39), "&#39;")	 
fString = Replace(fString, CHR(13), "")
fString = Replace(fString, CHR(10) & CHR(10), "</P><P> ")
fString = Replace(fString, CHR(10), "<BR> ")
changechr = fString
End If
End Function
%>