<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostFunctionMain.asp"-->
<%If session("agentusername")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
ElseIf Request("id")<>"" and not IsNumeric(Request("id")) Then
	ef=True
	ec="编号必须是数字"
end if

if not ef then
Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
	Set dsagn = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_Agent where username='"&session("agentusername")&"'"
		dsagn.Open Sql,conn,1,3
if dsagn.eof then
	ef=True
	ec="代理会员不存在！"
end if
end If

if not ef then
if dsagn("haveclosehtml")=true then
	ef=True
	ec="管理员已关闭了您的服务域名及模板管理功能"
end if
end if


if not ef then%>
<!--#include virtual="/inc-freehost-function/htmlwrite.asp"--><%=htmlwrite("html5")%>　模板管理
<%=htmlwrite("html6")%>
<form name="formhtml" method="post" action="htmlstyle-sub.asp"><br>
 快速修改：<br>
 查找内容：  
 <input type="text" name="findme">
  <br>
  替换　为：
  <input type="text" name="replaceme">
  <script>
  function chcon()
  {
document.formhtml.html1.value=document.formhtml.html1.value.replace(document.formhtml.findme.value,document.formhtml.replaceme.value)
document.formhtml.html2.value=document.formhtml.html2.value.replace(document.formhtml.findme.value,document.formhtml.replaceme.value)
document.formhtml.html3.value=document.formhtml.html3.value.replace(document.formhtml.findme.value,document.formhtml.replaceme.value)
document.formhtml.html4.value=document.formhtml.html4.value.replace(document.formhtml.findme.value,document.formhtml.replaceme.value)
document.formhtml.html5.value=document.formhtml.html5.value.replace(document.formhtml.findme.value,document.formhtml.replaceme.value)
document.formhtml.html6.value=document.formhtml.html6.value.replace(document.formhtml.findme.value,document.formhtml.replaceme.value)
document.formhtml.html7.value=document.formhtml.html7.value.replace(document.formhtml.findme.value,document.formhtml.replaceme.value)
//document.formhtml.html8.value=document.formhtml.html8.value.replace(document.formhtml.findme.value,document.formhtml.replaceme.value)
//document.formhtml.html9.value=document.formhtml.html9.value.replace(document.formhtml.findme.value,document.formhtml.replaceme.value)
//document.formhtml.html10.value=document.formhtml.html10.value.replace(document.formhtml.findme.value,document.formhtml.replaceme.value)
document.formhtml.html11.value=document.formhtml.html11.value.replace(document.formhtml.findme.value,document.formhtml.replaceme.value)
document.formhtml.html12.value=document.formhtml.html12.value.replace(document.formhtml.findme.value,document.formhtml.replaceme.value)
document.formhtml.html13.value=document.formhtml.html13.value.replace(document.formhtml.findme.value,document.formhtml.replaceme.value)
document.formhtml.html14.value=document.formhtml.html14.value.replace(document.formhtml.findme.value,document.formhtml.replaceme.value)
document.formhtml.html15.value=document.formhtml.html15.value.replace(document.formhtml.findme.value,document.formhtml.replaceme.value)
document.formhtml.html16.value=document.formhtml.html16.value.replace(document.formhtml.findme.value,document.formhtml.replaceme.value)
document.formhtml.html17.value=document.formhtml.html17.value.replace(document.formhtml.findme.value,document.formhtml.replaceme.value)
document.formhtml.html18.value=document.formhtml.html18.value.replace(document.formhtml.findme.value,document.formhtml.replaceme.value)
document.formhtml.html19.value=document.formhtml.html19.value.replace(document.formhtml.findme.value,document.formhtml.replaceme.value)
document.formhtml.html20.value=document.formhtml.html20.value.replace(document.formhtml.findme.value,document.formhtml.replaceme.value)
document.formhtml.html21.value=document.formhtml.html21.value.replace(document.formhtml.findme.value,document.formhtml.replaceme.value)
document.formhtml.html22.value=document.formhtml.html22.value.replace(document.formhtml.findme.value,document.formhtml.replaceme.value)
document.formhtml.html23.value=document.formhtml.html23.value.replace(document.formhtml.findme.value,document.formhtml.replaceme.value)
document.formhtml.html24.value=document.formhtml.html24.value.replace(document.formhtml.findme.value,document.formhtml.replaceme.value)
document.formhtml.html25.value=document.formhtml.html25.value.replace(document.formhtml.findme.value,document.formhtml.replaceme.value)
document.formhtml.html26.value=document.formhtml.html26.value.replace(document.formhtml.findme.value,document.formhtml.replaceme.value)
document.formhtml.html27.value=document.formhtml.html27.value.replace(document.formhtml.findme.value,document.formhtml.replaceme.value)
document.formhtml.html28.value=document.formhtml.html28.value.replace(document.formhtml.findme.value,document.formhtml.replaceme.value)
document.formhtml.html29.value=document.formhtml.html29.value.replace(document.formhtml.findme.value,document.formhtml.replaceme.value)
document.formhtml.html30.value=document.formhtml.html30.value.replace(document.formhtml.findme.value,document.formhtml.replaceme.value)
document.formhtml.html31.value=document.formhtml.html31.value.replace(document.formhtml.findme.value,document.formhtml.replaceme.value)
document.formhtml.html32.value=document.formhtml.html32.value.replace(document.formhtml.findme.value,document.formhtml.replaceme.value)
  }
  </script>
