锘?!--#include file="../lib/base.asp"--> <% ''' SDCMS 鐣欒█ ''' ================================================================== ''' 鐗堟潈鎵鏈?http://www.sdcms.cn ''' ------------------------------------------------------------------ ''' 榪欎笉鏄竴涓嚜鐢辮蔣浠訛紒鎮ㄥ彧鑳藉湪涓嶇敤浜庡晢涓氱洰鐨勭殑鍓嶆彁涓嬪紼嬪簭浠g爜榪涜淇敼鍜屼嬌鐢紱 ''' 鏈粡鎺堟潈涓嶅厑璁稿紼嬪簭浠g爜浠ヤ換浣曞艦寮忎換浣曠洰鐨勭殑鍐嶅彂甯冦? ''' ================================================================== ''' 緙栧啓: IT騫蟲皯 ''' 淇敼錛欼T騫蟲皯 in 2012.07 dim act:act=sdcms.fget("act",0) select case act case "islogin":userstaus case "add":adddb case else dim config:config=eval(sdcms.getsys("expand.book")) if not(config(0)) then sdcms.echo "未开启留言" sdcms.die end if sdcms.show theme_book,"" end select sdcms.db.dbclose sub userstaus() if sdcms.is_login then dim userdata:userdata=sdcms.userinfo sdcms.echo " (鍖垮悕鍙戣〃)" else sdcms.echo " (鐧婚檰鍙戣〃)" end if end sub sub adddb() dim t0,t1,t2,t3,t4 t0=sdcms.enhtml(sdcms.fpost("t0",0)) t1=sdcms.enhtml(sdcms.fpost("t1",0)) t2=sdcms.enhtml(sdcms.fpost("t2",0)) t3=sdcms.getint(sdcms.fpost("t3",0),0) t4=sdcms.enhtml(sdcms.fpost("t4",0)) dim config:config=eval(sdcms.getsys("expand.book")) if not(config(0)) then sdcms.echo "0未开启留言" exit sub end if dim f,passnum if config(1) then f=1 passnum=0 else f=2 passnum=1 end if if not(sdcms.checkpost) then sdcms.echo "0禁止外部提交数据" exit sub end if if sdcms.strlen(t0)=0 then sdcms.echo "0昵称不能为空" exit sub end if if sdcms.strlen(t1)=0 then sdcms.echo "0留言内容不能为空" exit sub end if if sdcms.strlen(t1)=0 then sdcms.echo "0留言内容至少输入5个字符" exit sub end if if sdcms.strlen(t4)=0 then sdcms.echo "0验证码不能为空" exit sub end if if sdcms.loadsession("imgcode")="" then sdcms.echo "0系统验证码错误,请点击刷新" exit sub end if if sdcms.loadsession("imgcode")<>t4 then sdcms.echo "0验证码错误" exit sub end if if sdcms.loadcookie("book_add")<>"" then if int(datediff("s",sdcms.loadcookie("book_add"),now()))<=60 then sdcms.echo "0请勿重复提交":exit sub end if end if dim userid,avatar userid=0 avatar=0 if sdcms.is_login then dim userdata:userdata=sdcms.userinfo userid=userdata(0) avatar=userdata(12) if t0<>userdata(1) then t0=userdata(1) end if end if dim data data=array(array("username",t0,20,1),array("content",t1,255,1),array("tel",t2,20,1),array("sex",t3,1,1),array("userid",userid,0,0),array("avatar",avatar,0,0),array("createdate",sqltime,0,0),array("islock",passnum,0,0),array("postip",sdcms.getip,0,1)) sdcms.db.insert "sd_expand_book",data dim body:body="" dim title:title="鎮ㄦ湁涓鏉℃柊鐣欒█(鏉ヨ嚜緗戠珯)" body=body&"鏄點縐幫細"&t0 body=body&"
鐢點璇濓細"&t2 dim sex select case t3 case "0":sex="淇濆瘑" case "1":sex="鐢? case "2":sex="濂? end select body=body&"
鎬с鍒細"&sex body=body&"
鏃ャ鏈燂細"&now() body=body&"
鍐呫瀹癸細"&t1 sdcms.sendmail sdcms.getsys("adminemail"),title,body sdcms.echo f&"提交成功,我们会尽快给您回复,谢谢!" sdcms.setcookie "book_add",now() end sub %> 日本tubesex人妻系列www,jizz大全日本护士喷奶水,69 hd xxxx中国