Kyocera 1125MFP не сканирует

@lardi · Регистрация: 23.11.2008

Author24 — интернет-сервис помощи студентам

Вот код что получился

Visual Basic

<%
  Set SV = Request.ServerVariables
  Set QS = Request.QueryString
 
  If CBool(QS("upload")) Then
    cBinary = Request.BinaryRead(Request.TotalBytes)
    Set oRS = CreateObject("ADODB.Recordset")
    oRS.Fields.Append "file",129,LenB(cBinary),128
    oRS.Open
    oRS.AddNew
    oRS(0).AppendChunk cBinary
 
    aVars = Split(oRS(0),"--" & Split(SV("CONTENT_TYPE"),"=",2)(1))
 
    Set oRE = New RegExp
    oRE.Pattern = "name=''(.+?)''"
 
    Set oVars = CreateObject("Scripting.Dictionary")
 
    For nVar = LBound(aVars) + 1 To UBound(aVars) - 1
      aVar = Split(aVars(nVar),vbCrLf & vbCrLf,2)
 
oVars(oRE.Execute(aVar(0))(0).Submatches(0)) = Left(aVar(1),Len(aVar(1))-2)
    Next
 
for each cVar In oVars
     '--- check for doc
   if not (split(cVar,".")(1)="doc") then      
    strError="File " & cVar & " not in word"
     response.redirect "ErrorPage.asp?strError=" & strError
     response.end
   end if
     set oFS=CreateObject("Scripting.FileSystemObject")
     '--- check if file already exists
     if oFS.FileExists(Server.MapPath(".") & "/" & cVar) then
      strError="File " & cVar & " already exists"
      response.redirect "ErrorPage.asp?strError=" & strError
      response.end
     end if
     set oTS=oFS.OpenTextFile(Server.MapPath(".") & "/" & cVar,2,True)
     oTS.Write oVars(cVar)
     oTS.Close
 
     response.redirect "SuccessPage.asp?fileName=" & cVar
     response.end
   next
 
  End If
%>

Javascript

<script language='Javascript'>
function onSubmit()
{
 document.all['file'].name=document.all['file'].value.split('\ ')[document.all['file'].value.split('\ ').length-1];
 
}
</script>
<form action='test.asp?upload=true'  method='post' enctype='multipart/form-data' name='formUpload'>
<input type='file' id='file' name='file1' size='50'>
<input type='submit'>
</form>

Visual Basic

1	if not (split(cVar,".")(1)="doc") then

Выдает ошибку так как cVar не содержит точки соответственно его не разобьешь, там значение file1

@lardi · 15.12.2008, 17:30 **[ТС]**

Большоу спасибо!
У меня получилось.
Все работает!

@TwilightVicious · 15.01.2013, 17:25

В общем нигде нет пункта сканировать. Принтер был подключен сразу по сети и нормально встали дрова, НО! только на печать и факс, а так же программа Client Tools. Пункта сканера нигде нет. При установке дров через Product library сканер не ставится. При попытке установить WIA или Twain драйвера - либо их не устанавливает либо ругается типа установите сканер через программу.

Добавлено через 1 час 29 минут
Самое интересное нет никаких возможностей выбрать что либо в адресной книге при выборе режима Сканировать. Адресная книга активна только при Факсе. При Сканировать практически ничего кроме кнопки Старт не активно.

@lardi 0 / 0 / 1 Регистрация: 23.11.2008 Сообщений: 90
	15.12.2008, 17:30 [ТС]	2
	Большоу спасибо! У меня получилось. Все работает! 0

@TwilightVicious 0 / 0 / 0 Регистрация: 13.05.2011 Сообщений: 20
	15.01.2013, 17:25	3
	В общем нигде нет пункта сканировать. Принтер был подключен сразу по сети и нормально встали дрова, НО! только на печать и факс, а так же программа Client Tools. Пункта сканера нигде нет. При установке дров через Product library сканер не ставится. При попытке установить WIA или Twain драйвера - либо их не устанавливает либо ругается типа установите сканер через программу. Добавлено через 1 час 29 минут Самое интересное нет никаких возможностей выбрать что либо в адресной книге при выборе режима Сканировать. Адресная книга активна только при Факсе. При Сканировать практически ничего кроме кнопки Старт не активно. 0