<!--#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,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")
  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>

			<%set fw=conn.execute("select * from fuwu")
			do while not fw.eof%>
			<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>
            
              <tr>
                <td>服务说明：<br>
<%=fw("sm")%><span class="hong2">（<%=fw("jg")%>元/天）</span></td>
              </tr>
			  
			   <tr>
                <td><form name="form1" method="post" action="dz.asp">
        <input name="fwid" type="hidden" value="<%=fw("id")%>">
                  <div align="right"><%set dz=conn.execute("select * from fw where fwid="&fw("id")&" and uid="&userid)
				  if not dz.eof then 
				  %><font color="red">你已经定制了本功能，开始时间为：<%=dz("ks")%>&nbsp;到期时间为：<%=dz("dq")%>&nbsp;&nbsp;</font><%end if%>
                    <input name="Submit" type="submit" class="st" value="现在定制">
                  </div>
                </form>
                </td>
              </tr> 			  
            </table>
              <%fw.movenext
			  loop%>
			
			
			
			
			  
			  
            </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
%>
