<%
If Not BBS94KK.Founduser Then BBS94KK.GoToErr(10)
Dim Rs
Set Rs=BBS94KK.Execute("select lock,locktime,zxtime from [kk_user] where name='"&bbs94kk.myname&"' and lock=True")
If Not Rs.eof then
If Rs("locktime")+Rs("zxtime")<=date then
BBS94KK.Execute("Update KK_User Set lock=false where name='"&BBS94kk.MyName&"'")
Else
BBS94KK.Head("大埔监狱")
%>
<center><br><br><b>你已经被关进大埔监狱！！！所以只能浏览帖子，不能正常回复和发帖子！！！！ </b><br><br><a href='prison.asp'><font color=#FF0000>去大埔监狱看看是为什么吧！！</font></a><br><br><br></center>
<%BBS94KK.Footer()
Rs.close
Set Rs=nothing
Response.end
end if
end if
%>