<!--#include file="../conn.asp"-->
<%
call FTBBS_HTML_MB
getcodeoff=Application("FTBBSMB")(30,0)
Function yzmgetcode()
	dim tmpstr
	Randomize
	tempstr=cstr(Int(900000*rnd)+100000)
	yzmgetcode = "&nbsp;<img align=absmiddle src=inc/ftbbscode.asp?s="&tempstr&" style=cursor:hand; onclick=this.src='inc/ftbbscode.asp?s="&tempstr&"'; alt=看不清?点一下 id=ftbbscodeimg /><input type=hidden name=codename value="&tempstr&" />"
End Function
If getcodeoff=1 Then
yzmcode=yzmgetcode	  
yzm="<TR class=td005>" 
yzm=yzm+ "<TD width=20% > <div align=right>验 证 码：</div></TD>"
yzm=yzm+ "<TD width=80% valign=middle>"
yzm=yzm+ "<input name=codestr id=codestr type=text size=10 maxlength=4>" &yzmcode &" 看不清楚请点击<a href='' onClick='javascript:window.location.reload();'>刷新本页</a>重新分配</TD>"
yzm=yzm+ "</TR>"  
Response.Write "document.write ("""&yzm&""");"
end if
closedb
%>