Logo Море(!) аналитической информации!
IT-консалтинг Software Engineering Программирование СУБД Безопасность Internet Сети Операционные системы Hardware
Архив форумов ЦИТФорума
Море(!) вопросов - Море(!) ответов
 
 FAQFAQ   ПоискПоиск   ПользователиПользователи   ГруппыГруппы   РегистрацияРегистрация 
 ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 
Как правильно задавать вопросы

А можно ли?

 
Перейти:  
Этот форум закрыт, вы не можете писать новые сообщения и редактировать старые.   Эта тема закрыта, вы не можете писать ответы и редактировать сообщения.    Список форумов Архив форумов ЦИТФорума -> Windows
Предыдущая тема :: Следующая тема  
Автор Сообщение
neosee75



Зарегистрирован: 04.02.2006
Сообщения: 76

СообщениеДобавлено: Сб Дек 13 2008 13:51    Заголовок сообщения: А можно ли? Ответить с цитатой

Здравствуйте!
Написана форма для веб-сервера IIS 6. Как сделать так, чтобы не надо было нажимать кнопочку на форме???
Код такой:

<%

On Error Resume Next
Session("FP_OldCodePage") = Session.CodePage
Session("FP_OldLCID") = Session.LCID
Session.CodePage = 1251
Err.Clear

strErrorUrl = "../../../../../r.e"

If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
If Request.Form("VTI-GROUP") = "0" Then
Err.Clear

Set fp_conn = Server.CreateObject("ADODB.Connection")
FP_DumpError strErrorUrl, "Не удается создать соединение"

Set fp_rs = Server.CreateObject("ADODB.Recordset")
FP_DumpError strErrorUrl, "Не удается создать набор записей"

fp_conn.Open Application("AllUsersEdit_ConnectionString")
FP_DumpError strErrorUrl, "Не удается открыть базу данных"

fp_rs.Open "Reg1", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable
FP_DumpError strErrorUrl, "Не удается открыть набор записей"

fp_rs.AddNew
FP_DumpError strErrorUrl, "Не удается добавить в базу данных новый набор записей"
Dim arFormFields0(1)
Dim arFormDBFields0(1)
Dim arFormValues0(1)

arFormFields0(0) = "TimeEnd1"
arFormDBFields0(0) = "TimeEnd1"
arFormValues0(0) = Request("TimeEnd1")

FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0

If Request.ServerVariables("REMOTE_USER") <> "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "UA"
End If
If Request.ServerVariables("REMOTE_HOST") <> "" Then
FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "IPA"
End If

fp_rs.Update
FP_DumpError strErrorUrl, "Не удается обновить базу данных"

fp_rs.Close
fp_conn.Close

Session("FP_SavedFields")=arFormFields0
Session("FP_SavedValues")=arFormValues0
Session.CodePage = Session("FP_OldCodePage")
Session.LCID = Session("FP_OldLCID")
Response.Redirect "../../../../../r.e"

End If
End If

Session.CodePage = Session("FP_OldCodePage")
Session.LCID = Session("FP_OldLCID")

%>
</head>
<html>
<body>
<form method="POST" action="--WEBBOT-SELF--">
<!--webbot bot="SaveDatabase" SuggestedExt="asp" S-DataConnection="AllUsersEdit" S-RecordSource="Reg1" U-Database-URL="../DataBase/AllUsersEdit.mdb" S-Builtin-Fields="REMOTE_USER REMOTE_HOST" S-Builtin-DBFields="UA IPA" S-Form-Fields="i TimeEnd1 p" S-Form-DBFields="i TimeEnd1 p" U-Confirmation-Url="../../../../../r.e" U-Validation-Error-Url="../../../../../r.e" U-ASP-Include-Url="_fpclass/fpdbform.inc" startspan -->
<!--webbot bot="SaveDatabase" endspan -->
<p align="center" style="margin:0 3px; ">
<input type="submit" value="Зарегистрироваться | Add" name="B1" style="color: #808080; font-family: Arial; border: 1px solid #C0C0C0"></p>
<input type="hidden" name="i" value="<%=Server.HtmlEncode(Request("i"))%>">
<input type="hidden" name="p" value="<%=Server.HtmlEncode(Request("p"))%>">
</form>

</body>

</html>
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
and3008



Зарегистрирован: 12.10.2001
Сообщения: 14893
Откуда: Н.Новгород

СообщениеДобавлено: Пн Дек 15 2008 00:45    Заголовок сообщения: Ответить с цитатой

Твой код наверно надо озаглавить фразой "Почувствуй себя WEB-браузером!".
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Показать сообщения:   
Этот форум закрыт, вы не можете писать новые сообщения и редактировать старые.   Эта тема закрыта, вы не можете писать ответы и редактировать сообщения.    Список форумов Архив форумов ЦИТФорума -> Windows Часовой пояс: GMT + 3
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах


Powered by phpBB © 2001, 2002 phpBB Group
Русская поддержка phpBB

 

IT-консалтинг Software Engineering Программирование СУБД Безопасность Internet Сети Операционные системы Hardware

Информация для рекламодателей PR-акции, размещение рекламы — adv@citforum.ru,
тел. +7 495 6608306, ICQ 232284597
Пресс-релизы — pr@citforum.ru
Послать комментарий
Информация для авторов
This Web server launched on February 24, 1997
Copyright © 1997-2000 CIT, © 2001-2006 CIT Forum
Внимание! Любой из материалов, опубликованных на этом сервере, не может быть воспроизведен в какой бы то ни было форме и какими бы то ни было средствами без письменного разрешения владельцев авторских прав. Подробнее...