<%@Language="VBSCRIPT"%> <% On Error Resume Next Response.Clear Dim objError Set objError = Server.GetLastError() p_ip = request.ServerVariables("REMOTE_ADDR") hurl = request.ServerVariables("HTTP_HOST") If Len(CStr(objError.ASPCode)) > 0 Then p_aspcode = replace(objError.ASPCode,"'","''") 'IIS Error Number else p_aspcode = "" end if If Len(CStr(objError.Number)) > 0 Then p_number = replace(objError.Number & " (0x" & Hex(objError.Number) & ")","'","''") 'COM Error Number else p_number = "" end if If Len(CStr(objError.Source)) > 0 Then p_source = replace(objError.Source,"'","''") 'Error Source else p_source = "" end if If Len(CStr(objError.File)) > 0 Then p_file = replace(objError.File,"'","''") 'File Name else p_file = "" end if If Len(CStr(objError.Line)) > 0 Then p_line = replace(objError.Line,"'","''") 'Line Number else p_line = "" end if If Len(CStr(objError.Description)) > 0 Then p_desc = replace(objError.Description,"'","''") 'Brief Description else p_desc = "" end if If Len(CStr(objError.ASPDescription)) > 0 Then p_desc2 = replace(objError.ASPDescription,"'","''") 'Full Description else p_desc2 = "" end if 'response.write objError. %> <% 'DBÀÔ·Â.. set dbcon=server.createobject("adodb.connection") dbcon.commandTimeout = 600 '600ÃÊ dbcon.ConnectionTimeout = 600 '600ÃÊ dbcon.connectionstring = Application.value("DSN_92") dbcon.open param = request.querystring & request.form param = Replace(param, "'", "''") set rs = server.createobject("adodb.recordset") sql = "exec PRB2BWEBERRORLOG '"&deptcode&"','"&usercode&"', '"&p_aspcode&"', '"&p_number&"', '"&p_source&"', '"&p_file&"', '"&p_line&"', '"&p_desc&"', '"&p_desc2&"', '" & hurl & "','"&p_ip&"','" & param & "'" rs.open sql, dbcon, 0 p_cnt = rs(0) rs.close set rs = nothing 'response.write p_cnt response.write "error. ÀÌ¿ë¿¡ ºÒÆíÀ» µå·Á ´ë´ÜÈ÷ Á˼ÛÇÕ´Ï´Ù." %>