<input name="chaX" type="button" onClick="chcon()" value="执行">  <br><br>

<br>
<a href="agentrar.asp">打包模板下载(可以生成一个独立的htm网站来使用)&gt;&gt;&gt;&gt;&gt;</a>
<br>
<br><br>
<%
	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_HtmlStyle where username='"&session("agentusername")&"' and id='"&Request("id")&"'"
if Request("id")="" then Sql="Select * from FreeHost.FreeHost_HtmlStyle where username='"&session("agentusername")&"' and nowuse='1'"
		ds.Open Sql,conn,1,3
if not ds.eof then
if Request("op")="del" then
if ds("nowuse")=1 then Response.Redirect "e.asp?ec=正在用的模板不允许删除"
ds.delete
ds.update
Response.Redirect "htmlstyle.asp"
end if
end if
if ds.eof then
	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_HtmlStyle where username='"&dsagn("agent1")&"' and id='"&Request("id")&"' and pubuse='1'"
if Request("id")="" then Sql="Select * from FreeHost.FreeHost_HtmlStyle where username='"&dsagn("agent1")&"' and pubuse='1'"
		ds.Open Sql,conn,1,1
end if
if ds.eof Then
Isdefault=true
%>
<strong><font color=red>以下是默认的系统模板，请修改并提交。</font></strong><a href="fileadm">图片上传及文件管理器&gt;&gt;&gt;&gt;&gt;</a><br>
<br>
<%	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_HtmlStyle where username='freehost' and pubuse='1' and id='"&Request("id")&"'"
'if Request("id")="" then Sql="Select * from FreeHost.FreeHost_HtmlStyle where username='freehost' and pubuse='1'"
if Request("id")="" then Sql="Select * from FreeHost.FreeHost_HtmlStyle where username='freehost' and agentdefault='1' order by id desc"
		ds.Open Sql,conn,1,1
		%>
<b>网站首页设计：</b>(当前编号：<%=ds ("id")%>)[<%=ds ("stylename")%>]<br>
<textarea name="html1" cols="50" rows="10"><%=server.htmlencode(ds("html1"))%></textarea>
<br> 
<!--<a href="gethtm.asp?id=1">下载本页作为htm页&gt;&gt;&gt;</a><br>-->
<br>
<br>
<b>用户区设计：</b><br>
1.<textarea name="html2" cols="50" rows="10"><%=server.htmlencode(ds("html2"))%></textarea><br><br>
2.<textarea name="html3" cols="50" rows="10"><%=server.htmlencode(ds("html3"))%></textarea><br><br>
3.<textarea name="html4" cols="50" rows="10"><%=server.htmlencode(ds("html4"))%></textarea>
<br>

