<!--#include file="setting/conn.asp"--><%:Select Case SoonBiz.ract:Case "checkusername" : checkusername :Case "checknickname" : checknickname :Case "login" : login :Case "dologin" : dologin:Case "savecomman" : savecomman :End Select:Sub checkusername():Dim sql:Dim tempuserinfo:Dim rs
If DateDiff("s", SoonBiz.User_stime, Now()) < 1 Then
Response.Write "请稍后再检测":Response.end
Else:tempuserinfo=Split(session(CacheName & "user_id"), "|||"):tempuserinfo(10)=Now():session(CacheName & "user_id")=Join(tempuserinfo, "|||")
End If:Dim user_name:user_name=SoonBiz.RequestStr("用户名","user_name","get",1,1,16,40,1)
If len(Errmsg)>0 Then
Response.Write "<img src='images/check_error.gif' />":Response.end
End If:sql="select id from "& sheethead &"_user where user_name='"& SoonBiz.Checkstr(user_name) &"'":Set rs=SoonBiz.Execute(sql)
If rs.eof Then
Response.Write "<img src='images/check_right.gif' />"
Else:Response.Write "<img src='images/check_error.gif' />"
End If:rs.close:Set rs=Nothing:End Sub:Sub checknickname():Dim tempuserinfo:Dim rs,sql
If DateDiff("s", SoonBiz.User_stime, Now()) < 1 Then'eachherare:before:outmightbethenmanybothour:howhis/:in
Response.Write "请稍后再检测":Response.end
Else:tempuserinfo=Split(session(CacheName & "user_id"), "|||"):tempuserinfo(10)=Now():session(CacheName & "user_id")=Join(tempuserinfo, "|||")
End If:Dim user_nickname:user_nickname=SoonBiz.RequestStr("用户名","user_nickname","get",1,1,16,40,1)
If len(Errmsg)>0 Then
Response.Write "<img src='images/check_error.gif' />":Response.end
End If:sql="select id from "& sheethead &"_user where user_nickname='"& SoonBiz.Checkstr(user_nickname) &"'":Set rs=SoonBiz.Execute(sql)':=has'get).theseinhebeentakeout"how:^:'
If rs.eof Then
Response.Write "<img src='images/check_right.gif' />"
Else:Response.Write "<img src='images/check_error.gif' />"
End If:rs.close:Set rs=Nothing:End Sub:Sub login():SoonBiz.title="登录"& Trim(Request.QueryString("title")) &"的个人博客":SoonBiz.topplus="<link rel=""stylesheet"" rev=""stylesheet"" href=""css/wedonet3.css"" type=""text/css"" media=""all"" />":SoonBiz.adhead:Response.Write "<div class=""msgbox"">":Response.Write "<h1>请输入"& Trim(Request.QueryString("title")) &"个人博客密码</h1>":Response.Write "<form method=""post"" action=""?act=dologin&uid="& Trim(Request.QueryString("uid")) &""">":Response.Write "<div style='padding:5px;'><input type=""password"" name=""blogpass"" /> <input type=""submit"" value=""提交"" /></div>":Response.Write "</form>":Response.Write "</div>":SoonBiz.adfoot:End Sub:Sub dologin():Dim uid,blogpass,sql,rs:uid=SoonBiz.rid("uid"):blogpass=SoonBiz.RequestStr("密码","blogpass","post",1,2,16,40,1):ShowErr(""):sql="select blogpass from "& sheethead &"_blog where uid="&uid:Set rs=SoonBiz.Execute(sql)
If rs.eof Then
ShowErr("您查找的博客不存在")'andmust::]canan:(is:after):muchthey~them:
Else
If blogpass<>rs("blogpass") Then
rs.close:Set rs=Nothing:ShowErr("密码错误"):Response.end
End If
End If:session("b_"&uid)=1:Response.Redirect "myblog.asp?b="&uid:End Sub:Sub savecomman() :SoonBiz.chkcls("reply"):Dim mynickname,content:Dim sql:Dim blogid :Dim thisfield(11),thisvalue(11):blogid=SoonBiz.rid("blogid") 
If blogid<1 Then blogid=0'likecomemake'butbeingshouldthere%our'could|:ofsaid"nowstill
SoonBiz.codeistrue:content=SoonBiz.Requeststr("评论内容","content","post",1,2,255,20,1):mynickname=SoonBiz.RequestStr("昵称","nickname","post",1,2,20,20,1):ShowErr(""):thisfield(0)="cid" : thisvalue(0)=cid:thisfield(1)="uid" : thisvalue(1)=SoonBiz.user_id :thisfield(2)="nickname": thisvalue(2)="'"& SoonBiz.user_nickname &"'":thisfield(3)="bid" : thisvalue(3)=id:thisfield(4)="content" : thisvalue(4)="'"& SoonBiz.Checkstr(content) &"'":thisfield(5)="stime" : thisvalue(5)=soonbizcom:thisfield(6)="ip" : thisvalue(6)="'"&SoonBiz.usertrueip&"'":thisfield(7)="isdel" : thisvalue(7)=0:thisfield(8)="ispass" : thisvalue(8)=SoonBiz.reispass:thisfield(9)="blogid" : thisvalue(9)=blogid:thisfield(10)="classid" : thisvalue(10)=classid:thisfield(11)="myclassid" : thisvalue(11)=SoonBiz.rid("myclassid"):sql="insert into "& sheethead &"_comman ("& join(thisfield,",") &") values ("& join(thisvalue,",") &")":SoonBiz.execute(sql):SoonBiz.execute("update "& sheethead &"_article set coms=coms+1 where id="&id):session("codestr")="" :sucmsg="<li>发表成功</li>"
If SoonBiz.reispass=0 Then 
sucmsg=sucmsg&"<li>正在等待管理员审核</li>"
Else :SoonBiz.Delxml SoonBiz.Getxn("read",cid,classid,id,topicid,0)
If cid=6 Then SoonBiz.DelBlogCache(blogid)
End If:SoonBiz.adsuccess(sucmsg):End Sub
%>