val_code.asp

来自「漂亮的企业网站系统v11 1、整体修改了上一版的一些BUG。 2、修改了」· ASP 代码 · 共 25 行

<%
function val_code(vts)
  dim vt,valcode:vt="v"&vts
  select case vt
  case "v2"
    valcode=request.cookies(web_cookies)("val_code")
    valcode=right(valcode,len(valcode)-2)
    val_code="<table border=0 cellspacing=0 cellpadding=0>" & _
	     "<tr><td><input type=text name=valcode size=15 maxlength=10>"&redx&"</td><td>" & _
	     "  <table cellspacing=1 cellpadding=1 class=table><tr><td class=bg_2>&nbsp;"&valcode&"&nbsp;</td></tr></table>" & _
	     "</td></tr></table>"
  case "v3"
    val_code="yes"
    valcode="jk"&trim(request.form("valcode"))
    if valcode<>request.cookies(web_cookies)("val_code") or len(valcode)<1 then val_code="no"
    response.cookies(web_cookies)("val_code")=rand_num(6)
    call cookies_yes()
  case else
    valcode=rand_num(6)
    response.cookies(web_cookies)("val_code")="jk"&valcode
    call cookies_yes()
    val_code=""
  end select
end function
%>