<!--#include file="inc_const.asp"-->
<%response.expires=0
Response.CacheControl = "Private"
application.lock
set cschat=server.createobject("ffcschat.cssbchat")
my_level=cschat.getLevel(Session,Application(ConstStr & "_user_list"),Application(ConstStr & "_room_list"))
myname=cschat.myname
set cschat=nothing
application.unlock

if my_level-application( ConstStr & "_superlevel")<>0 then  response.end
Dim myMail
function cdontsck()
 on error resume next
 err.clear
 Set myMail = Server.CreateObject("CDONTS.NewMail")
 if err then
    err.clear
  cdontsck=false
  else
    cdontsck=true
  end if
end function
%>
<meta HTTP-EQUIV='Pragma' CONTENT='no-cache'><META content="text/html; charset=gb2312" http-equiv=content-type>
<link rel="stylesheet" type="text/css" href="chat.css">
<style>p{color:#000000;text-align:left;margin-left:10px;margin-right:20px;margin-top:10px;margin-bottom:0px}</style>
<body style="background-color:EAF2FF;color:112233;scrollbar-Base-Color: #b0d8ff;SCROLLBAR-DARKSHADOW-COLOR:#b0d8ff;SCROLLBAR-arrow-COLOR:#336699;SCROLLBAR-TRACK-COLOR: EAF2FF;SCROLLBAR-3DLIGHT-COLOR: #b0d8ff;SCROLLBAR-SHADOW-COLOR: #336699;SCROLLBAR-HIGHLIGHT-COLOR: #b0d8ff;" leftmargin=3 topmargin=3 >
  <table cellspacing=0 cellpadding=0 align=center width=100% height=100%>
  <tr><td valign=center>
  <table width=80% cellspacing=0 cellpadding=0 style="border:'1px solid navy'">
  <tr><td class=navy2>商业用户注册步骤</td></tr>
<%if request("cmdYes")="发送" then
  if cdontsck() then
    myMail.From = request("email")
    myMail.To = "wt89lxf@163.com"
    myMail.Subject = "商业用户注册申请："&myname
    myMail.Body = request("email_body")
    myMail.Send
    Set myMail = Nothing%>
   <tr><td>系统已经向作者发出注册信息和注册申请！<br>
   感谢您对传说水吧聊天软件的使用和支持！
  <%else
    response.write "<tr><td>服务器没有安装CDONTS邮件组件！<br>无法直接发送注册信息！"
  end if%>
<%else%><form action=regguide.asp method=post onsubmit='if (document.forms[0].email.value==""){alert("必须输入您的邮件地址！");return false;}'><tr><td><p><ol>
  <li>您已经使用过共享版本，并且觉得其功能强大值得注册，请继续。<a href="needreg10.htm">需要商业注册的10大理由</a>，<a href="noneedreg10.htm">不需要商业注册的10大理由</a>。</li>
  <li>请阅读关于<a href='regservice.htm'>商业注册的服务条款</a>，如果同意请继续。</li>
  <li>向作者汇出商业注册所需的款项：500元。汇款地址[四川省成都市双流县中和镇石油电子站(610212) 李雪飞](请将汇款凭证扫描发送到作者的信箱，这样可以在最短的时间内得到注册码。)</li>
  <li>下面是程序自动为您收集的您的服务器信息，如果您的服务器还有其他访问方式，请用此格式依次填写。然后填写您的邮箱地址，按“发送”向作者提交商业注册申请。如果服务器没有安装CDONTS邮件组件，请拷贝发送信息用其他工具向作者信箱<a href='mailto:wt89lxf@163.com' >wt89lxf@163.com</a>发送邮件。</li>
  <p><center><font color=red>您的邮箱</font>：<input type=text name=email size=40 maxlength=100 ></center></p>
  <p><center>发送信息：<textarea rows="12" name="email_body" cols="39">你好！我已经阅读了你的关于商业用户注册申明！我想注册为传说水吧商业版本的用户！我已经向你汇出注册的款项。以下是我的网站信息：
  
  我的网站地址：http://<%=request.SERVERVARIABLES("SERVER_NAME")%>
  服务器端口:<%=request.SERVERVARIABLES("SERVER_PORT")%>
  聊天室目录:<%=left(Request.ServerVariables("SCRIPT_NAME"),len(Request.ServerVariables("SCRIPT_NAME"))-12)%>
  
  网站其他访问的方式：
    网址：
    端口：
    目录：
  
  我的email地址:(不填写即为发送邮件的地址)
  
  请在收到汇款后尽快将注册码发到我的邮箱中！</textarea>
  <p><center><input class=navy1 type=submit name=cmdYes value=发送 >
  <input class=navy1 type=reset name=cmdcancel value=重置 ></center></li>
  <li>作者在确认汇款寄出并收到申请注册的邮件后，用email向您发送注册用户名和注册码。</li>
  <li>收到注册用户名和注册码之后，在登陆页面上用户名处输入“注册用户名”，密码处输入“注册码”。然后登陆，您应该会看到”注册成功“的信息！</li>
  <li>请删除浏览器临时文件(或多按几次F5)，从登陆页面上以其他用户名登陆，您应该看到广告条已经消失。这表示您已经注册成功。恭喜！</li>
  <li>将收到的商业补丁解压，覆盖原来的文件！如果有更新的补丁，请访问站点http://www.csncs.com的客户中心去下载！</li></ol>
  </form>
<%end if%>
</p></td></tr>
</table><br>[<a href='javascript:history.go(-1)'>后退</a>]</table></body></html>
