<br>
<b>代理区设计：</b><br>
1.<textarea name="html5" cols="50" rows="10"><%=server.htmlencode(ds("html5"))%></textarea><br><br>
2.<textarea name="html6" cols="50" rows="10"><%=server.htmlencode(ds("html6"))%></textarea><br><br>
3.<textarea name="html7" cols="50" rows="10"><%=server.htmlencode(ds("html7"))%></textarea><br><br>
<b>付款方式：</b><br>
1.<textarea name="html11" cols="50" rows="10"><%=server.htmlencode(ds("html11"))%></textarea><br><br>
<b>产品介绍页：</b><br>
1.<textarea name="html12" cols="50" rows="10"><%=server.htmlencode(ds("html12"))%></textarea><br><br>
2.<textarea name="html13" cols="50" rows="10"><%=server.htmlencode(ds("html13"))%></textarea><br><br>
3.<textarea name="html14" cols="50" rows="10"><%=server.htmlencode(ds("html14"))%></textarea>
<br>
<br>
<b>联系方式：</b><br>
<textarea name="html15" cols="50" rows="10"><%=server.htmlencode(ds("html15"))%></textarea><br><br>
<br><b>公司简介：</b><br>
<textarea name="html16" cols="50" rows="10"><%=server.htmlencode(ds("html16"))%></textarea><br>
<br><b>域名注册页：</b><br>
<textarea name="html17" cols="50" rows="10"><%=server.htmlencode(ds("html17"))%></textarea><br>
<br><b>网站推广页一：</b><br>
<textarea name="html18" cols="50" rows="10"><%=server.htmlencode(ds("html18"))%></textarea><br>
<br><b>网站推广页二：</b><br>
<textarea name="html19" cols="50" rows="10"><%=server.htmlencode(ds("html19"))%></textarea><br>
<br><b>网站建设页：</b><br>
<textarea name="html20" cols="50" rows="10"><%=server.htmlencode(ds("html20"))%></textarea><br>
<br><b>整机租用/主机托管页：</b><br>
<textarea name="html21" cols="50" rows="10"><%=server.htmlencode(ds("html21"))%></textarea><br>
<br><b>常见问题(帮助页)：</b><br>
<textarea name="html22" cols="50" rows="10"><%=server.htmlencode(ds("html22"))%></textarea><br>
<br><b>自定义页一(对应文件是/style/info/self1.asp)不需要这个页面不用输入内容：</b><br>
<textarea name="html23" cols="50" rows="10"><%if not isnull(ds("html23")) then%><%=server.htmlencode(ds("html23"))%><%else%><%=ds("html23")%><%end if%></textarea><br>
<br><b>自定义页二(对应文件是/style/info/self2.asp)不需要这个页面不用输入内容：</b><br>
<textarea name="html24" cols="50" rows="10"><%if not isnull(ds("html24")) then%><%=server.htmlencode(ds("html24"))%><%else%><%=ds("html24")%><%end if%></textarea>
<br>
<b>自定义页三(对应文件是/style/info/self3.asp或tao.asp套装页)</b><br>
<textarea name="html25" cols="50" rows="10" id="html25"><%if not isnull(ds("html25")) then%><%=server.htmlencode(ds("html25"))%><%else%><%=ds("html25")%><%end if%>
</textarea>


