userweb.asp

来自「实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员」· ASP 代码 · 共 106 行

<%
if session("globalecmaster")="" or session("masterflag")="" then
response.write "<script language='javascript'>"
response.write"parent.location.href='../login.asp';</SCRIPT>" 
response.end
end if

'权限限制^^^^^^^^^^^^^^^^^^^^
 dim ishavegant
 ishavegant=false
 in_str=split(session("masterflag"),",")
 for each ins in in_str
 if trim(ins)="12"    then 
 ishavegant=true
 end if
 next 
 if ishavegant=false then
 response.redirect "../err.asp"
 response.end
 end if
 %>
<% data_path="../../" 'ACC连接数据库路径，对SQL无效 %>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
<!--#include file="../../inc/filesystem.asp"-->
<%
 username=Replace_Text(request("weburl_2"))
 userid=Replace_Text(request("userid"))
 url=Replace_Text(request("url"))
 
 if userid<>"" then 
 session("autoid")=userid
 session("autouser")=username
 session("url")=url
 end if
 If is2weburl=1 Then
	weburl_2=Replace_Text(request("weburl_2"))

	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 	if weburl_2="" then
     weburl_2=session("autoid") 
 	end if
	
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 End if
  conn.execute("update [wygkcn_corporation] set yx_userskin="&url&",weburl_2='"&weburl_2&"' where id="&session("autoid"))
  
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
goname=session("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"><%=session("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 Yixiang_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/"&session("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 />
<%
 session("autoid")=""
 session("autouser")=""
 session("url")=""
conn.close
set conn=nothing 
%>