28,406
社区成员
发帖
与我相关
我的任务
分享语句未结束
Microsoft VBScript 编译器错误 错误 '800a0401'
语句未结束
/conn.asp，行 19
mm="response.cookies("joger_cook_1533").path = Cookiepath cookies_user = request.cookies("joger_cook_1533")("user") cookies_time = request.cookies("joger_cook_1533")("time") response.cookies("joger_cook_1752").path = cookiepath cookies_aduser = request.cookies("joger_cook_1752")("user") cookies_adtime = request.cookies("joger_cook_1752")("time") if instr(request.servervariables("server_name"),"121.11.158.176")>0 then else response.redirect "http://anyederen.air3.cn" end if set rs=server.createobject("adodb.recordset") sql = "select * from [system]" rs.open sql,conn,1,1 webname = rs("webname") weburl = rs("weburl") webkeywords = rs("webkeywords") webdescription = rs("webdescription") webjingshi = rs("webjingshi") webqq = rs("webqq") webtel = rs("webtel") webbeian = rs("webbeian") webtianqi = rs("webtianqi") webtishi = rs("webtishi") rs.close set rs = nothing function saferequest(paraname,paratype) dim paravalue paravalue = paraname if paratype = 1 then if not isnumeric(paravalue) then response.end end if else paravalue = replace(paravalue,"'","''") end if saferequest = paravalue end function private function converttowordarray(smessage) dim lmessagelength dim lnumberofwords dim lwordarray() dim lbyteposition dim lbytecount dim lwordcount const modulus_bits = 512 const congruent_bits = 448 lmessagelength = len(smessage) lnumberofwords = (((lmessagelength + ((modulus_bits - congruent_bits) \ bits_to_a_byte)) \ (modulus_bits \ bits_to_a_byte)) + 1) * (modulus_bits \ bits_to_a_word) redim lwordarray(lnumberofwords - 1) lbyteposition = 0 lbytecount = 0 do until lbytecount >= lmessagelength lwordcount = lbytecount \ bytes_to_a_word lbyteposition = (lbytecount mod bytes_to_a_word) * bits_to_a_byte lwordarray(lwordcount) = lwordarray(lwordcount) or lshift(asc(mid(smessage, lbytecount + 1, 1)), lbyteposition) lbytecount = lbytecount + 1 loop lwordcount = lbytecount \ bytes_to_a_word lbyteposition = (lbytecount mod bytes_to_a_word) * bits_to_a_byte lwordarray(lwordcount) = lwordarray(lwordcount) or lshift(&h80, lbyteposition) lwordarray(lnumberofwords - 2) = lshift(lmessagelength, 3) lwordarray(lnumberofwords - 1) = rshift(lmessagelength, 29) converttowordarray = lwordarray end function"
----------------------^
19行代码response.cachecontrol = "no-cache"
语句未结束
/conn.asp，行 19
mm="response.cookies("joger_cook_1533").path = Cookiepath cookies_user = request.cookies("joger_cook_1533")("user") cookies_time = request.cookies("joger_cook_1533")("time") response.cookies("joger_cook_1752").path = cookiepath cookies_aduser = request.cookies("joger_cook_1752")("user") cookies_adtime = request.cookies("joger_cook_1752")("time") if instr(request.servervariables("server_name"),"121.11.158.176")>0 then else response.redirect "http://anyederen.air3.cn" end if set rs=server.createobject("adodb.recordset") sql = "select * from [system]" rs.open sql,conn,1,1 webname = rs("webname") weburl = rs("weburl") webkeywords = rs("webkeywords") webdescription = rs("webdescription") webjingshi = rs("webjingshi") webqq = rs("webqq") webtel = rs("webtel") webbeian = rs("webbeian") webtianqi = rs("webtianqi") webtishi = rs("webtishi") rs.close set rs = nothing function saferequest(paraname,paratype) dim paravalue paravalue = paraname if paratype = 1 then if not isnumeric(paravalue) then response.end end if else paravalue = replace(paravalue,"'","''") end if saferequest = paravalue end function private function converttowordarray(smessage) dim lmessagelength dim lnumberofwords dim lwordarray() dim lbyteposition dim lbytecount dim lwordcount const modulus_bits = 512 const congruent_bits = 448 lmessagelength = len(smessage) lnumberofwords = (((lmessagelength + ((modulus_bits - congruent_bits) \ bits_to_a_byte)) \ (modulus_bits \ bits_to_a_byte)) + 1) * (modulus_bits \ bits_to_a_word) redim lwordarray(lnumberofwords - 1) lbyteposition = 0 lbytecount = 0 do until lbytecount >= lmessagelength lwordcount = lbytecount \ bytes_to_a_word lbyteposition = (lbytecount mod bytes_to_a_word) * bits_to_a_byte lwordarray(lwordcount) = lwordarray(lwordcount) or lshift(asc(mid(smessage, lbytecount + 1, 1)), lbyteposition) lbytecount = lbytecount + 1 loop lwordcount = lbytecount \ bytes_to_a_word lbyteposition = (lbytecount mod bytes_to_a_word) * bits_to_a_byte lwordarray(lwordcount) = lwordarray(lwordcount) or lshift(&h80, lbyteposition) lwordarray(lnumberofwords - 2) = lshift(lmessagelength, 3) lwordarray(lnumberofwords - 1) = rshift(lmessagelength, 29) converttowordarray = lwordarray end function"
----------------------^
19行代码response.cachecontrol = "no-cache"
...全文
