<!--#include file="../head.asp"-->
  <!--#include file="../checkrole.asp"-->
  <%
        call checkuser("qw")
   %>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script Language="JavaScript"> 
function info(mylink)
{
window.open(mylink,'','top=50,left=120,width=555,height=500,scrollbars=yes')
}
function FormCheck() 
{ 
var check=true;
for(var i=0;i<document.Form1.url.length;i++)
{
if (document.Form1.url[i].checked) {
check=false;
break;
} 
}
}
 </script> 
<%

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
 dim rstemp
 
 	if issession=0 then
	gsid=Replace_Text(request.Cookies("Yxmemberid"))
	 username=Replace_Text(request.Cookies("Yxmember"))
 	else
	gsid=session("id")
	username=session("user")
 	end if
set rstemp=conn.execute("select yx_userskin from [Websen_corporation] where id="&gsid)
skinid=rstemp("yx_userskin")
rstemp.close
set rstemp=nothing
sql="select * from Websen_userskin where ispass=1 order by id desc "
set rs=server.createobject("adodb.recordset") 
rs.open sql,conn,1,1 
 
 msg_per_page=9  
rs.pagesize=msg_per_page  

if not (rs.eof and rs.bof) then
	totalrec=RS.RecordCount 
	if rs.recordcount mod msg_per_page=0 then 
		n=rs.recordcount\msg_per_page 
	else
		n=rs.recordcount\msg_per_page+1                        
	end if                                                                
	currentpage=request("page") 
	If currentpage <> "" then
		currentpage =  cint(currentpage)
		if currentpage < 1 then  
			currentpage = 1
		end if  
		if err.number <> 0 then  
			err.clear
			currentpage=1
		end if
	else
		currentpage=1
	End if                                                                
	if currentpage*msg_per_page > totalrec and not((currentpage-1)*msg_per_page < totalrec)then 
		currentPage=1
	end if
	rs.absolutepage=currentpage 
	rowcount=rs.pagesize 
end if
%> 
<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 id=mod> 
              <TD width="74%"><IMG height=32 src="../images/webmod.gif" width=576 
            border=0 ></TD> 
              <TD width="26%" background="../images/info_bg.gif">&nbsp;</TD>
            </TR>
          </TBODY> 
        </TABLE> 
        <TABLE class=content_border id=mod_s cellSpacing=0 cellPadding=0 width=100% border=0> 
          <TBODY> 
            <TR> 
              <TD align=middle><FORM method="POST" action="mod_save.asp" name="Form1" onSubmit="return FormCheck();"> 
                  <table border="0" cellpadding="0" cellspacing="10" style="border-collapse: collapse" width="100%" id="AutoNumber10"> 
                    <tr> 
<%
j=1
do while not rs.eof and rowcount > 0
%> 
                      <TD style="font-family: 宋体; font-size: 9pt; line-height: 13pt; letter-spacing: 0pt" width="192" align="center"> <TABLE border=2 borderColorDark=#660000 borderColorLight=#660000 cellPadding=0 cellSpacing=0 height=90 width=160 style="border-collapse: collapse; font-family:宋体; font-size:9pt" bordercolor="#111111"> 
                          <TR> 
                            <TD align=middle height=77 onMouseOut="this.style.backgroundColor =''" onMouseOver="this.style.backgroundColor ='#c33313'" width="158" style="font-family: 宋体; font-size: 9pt; line-height: 13pt; letter-spacing: 0pt"> <a href="javascript:info(&quot;../../<%=rs("skinpic")%>&quot;)"> <IMG border=0 height=110 src="../../<%=rs("skinpic")%>" width=150 title="点击图片既可式进模版样行大图预览！"></a></TD> 
                          </TR> 
                          <TR bgColor=#c33313> 
                            <TD width="158" height=22 align=middle bgcolor="#c33313" style="font-family: 宋体; font-size: 9pt; line-height: 13pt; letter-spacing: 0pt"> <INPUT class="f1 "name="url" type=radio value="<%=rs("id")%>" <% if rs("id")=skinid then response.write "checked"%>> 
                              <a href="javascript:info(&quot;../../<%=rs("skinpic")%>&quot;)" style="text-decoration: none"><font color="#F2F2F2"><%=rs("userskinname")%></font></a></TD> 
                          </TR> 
                        </TABLE> 
                        <DIV style="PADDING-TOP: 10px"></DIV></td> 
                      <%if j mod 3 = 0 then %></TR><tr><%end if%> 
