apply.asp

功能最强大的ASP网站

<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/func.asp"-->
<%
FunCode="F000"
session("title")="业务申请"
session("headline")="首页 -> 注册系统 -> 业务申请"
%>
<!--#include file="../inc/head2.asp"-->


<%
if request("act")="update" then
	call update()
else
	call list()
end if

sub update()
'domainName=request("domainName")

applytype=request("applytype")
domainname = LCase(request("domainname"))
ID = CreateUID(applytype,"其它")

applytime1=request("applytime1")
applytime2=request("applytime2")
applytime = applytime1 * GetProductTime(applytype,applytime2)

chname=request("chname")
chaddress=request("chaddress")
postcode=request("postcode")
telephoneno=request("telephoneno")
email=request("email")
faxno=request("faxno")

remark = request("remark")

ret =  IsOrderLimit(applytime1, applytype,applytime2)
if ret <> "" then
	session("mesg")="错误：" &ret
	Response.Redirect "../result.asp"
	response.end
end if

'需要增加字段校验信息
set rs=server.createobject("adodb.recordset")
sql="select * from Userorder"
rs.open sql,conn,1,3
rs.addnew
rs("ID") = ID
rs("username")=session("username")
rs("applytype")=applytype
rs("applytime")=applytime
rs("domainName")=domainname
rs("IsDomain")="N"
rs("chname")=chname
rs("chaddress")=chaddress
rs("postcode")=postcode
rs("telephoneno")=telephoneno
rs("remark") = remark

rs("email")=email
rs("faxno")=faxno
rs("regtime")=date()
rs("status")="正在确认"
rs("handle")="未受理"
applyName = get_name(applytype)
rs("applyname")=applyName
'on error resume next
price = applytime1*GetProductPrice(session("username"),applytype,applytime2)
priceA = applytime1*GetProductPrice(session("manageuser"),applytype,applytime2) 
rs("price") = price
rs("priceA") = priceA
rs.update
rs.close
set rs=nothing


'如果会员帐上金额足够,则自动受理,并开通
ret = HandleOnLine(ID)
if  ret<> "" then
	ret = SendSysMail("SysMail-Apply",session("username"),ID,email)
 	'ret = SendRegMail (domainname,applyName,price,email)
	session("mesg")=applyName&"申请提交成功,请等待专员确认,确认信已发到["&email&"]"
	call WriteLog(domainname,"成功","业务申请",applyName & "业务申请成功，实时开通失败:" & ret)
else
	session("mesg")=applyName&"实时开通成功"
	call WriteLog(domainname,"成功","业务申请",session("mesg"))
end if

Response.Redirect "../result.asp"
end sub

session("mesg")=applyName&"申请提交成功,请等待专员确认,确认信已发到["&email&"]<br>请在三天内付款,否则系统将自动删除该订单!"



sub list()
ID = request("ID")
set rs=server.createobject("adodb.recordset")
sql="select * from [user] where username='"&session("username")&"'"
rs.open sql,conn,1,1
%>



<br>
<%call PrintRegInfo(ID)%>
<script language='JavaScript'>
<!--
function check_input()
{
	dummy=document.dummyapply;
	if(dummy.domainname.value=='')
	{
		alert('域名不能为空！');
		dummy.domainname.focus();
		return false;
	}
	
	if(dummy.applytime1.value=='')
	{
		alert('申请时间不能为空！');
		dummy.applytime1.focus();
		return false;
	}
	
	if(isNaN(dummy.applytime1.value))
	{
		alert('申请时间只能为数字');
		dummy.applytime1.focus();
		return false;
	}
	
	return true;
}
//-->
</script>
<br>
<form method='POST' action='apply.asp?act=update' name='dummyapply' onsubmit='return check_input()'>
    <table border=1 bordercolor=#3770A9 bordercolordark=#ffffff cellpadding=3 
      cellspacing=0 width=80% class='size09' align='center'>
	
	<tr>
		<td width='25%' bgcolor='#efefef'>业务类型&nbsp;</td>
		<td colspan="3"><input type="Hidden" name="applytype" value="<%=ID%>">
		<%set rsp = conn.execute ("select * from product where ID='" & ID &"'")
		response.write rsp("name")
		rsp.close
		set rsp = nothing%></td>
	</tr>
	<tr>
	<td width='25%' bgcolor='#efefef'>申请年限*</td>
	<td colspan="3"> <%call PrintRegTime( ID, session("userlevel") ) %>&nbsp;</td>
      </tr>
	<tr>
	 <tr>
	<td width='25%' bgcolor='#efefef'>域名*</td>
	<td colspan='3'> <input type='text' class='form' name='domainname' size='20'>&nbsp;如：abc.com</td>
      </tr>
	 
	<tr><td bgcolor='#efefef'>
备注</td><td colspan="3">
<textarea name='remark' rows='3' cols='50'>
</textarea>
	</td></tr>
	
	<tr>
		<td width='25%' bgcolor='#efefef'>联系人*</td>
		<td width='25%'><input type='text' class='form' name='chname' size='20' value='<%=rs("chname")%>'></td>
		<td width='25%' bgcolor='#efefef'>联系地址*</td>
		<td width='25%'><input type='text' class='form' name='chaddress' size='20' value='<%=rs("chaddress")%>'></td>
	</tr>
	<tr>
		<td width='25%' bgcolor='#efefef'>邮政编码*</td>
		<td width='25%'><input type='text' class='form' name='postcode' size='20' value='<%=rs("postcode")%>'></td>
		<td width='25%' bgcolor='#efefef'>联系电话*</td>
		<td width='25%'><input type='text' class='form' name='telephoneno' size='20' value='<%=rs("telephoneno")%>'></td>
	</tr>
	<tr>
		<td width='25%' bgcolor='#efefef'>传真*</td>
		<td width='25%'><input type='text' class='form' name='faxno' size='20' value='<%=rs("faxno")%>'></td>
		<td width='25%' bgcolor='#efefef'>联系电子邮件*</td>
		<td width='25%'><input type='text' class='form' name='email' size='20' value='<%=rs("email")%>'></td>
	</tr>
    </table>
  <p align='center'><input type='submit' value='确认申请' name='B1' style='text-align: center'></p>
</form>
<%rs.close
set rs=nothing
end sub%>
<!--#include file="../inc/bottom2.asp"-->