user_main.asp

后台登陆admin.asp

<%

'****************************************************
if UserLogined<>True then
response.write"<SCRIPT language=JavaScript>alert(' 请登陆后操作，谢谢您的支持 ！');"
response.write"this.location.href='index.asp';</SCRIPT>"
response.end
end if
dim action:action=Request.QueryString("action")
if action="edit" then start="会员中心 >> 修改资料"
if action="list" then start="会员中心 >> 会员列表"
if action="ulist" then start="会员中心 >> 查看会员资料"
if action="friend" then start="会员中心 >> 我的好友"
if action="collect" then start="会员中心 >> 音乐收藏"
if action="vip" then start="会员中心 >> 申请VIP"
if action="myjifen" then start="会员中心 >> 我的积分"
if action="" then start="会员中心"
'=================================================
'过程名：content_main
'作  用：显示会员中心内容、表单
'参  数：无
'Web:    http://www. Hx66. net
'=================================================
sub content_main()
select case action
case ""
    call hyzx()
case "edit"
    call edit()
case "list"
    call list()
case "ulist"
    call ulist()
case "friend"
    call friend()
case "addfriend"
    call addfriend()
case "delfriend"
    call delfriend()
case "collect"
    call collect()
case "delcollect"
    call delcollect()
case "vip"
    call vip()
case "vipadd"
    call vipadd()
case else
conn.close
set conn=nothing
    response.write "<SCRIPT language=JavaScript>alert('操作错误或服务器出错，请与程序作者联系！');"
    response.write"history.back(1);</SCRIPT>"
    Response.End 
end select
end sub

'=================================================
'过程名：无
'作  用：会员资料修改
'参  数：无
'Web:    www.ynsky.com.cn
'=================================================
if request.QueryString("hx66")="Modifyinfo" then
if request.form("userpost")<>"ok" then
    Response.Redirect "show_error.asp?eid=传值参数非法!"
    Response.End
end if
if not post_chk() then
    Response.Write("<script language=javascript>alert('你提交的路径有误，禁止从站点外部提交数据请不要乱改参数！');this.location.href='/index.asp';</script>") 
    response.end   
end if
	Password=trim(request.Form("pswpassword"))
	psw=trim(request.Form("psw1"))
	psw2=trim(request.Form("psw2"))
        sex=CheckStr(request.Form("sex"))
	Answer=CheckStr(request.form("Answer"))
        Question=CheckStr(request.form("Question"))
        Homepage=CheckStr(request.form("Homepage"))
        Email=CheckStr(request.Form("Email"))
        QQ=trim(request.Form("QQ"))
        UserPhoto=CheckStr(request.form("UserPhoto"))
        mypic=CheckStr(request.form("mypic"))
        UserSign=CheckStr(request.form("UserSign"))
        hidden=cint(request.form("hidden"))
        whe=CheckStr(request.form("whe"))
        birthday=trim(request.form("b_year"))&"-"&trim(request.form("b_month"))&"-"&trim(request.form("b_day"))
        phone=CheckStr(request.form("phone"))
        address=CheckStr(request.form("address"))
if password="" then
    response.write"<SCRIPT language=JavaScript>alert(' 请输入登陆验证密码。');"
    response.write"javascript:history.go(-1)</SCRIPT>"
    response.end
else
    if not checkname(Password) then
        response.write"<SCRIPT language=JavaScript>alert(' 输入登陆密码中含有非法字符。');"
	response.write"javascript:history.go(-1)</SCRIPT>"
	response.end
    end if
    set rs=server.createobject("adodb.recordset")
    sql="select top 1 password from [User] where userid="&clng(Hx66_uid)&" and Password='"&md5(password)&"'"
    rs.open sql,conn,1,1
    if rs.eof then
      response.write"<SCRIPT language=JavaScript>alert(' 您输入的登陆密码在验证时失败！');"
      response.write"javascript:history.go(-1)</SCRIPT>"
      response.end
    end if
    rs.close
end if
if psw<>"" and (strLength(psw)<6 or strLength(psw)>12) then
      response.write"<SCRIPT language=JavaScript>alert(' 输入新密码不能小于6或大于12。');"
      response.write"javascript:history.go(-1)</SCRIPT>"
      response.end
