<% Dim tempCode, pathFolder, Fso, objFolder, objFileNames, Filename, PERCENT, Title Dim ip Title = "" ip = trim(Request.ServerVariables("REMOTE_ADDR")) 'Response.write ip tempCode = Right(PROJECTCODE, Len(PROJECTCODE)-1) pathFolder = "D:\Web_Survey\survey\20" & Mid(tempCode, 1, 2) & "\" & Mid(tempCode, 3, 2) & "\" & PROJECTCODE 'Response.write pathFolder 'Response.end Set Fso = Server.CreateObject("Scripting.FileSystemObject") If SURVEYTYPE = "2" Then Title = SURVEYTITLE Else Title = "소비자 의견 조사" End if %>
<%=Title%>
<%if ip = "125.131.26.200" or ip = "10.1.1.254" then%> <%if Request("ResType") = "TEST" then%>
선택
<% Set objFolder = Fso.GetFolder(pathFolder) Set objFileNames = objFolder.Files If objFileNames.Count <> 0 Then For Each Filename in objFileNames Select Case Filename.name Case "CloseCheck.asp", "Dial.asp", "DINY.asp", "IIVariable.asp", "Login.asp", "Login.html", "LotteInfo.asp", "MAIN.asp", "Page.asp", "PageInfo.asp", "PageMedia.asp", "PageNew.asp", "Survey.asp", "SurveyT.asp", "Survey_Wait.asp", "TRadio.asp", "Upload.asp", "UploadBase64.asp", "mailform.asp", "filename.asp", "next.asp", ProjectCode & "_Upload.asp", ProjectCode & "_uploadend.asp", ProjectCode & "_uploadfile.asp", "Media_Out.asp", "Survey_Error.asp", "Survey_OutBound_Sender.asp", "Survey_Prev_Response.asp", "URLError.asp", "Index.asp" Case Else if Instr(Filename.name, ".asp") > 0 then %>
"><%=InFile(pathFolder, Filename.name)%>
<% End if End Select Next %> <%End if%>
<%End if%> <%End if%>
<% Dim pageName, pageUrl Dim RES, SQL pageUrl = request.ServerVariables("url") pageName = Mid(pageUrl, inStrRev(pageUrl, "/")+1) Select Case pageName Case "CloseCheck.asp", "Dial.asp", "DINY.asp", "IIVariable.asp", "Login.asp", "Login.html", "LotteInfo.asp", "MAIN.asp", "Page.asp", "PageInfo.asp", "PageMedia.asp", "PageNew.asp", "Survey.asp", "SurveyT.asp", "Survey_Wait.asp", "TRadio.asp", "Upload.asp", "UploadBase64.asp", "mailform.asp", "filename.asp", "next.asp", ProjectCode & "_Upload.asp", ProjectCode & "_uploadend.asp", ProjectCode & "_uploadfile.asp", "Media_Out.asp", "Survey_Error.asp", "Survey_OutBound_Sender.asp", "Survey_Prev_Response.asp", "URLError.asp", "Quota_Out.asp", "Survey_Close.asp", "Survey_End.asp", "Survey_Error.asp", "Survey_Out.asp", "Survey_OutBound_Sender.asp", "Survey_Prev_Response.asp", "TEST_Survey_Out.asp", "URLError.asp" PERCENT = FORMATNUMBER(100,0) Case Else SQL = "Select Count From ProgressCount Where ProjectCode='" & ProjectCode & "' and Variable='" & replace(pageName, ".asp", "") & "'" DBConnect() Set RES = Server.Createobject("ADODB.Recordset") RES.Open SQL,DBconn If RES.BOF or RES.EOF Then PERCENT = 0 Else PERCENT = RES("Count") End if RES.Close() End Select Dim isShowText isShowText = true %>
<%if isShowText then%> <%=PERCENT%>% <%end if%>
공문내용 / 공지내용 / 면접원 응대 내용