mod_save.asp

实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员通过登录该系统

<!--#include file="../prohead.asp"-->
  <!--#include file="../checkrole.asp"-->
<%
      call checkuser("qw")

if Not ChkPost then 
		response.write "<script language='javascript'>"
		response.write"parent.location.href='"&HOPE_InstallDir&"login/login1.asp';</SCRIPT>"
		response.end
end if
 
if Replace_Text(request.form("url"))="" then '验证模板id
	Response.write "<script>alert('请选择模版');history.back();</script>"
	Response.end
 End if
 If is2weburl=1 Then
	weburl_2=Replace_Text(request.form("weburl_2"))

	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 	if weburl_2="" then
     weburl_2=session("id") 
 	end if
	
	'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
 End if
  conn.execute("update [wygkcn_corporation] set yx_userskin="&Replace_Text(request.form("url"))&",weburl_2='"&weburl_2&"' where id="&session("id"))
  
'^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
goname=session("user")

%>
<!--#include file="../../dns/dns.asp"-->
<!--#include file="co.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<TABLE width=778 border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
  <TR>
    <TD 
    style="BACKGROUND-POSITION: right 50%; BACKGROUND-IMAGE: url(i../mages/bg1.gif); BACKGROUND-REPEAT: repeat-y; BACKGROUND-COLOR: #ffffff" 
    vAlign=top align=middle>      <TABLE cellSpacing=0 cellPadding=0 width=100% border=0>
        <TBODY>
        <TR>
              <TD><IMG height=32 src="../images/webmod.gif" width=578 
            border=0></TD>
            </TR></TBODY></TABLE>
      <TABLE class=content_border cellSpacing=0 cellPadding=0 width=100% 
border=0>
        <TBODY>
        <TR>
          <TD align=middle>
		  

<TBODY>
<tr>
<TD align=right height="1" width="530" bgcolor="#FFFBEE">
<tr>
<td valign="top" bgcolor="#FFFEFB">
<table border="0" cellspacing="3" width="100%" cellpadding="4" style="border-collapse: collapse" bordercolor="#111111" bgcolor="#FF9900">
<tr>
<td bgcolor="#FFFBEE" width="100%">&nbsp;&nbsp; 
<font color="#CC3300">
<b><br>
&nbsp;恭喜，您的网站已经自动生成！</b></font>
<table align="center" border="0" cellspacing="3" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber11" height="57">
<tr>
<td width="15%" height="26">你的网址是:</td>
<td width="85%" height="26">

<%

if is2weburl=1 then 

	Response.write "<a href='"&usertwourl&"' target='_blank'>"&usertwourl&"</a>"
	
else %>
<a target="_blank" href="<%=usertwourl%>"><%=usertwourl%></a>
<%
end if
%></td>
</tr>

<tr>
<td height="5" colspan="2">您可以把该网址印在名片上、企业资料上对外宣传了。</td>
</tr>
</table>
<table border="0" cellpadding="2" cellspacing="0" width="100%" style="border-collapse: collapse" bordercolor="#111111" height="211">
<tr>
<td valign="top">
<br>
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="33%"><font color="#CC3300">
<b><br>
&nbsp;您的网站的效果图如下:</b></font></td>
    <td width="67%" align="right"><font color="#CC3300">
<b><br>
如果对此模版不满意，请点<a href="javascript:history.back()"><font color="#FF0000">这里返回</font></a>前页重新选择！</b></font>&nbsp;</td>
  </tr>
  <tr>
    <td colspan="2">
	<br>
	<TABLE class=10 cellSpacing=2 cellPadding=0 align=center 
      border=0 style="border:2px solid #CDCDCD">
        <TBODY>
        <TR>
          <TD>
<%
typename1=Replace_Text(request.form("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("user")&""" target=""_blank""><img src=../../"&rssrc("skinpic")&" width=""500"" border=""0""></a>"

end if
%>
</TD>
          </TR>
        </TBODY></TABLE>
	<br></td>
  </tr>
</table></td>
</tr>
</table>
</TABLE>
</TD>
</TR>
        </TABLE>
      <BR><BR></TD></TR>
  </TABLE>
<%
conn.close
set conn=nothing 
%>