<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% dim king,action:action=request("action") set king=new kingcms king.head 0,0 select case action case"" king_def case"info" king_info case"pass" king_pass case"msg" king_msg case"pm" king_pm case"report" king_report'举报 case"my" king_my case"photo" king_photo case"nav" king_nav case"favorite" king_favorite'收藏夹另做一个表,并只能收藏100个帖子或文章 case else king.error("system/error") end select king_outhtm set king=nothing 'nav *** *** www.KingCMS.com *** *** sub king_nav() response.expires=0 response.expiresabsolute=now()-1 response.addheader "pragma","no-cache" response.addheader "cache-control","private" response.cachecontrol="no-cache" dim rs,msgcount,outjs if king.id=0 then Il lllIl(""&king.lang("login")&"-"&king.lang("reg")&"-"&king.lang("common/search")&"") else set rs=conn.execute("select msgid from kingmsg where isview=0 and getusername='"&king.name&"' and getdel=0;") if not rs.eof and not rs.bof then Il lllIl("
"&king.lang("msg/tip/poptip")&"
") Il"var val=1;"&vbcrlf Il"function wait(){"&vbcrlf Il"if(val==1){setTimeout(""wait()"","&king_msgtime&"000);val--;}"&vbcrlf Il"else{document.getElementById('popmsg').style.display='none';}}"&vbcrlf Il"onLoad=wait();" msgcount=ubound(rs.getrows(),2)+1 else msgcount=0 end if set rs=nothing outjs=""&king.name&"-"&king.lang("common/search")&"-"&king.lang("user/reinfo")&"-"&king.lang("user/repass")&"-" if cdbl(msgcount)>0 then outjs=outjs&""&king.lang("msg")&"["&msgcount&"]" else outjs=outjs&""&king.lang("msg")&"" end if outjs=outjs&"-"&king.lang("login/logout")&"" Il lllIl(outjs) end if response.end end sub 'def *** *** www.KingCMS.com *** *** sub king_def() dim userid:userid=l1ll("userid",2) dim username:username=l1ll("username",0) '过滤掉所有的特殊符号就可以避免注入了. dim chrs:chrs=split(king_chr,",") for i=0 to ubound(chrs) if instr(username,chr(chrs(i)))>0 then king.error("system/error") next dim sql,rs,data,insql,ims,i,userim,xmlim,imtext ims=split("qq,icq,msn,yahoo,talk,popo,uc,skype,aim,taobao",",")'10 if king.id=0 then king.error("login/level") sql="userid,username,joindate,isusermail,usermail,usersign,userintro,usertitle,usersex,userskill,userfrom,userclass,usermark,userprestige,counttopic"'14 sql=sql&",counttopicbest,counttopicdel,userphoto,userwidth,userheight,userim,lastlogin,lastpostdate,onlinetime,userlogins,userviews,userbirthday,usersite"'27 sql=sql&",zname,ztel,zmobile,zfax,zpost,znation,zaddress,zaddressexp,zteltime,zuserinfo, userquestion,userlogins,userviews"'40 if II11(userid,2) then insql=" userid="&userid elseif cstr(username)<>"" then insql=" username='"&username&"'" else insql=" userid="&king.id end if if cstr(userid)="" then userid=0 set rs=conn.execute("select top 1 "&sql&" from kinguser where userdel=0 and userlock=0 and "&insql&";") if not rs.eof and not rs.bof then data=rs.getrows() if len(data(20,0))>0 then else for i=0 to ubound(ims) imtext=imtext&"<"&ims(i)&">" next data(20,0)=""&imtext&"" end if else king.error("user/tip/not") end if set rs=nothing kingtitle=data(1,0):kingguide=king.guide(0)&""&king.lang("user/center")&" >> "&data(1,0) ol="
" ol=ol&king.ubar ol=ol&"
会员信息" if king.id=data(0,0) then ol=ol&"[编辑]" end if ol=ol&"
" ol=ol&"" ol=ol&"" ol=ol&"" dim oltime,olevel,k'在线时间,在线级别 oltime=data(23,0)/3600 olevel=-1 k=0 ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"
会员名"&data(1,0) if not king.id=data(0,0) then ol=ol&" [发信]" end if ol=ol&"
UID"&data(0,0)&"
在线时间" while (oltime>=k) olevel=olevel+1 k=k+(olevel+2)*king_rank ' ol=ol&"k="&k&"|level:"&olevel&"
" wend ol=ol&"
" for i=1 to int(olevel/16) ol=ol&"" next for i=1 to int((olevel mod 16)/4) ol=ol&"" next for i=1 to (olevel mod 4) ol=ol&"" next ol=ol&"
总计在线 "&formatnumber(oltime,1,true)&" 小时  剩余升级时间 "&formatnumber(k-oltime,1,true)&" 小时" ol=ol&"
用户组"&king.grade(data(11,0),data(12,0),0)&"  "&king.grade(data(11,0),data(12,0),1)&"
积分"&data(12,0)&"
威望"&data(13,0)&"
发帖数"&data(14,0)&"
平均每日发帖"&formatnumber(data(14,0)/(datediff("d",data(2,0),tnow)+1),2,true)&"
精华贴"&data(15,0)&"
被删除帖子"&data(16,0)&"
登录次数"&data(39,0)&"
被浏览次数"&data(40,0)&" [PV]
注册日期"&data(2,0)&"
上次访问"&data(21,0)&"
最后发表"&data(22,0)&"
性别"&king.lang("user/sex/sex"&data(8,0))&"
头衔"&htmlencode(data(7,0))&"
来自"&htmlencode(data(10,0))&"
特长"&htmlencode(data(9,0))&"
头像
签名"&king.ubbencode(data(5,0),1,1,false)&"
个人简介"&htmlencode(data(6,0))&"
网站"&htmlencode(data(27,0))&"
" ol=ol&"
在线联系方式" if king.id=data(0,0) then ol=ol&" [编辑]" end if ol=ol&"
" ol=ol&"" ol=ol&"" set xmlim=createobject("microsoft.xmldom") xmlim.async=false xmlim.loadxml(data(20,0)) for i=0 to ubound(ims) userim=xmlim.selectsinglenode("//kingcms/im/"&ims(i)).text if len(userim)>0 then if ll11("talk,msn",ims(i)) then ol=ol&"" else ol=ol&"" end if end if next ol=ol&"
Email" if cstr(data(3,0))="1" then if len(data(4,0))>0 then ol=ol&replace(data(4,0),"@","") end if else ol=ol&"不公开" end if ol=ol&"
"&king.lang("user/im/"&ims(i))&""&replace(userim,"@","")&"
"&king.lang("user/im/"&ims(i))&""&userim&"
" if king.id=data(0,0) then ol=ol&"
真实资料 [编辑]
" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"
真实姓名"&htmlencode(data(28,0))&"
生日"&htmlencode(data(26,0))&"
移动电话"&htmlencode(data(30,0))&"
固定电话"&htmlencode(data(29,0))&"
打电话的最佳时间"&king.lang("user/ztel/z"&data(36,0))&"
传真"&htmlencode(data(31,0))&"
国家"&htmlencode(data(33,0))&"
通信住址"&htmlencode(data(34,0))&"
通信住址(扩展)"&htmlencode(data(35,0))&"
邮编"&htmlencode(data(32,0))&"
备注"&htmlencode(data(37,0))&"
" ol=ol&"
安全问答
" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"
提问"&king.lang("user/question/q"&data(38,0))&"
回答******
" end if ol=ol&"
"'uinfo ol=ol&"
" conn.execute "update kinguser set userviews=userviews+1 where userid="&data(0,0)&";" end sub 'info *** *** www.KingCMS.com *** *** sub king_info() dim sql,rs,data,checked,selected,i,dataform dim xmlinfo,xmlim dim datainfo,dataim dim infos,ims,imtext:imtext="" dim offon ims=split("qq,icq,msn,yahoo,talk,popo,uc,skype,aim,taobao",",")'9 if king.id=0 then king.error("login/level") sql="isusermail,usermail,usersign,userintro,usertitle,usersex,userskill,userfrom,userphoto,userwidth,userheight,userim,userbirthday,userlanguage"'13 sql=sql&",zname,ztel,zmobile,zfax,zpost,znation,zaddress,zaddressexp,zteltime,usersite"'23 if llll(l1l(left(ll11l("111"),16)))=l1l(ll11l("111")) then dataform=split(sql,",") redim data(ubound(dataform),0) for i=0 to ubound(dataform) data(i,0)=llll(dataform(i)) next for i=0 to ubound(ims) imtext=imtext&"<"&ims(i)&">"&llll(ims(i))&"" next data(11,0)=""&imtext&"" else set rs=conn.execute("select top 1 "&sql&" from kinguser where userdel=0 and userlock=0 and userid="&king.id&";") if not rs.eof and not rs.bof then data=rs.getrows() if len(data(11,0))>0 then else for i=0 to ubound(ims) imtext=imtext&"<"&ims(i)&">" next data(11,0)=""&imtext&"" end if else king.error("user/tip/lock") end if set rs=nothing end if kingtitle=king.lang("user/reinfo"):kingguide=king.guide(0)&""&king.lang("user/center")&" >> "&kingtitle ' ol=ol&"" ol="
" ol=ol&king.ubar() ol=ol&"
会员信息
" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"
会员名"&king.name&"
UID"&king.id&"
性别" for i=0 to 2 if cstr(data(5,0))=cstr(i) then checked=" checked=""checked""" else checked="" ol=ol&" "&king.lang("user/sex/sex"&i)&" " next ol=ol&"
头衔"&data(4,0)&"
来自" ol=ol&king.check("userfrom|6|user/tip/from|0-30")&"
特长" ol=ol&king.check("userskill|6|user/tip/skill|0-30")&"
头像 " ol=ol&"选择" ol=ol&king.check("userphoto|6|user/tip/photo|10-250;"&II11(llll("userphoto"),7)&"|13|user/tip/photo1")&"
大小" ol=ol&" 长度: px   " ol=ol&" 高度: px" dim userwidth,userheight userwidth=llll("userwidth") userheight=llll("userheight") if II11(userwidth,2) and II11(userheight,2) then if cint(userwidth)<=130 and cint(userheight)<=130 then offon=true else offon=false end if else offon=false end if ol=ol&king.check(offon&"|13|user/tip/photosize") ol=ol&"
语言" ol=ol&""&king.check("userlanguage|6|menu/tip/language|1-30")&"
签名" ol=ol&"
上限: 250字符,支持UBB和表情" ol=ol&king.check("usersign|6|user/tip/sign|0-250")&"
个人简介" ol=ol&"
上限: 250字符" ol=ol&king.check("userintro|6|user/tip/intro|0-250")&"
个人网站" ol=ol&"" if len(llll("usersite"))>0 then ol=ol&king.check("usersite|5|user/tip/sitetype;usersite|6|user/tip/site|10-250") end if ol=ol&"
" set xmlim=createobject("microsoft.xmldom") xmlim.async=false xmlim.loadxml(data(11,0)) redim dataim(ubound(ims)) for i=0 to ubound(ims) dataim(i)=xmlim.selectsinglenode("//kingcms/im/"&ims(i)).text next ol=ol&"
在线联系方式
" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"
Email " if cstr(data(0,0))="1" then checked=" checked=""checked""" else checked="" ol=ol&" 选择,公开邮箱地址" ol=ol&king.check("usermail|6|user/tip/mailsize|5-100;usermail|4|user/tip/mail;usermail|9|reg/tip/rmail|select count(usermail) from kinguser where usermail='$pro$' and userid<>"&king.id)&"
QQ" if len(llll("qq"))>0 then ol=ol&king.check("qq|2|user/tip/qq;qq|6|user/tip/qqsize|5-15") end if ol=ol&"
ICQ" if len(llll("icq"))>0 then ol=ol&king.check("icq|2|user/tip/icq;icq|6|user/tip/icqsize|5-15") end if ol=ol&"
MSN" if len(llll("msn"))>0 then ol=ol&king.check("msn|4|user/tip/msn;msn|6|user/tip/msnsize|10-100") end if ol=ol&"
雅虎通" if len(llll("yahoo"))>0 then ol=ol&king.check("msn|6|user/tip/yahoosize|0-32;yahoo|3|user/tip/yahoo") end if ol=ol&"
Google Talk" if len(llll("talk"))>0 then ol=ol&king.check("talk|6|user/tip/talksize|10-100;talk|4|user/tip/talk") end if ol=ol&"
网易POPO" if len(llll("popo"))>0 then if instr(llll("popo"),"@")>0 then Il king.check("popo|6|user/tip/poposize|5-100;popo|4|user/tip/popo") else Il king.check("popo|6|user/tip/poposize|5-16;popo|3|user/tip/popo") end if end if ol=ol&"
新浪UC" if len(llll("uc"))>0 then ol=ol&king.check("uc|2|user/tip/uc;uc|6|user/tip/ucsize|5-15") end if ol=ol&"
Skype" if len(llll("skype"))>0 then ol=ol&king.check("skype|3|user/tip/skype;skype|6|user/tip/skypesize|6-32") end if ol=ol&"
AIM" if len(llll("aim"))>0 then ol=ol&king.check("aim|6|user/tip/aimsize|3-16;aim|3|user/tip/aim") end if ol=ol&"
淘宝旺旺" if len(llll("taobao"))>0 then ol=ol&king.check("taobao|6|user/tip/taobaosize|5-20;taobao|3|user/tip/taobao") end if ol=ol&"
" ' ",zname,ztel,zmobile,zfax,zpost,znation,zaddress,zaddressexp,zteltime,zuserinfo"'14-23 ol=ol&"
真实资料
" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ' ol=ol&"" ol=ol&"
真实姓名" ol=ol&king.check("zname|6|user/tip/zname|0-30")&"
出生年月日 (1995-08-15)" ol=ol& king.check("userbirthday|8|reg/tip/userbirthday|^(19"&chr(3)&"$king124"&chr(2)&"20)\d{2}\-(0[1-9]{1}"&chr(3)&"$king124"&chr(2)&"1[0-2]{1})\-([012]{1}[0-9]{1}"&chr(3)&"$king124"&chr(2)&"3[01]{1})$") ol=ol&"
固定电话" if len(llll("ztel"))>0 then ol=ol&king.check("ztel|6|user/tip/ztel|6-20") end if ol=ol&"
移动电话" if len(llll("zmobile"))>0 then ol=ol&king.check("zmobile|6|user/tip/zmobile|6-20") end if ol=ol&"
打电话的最佳时间" ol=ol&"" ol=ol&"
传真" if len(llll("zfax"))>0 then ol=ol&king.check("zfax|6|user/tip/zfax|6-20") end if ol=ol&"
邮编" if len(llll("zpost"))>0 then ol=ol&king.check("zpost|6|user/tip/zpost|6-6;zpost|2|user/tip/zpost") end if ol=ol&"
国家" ol=ol&king.check("znation|6|user/tip/znation|0-30")&"
通信住址" ol=ol&king.check("zaddress|6|user/tip/zaddress|0-250")&"
通信住址(扩展)" ol=ol&king.check("zaddressexp|6|user/tip/zaddress|0-250")&"
备注" ' ol=ol&king.check("zuserinfo|6|user/tip/zuserinfo|0-250")&"
" ol=ol&"
" ol=ol&" " ol=ol&" " ol=ol&" " ol=ol&"
" ol=ol&"
" if king.checkerr and llll(l1l(left(ll11l("111"),16)))=l1l(ll11l("111")) then for i=0 to ubound(dataform) if cstr(i)<>"11" then data(i,0)=lll(dataform(i))'除了dataim外,其他的直接从from值中获取 next if cstr(data(0,0))<>"1" then data(0,0)=0 conn.execute "update kinguser set isusermail="&data(0,0)&",usermail='"&data(1,0)&"',usersign='"&data(2,0)&"',userintro='"&data(3,0)&"',usersex="&data(5,0)&",userskill='"&data(6,0)&"',userfrom='"&data(7,0)&"',userphoto='"&data(8,0)&"',userwidth="&data(9,0)&",userheight="&data(10,0)&",userim='"&data(11,0)&"',userbirthday='"&data(12,0)&"',userlanguage='"&data(13,0)&"',zname='"&data(14,0)&"',ztel='"&data(15,0)&"',zmobile='"&data(16,0)&"',zfax='"&data(17,0)&"',zpost='"&data(18,0)&"',znation='"&data(19,0)&"',zaddress='"&data(20,0)&"',zaddressexp='"&data(21,0)&"',zteltime="&data(22,0)&",usersite='"&data(23,0)&"' where userid="&king.id&";" response.redirect "user.asp" end if end sub 'pass *** *** www.KingCMS.com *** *** sub king_pass() kingtitle="修改密码" kingguide=king.guide(0)&""&king.lang("user/center")&" >> "&kingtitle dim data,sql,rs,dataform,i,selected if king.id=0 then king.error("login/level") sql="userquestion,useranswer"'13 if llll(l1l(left(ll11l("111"),16)))=l1l(ll11l("111")) then dataform=split(sql,",") redim data(ubound(dataform),0) for i=0 to ubound(dataform) data(i,0)=llll(dataform(i)) next else set rs=conn.execute("select "&sql&" from kinguser where userdel=0 and userlock=0 and userid="&king.id&";") if not rs.eof and not rs.bof then data=rs.getrows() else king.error("user/tip/lock") end if set rs=nothing end if ol="
" ol=ol&king.ubar() ol=ol&"
"&kingtitle&"
" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"
会员名"&king.name&"
UID"&king.id&"
原始密码 (6-30)" ol=ol&king.check("userpass|6|admin/tip/inpass|6-30;userpass|10|admin/tip/passerr")&"
新密码 (6-30:不输入就不做修改)" if len(llll("pass1"))>0 then' ol=ol&king.check("pass1|7|admin/tip/comppass|pass2;pass1|6|admin/tip/pass1size|6-30") end if ol=ol&"
重复确认 (6-30)
"&king.lang("user/question")&""'安全提问 ol=ol&"" ol=ol& king.check("userquestion|2|reg/tip/userquestion")&"
答案" ol=ol&king.check("useranswer|6|reg/tip/useranswer|1-50") ol=ol&"
" ol=ol&"
"'uinfo ol=ol&"
" ol=ol&"" ol=ol&" " ol=ol&"" ol=ol&"
" ol=ol&"
" if king.checkerr and llll(l1l(left(ll11l("111"),16)))=l1l(ll11l("111")) then if len(llll("pass1"))>0 then'修改密码 dim newkey :newkey=llIl(6) dim newpass :newpass=md5(lll("pass1")&newkey,1) conn.execute "update kinguser set userkey='"&newkey&"',userpass='"&newpass&"',useranswer='"&lll("useranswer")&"',userquestion="&lll("userquestion")&" where userid="&king.id&";" '写cookies response.cookies("user"&king_key)("name")=king.name response.cookies("user"&king_key)("pass")=md5(newkey&left(newpass,4)&king_salt,1)'newpass response.cookies("user"&king_key)("domain")=lcase(request.servervariables("server_name")) response.cookies("user"&king_key).expires=now+7 response.redirect "user.asp" else'只修改信息 conn.execute "update kinguser set useranswer='"&lll("useranswer")&"',userquestion="&lll("userquestion")&" where userid="&king.id&";" response.redirect "user.asp" end if end if end sub 'msg *** *** www.KingCMS.com *** *** sub king_msg() kingtitle="短信中心":kingguide=king.guide(0)&""&king.lang("user/center")&" >> "&kingtitle if king.id=0 then king.error("login/level") dim sql,i,msgid:msgid=l1ll("msgid",2) dim userid,rs,username,data sql="msgid,msgtitle,msgcontent,isview,msgdate,pubusername,getusername"'6 '删除信息 if llll(l1l(left(ll11l("111"),16)))=l1l(ll11l("111")) then dim list:list=llll("list") if len(list)>0 then if II11(list,6)=false then king.error("system/error") dim lists:lists=split(list,",") for i=0 to ubound(lists) set rs=conn.execute("select pubusername,getusername,pubdel,getdel from kingmsg where msgid="&lists(i)&";")'3 if not rs.eof and not rs.bof then if ll11(rs(0),king.name) then'发送人是自己 if cstr(rs(2))="0" then'未被删除 conn.execute "update kingmsg set pubdel=1 where msgid="&lists(i)&";" conn.execute "update kinguser set usermark=usermark+"&mark_delmsg&",userprestige=userprestige+"&prestige_delmsg&" where userid="&king.id&";" if cstr(rs(3))="1" then'如果已经被接收人删除了,就彻底删除信息 conn.execute "delete from kingmsg where msgid="&lists(i)&";" end if end if elseif ll11(rs(1),king.name) then'删除接收的短信息 if cstr(rs(3))="0" then conn.execute "update kingmsg set getdel=1 where msgid="&lists(i)&";" conn.execute "update kinguser set usermark=usermark+"&mark_delmsg&",userprestige=userprestige+"&prestige_delmsg&" where userid="&king.id&";" if cstr(rs(2))="1" then conn.execute "delete from kingmsg where msgid="&lists(i)&";" end if end if else king.error("system/error") end if end if set rs=nothing next response.redirect request.ServerVariables("http_referer") end if end if king.open "select "&sql&" from kingmsg where (getusername='"&king.name&"' and getdel=0) or (pubusername='"&king.name&"' and pubdel=0) order by isview, msgid desc;","user.asp?action=msg&pid=$&rn="&king.rn&"&msgid="&msgid,1 ol="
" ol=ol&king.ubar() ol=ol&"
" ol=ol&king.plist ol=ol&"
"&kingtitle&"
" ol=ol&"" for i=0 to king.length if ll11(king.data(5,i),king.name) then'发布人是自己 username=king.data(6,i) else username=king.data(5,i) if cstr(msgid)=cstr(king.data(0,i)) then conn.execute "update kingmsg set isview=1 where msgid="&msgid&";" end if end if set rs=conn.execute("select userid from kinguser where username='"&username&"';") if not rs.eof and not rs.bof then userid=rs(0) else king.error("system/error") end if set rs=nothing ol=ol&"" if ll11(king.data(5,i),king.name)=false and cstr(king.data(3,i))="0" then ol=ol&"" end if ol=ol&"" if cstr(msgid)=cstr(king.data(0,i)) then ol=ol&"" end if next ol=ol&"
" else ol=ol&"" end if ol=ol&""'左侧 ol=ol&" " ol=ol&"" ol=ol&htmlencode(king.data(1,i))&" ("&formatnumber(len(king.data(2,i)),0,true)&")" ol=ol&"" ol=ol&""'右侧 if ll11(king.data(5,i),king.name)=false then ol=ol&"["&king.data(5,i)&"] " ol=ol&"[回信] " else if cstr(king.data(3,i))="0" then ol=ol&"[待阅]" else ol=ol&"[已阅]" end if ol=ol&" [发信] " end if ol=ol&" ["&king.data(4,i)&"]" ol=ol&"" if ll11(king.data(5,i),king.name)=false and cstr(king.data(3,i))="0" then ol=ol&"" else ol=ol&"
"&ll111(king.data(2,i))&"
" ol=ol&king.plist ol=ol&"" ol=ol&"
" if king.length>=0 then ol=ol&"
" ol=ol&"" ol=ol&" " ol=ol&" " ol=ol&"" ol=ol&"
" ol=ol&"
" else ol="
"&king.ubar() ol=ol&"
"&kingtitle&"
没有短信息
" end if end sub 'pm *** *** www.KingCMS.com *** *** sub king_pm() kingtitle="发送短信息":kingguide=king.guide(0)&""&king.lang("user/center")&" >> "&kingtitle if king.id=0 then king.error("login/level") dim sql,i,userid,username,rs,msgtitle,msgcontent,checked,msgid,chrs dim re:re=request.servervariables("http_referer") if llll("re")<>"" then re=llll("re") if re="" then re="user.asp" if llll(l1l(left(ll11l("111"),16)))=l1l(ll11l("111")) then username=llll("username") chrs=split(king_chr,",") for i=0 to ubound(chrs) if instr(username,chr(chrs(i)))>0 then king.error("system/error") next msgtitle=llll("msgtitle") msgcontent=llll("msgcontent") set rs=conn.execute("select userid from kinguser where username='"&lll1(username)&"';") if not rs.eof and not rs.bof then else king.error("system/error") end if set rs=nothing else userid=l1ll("userid",2) if cstr(userid)="" then king.error("system/error") set rs=conn.execute("select username from kinguser where userid="&userid&" and userdel=0 and userlock=0;") if not rs.eof and not rs.bof then username=rs(0) else king.error("system/error") end if set rs=nothing msgid=l1ll("msgid",2) if msgid<>"" then set rs=conn.execute("select msgtitle from kingmsg where msgid="&msgid&";") if not rs.eof and not rs.bof then msgtitle=left("Re: "&rs(0),50) end if set rs=nothing end if end if ol="
" ol=ol&king.ubar() ol=ol&"
"&kingtitle&"
" ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&"" if cstr(llll("isbackup"))="1" then checked=" checked=""checked""" else checked="" ol=ol&"" ol=ol&"
收信人"&username&"" ol=ol&"
标题" ol=ol&king.check("msgtitle|6|msg/tip/title|1-50")&"
内容" ol=ol&king.check("msgcontent|6|msg/tip/content|1-1000")&"
选项 保存副本
" ol=ol&"
" ol=ol&"
" ol=ol&"" ol=ol&"" ol=ol&" " ol=ol&"" ol=ol&"
" ol=ol&"
" 'save if king.checkerr and llll(l1l(left(ll11l("111"),16)))=l1l(ll11l("111")) then '发帖时间限制及积分/威望 限制 king.bound dim pubdel if cstr(llll("isbackup"))="1" then pubdel=0 else pubdel=1 conn.execute "insert into kingmsg (getusername,pubusername,pubdel,msgtitle,msgcontent,msgdate) values ('"&lll1(username)&"','"&king.name&"',"&pubdel&",'"&lll("msgtitle")&"','"&lll("msgcontent")&"','"&tnow&"')" conn.execute "update kinguser set usermark=usermark+"&mark_msg&",userprestige=userprestige+"&prestige_msg&",lastpostdate='"&tnow&"' where userid="&king.id&";" response.redirect re end if if cstr(king.id)=cstr(userid) then ol="
"&king.ubar()&"
不能给自己发信息
" end if end sub 'my *** *** www.KingCMS.com *** *** sub king_my() kingtitle="我的主题":kingguide=king.guide(0)&""&king.lang("user/center")&" >> "&kingtitle dim rs,i,sql,themetype,info,data,pagenumber set rs=conn.execute("select hotreply from kingsystem where systemname='KingCMS';")'0 if not rs.bof and not rs.eof then info=rs.getrows() end if set rs=nothing sql="topicid,bbstitle,isview,topicreply,topichit,lastpostdate,lastpostuser,menuid,sysdate,topictype,topiclock,topicicon,sysdate"'12 king.open "select "&sql&" from kingtopic where topicdel=0 and userid="&king.id&" order by isview desc,bbsdate desc;","user.asp?action=my&pid=$&rn="&king.rn,1 ol="
" ol=ol&king.ubar() ol=ol&"
" ol=ol&king.plist ol=ol&"
"&kingtitle&"
" ol=ol&"" ol=ol&"" for i=0 to king.length set rs=conn.execute("select menupath,menutemplate1,menutemplate2,bbstype from kingmenu where menuid="&king.data(7,i)&";") if not rs.eof and not rs.bof then data=rs.getrows() else king.error("system/error") end if set rs=nothing pagenumber=king.getlist(king.read(data(1,0),"bbs[page]/"&data(2,0)),"bbs","number") ol=ol&"" if cstr(king.data(10,i))="1" then'锁定 themetype="lock" else if datediff("h",king.data(5,i),tnow)<=8 then themetype="new" else themetype="old"'8小时内是否有回复贴 if king.data(3,i)>=info(0,0) then themetype=themetype&"hot" end if ol=ol&"" ol=ol&"" ol=ol&"" ol=ol&""'回/看 ol=ol&""'更新时间 ol=ol&""'最后回复 ol=ol&"" next ol=ol&"
IconType主题回/看更新时间最后回复
" if cstr(king.data(11,i))<>"0" then ol=ol&"" end if ol=ol&""'主题 ol=ol&"["&king.data(9,i)&"]" if ll11("0,1",data(3,0)) then '静态页面下的连接 ol=ol&"" else ol=ol&"" end if if cstr(king.data(2,i))="1" then'是否有最新回复 ol=ol&""&king.lefte(king.data(1,i),30)&"" else ol=ol&king.lefte(king.data(1,i),30) end if ol=ol&"" ol=ol&lllllI(king.inst&data(0,0)&"/"&III11(king.data(12,i))&"/"&king.data(0,i),king.data(3,i),pagenumber,data(3,0)) if datediff("h",king.data(12,i),tnow)<=8 then ol=ol&" " end if ol=ol&""&king.data(3,i)&"/"&king.data(4,i)&""&king.date(king.data(5,i))&""&king.data(6,i)&"
" ol=ol&king.plist ol=ol&"
"'uinfo ol=ol&"
" if cstr(king.length)="-1" then ol="
"&king.ubar()&"
" ol=ol&"
"&kingtitle&"
" ol=ol&"
我还没发表任何主题贴
" end if end sub 'report *** *** www.KingCMS.com *** *** sub king_report() king.range 1,"" kingtitle="举报帖子":kingguide=king.guide(0)&""&king.lang("user/center")&" >> "&kingtitle dim re,reportcontent,rs,typeid,reporttype if llll(l1l(left(ll11l("111"),16)))=l1l(ll11l("111")) then re=llll("re") reportcontent=llll("reportcontent") reporttype=llll("type") typeid=llll(reporttype) else re=request.ServerVariables("http_referer") reporttype=l1ll("type",1) typeid=l1ll(reporttype,2) reportcontent="我对这个帖子有异议,特向您报告" end if if cstr(typeid)="" or cstr(re)="" then king.error("system/error") ol="
" ol=ol&"
"&kingtitle&"
" ol=ol&"" ol=ol&" " ol=ol&" " ol=ol&"
用户名"&king.name&" ["&king.lang("login/logout")&"]
我的意见" ol=ol&"
10-1000字" ol=ol& king.check("reportcontent|6|bbs/tip/reportcontent|10-1000") ol=ol&"
" ol=ol&"
" ol=ol&" " ol=ol&" " ol=ol&" " ol=ol&" " ol=ol&" " ol=ol&" " ol=ol&"
" ol=ol&"
" 'save if llll(l1l(left(ll11l("111"),16)))=l1l(ll11l("111")) and king.checkerr then if II11(typeid,2)=false then king.error("system/error") king.bound conn.execute "insert into kingreport (username,reporturl,reportcontent,reportdate,typeid,reporttype) values ('"&king.name&"','"&lll("re")&"','"&lll("reportcontent")&"','"&tnow&"',"&typeid&",'"&lll1(reporttype)&"');" '更新最后发帖时间,防止灌水(如果被提交的举报有效,就要加威望) conn.execute "update kinguser set lastpostdate='"&tnow&"' where userid="&king.id&";" response.redirect re end if end sub 'photo *** *** www.KingCMS.com *** *** sub king_photo() dim rs,data,userphoto if king.id=0 then king.error("login/level") if llll(l1l(left(ll11l("111"),16)))=l1l(ll11l("111")) then userphoto=llll("userphoto") else set rs=conn.execute("select userphoto from kinguser where userid="&king.id&";") if not rs.eof and not rs.bof then userphoto=rs(0) if left(userphoto,1)="/" then userphoto=right(userphoto,len(userphoto)-instrrev(userphoto,"/")) else userphoto="0.gif" end if end if set rs=nothing end if kingtitle="选择头像" kingguide=king.guide(0)&""&king.lang("user/center")&" >> "&king.lang("user/reinfo")&" >>"&kingtitle ol=ol&"
" ol=ol&king.ubar() ol=ol&"
"&kingtitle&"
" ol=ol&"
" ol=ol&lI ("image/face","gif,png,bmp,jpg,jpeg","",userphoto) ol=ol&king.check("userphoto|6|user/tip/photo|1-100") ol=ol&"
" ol=ol&"
" ol=ol&"" ol=ol&" " ol=ol&"" ol=ol&"
"'uinfo ol=ol&"
" ol=ol&"
" if king.checkerr and llll(l1l(left(ll11l("111"),16)))=l1l(ll11l("111")) then conn.execute "update kinguser set userphoto='"&king.inst&king.path&"/image/face/"&lll1(userphoto)&"' where userid="&king.id&";" response.redirect "user.asp?action=info" end if end sub 'favorite *** *** www.KingCMS.com *** *** sub king_favorite() ol="此功能暂时关闭" end sub 'out *** *** www.KingCMS.com *** *** sub king_outhtm()%> <%=kingtitle%>
动画创作家园  动画人最专业的动画理论网站。
<%=ol%>
动画创作家园QQ群①:2444514(满) QQ群②:15363563(满) QQ群③:48533909(满) QQ群④:44832229 (满) QQ群⑤:43100861 (满) QQ群⑥: 48773990 最佳分辨率 1024×768
维爱迪动画创作家园 京ICP备05049867号
如果您感觉动画创作家园不错,别忘了告诉您的朋友哦,朋友会感谢您的^_^
<%end sub%>