If Trim(Request.Form("validatecode"))=Empty Or Trim(Session("cnbruce.com_ValidateCode"))<>Trim(Request.Form("validatecode")) Then
response.write("<script language=javascript> alert('"&lang(3)&"');history.back(-1);</script>")
response.end
end if
改成
if len(trim(request.Form("huida"))) < 1 then
response.write ("<script language=javascript> alert('"&lang(3)&"');history.back(-1);</script>")
response.end
end if
Dim postgo : postgo = trim(request.Form("wenti")) & "=" & trim(request.Form("huida"))
if instr(problemcode,postgo) < 1 then
response.write("<script language=javascript> alert('回答出错啦!');history.back(-1);</script>")
response.end
end if
找到
function Book(a)
Book = replace(a,"{yidacms:book}",tBook())
end function
改成
function Book(a)
a = replace(a,"{yidacms:book}",tBook())
a = replace(a,"{Yidacms:codeshow}",showcode)
Book = a
end function