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> |
|