<%
rowcount=rowcount-1
rs.movenext
j=j+1
loop
%> 
                  </table> 
                  <table width="100%"  border="0" cellspacing="0" cellpadding="0"> 
                    <tr> 
                      <td height="35" align="center" bgcolor="#DCEDFC"><%call listPages()%> 
                      <%
sub listPages() 
   if not (rs.eof and rs.bof) then
	gopage=currentpage
	totalpage=n
	blockPage=Int((gopage-1)/10)*10+1
	if blockPage = 1 Then
		Response.Write "<span disabled>【←前10页</span>&nbsp;&nbsp;"
	Else
		Response.Write("<span disabled>【</span><a href=webmod.asp?page="&blockPage-10&">←前10页</a>&nbsp;&nbsp;")
	End If
   i=1
   Do Until i > 10 or blockPage > n
    If blockPage=int(gopage) Then
		Response.Write("<font color=#FF0000>[<b>"&blockPage&"</b>]</font>")
	Else
		Response.Write("<a href=webmod.asp?page="&blockPage&">["&blockPage&"]</a>")
    End If
    blockPage=blockPage+1
    i = i + 1
    Loop
	if blockPage > totalpage Then
		Response.Write "&nbsp;&nbsp;<span disabled>后10页→】"
	Else
		Response.Write("&nbsp;&nbsp;<a href=webmod.asp?page="&blockPage&">后10页→</a><span disabled>】")
	End If
		Response.Write("&nbsp;&nbsp;共"&n&"页 每页"&msg_per_page&"个模版 共"&totalrec&"个模版")
end if
end sub
%> </td> 
                    </tr> 
					<% if is2weburl=1 then'在开启二级域名的情况下
					
					set rste=conn.execute("select weburl_2 from Websen_corporation where id="&gsid)
					 %>
                    <tr>
                      <td height="35" align="center">〖<font color="#C6554F"><b><%=username%></b></font>〗网站二级域名：
                        http://<label>
						<%
						'^^^^^^处理二级域名称^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
						%>
						
                        <input name="weburl_2" type="text" id="weburl_2" size="15" value="<%if trim(rste("weburl_2"))<>"" then%><%=rste("weburl_2")%><%else%><%=username%><%end if%>" maxlength="18" readonly style="background-color:#0099CC;color:#FFFFFF"> .<%=weburl1%>
						<%
						'^^^^^^处理二级域名称^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
						%>
						
						
						</label></td>
                    </tr>
					<%end if%>
					                    <tr> 
                      <td height="35" align="center" bgcolor="#FAFAFA"><input type="submit" value="选定模版到下一步&gt;&gt;"></td> 
                    </tr> 
					<tr><td height="10" bgcolor="#DCEDFC"> </td></tr>
					
                  </table> 
                </form></TD> 
            </TR> 
          </TBODY> 
        </TABLE>
		
        <br>
        <br>      <TABLE class=bdr1 cellSpacing=0 cellPadding=0 width="100%" 
              border=0>
          <TBODY>
              <TR>
                <TD height=103>
                  <TABLE class=bdr2 cellSpacing=0 cellPadding=0 width="100%" 
                  border=0>
                    <TBODY>
                    <TR>
                      <TD class=lh13 height=91><table cellSpacing="1" cellPadding="4" width="100%" align="center" border="0">
								<tr>
									<td class="lh15">
										<span class="m"><br>
												建立网站是<%=webname%>为会员提供的专有服务，拥有此服务，您将获得：</span><br>
												<br>
												·独立的二级域名（http;//会员名.<%=weburl1%>）网站<br>
												·多种网站风格样式任您挑选<br>
												·六合一的企业展示平台<br>
												<br>
												----------------------------------------------------------------------------------------
												<br>
												――让您轻松发布、查看供求商机<br>
												――上传公司图片 展示企业形象<br>
												――庞大的产品展厅<br>
												――企业证书与荣誉的展示平台<br>
――智能在线招牌信息发布 </td>
								</tr>
 
	  </table></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE><br><br></TD> 
    </TR> 
</TABLE> 

