📄 main.asp
字号:
<%
user=Request.cookies("JyDownUserName")
if user<>"" then
user=replace(user," ","+++ close")
else
response.write("<li>您没有进入本页面的权限,<a href=reg.asp>申请注册</a>!<br><br><li>如果你是本站会员请先<a href=login.asp>登陆</a>后进入.")
response.end
end if
server_vv=len(Request.ServerVariables("SERVER_NAME"))
server_v1=left(Cstr(Request.ServerVariables("HTTP_REFERER")),server_vv)
server_v2=left(Cstr("http://"&Request.ServerVariables("SERVER_NAME")),server_vv)
if server_v1<>server_v2 and server_v1<>"" and server_v2<>"" then
response.write("<script>alert('错误：禁止从站点外部提交数据!.')</script>")
response.end
end if
%>
<%MDBpath="../inc/"%>
<!--#include file="../inc/mdb_path_user.asp"-->
<!--#include file="../inc/char.inc"-->
<!--#include file="../inc/check.asp"-->
<%
pwd=replace(request.form("pwd")," ","+++ close")
set rs=server.CreateObject("ADODB.RecordSet")
rs.open "select * from UserInfo where user='"&user&"'",conn,1,2
if rs.eof then
JyDownMsg="错误:"&user&"用户资料读取错误,请重新登陆!"
else
if request("type")="save" then
if pwd="" then
JyDownMsg="错误:要修改资料必需填写原密码!"
else
if pwd<>rs("pwd") then
JyDownMsg="错误:原密码错误!"
else
qm=htmlencode(request.form("qm"))
if len(qm)>250 then
JyDownMsg="错误:个性签名多于250个字符!"
else
if request.form("pwd1")<>"" or request.form("pwd2")<>"" then
if request.form("pwd1")<>request.form("pwd2") then
JyDownMsg="错误:要修改两次输入密码不相同,密码没被修改;<br><font color=""#FF0000"">·</font>"
else
rs("pwd")=request.form("pwd1")
end if
end if
rs("email")=request.form("email")
rs("homepage")=request.form("homepage")
rs("v_date")=request("v_date")
rs("v_pmode")=request("v_pmode")
rs("v_amount")=request("v_amount")
rs("v_pstatus")=request("v_pstatus")
rs("face")=face
rs("softurl")=request.form("softurl")
response.cookies("JyDownUserSoftUrl")=request.form("softurl")
JyDownMsg=JyDownMsg&"成功:修改资料完成!"
rs.Update
end if
end if
end if
end if
email=rs("email")
homepage=rs("homepage")
face=rs("face")
v_date=rs("v_date")
d_date=rs("d_date")
v_pmode=rs("v_pmode")
v_amount=rs("v_amount")
v_pstatus=rs("v_pstatus")
softurl=rs("softurl")
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<html>
<head>
<title>会员中心</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">
<meta name=keywords content="会员中心">
<LINK href="../inc/style.css" rel=stylesheet>
</head>
<body><center>
<!--#include file="../inc/top.asp"-->
<table border=0 cellpadding=0 cellspacing=0 width=760 align=center bgcolor=#ffffff>
<tr valign=top><td width=180 >
<!--#include file="left.asp"-->
</td><td width=600>
<table width="580" border="0" cellspacing="0" cellpadding="0"><tr>
<td height=10></td></tr><tr><td>
<table border="0" cellspacing="1" cellpadding="0" width="580" bgcolor="#e6e6e6">
<tr><td width="100%" bgcolor="#3FAEE4" height="24"><font color="#FFFFFF"><b> 欢迎进入-管理中心!</b></font></td></tr>
<tr><td width="100%" bgcolor="#F7F7F7" height="24"><font color="#000080"><b> 身份信息</b></font></td></tr>
<tr><td width="100%" bgcolor="#FFFFFF" height="24"> 用户名：<%=user%></td></tr>
<tr><td width="100%" bgcolor="#ffffff" height="24"> 真实姓名：<b><%=face%></b></td></tr>
<tr><td width="100%" bgcolor="#ffffff" height="24"> 电子邮箱：<%=email%></td></tr>
<%if JyDownAdminDj=3 then%>
<tr><td width="100%" bgcolor="#F7F7F7" height="22"> 站长拥有所有权限！</td></tr>
<%else
admin=JyDownAdminAdmin%>
<tr>
<td width="100%" bgcolor="#F7F7F7" height="24"><font color="#000080"><b> 会员信息</b></font></td>
</tr>
<tr><td width="100%" bgcolor="#FFFFFF" height="24"> 信息：<font color=ff0000><b>你是本站<%if CheckAdmin("DownAdd",admin) then Response.Write("付费")%>会员</b></font></td></tr>
<tr><td width="100%" bgcolor="#FFFFFF" height="24"> 付款金额：<%=v_amount%> <%if isnull(v_date) then%><input type="button" name="Submit1" onclick="javascript:location.href='../inc/fefi.asp'" value="付 费"><%else%>.<%end if%></td></tr>
<tr><td width="100%" bgcolor="#ffffff" height="24"> 付款日期：<%if isnull(v_date) then%>未付款<%else%><%=v_date%><%end if%> <%if d_date<>"1" then%>到期日期：<%=d_date%><%end if%>
<tr>
<td width="100%" bgcolor="#F7F7F7" height="24"><font color="#000080"><b> 权限信息</b></font></td>
</tr>
<tr><td width="100%" bgcolor="#FFFFFF" height="24"> 修改资料：<input type="checkbox" checked> <font color=ff0000>已开通</font></td></tr>
<tr><td width="100%" bgcolor="#ffffff" height="24"> 信息发布：<input type="checkbox" checked> <font color=ff0000>已开通</font></td></tr>
<tr><td width="100%" bgcolor="#FFFFFF" height="24"> 论坛发帖：<input type="checkbox" checked> <font color=ff0000>已开通</font></td></tr>
<tr><td width="100%" bgcolor="#ffffff" height="24"> 黑马荐股：<input type="checkbox" name="admin" value="DownAdd"<%if CheckAdmin("DownAdd",admin) then Response.Write(" checked")%>> <%if CheckAdmin("DownAdd",admin) then Response.Write("<font color=ff0000>已")%>开通</font></td></tr>
</table>
</td>
<%end if%>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<!--#include file="../inc/foot.asp"--></center>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -