 <% 
	data_path="../../" 'ACC连接数据库路径，对SQL无效
	numid="101"
	dir="../err.asp" 
  %>
<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
  <!--#include file="../rolecheck.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>注册模阪管理</title>
<link rel="stylesheet" type="text/css" href="../css/style.css">
<LINK href="../css/style.css" rel=stylesheet type=text/css><META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
</HEAD>
<script language="javascript">
function show(value)
{
document.frames('eWebEditor1').location.reload()
window.location.href='index.asp?id='+value
}
function xianshi(value)
{
document.frames('eWebEditor1').location.reload()
window.location.href='index.asp?id='+value

}
function runCode(){var newWin=window.open('',"_blank",'');newWin.document.open('text/html','replace');newWin.opener=null
var testCode=document.getElementById("content").value;newWin.document.write(testCode);newWin.document.close();}
function saveCode(obj){var newWin=window.open('','_blank','top=10000');newWin.document.open('text/html','replace');var testCode=document.getElementById("content").value;newWin.document.write(testCode);newWin.document.execCommand('saveas','','code.htm');newWin.close();}
function copyCode(obj){var testCode=document.getElementById("content").value;if(copy2Clipboard(testCode)!=false)
{alert("生成的代码已经复制到粘贴板，你可以使用Ctrl+V 贴到需要的地方去了哦！  ");}}
copy2Clipboard=function(txt){if(window.clipboardData){window.clipboardData.clearData();window.clipboardData.setData("Text",txt);}else if(navigator.userAgent.indexOf("Opera")!=-1){window.location=txt;}else if(window.netscape){try{netscape.security.PrivilegeManager.enablePrivilege("UniversalXPConnect");}catch(e){alert("您的firefox安全限制限制您进行剪贴板操作，请打开’about:config’将signed.applets.codebase_principal_support’设置为true’之后重试");return false;}
var clip=Components.classes['@mozilla.org/widget/clipboard;1'].createInstance(Components.interfaces.nsIClipboard);if(!clip)
return;var trans=Components.classes['@mozilla.org/widget/transferable;1'].createInstance(Components.interfaces.nsITransferable);if(!trans)
return;trans.addDataFlavor('text/unicode');var str=new Object();var len=new Object();var str=Components.classes["@mozilla.org/supports-string;1"].createInstance(Components.interfaces.nsISupportsString);var copytext=txt;str.data=copytext;trans.setTransferData("text/unicode",str,copytext.length*2);var clipid=Components.interfaces.nsIClipboard;if(!clip)
return false;clip.setData(trans,null,clipid.kGlobalClipboard);}}
</script>
<BODY>
<form action="" method="post" name="form">
<%
sql2="select top 1 * from Websen_worldec_config"
Set rs2= Server.CreateObject("ADODB.Recordset") 
rs2.open sql2,conn,1,3
mailsubject=rs2("mailsubject")
hyname=rs2("hyname")
Notice=rs2("Notice")
Notices=rs2("Notices")
rs2.close
set rs2=nothing
%>
<TABLE width="80%" border=0 align=center cellPadding=3 cellSpacing=1 bordercolor="#FFFFFF" bgcolor="#C4D8ED" >
  <TBODY>
	   <TR>      	 
      <td height=30 colspan="2"   bgcolor="#FFFFFF" class="forumRaw" >会员注册模版<input  type="radio" name="mb" value="0" checked="checked" onClick="xianshi(this.value)" style="background-color:#FFFFFF">&nbsp;会员审核模版<input  type="radio" name="mb" value="1" onClick="show(this.value)" <%if request("id")="1" then%> checked="checked"<% end if%> style="background-color:#FFFFFF">&nbsp;会员未审核模版<input  type="radio" name="mb" value="2" onClick="show(this.value)" <%if request("id")="2" then%> checked="checked" <%end if%> style="background-color:#FFFFFF"></td>
	  
	  </tr>
	  <%if request("id")="0" then %>
	  <tr id="hieg" ><td width="25%" height=25 align="center"   bgcolor="#FFFFFF" class="forumRaw"><strong>相关标签:</strong></td> <td colspan="2" bgcolor="#FFFFFF" class="forumRaw">会员名称:#user#&nbsp; 公司会员:#gongsi#&nbsp; 邮箱名称:#tomail#&nbsp; 网站地址:#url#&nbsp; <br>会员认证ID:#shuijisz#&nbsp; 会员ID:#id# <br> 邮件发送标题:
        <input type="text" value="<%=mailsubject%>" name="mailsubject"  id="mailsubject"/>
        公司会员:
        <input type="text" value="<%=hyname%>" name="hyname"  id="hyname"/></td></tr>
	<%end if%>
	<%if request("id")="1" then%>
	<tr><td width="25%" height=25 align="center"   bgcolor="#FFFFFF" class="forumRaw"><strong>邮件发送标题:</strong></td><td bgcolor="#FFFFFF" class="forumRaw"><input type="text" name="Notice"  size="50" value="<%=Notice%>"/></td></tr>
	<% end if%>
	<%if request("id")="2" then%>
	<tr><td width="25%" height=25 align="center"   bgcolor="#FFFFFF" class="forumRaw"><strong>邮件发送标题:</strong></td><td bgcolor="#FFFFFF" class="forumRaw"><input type="text" name="Notices"  size="50" value="<%=Notices%>"/></td></tr>
	<% end if%>
    </TBODY>
