WooYun.org

sub reporterr()
	dim g_vid,g_name,g_content,g_audit,g_ip,g_time
	g_vid = be("post","g_vid") : g_vid = chkSql(g_vid, True)
	g_name = be("post","g_name") : g_name = chkSql(g_name, True)
	g_content = be("post","g_content") : g_content = chkSql(g_content, True)
	if not isNum(g_vid) then alert "请填写正确参数" : exit sub
	if len(g_name) > 64 then g_name = left(g_name,64)
	if len(g_content) > 255 then g_content = left(g_content,255)
	if app_gbookaudit=1 then g_audit=0 else g_audit=1
	g_ip = getIP()
    g_time = Now()
    If getTimeSpan("lastreportErrTime") < app_gbooktime Then alert "请稍后再试": Exit Sub
    
	objdb.add "{pre}gbook", Array("g_vid","g_audit","g_name", "g_ip", "g_time", "g_content"), Array(g_vid, g_audit, g_name, g_ip, g_time, g_content)
	Session("lastreportErrTime") = Now
	writeA "报错成功,多谢支持!<script>setTimeout(""window.close()"",1000)</script>"
end sub

function getIP()
	dim x, y
	x = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
	y = Request.ServerVariables("REMOTE_ADDR")
	if(isN(x) or lCase(x)="unknown") then getIP=y else getIP=x
	if instr(getIP,".")=0 then getIP = "0.0.0.0"
end function