<b><br>
自定义页四(对应文件是/style/info/self4.asp</b><br>
<textarea name="html26" cols="50" rows="10"><%if not isnull(ds("html26")) then%><%=server.htmlencode(ds("html26"))%><%else%><%=ds("html26")%><%end if%>
</textarea><br><br>
<b>自定义页五(对应文件是/style/info/self5.asp</b><br>
<textarea name="html27" cols="50" rows="10"><%if not isnull(ds("html27")) then%><%=server.htmlencode(ds("html27"))%><%else%><%=ds("html27")%><%end if%>
</textarea><br><br>
<b>自定义页六(对应文件是/style/info/self6.asp</b><br>
<textarea name="html28" cols="50" rows="10"><%if not isnull(ds("html28")) then%><%=server.htmlencode(ds("html28"))%><%else%><%=ds("html28")%><%end if%>
</textarea><br><br>
<b>自定义页七(对应文件是/style/info/self7.asp</b><br>
<textarea name="html29" cols="50" rows="10"><%if not isnull(ds("html29")) then%><%=server.htmlencode(ds("html29"))%><%else%><%=ds("html29")%><%end if%>
</textarea><br><br>
<b>自定义页八(对应文件是/style/info/self8.asp</b><br>
<textarea name="html30" cols="50" rows="10"><%if not isnull(ds("html30")) then%><%=server.htmlencode(ds("html30"))%><%else%><%=ds("html30")%><%end if%>
</textarea><br><br>
<b>自定义页九(对应文件是/style/info/self9.asp</b><br>
<textarea name="html31" cols="50" rows="10"><%if not isnull(ds("html31")) then%><%=server.htmlencode(ds("html31"))%><%else%><%=ds("html31")%><%end if%>
</textarea><br><br>
<b>自定义页十(对应文件是/style/info/self10.asp</b><br>
<textarea name="html32" cols="50" rows="10"><%if not isnull(ds("html32")) then%><%=server.htmlencode(ds("html32"))%><%else%><%=ds("html32")%><%end if%>
</textarea><br><br>

<br>


<%else%>
<font color=blue>修改您已有的模板：</font></strong>　<br><br>
注意可以将本页另存下来备份。<a href="fileadm">图片上传及使用文件管理器&gt;&gt;&gt;&gt;&gt;</a><br>
<br>
<b>网站首页设计：</b>(当前编号：<%=ds ("id")%>)[<%=ds ("stylename")%>]<br>
1.<textarea name="html1" cols="50" rows="10"><%=server.htmlencode(ds("html1"))%></textarea><br>
<br><b>用户区设计：</b><br>
1.<textarea name="html2" cols="50" rows="10"><%=server.htmlencode(ds("html2"))%></textarea><br>
2.<textarea name="html3" cols="50" rows="10"><%=server.htmlencode(ds("html3"))%></textarea><br>
3.<textarea name="html4" cols="50" rows="10"><%=server.htmlencode(ds("html4"))%></textarea><br>
<br><b>代理区设计：</b><br>
1.<textarea name="html5" cols="50" rows="10"><%=server.htmlencode(ds("html5"))%></textarea><br>
2.<textarea name="html6" cols="50" rows="10"><%=server.htmlencode(ds("html6"))%></textarea><br>
3.<textarea name="html7" cols="50" rows="10"><%=server.htmlencode(ds("html7"))%></textarea><br>
<br><b>付款方式：</b><br>
1.<textarea name="html11" cols="50" rows="10"><%=server.htmlencode(ds("html11"))%></textarea><br>
<br><b>产品介绍页：</b><br>
1.<textarea name="html12" cols="50" rows="10"><%=server.htmlencode(ds("html12"))%></textarea><br>
2.<textarea name="html13" cols="50" rows="10"><%=server.htmlencode(ds("html13"))%></textarea><br>
3.<textarea name="html14" cols="50" rows="10"><%=server.htmlencode(ds("html14"))%></textarea><br>
<br><b>联系我们：</b><br>
<textarea name="html15" cols="50" rows="10"><%=server.htmlencode(ds("html15"))%></textarea><br>
<br><b>公司简介：</b><br>
<textarea name="html16" cols="50" rows="10"><%=server.htmlencode(ds("html16"))%></textarea><br>
<br><b>域名注册页：</b><br>
<textarea name="html17" cols="50" rows="10"><%=server.htmlencode(ds("html17"))%></textarea><br>
<br><b>网站推广页一：</b><br>
<textarea name="html18" cols="50" rows="10"><%=server.htmlencode(ds("html18"))%></textarea><br>
<br><b>网站推广页二：</b><br>
<textarea name="html19" cols="50" rows="10"><%=server.htmlencode(ds("html19"))%></textarea><br>
<br><b>网站建设页：</b><br>
<textarea name="html20" cols="50" rows="10"><%=server.htmlencode(ds("html20"))%></textarea><br>
<br><b>整机租用/主机托管页：</b><br>
<textarea name="html21" cols="50" rows="10"><%=server.htmlencode(ds("html21"))%></textarea><br>
<br><b>常见问题(帮助页)：</b><br>
<textarea name="html22" cols="50" rows="10"><%=server.htmlencode(ds("html22"))%></textarea>
<br><b>自定义页一(对应文件是/style/info/self1.asp)不需要这个页面不用输入内容：</b><br>
<textarea name="html23" cols="50" rows="10"><%if not isnull(ds("html23")) then%><%=server.htmlencode(ds("html23"))%><%else%><%=ds("html23")%><%end if%></textarea><br>
<br><b>自定义页二(对应文件是/style/info/self2.asp)不需要这个页面不用输入内容：</b><br>
<textarea name="html24" cols="50" rows="10"><%if not isnull(ds("html24")) then%><%=server.htmlencode(ds("html24"))%><%else%><%=ds("html24")%><%end if%></textarea>
<br>
<b>自定义页三(对应文件是/style/info/self3.asp或tao.asp套装页)</b><br>
<textarea name="html25" cols="50" rows="10" id="html25"><%if not isnull(ds("html25")) then%><%=server.htmlencode(ds("html25"))%><%else%><%=ds("html25")%><%end if%>
</textarea>

<b><br>
自定义页四(对应文件是/style/info/self4.asp</b><br>
<textarea name="html26" cols="50" rows="10"><%if not isnull(ds("html26")) then%><%=server.htmlencode(ds("html26"))%><%else%><%=ds("html26")%><%end if%>
</textarea><br><br>
<b>自定义页五(对应文件是/style/info/self5.asp</b><br>
<textarea name="html27" cols="50" rows="10"><%if not isnull(ds("html27")) then%><%=server.htmlencode(ds("html27"))%><%else%><%=ds("html27")%><%end if%>
</textarea><br><br>
<b>自定义页六(对应文件是/style/info/self6.asp</b><br>
<textarea name="html28" cols="50" rows="10"><%if not isnull(ds("html28")) then%><%=server.htmlencode(ds("html28"))%><%else%><%=ds("html28")%><%end if%>
</textarea><br><br>
<b>自定义页七(对应文件是/style/info/self7.asp</b><br>
<textarea name="html29" cols="50" rows="10"><%if not isnull(ds("html29")) then%><%=server.htmlencode(ds("html29"))%><%else%><%=ds("html29")%><%end if%>
</textarea><br><br>
<b>自定义页八(对应文件是/style/info/self8.asp</b><br>
<textarea name="html30" cols="50" rows="10"><%if not isnull(ds("html30")) then%><%=server.htmlencode(ds("html30"))%><%else%><%=ds("html30")%><%end if%>
</textarea><br><br>
<b>自定义页九(对应文件是/style/info/self9.asp</b><br>
<textarea name="html31" cols="50" rows="10"><%if not isnull(ds("html31")) then%><%=server.htmlencode(ds("html31"))%><%else%><%=ds("html31")%><%end if%>
</textarea><br><br>
<b>自定义页十(对应文件是/style/info/self10.asp</b><br>
<textarea name="html32" cols="50" rows="10"><%if not isnull(ds("html32")) then%><%=server.htmlencode(ds("html32"))%><%else%><%=ds("html32")%><%end if%>
</textarea><br><br>


<%end if%>
<br>
<br>
模板命名：
<input name="stylename" type="text" id="stylename" value="<%=ds("stylename")%>" maxlength="50">
<br>
<input type="submit" name="Submit" value="提交">
<input name="nowuse" type="checkbox" id="nowuse" value="1" <%if ds("nowuse")=True Or Isdefault then%>checked<%end if%>>
设置为当前用模板
<input name="pubuse" type="checkbox" id="pubuse" value="1" <%if ds("pubuse")=true Or Isdefault then%>checked<%end if%>>
作为公共用的公开模板
<input name="newstyle" type="checkbox" id="newstyle" value="y" <%if Isdefault then%>checked<%end if%>>
作为新模板另存下来
<input name="id" type="hidden" value="<%=ds ("id")%>">
</form>

<%
	Set dsnews = Server.CreateObject("ADODB.Recordset")	
	Sql="Select id,stylename,nowuse,username,pubuse,agentdefault from FreeHost.FreeHost_HtmlStyle where username='"&session("agentusername")&"' or (username='"&dsagn("agent1")&"' and pubuse='1') order by id"
if isnull(dsagn("agent1")) or dsagn("agent1")="n" then
Sql="Select id,stylename,nowuse,username,pubuse,agentdefault from FreeHost.FreeHost_HtmlStyle where username='"&session("agentusername")&"' or (username='freehost' and pubuse='1') order by id"
end if
'response.write sql
'response.end
	dsnews.PageSize = 15
	dsnews.Open Sql,conn,1,1
%>
<%
if dsnews.Eof then
%>
<br>
数据库中不存在模板的记录。
<%
else
if Request.ServerVariables("QUERY_STRING")<>"" then
ask=Split(Request.ServerVariables("QUERY_STRING"), chr(38)&"pn")
else
ask=Split("freehost=1", "")
ask(0)="freehost=lsoft"
end if
	pn=1
if Request.QueryString ("pn")<>"" then pn=Request.QueryString ("pn")
If dsnews.RecordCount <> 0 Then dsnews.AbsolutePage = CLng(pn)  
    if clng(pn)<=10 then
    begini=1
      if dsnews.PageCount<=10 then
       endini=dsnews.PageCount 
       else
       endini=10
      end if
    end if
%>
<%if clng(pn)<=10 then%>最新 <%for i=begini to endini
    if clng(pn)=i then%><font color=red>[<%=i%>]</font><%else%><a href="?<%=ask(0)%>&pn=<%=i%>"><font color="#000000">[<%=i%>]</font></a><%end if%>　<%next%> 
        <%else%>　<a href="?<%=ask(0)%>&pn=1"><font color="#000000">最新[1]--[10]</font></a>　　现在是第<font color=red>[<%=pn%>]</font>页 
        　共<%=dsnews.PageCount%>页　<%end if%><%If Clng(pn)>1 Then%><a href="?<%=ask(0)%>&pn=<%=pn-1%>"><font color="#000000">上一页</font></a>
        <%End If%>|<%If Clng(pn)<dsnews.PageCount Then%><a href="?<%=ask(0)%>&pn=<%=pn+1%>"><font color="#000000">下一页</font></a>
        <%End If%>
<table width="100%"  border="0" cellspacing="1" bgcolor="#000000">
  <tr bgcolor="#CCCCCC">
    <td width="10%" align="center">编号</td>    
    <td width="24%" align="center">名称</td>
	<td width="24%" align="center">属性</td>
	<td width="25%" align="center">属性</td>
    <td width="17%" align="center">操作</td>
  </tr>
<%
For N=1 To dsnews.PageSize 
					If dsnews.RecordCount=0 Then Exit For
%>

  <tr bgcolor="#FAFAFA">
    <td align="center"><%=dsnews("id")%></td>
    <td align="center"><%=dsnews("stylename")%></td>
	<td align="center"><%if dsnews("nowuse")=true and dsnews("username")<>"freehost" then%>
	  当前正在用的模板
    <%end if%>
	<%if dsnews("agentdefault")=true and dsnews("username")="freehost" then%>
	  代理未设置模板时的默认模板
    <%end if%>
	</td>
	<td align="center"><%if dsnews("pubuse")=true then%>公开的模板<%else%>不公开的模板<%end if%></td>
    <td align="center"><a href="htmlstyle.asp?id=<%=dsnews("id")%>"><font color="#000000">修改</font></a> <a href="htmlstyle.asp?id=<%=dsnews("id")%>&op=del"><font color="#000000">删除</font></a></td>
  </tr>
<%
If clng(pn)=dsnews.PageCount Then
I = dsnews.RecordCount - (dsnews.PageCount-1) * dsnews.PageSize
If N=I Then Exit For
End If
dsnews.movenext
Next%>
</table>
<%end if
dsnews.close
set dsnews=nothing%>

<%=htmlwrite("html7")%>
<%end if
if ef then
Response.Redirect "e.asp?e="&ec
end if%>