</TABLE>

<TEXTAREA NAME="content"  id="content"   rows="12" cols="75"   style="display:none" >
<%
id=request("id")
if id="0" then 
username="corporation_zhuce"
else if id="1" then 
username="Audit"
else 
username="Unaudited"
end if
end if
sql1="select "&username&" from websen_worldec_Temp "
Set rs1= Server.CreateObject("ADODB.Recordset") 
rs1.open sql1,conn,1,1
response.Write rs1(username)
rs1.close
set rs1=nothing
%>
</TEXTAREA>
  <div align="center"> <iframe ID="eWebEditor1" src="../../editor/ewebeditor.asp?id=content&style=standard&originalfilename=d_originalfilename &savefilename=d_savefilename &savepathfilename=d_savepathfilename" frameborder="0" scrolling="no" width="617" HEIGHT="450"> </iframe></div>
<br>
<table align="center">
  <TR >
          <TD >
		  
		   <INPUT name="submit" type="submit"  value="提交" >
		  
          <INPUT name="button" type="button" onClick="runCode()" value="运行代码"/>
          <INPUT name="button" type="button" onClick="copyCode()" value="复制代码">
          <INPUT name="button" type=button onClick="saveCode()" value="另存代码">
		  </TD>
          </TR> 
		  </table>

<%
id=request("id")
content=request("content")
if id = "" then id="0"
content = request("content")
Select Case id
			
		Case "0"
	          Call Sb_Main1()
		Case "1"
		      Call Sb_Main2()
		Case "2"
		      Call Sb_Main3()
Case Else
			
			Response.End
	End Select	
Sub Sb_Main1()
mailsubject = request("mailsubject")
hyname= request("hyname")
sql="select corporation_zhuce from websen_worldec_Temp "
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,3
if not rs.eof and content<>"" then 
rs("corporation_zhuce")=content
rs.update
end if
rs.close
sql1="select top 1 * from Websen_worldec_config"
Set rs1= Server.CreateObject("ADODB.Recordset") 
rs1.open sql1,conn,1,3
if not rs1.eof and  mailsubject<>"" or hyname<>"" then
rs1("mailsubject")=mailsubject 
rs1("hyname")=hyname
rs1.update
rs1.close
Response.write("<script >alert('提交成功!');window.location.href='index.asp?id=0';</script>")
response.End()
end if
End Sub	

Sub Sb_Main2()
Notice=request("Notice")
sql1="select top 1 * from Websen_worldec_config"
Set rs1= Server.CreateObject("ADODB.Recordset") 
rs1.open sql1,conn,1,3
if not rs1.eof and Notice<>""  then
rs1("Notice")=Notice
rs1.update
rs1.close
end if
sql="select Audit from websen_worldec_Temp "
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,3
if not rs.eof and content<>"" then 
rs("Audit")=content
rs.update
Response.write("<script >alert('提交成功!');window.location.href='index.asp?id=1';</script>")
response.End()
end if
rs.close
End Sub	
sub Sb_Main3()
Notices=request("Notices")
sql1="select top 1 * from Websen_worldec_config"
Set rs1= Server.CreateObject("ADODB.Recordset") 
rs1.open sql1,conn,1,3
if not rs1.eof and Notices<>""  then
rs1("Notices")=Notices
rs1.update
rs1.close
end if
sql="select Unaudited from websen_worldec_Temp "
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,3
if not rs.eof and content<>"" then 
rs("Unaudited")=content
rs.update
Response.write("<script >alert('提交成功!');window.location.href='index.asp?id=2';</script>")
response.End()
end if
rs.close
End Sub			
%>
</form>
</BODY>
</HTML>
  
<!--#include file="../copy.asp" -->