<!--#include file="inc/conn.asp"-->
<!--#include file="inc/safe.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/const.asp"-->
<%
if MemberName="" then
  response.Redirect("userlogin.asp")
  response.end
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>红嫂视屏交友网</title>
<meta name="keywords" content="情感,在线,新新,照片,动感影片,诗歌,爱情,纯洁,心连心">
<meta name="description" content="红嫂视屏交友情缘 情感在线">
<link href="style.css" rel="stylesheet" type="text/css">
<link href="css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
	background-image: url();
}
-->
</style>
</head>
<body>
<%
dim logins,lastlogintime,artnum,lycount,photo,renqi
set rs=server.CreateObject("adodb.recordset")
sql="select logins,lastlogin,aq,artnum,photo,renqi,endtime,grade,innum,outnum from user_info where userid="& UserId &""
rs.open sql,conn,1,3
if not rs.bof then
  logins=rs("logins")
  lastlogintime=rs("lastlogin")
  artnum=rs("artnum")
  photo=rs("photo")
  renqi=rs("renqi")
  innum=rs("innum")
  outnum=rs("outnum")
  aqb=rs("aq")
  if isnull(rs("endtime")) or rs("endtime")<now() then
    rs("grade")=1
	rs.update
	Response.Cookies(Forum_sdjy)("userclass")="注册会员"
	memberclass=checkStr(request.cookies(Forum_sdjy)("Userclass"))
  end if
end if
rs.close
set rs=nothing
set rs=server.CreateObject("adodb.recordset") '新留言数
sql1="select count(*) from sd_ly where userid="& UserId &" and isread=0"
rs.open sql1,conn,1
lycount=rs(0)
rs.close
set rs=nothing
%>
<table width="1002" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><!--#include file="top.asp"--></td>
  </tr>
</table>
<table width="950" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td width="219" height="168" align="center" valign="top"><div align="left"><!--#include file="memberleft.asp"-->
        </div></td>
    <td width="731" align="center" valign="top"><div align="left"></div>
        <table width="730" border="0" align="left" cellpadding="0" cellspacing="0" style="border-left:#9DCCF6 1px solid;border-right:#9DCCF6 1px solid;border-bottom:#9DCCF6 1px solid;border-top:#9DCCF6 1px solid  ">
          <tr>
            <td height="28" colspan="3" background="images/lg_1.gif">&nbsp;&nbsp;<strong>服务定制</strong></td>
          </tr>
          <tr>
            <td width="32" height="202">&nbsp;</td>
            <td width="659" valign="top"><br>
<%if request("fwid")<>"" then
set fw=conn.execute("select * from fuwu where id="&int(request("fwid")))

%>

			<table width="100%" border="0" cellspacing="0" cellpadding="5">

              <tr>
                <td height="25" bgcolor="#f0f0f0"><strong><a href="<%=fw("url")%>?id=<%=fw("id")%>"><%=fw("mc")%></a></strong></td>
              </tr>
        <form name="form1" method="post" action="dz1.asp"  onSubmit="return checkSubmit(this);">    
              <tr>
                <td>服务说明：<br>
<%=fw("sm")%></td>
              </tr>
			  
			   <tr>
			     <td>服务价格：<%=fw("jg")%>元/天</td>
		      </tr>
			   <tr>
			     <td>定制天数：<select name="day" class="st" onChange="check_change(this)">
				   <option value="0">请选择</option>
			             <option value="1">1天</option>
			             <option value="3">3天</option>
			             <option value="7">一周</option>
			             <option value="10">10天</option>
			             <option value="30">30天</option>
			             <option value="60">60天</option>
			             <option value="180">半年</option>
			             <option value="365">一年</option>
		               </select>
你的AQ币：<%=aqb%>元</td>
		      </tr>
			   <tr>
			     <td>所需AQ币：<label id="xy"></label>元&nbsp;&nbsp;定制后剩余：<label id="ye"></label>元&nbsp;&nbsp;</td>
		        </tr>
			   <tr>
			     <td><label id="pay"  style="display:none;"><a href=pay.asp><font color=red>余额不足，请在线支付</font></a></label></td>
		        </tr>
			   <tr>
                <td>
        <input name="fwid"  type="hidden" value="<%=fw("id")%>">
                    <input name="Submit" type="submit" class="st" value=" + 确定使用 + ">                             </td>
              </tr> 
			   </form>    
            </table>
   <script language = "JavaScript">      
function check_change(src)
{
var iCount = "45";
	var iSelect = parseInt(src.value);
	var iAllCount = parseInt(iCount) * parseInt(iSelect);
//	iPeriod.innerText = iSelect;
//	iPeriodCount.innerText = iAllCount;
//	iPayCount.innerText = iAllCount;
// document.form1.ye.value=<%=aqb%>-iSelect*<%=fw("jg")%>
xy.innerText = iSelect*<%=fw("jg")%>;
ye.innerText = <%=aqb%>-iSelect*<%=fw("jg")%>;

if (ye.innerText<0){

pay.style.display='block';

} else
{
pay.style.display='none';

}

}
			
	function checkSubmit(form)
{
	var bSubmit = confirm('你所需服务费用：'+xy.innerText+'元\n\n提交后，款项会从您的预付款中扣除，是否提交？');
	if(!bSubmit)
	{
		return false;
	}else{
		form.submits.disabled = true;
		form.submits.value= "正在提交续费...";
		return true;
	}
}

			
			
		</script>	
			  <%end if%>
			  
            </td>
            <td width="37">&nbsp;</td>
          </tr>
      </table></td>
  </tr>
</table>
<table width="1002" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><!--#include file="root.asp"--></td>
  </tr>
</table>
</body>
</html>
<%
conn.close
set conn=nothing
%>
