
<!-- #include file="../Conn.asp" -->
<%
    
   
sub Error(erstr)
  conn.close
  set conn=Nothing
  Response.write erstr & chr(13)
  Response.write "<br/><anchor><prev/>返回</anchor>" & chr(13)
  Response.write "</p></card></wml>"
  Response.end
end sub
'统一时间
Function fordate(riqi)
if IsDate(riqi) = True then
   fordate =""
  fordate = fordate&month(riqi) & "-"
  if day(riqi) < 10 then
  fordate = fordate&"0"
  end if
  fordate = fordate&day(riqi)&" "
  if Hour(riqi) < 10 then
  fordate = fordate&"0"
  end if
  fordate = fordate&Hour(riqi)&":"

  if Minute(riqi) < 10 then
  fordate = fordate&"0"
  end if
  fordate = fordate&Minute(riqi)
end if
End Function
'英文检查
function Ifhttp(str)
dim ht
Ifhttp = 0
for ht=1 to len(str)
  If instr("(=)0123456789",mid(str,ht,1)) = 0 then
  Ifhttp = Ifhttp + 1
  end if
next
end function
function format(txt)
if txt="nof" then
format="禁止发表贴子"
elseif txt="f" then
format="允许发表贴子"

elseif txt="noh" then
format="禁止回复贴子"
elseif txt="h" then
format="允许回复贴子"

elseif txt="nox" then
format="禁止使用信箱"
elseif txt="x" then
format="允许使用信箱"

elseif txt="nol" then
format="禁止使用聊天室"
elseif txt="l" then
format="允许使用聊天室"

elseif txt="noj" then
format="加黑用户"
elseif txt="j" then
format="解黑用户"

elseif txt="lock" then
format="全区加黑用户"
elseif txt="nolock" then
format="全区解黑用户"

else
format=txt
end if
end function
%>