收件箱
发件箱
发送短消息
<%
End Sub
Sub viewMyFavorAndHistory(str)
dim favor,videoArray,i,m_pic
set favor=conn.db("select "&str&" from m_user where u_id="&user.id,"records1")
%>
<%
End Sub
Sub logOut
dim backurl : backurl = getRefer
if instr(backurl,"style=line")>0 or instr(backurl,"style=quare")>0 then backurl = backurl&"&logonback=yes"
user.logout backurl
End Sub
Function checkUser(rType)
dim check,u_name: u_name = replaceStr(getForm(rType,"both"),"'","")
if u_name="" or len(u_name)>10 then checkUser = "err"
if rType = "u_username" then
set check = conn.db("select top 1 u_username from m_user where u_username='"&u_name&"'","execute")
else
set check = conn.db("select top 1 u_nicename from m_user where u_username='"&u_name&"'","execute")
end if
if check.eof then
checkUser = 0
else
checkUser = 1
end if
check.close
set check = nothing
End Function
Sub alertMsg2(str,url)
dim urlstr
if url<>"" then urlstr="self.location.href='"&url&"';"
if not isNul(str) then str ="alert('"&str&"');"
echo("")
End Sub
Sub loginSubmit
dim backurl,style : backurl = getForm("backurl","post")
if isNul(backurl) then backurl = "index.asp"
if instr(backurl,"style=line")>0 or instr(backurl,"style=quare")>0 then backurl = backurl&"&logonback=yes"
if isNul(getForm("vertify","post")) or getForm("vertify","post")<>Session("code") then alertMsg "验证码错误","":last:die""
if isNul(getForm("username","post")) or isNul(getForm("pwd","post")) then alertMsg "用户名或密码不能为空",""
user.login replaceStr(getForm("username","post"),"'",""),md5(getForm("pwd","post"),32),getForm("single","post")
chkScore
response.redirect backurl
End Sub
Sub checkLimit
user.checkuserlogin
End Sub
Sub regSubmit
dim u_username,pwd1,pwd2,u_face,u_qq,u_mail,u_age,vertify,u_id,u_nicename
if action="regsubmit" then
if clng(checkUser("u_username"))>0 then alertMsg "用户名已存在，请更换","":last:die ""
u_username=replaceStr(getForm("u_username","post"),"'","")
vertify=getForm("vertify","post")
if isNul(vertify) then echoSaveStr "null"
if not isNum(vertify) then echoSaveStr "safe"
if computeStrLen(u_username)>50 then username=getStrByLen(u_username,50)
if vertify<>session("code") then die "验证码错误"
else
u_id=getForm("u_id","get")
if not isNul(u_id) then
if not isNum(u_id) then echoSaveStr "safe"
else
alertMsg "无此用户","":last:die ""
end if
end if
u_nicename = encodeHtml(replaceStr(getForm("nicename","post"),"'",""))
if isNul(u_nicename) then alertMsg "昵称不能为空","":last:die ""
pwd1=getForm("pwd1","post")
pwd2=getForm("pwd2","post")
u_mail=encodeHtml(getForm("email","post"))
if pwd1<>pwd2 then die "两次密码不同"
u_face=encodeHtml(preventSqlin(getForm("face","post"),""))
u_qq=getForm("qq","post")
if not isNul(u_qq) then
if not isNum(u_qq) then echoSaveStr "safe"
else
u_qq=""
end if
u_age=getForm("age","post")
if not isNul(u_age) then
if not isNum(u_age) then echoSaveStr "safe"
else
u_age=0
end if
if computeStrLen(u_face)>50 then img=getStrByLen(u_face,50)
if computeStrLen(pwd1)>50 then pwd1=getStrByLen(pwd1,50)
if computeStrLen(u_mail)>50 then email=getStrByLen(u_mail,50)
if computeStrLen(u_qq)>20 then qq=getStrByLen(u_qq,20)
if computeStrLen(u_age)>3 then age=getStrByLen(u_age,3)
if action="regsubmit" then
dim urs
dim regScore : regScore = loadRules("regScore")
set urs = conn.db("select u_username,u_nicename,u_regtime,u_pwd,u_qq,u_mail,u_age,u_face,u_score,u_logTime,u_level from m_user","records3")
urs.addnew
urs("u_username")=u_username
urs("u_nicename") = u_username
urs("u_regTime") = date
urs("u_logTime") = now
urs("u_score")=regScore
urs("u_pwd")=md5(pwd1,32)
urs("u_level") = 0
else
set urs = conn.db("select u_pwd,u_qq,u_mail,u_age,u_face from m_user where u_id="&user.id,"records3")
if not isNul(pwd1) then urs("u_pwd")=md5(pwd1,32)
end if
urs("u_qq")=u_qq : urs("u_face")=u_face : urs("u_mail")=u_mail : urs("u_age")=u_age
urs.update:urs.close
if action="regsubmit" then
alertMsg "注册成功,正在转向登陆页面！","?action=login"
else
alertMsg "修改成功！","?action=view"
end if
End Sub
Sub login
dim backurl:backurl=getRefer
%>
<%
select case style
case ""
head
%>
<%
End Sub
Sub cardSubmit
dim user1,user2,cardno,cardpwd : user1 = replaceStr(getForm("user1","post"),"'",""): user2 = replaceStr(getForm("user2","post"),"'",""): cardno = replaceStr(getForm("cardno","post"),"'",""): cardpwd = replaceStr(getForm("cardpwd","post"),"'","")
if isNul(user1) then alertMsg "用户名不能为空","":last:die""
if user1<>user2 then alertMsg "两次输入用户名不一致","":last:die""
if isNul(cardno) then alertMsg "卡号不能为空","":last:die""
if isNul(cardpwd) then alertMsg "用密码不能为空","":last:die""
dim cardType : cardType = right(cardno,2)
if conn.db("select u_username from {pre}user where u_username ='"&user1&"'","execute").eof then alertMsg "用户不存在","":last:die""
select case cardType
case "JF"
dim JF,JFScore
set JF = conn.db("select m_score,m_state,m_user from {pre}card where m_CardNo='"&cardno&"' and m_CardPwd = '"&cardpwd&"'","records3")
if JF.eof then
JF.close
set JF = nothing
alertMsg "卡号密码不正确","":last:die""
else
select case JF("m_state")
case "0" : JF.close : set JF = nothing : alertMsg "该卡未激活\n请通知管理员修改为\'已发卡\'","":last:die""
case "1"
conn.db "update {pre}user set u_score = u_score+"&JF("m_score")&" where u_username='"&user1&"'","execute"
JF("m_state") = "2"
JF("m_user") = user1
JFScore = JF("m_score")
JF.update
JF.close
set JF = nothing
if not isNul(user.score) then user.score = clng(user.score) + clng(JFScore)
chkScore
alertMsg "充值成功\n充值金额："&JFScore&"包包","":last:die""
case "2" : JF.close : set JF = nothing : alertMsg "该卡已使用过","":last:die""
end select
end if
case "WD" : alertMsg "暂未开通无敌卡","":last:die""
case else : alertMsg "卡号错误","":last:die""
end select
End Sub
Sub foot
if style<>"out" then
dim channelTemplatePath : channelTemplatePath = "/"&sitePath&"template/"&defaultTemplate&"/"&templateFileFolder&"/foot.html"
dim templateobj : set templateobj = mainClassobj.createObject("MainClass.template")
templateobj.load channelTemplatePath
with templateObj
.parseTop():.parseFoot():.parseSelf() : .parseGlobal() : .parseMenuList("") :.parseNewsList: .parseVideoList() : .parseTopicList() :.content=replaceCurrentTypeId(.content):.parseIf():.content = replace(.content,"{maxcms:runinfo}",getRunTime()):echo .content
end with
echo "
<%
case "out"
%>
<%
case "line"
if not isNul(request("logonback")) then echo ""
%>
<%
if isNul(user.name) then
%>
<%
else
%>
<%
end if
response.end
%>
<%
case "sqare"
if not isNul(request("logonback")) then echo ""
%>
<%
if isNul(user.name) then
%>
<%
else
%>
<%
end if
response.end
end select
End Sub
Sub view
dim userInfo,mList
set userInfo = conn.db("select u_username,u_regtime,u_face,u_qq,u_mail,u_score,u_level,u_nicename from {pre}user where u_id="&user.id&"","records1")
if userInfo.eof then
userInfo.close
set userInfo = nothing
alertMsg "账号出错","":last:die""
else
%>
<%
end if
userInfo.close
set userInfo = nothing
End Sub
Sub edit
dim userObj,i
set userObj=conn.db("select u_id,u_username,u_nicename,u_qq,u_mail,u_age,u_score,u_face,u_pwd from m_user where u_id="&cint(user.id),"records1")
if userObj.eof then alertMsg "无此用户","":last:die ""
if userObj("u_username")<>user.name then alertMsg "无此用户","":last:die ""
%>
<%
userObj.close
set userObj = nothing
End Sub
Sub reg
dim i,regScore : regScore = loadRules("regScore")
%>
<%
End Sub
Sub head
dim channelTemplatePath : channelTemplatePath = "/"&sitePath&"template/"&defaultTemplate&"/"&templateFileFolder&"/user_head.html"
dim templateobj : set templateobj = mainClassobj.createObject("MainClass.template")
dim cacheName : cacheName = "parse_user_"&user.level
if cacheStart = 1 then
if cacheObj.chkCache(cacheName) then
echo cacheObj.getCache(cacheName)
else
templateobj.load channelTemplatePath
with templateObj
.parseTop():.parseFoot():.parseSelf() : .parseGlobal() : .parseMenuList("") :.parseNewsList: .parseVideoList() : .parseTopicList() :.content=replaceCurrentTypeId(.content):.parseIf():.content = replace(.content,"{maxcms:runinfo}",getRunTime()):cacheObj.setCache cacheName,.content : echo .content
end with
end if
else
templateobj.load channelTemplatePath
with templateObj
.parseTop():.parseFoot():.parseSelf() : .parseGlobal() : .parseMenuList("") :.parseNewsList: .parseVideoList() : .parseTopicList() :.content=replaceCurrentTypeId(.content):.parseIf():.content = replace(.content,"{maxcms:runinfo}",getRunTime()):echo .content
end with
end if
%>
<%
End Sub
Sub presentsubmit
dim presentFrom,presentTo,Score : presentFrom = user.id : presentTo = getForm("presentTo","post") : Score = getForm("score","post")
if isNul(presentTo) or isNul(Score) then alertMsg "信息不完整","":last:die""
if isNum(Score) then Score = clng(Score) else echoSaveStr("safe")
if clng(score) < 0 then alertMsg "包包不能为负数","":last:die""
if clng(score) > clng(user.score) then alertMsg "包包不够赠送","":last:die""
presentTo = preventSqlin(presentTo,"") : presentTo = parseNametoId(presentTo)
if isNul(presentTo) then alertMsg "用户不存在","":last:die""
if cstr(presentTo) = cstr(presentFrom) then alertMsg "不能给自己赠送","":last:die""
conn.db "update {pre}user set u_score=u_score+"&score&" where u_id="&presentTo,"execute"
conn.db "update {pre}user set u_score=u_score-"&score&" where u_id="&presentFrom,"execute"
user.score = clng(user.score) - clng(score)
chkScore
alertMsg "赠送成功","":last:die""
End Sub
Sub delFavorAndLooked
dim mType : mType = getForm("mType","get")
select case mType
case "u_favor"
dim favor : favor = getForm("u_favor","post")
if not isNul(favor) then
user.modFavor favor,"del"
alertMsg "删除成功","?action=myfavor"
else
alertMsg "没有选择要删除的收藏","":last:die""
end if
case "u_looked"
dim looked : looked = getForm("u_looked","post")
if not isNul(looked) then
user.dellooked looked
alertMsg "删除成功","?action=history"
else
alertMsg "没有选择要删除历史记录","":last:die""
end if
case else : alertMsg "错误","":last:die""
end select
End Sub
Sub useCard
%>
会员登录
) then%>pic/1.gif<%else echo userInfo(2) end if%>) |
欢迎您： | <%=userInfo(7)%> | |
| 注册时间： | <%=userInfo(1)%> | ||
| QQ： | <%=userInfo(3)%> | ||
| 邮箱： | <%=userInfo(4)%> | ||
| 包包： | <%=userInfo(5)%> | ||
| 用户组： | <%=getuserlevel(userInfo(6))%> | ||
-
<%
set mList=conn.db("select top 6 m_sendFrom,m_title,m_sendTime from {pre}message where m_sendTo='"&user.id&"' and m_read=0 order by m_sendTime desc","records1")
if mList.eof then echo "暂时没有消息"
do while(not mList.eof)
%>
- <%=mList("m_sendTime")%><%=parseIdtoName(mList("m_sendFrom"))%> <%=mList("m_title")%> <% mList.movenext loop mList.close set mList = nothing %>
<%next%>