else
      if not checkname(Password) then
      response.write"<SCRIPT language=JavaScript>alert(' 输入新密码中含有非法字符。');"
      response.write"javascript:history.go(-1)</SCRIPT>"
      response.end
      end if
end if
if Email="" then
      response.write"<SCRIPT language=JavaScript>alert(' Email不能为空。');"
      response.write"javascript:history.go(-1)</SCRIPT>"
      response.end
else
      if IsValidEmail(Email)=false then
      response.write"<SCRIPT language=JavaScript>alert(' 您的Email有错误。');"
      response.write"javascript:history.go(-1)</SCRIPT>"
      response.end
      end if
end if
if QQ<>"" then
      if not isnumeric(QQ) or len(cstr(QQ))>12 then
      response.write"<SCRIPT language=JavaScript>alert(' QQ号码只能是4-12位数字，您可以选择不输入。');"
      response.write"javascript:history.go(-1)</SCRIPT>"
      response.end
      end if
end if
if Question="" then
      response.write"<SCRIPT language=JavaScript>alert(' 输入提示问题不能为空。');"
      response.write"javascript:history.go(-1)</SCRIPT>"
      response.end
else
      if strLength(Question)>15 then
          response.write"<SCRIPT language=JavaScript>alert(' 输入提示问题不能大于15字符。');"
	  response.write"javascript:history.go(-1)</SCRIPT>"
	  response.end
      end if
end if
if answer="" then
      response.write"<SCRIPT language=JavaScript>alert(' 输入提示答案不能为空。');"
      response.write"javascript:history.go(-1)</SCRIPT>"
      response.end
else
      if strLength(answer)>50 then
          response.write"<SCRIPT language=JavaScript>alert(' 输入提示答案不能大于50字符。');"
	  response.write"javascript:history.go(-1)</SCRIPT>"
	  response.end
      end if
end if
if Homepage<>"" then
      if strLength(Homepage)>100 then
          response.write"<SCRIPT language=JavaScript>alert(' 输入主页地址不能大于100字符。');"
	  response.write"javascript:history.go(-1)</SCRIPT>"
	  response.end
      end if
end if
if UserPhoto<>"" then
      if strLength(UserPhoto)>100 then
          response.write"<SCRIPT language=JavaScript>alert(' 输入头像不能大于100字符。');"
	  response.write"javascript:history.go(-1)</SCRIPT>"
	  response.end
      end if
end if
if UserSign<>"" then
      if strLength(UserSign)>200 then
          response.write"<SCRIPT language=JavaScript>alert(' 输入签名不能大于200字符。');"
	  response.write"javascript:history.go(-1)</SCRIPT>"
	  response.end
      end if
end if
      if not(isdate(birthday)) then
          response.write"<SCRIPT language=JavaScript>alert(' 您选择的不是一个有效的日期格式。');"
	  response.write"javascript:history.go(-1)</SCRIPT>"
	  response.end
      end if

if mypic<>"" and strLength(mypic)<=30 then
      myPhoto=mypic
else
      myPhoto=UserPhoto
end if

       	if psw<>"" then
		password=md5(psw)
	else
		password=md5(password)
	end if
	if request("answer")=request("oldanswer") then
		answer=request("answer")
	else
		answer=md5(request("answer"))
	end if
	if psw2<>psw then
		response.write"<SCRIPT language=JavaScript>alert(' 两次输入的新密码不一致， 请返回 ！ ');"
		response.write"javascript:history.go(-1)</SCRIPT>"
		response.end
		end if
		sql="select * from [User] where userid="&clng(Hx66_uid)
  		set rs=server.createobject("adodb.recordset")
  		    rs.open sql,conn,1,3
		    rs("Password")=Password
		    rs("Question")=Question
		    rs("Answer")=Answer
		    rs("Email")=Email
		    rs("sex")=sex
		    rs("Homepage")=Homepage
		    rs("QQ")=QQ
		    rs("UserPhoto")=myPhoto
		    rs("UserSign")=UserSign
		    rs("hidden")=hidden
		    rs("whe")=whe
		    rs("birthday")=birthday
		    rs("phone")=phone
		    rs("address")=address
		    rs.update
		    rs.close
		    set rs=nothing
                    Response.Cookies("HX_USER")("User_Pwd")=Password
                    response.Write"<script language=javascript>alert(' 资料修改成功！');this.location.href='user_main.asp';</script>"
end if
sub hyzx()%>
<table bgcolor="#ffffff" borderColor="#F0F0F0" Border="1" Cellspacing="0" Cellpadding="5" width="100%" align="Center" style="border-collapse: collapse">
<%
dim news,snews,joke,sjoke,dj,sdj,down,sdown,pic,spic,web,sweb
news=conn.execute("select count(*) from news where tjuser='"&Hx66_name&"'")(0)
snews=conn.execute("select count(*) from news where passed=1 and tjuser='"&Hx66_name&"'")(0)
joke=conn.execute("select count(*) from joke where tjuser='"&Hx66_name&"'")(0)
sjoke=conn.execute("select count(*) from joke where passed=1 and tjuser='"&Hx66_name&"'")(0)
dj=conn.execute("select count(*) from dj where tjuser='"&Hx66_name&"'")(0)
sdj=conn.execute("select count(*) from dj where passed=1 and tjuser='"&Hx66_name&"'")(0)
down=conn.execute("select count(*) from soft where tjuser='"&Hx66_name&"'")(0)
sdown=conn.execute("select count(*) from soft where passed=1 and tjuser='"&Hx66_name&"'")(0)
pic=conn.execute("select count(*) from pic where tjuser='"&Hx66_name&"'")(0)
spic=conn.execute("select count(*) from pic where passed=1 and tjuser='"&Hx66_name&"'")(0)
web=conn.execute("select count(*) from web where tjuser='"&Hx66_name&"'")(0)
sweb=conn.execute("select count(*) from web where passed=1 and tjuser='"&Hx66_name&"'")(0)
%>
<tr> 
<td colspan=3 align="Center">欢迎您来到“<%=webname%>--昆明康辉国旅”会员中心，以下是您的资料信息。</td>
</tr>
<tr>
<td width='20%'><img src='img/user_main.gif' border=0>&nbsp;用户名称：</td>
<td width='40%'><b><%=Hx66_Name%></b></td>
<td width='40%' rowspan=5 align=center><%if Hx66_Photo<>"" then%><img src='<%=Hx66_Photo%>' border=0 onload="initimg(this,150,150)" onclick="window.open(this.src,null,'')"><%else%><img src='img/face/09.gif' border=0 width=75 height=75><%end if%></td>
</tr>
<tr>
<td><img src='img/user_main.gif' border=0>&nbsp;用户类型：</td>
<td><%if Hx66_Grade=0 then%>普通会员
<%end if%><%if Hx66_Grade=1 then%><font color=red>VIP会员</font> 有效期还有 <%=Hx66_vipend-date()%> 天<%end if%></td>
</tr>
<tr>
<td><img src='img/user_main.gif' border=0>&nbsp;用户性别：</td>
<td><%
  if Hx66_Sex="男" then
    response.write "<img border=0 src='img/boy.gif' align=absmiddle>&nbsp;&nbsp;男孩"
  else
    response.write "<img border=0 src='img/girl.gif' align=absmiddle>&nbsp;&nbsp;女孩"
  end if
%></td>
</tr>
<tr>
<td><img src='img/user_main.gif' border=0>&nbsp;注册时间：</td>
<td><%=Hx66_RegDate%></td>
</tr>
<tr>
<td><img src='img/user_main.gif' border=0>&nbsp;登录次数：</td>
<td><%=Hx66_LoginTimes%>&nbsp;次</td>
</tr>
<tr>
<td><img src='img/user_main.gif' border=0>&nbsp;您的积分：</td>
<td><%=Hx66_points&moneyname%></td>
<td align=center>您已登陆 <font color=red><% response.write DateDiff("n",Hx66_LastLoginTime,now()) %></font> 分钟</td>
</tr>
<tr>
<td><img src='img/user_main.gif' border=0>&nbsp;个性签名：</td>
<td colspan=2 align=center><table border=0 width='100%'>
<%if Hx66_Sign<>"" then%>