|
Вопрос про заполнение поля предыдущим значением
#36008138
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
Ссылка на профиль пользователя:
|
Участник
Откуда: ☭
Сообщения: 80 221
|
|
ShSerge, у меня есть еще гремучей, но я хотя бы знаю, что делаю)))
Поэтому работает.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
148.
149.
150.
151.
152.
153.
154.
155.
156.
157.
158.
159.
160.
161.
162.
163.
164.
165.
166.
167.
168.
169.
170.
171.
172.
173.
174.
175.
176.
177.
178.
179.
180.
181.
182.
183.
184.
185.
186.
187.
188.
189.
190.
191.
192.
193.
194.
195.
196.
197.
198.
199.
200.
201.
202.
203.
204.
205.
206.
207.
208.
209.
210.
211.
212.
213.
214.
215.
216.
217.
218.
219.
220.
221.
222.
223.
224.
225.
226.
227.
228.
229.
230.
231.
232.
233.
234.
235.
236.
237.
238.
239.
240.
241.
242.
243.
244.
245.
246.
247.
248.
249.
250.
251.
252.
253.
254.
255.
256.
257.
258.
259.
260.
261.
262.
263.
264.
265.
266.
267.
268.
269.
270.
271.
272.
273.
274.
275.
276.
277.
278.
279.
280.
281.
282.
283.
<%
if Request.QueryString("Client")<>"" then
Response.AddHeader("pragma","no-cache")
Response.AddHeader("cache-control","private")
Response.CacheControl = "no-cache"
dim sdm
Session.Codepage = 1251
sdm= Server.CreateObject("UniversalSRV.HTTPServer")
if Request.QueryString("APPLICATION")="" then
sdm.Application = "Activation"
else
sdm.Application = Request.QueryString("APPLICATION")
end if
on error resume next
sdm.SrvRuntime(Request, Response)
sdm = nothing
if err.number<> 0 then response.write(err.description)
else
dim ap, sp, srv, r
r=""
ap = Server.CreateObject("UniversalPI.Parameters")
sp = Server.CreateObject("UniversalPI.Parameters")
srv = Server.CreateObject("UniversalSRV.AspHub")
srv.Application="Activation"
if Request.QueryString("action")= "getfile" then
if lcase(Request.Form("prot")) = lcase(Session("ImageSId")) then
ap.Add( "IntelPro Book Reader", "ApplicationName")
ap.Add (Request.Form("HardwareID").ToString, "HardwareID")
ap.Add (Request.Form("Component").ToString, "Component")
ap.Add (Request.Form("Akey2").ToString, "Code")
sp.Add (Request.ServerVariables("REMOTE_ADDR").ToString, "REMOTE_IP")
r = srv.RunAction("Activator.Plugin.ActivateEbook", ap, sp)
if r="" then
select case ap("Result").Value
case "Ok"
dim rs, st
st=Server.CreateObject("ADODB.Stream")
rs=Server.CreateObject("ADODB.Recordset")
rs.Fields.Append( "PublicKey", 200 , 32 , 32 )
rs.Fields.Append ("SharedKey", 200 , 32 , 32 )
rs.Fields.Append ("SN", 205 , 32768 , 32 )
rs.Fields.Append ("Start", 205 , 32768 , 32 )
rs.Fields.Append ("Finish", 205 , 32768 , 32 )
rs.Fields.Append ("Pass", 205 , 32768 , 32 )
rs.Fields.Append ("Component", 200 , 500 )
rs.open
rs.AddNew
rs("PublicKey").Value = ap("PublicKey").Value
rs("SharedKey").Value = ap("SharedKey").Value
rs("SN").Value = ap.BinaryData("Key").Value
If IsArray(ap.BinaryData("Start").Value) Then rs("Start").Value = ap.BinaryData("Start").Value
If IsArray(ap.BinaryData("Finish").Value) Then rs("Finish").Value = ap.BinaryData("Finish").Value
rs("Pass").Value=ap.BinaryData("Pass").Value
rs("Component").value=Request.Form("Component").ToString
st.Type= 1
rs.Save( st, 0 )
st.Position= 0
With Response
.Buffer = true
.ContentType = "application/octet-stream"
.AddHeader("Content-Length", st.Size)
.AddHeader("Content-Disposition","attachment; filename=" & Server.UrlPathEncode(Request.Form("Component").ToString & ".brk"))
.BinaryWrite(st.Read)
.Flush
End With
case "Code not found"
r = "Неверный код активации."
case "Already activated"
r = "Введенный код активации уже использован."
case "No ebook pass"
r = "Пароль к ЭУМК в базе данных активации не найден."
case else
r = "Ошибка: " & ap("Result").Value
end select
end if
else
r = "Неверный защитный код."
end if
end if
if Request.QueryString("action")<> "getfile" or r<>"" then
Response.Clear
%>
<%@ Page Language="vb" AutoEventWireup="false" Inherits="Captcha.Index" CodeFile="Index.aspx.vb" aspcompat=true %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.1">
<meta name="CODE_LANGUAGE" content="Visual Basic .NET 7.1">
<meta name="vs_defaultClientScript" content="JavaScript">
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
<style>
* {font-family:verdana;font-size:10px;}
input {height:20px}
form {margin: 0 ;margin: 5 5 5 5 }
.code {width:60px;}
table.pane {height:40px}
table.pane td{padding: 0 }
table.pane td.lu{width:2px;height:2px;background-image:url(../Graphics/pane_corner_lu.gif)}
table.pane td.ru{width:2px;background-image:url(../Graphics/pane_corner_ru.gif)}
table.pane td.ld {height:2px;background-image:url(../Graphics/pane_corner_ld.gif)}
table.pane td.rd {height:2px;background-image:url(../Graphics/pane_corner_rd.gif)}
table.pane td.up {background-image:url(../Graphics/pane_bar_up.gif)}
table.pane td.dn {background-image:url(../Graphics/pane_bar_dn.gif)}
table.pane td.lt {background-image:url(../Graphics/pane_bar_lt.gif)}
table.pane td.rt {background-image:url(../Graphics/pane_bar_rt.gif)}
table.pane td.main {BACKGROUND-POSITION-Y: center;background-image: url(../Graphics/pane_main.gif);padding: 3 3 3 3 }
</style>
</HEAD>
<body BGCOLOR="#678fc2">
<table cellspacing= 0 cellpadding= 0 width= 100 % height= 100 %><td align=center>
<TABLE CELLSPACING="0" class=pane >
<tr><td class=lu></td><td class=up></td><td class=ru></td></tr>
<TR>
<TD class=lt></TD>
<TD class=main align=center>
Для получения информации введите код активации и код защиты от автоматических активаций.<br>
Если код защиты не читаем, обновите его, кликнув по нему.
</TD>
<TD class=rt></TD>
</TR>
<tr><td class=ld></td><td class=dn></td><td class=rd></td></tr>
</TABLE>
<form id="Form1" method="post" runat=server>
<TABLE CELLSPACING="0" class=pane>
<tr><td class=lu></td><td class=up></td><td class=ru></td></tr>
<TR>
<TD class=lt></TD>
<TD class=main align=center>
<table cellspacing= 1 cellpadding= 0 >
<tr>
<td style="padding-right:2px">Код активации</td>
<td><input type=text style="width:100%" name=ACode value="<%=Request.Form("ACode")%>"></td>
</tr>
<tr>
<td>Код защиты</td>
<td>
<table cellspacing= 0 cellpadding= 0 >
<td><asp:ImageButton id="ImageButton2" ImageUrl="Random.aspx" runat=server></asp:ImageButton></td>
<td><asp:TextBox CssClass=code id="TextBox1" runat="server"></asp:TextBox></td>
</table>
</td>
</tr>
<tr><th colspan= 2 ><asp:Button id="Button1" runat="server" Text="Отправить"></asp:Button></th></tr>
</table>
</TD>
<TD class=rt></TD>
</TR>
<tr><td class=ld></td><td class=dn></td><td class=rd></td></tr>
</TABLE>
</form>
<%
dim r1
r1 = ""
r1 = Request.Form("ACode")
if Session.Contents("ImageSId")= Session.Contents("subm") and Session.Contents("subm")<>"" and r1<>"" then
ap.Add( r1,"ObjectID")
ap.Add( 9 , "ClassID")
r=""
r = srv.RunAction("GetObject",ap,sp)
if r="" then if ap.Recordsets.count= 1 then if ap.Recordsets( 0 ).EOF then r = "Неверный код активации"
if r = "" then %>
<hr>
<TABLE CELLSPACING="0" class=pane>
<tr><td class=lu></td><td class=up></td><td class=ru></td></tr>
<TR>
<TD class=lt></TD>
<TD class=main align=center>
<table>
<colgroup></colgroup><colgroup style="font-weight:bold"></colgroup>
<tr>
<td>Код активации</td>
<td><%=ap.Recordsets( 0 )("CRC32").Value%></td>
</tr>
<tr>
<td>Приложение</td>
<td><%=ap.Recordsets( 0 )("ApplicationName").Value%></td>
</tr>
<tr>
<td>Модуль</td>
<td><%=ap.Recordsets( 0 )("Component").Value%></td>
</tr>
<tr>
<td>Период действия с момента активации (дней)</td>
<td><%
if ap.Recordsets( 0 )("Period").Value = 0 then
Response.Write("<font style='color:green'>Не ограничен</font>")
else
Response.Write("<font style='color:red'>" & ap.Recordsets( 0 )("Period").Value & "</font>")
end if
%></td>
</tr>
</table>
</TD>
<TD class=rt></TD>
</TR>
<tr><td class=ld></td><td class=dn></td><td class=rd></td></tr>
</TABLE>
<%
If ap.Recordsets( 0 )("ActivatedDate").Value.ToString="" then%>
<br>
<TABLE CELLSPACING="0" class=pane>
<tr><td class=lu></td><td class=up></td><td class=ru></td></tr>
<TR>
<TD class=lt></TD>
<TD class=main align=center><font style='color:red;font-weight:bold'>Состояние - <font style='color:green;font-weight:bold'>не активирован</font>.</TD>
<TD class=rt></TD>
</TR>
<tr><td class=ld></td><td class=dn></td><td class=rd></td></tr>
</TABLE>
<br>
<TABLE CELLSPACING="0" class=pane >
<tr><td class=lu></td><td class=up></td><td class=ru></td></tr>
<TR>
<TD class=lt></TD>
<TD class=main align=center>
Для получения файла активации введите код оборудования<br>из окна информации программы <%=ap.Recordsets( 0 )("ApplicationName").Value%><br>
и код защиты от автоматической активации
<TD class=rt></TD>
</TR>
<tr><td class=ld></td><td class=dn></td><td class=rd></td></tr>
</TABLE>
<form action="index.aspx?action=getfile" method=post target=forfile>
<input type=hidden name=Akey2 value="<%=Request.Form("ACode")%>">
<input type=hidden name=ApplicationName value="<%=ap.Recordsets(0)("ApplicationName").Value%>">
<input type=hidden name=Component value="<%=ap.Recordsets(0)("Component").Value%>">
<TABLE CELLSPACING="0" class=pane >
<tr><td class=lu></td><td class=up></td><td class=ru></td></tr>
<TR>
<TD class=lt></TD>
<TD class=main align=center>
<table cellpadding= 0 cellspacing= 1 >
<tr>
<td>Код оборудования</td>
<td><input type=text name=HardwareID></td>
</tr>
<tr>
<td>Код защиты</td>
<td><input type=text name=prot class=code></td>
</tr>
<tr><th colspan= 2 ><input type=submit value=Получить></th></tr>
</table>
</td>
<TD class=rt></TD>
</TR>
<tr><td class=ld></td><td class=dn></td><td class=rd></td></tr>
</TABLE>
</form>
<%else%>
<br>
<TABLE CELLSPACING="0" class=pane >
<tr><td class=lu></td><td class=up></td><td class=ru></td></tr>
<TR>
<TD class=lt></TD>
<TD class=main align=center>
Состояние - <font style='color:red;font-weight:bold'>активирован <%=ap.Recordsets( 0 )("ActivatedDate").Value%></font>
</td>
<TD class=rt></TD>
</TR>
<tr><td class=ld></td><td class=dn></td><td class=rd></td></tr>
</TABLE>
<%end if
end if
elseif r1<>""
r = "Неверный защитный код."
end if
if r<>"" then%>
<TABLE CELLSPACING="0" class=pane>
<tr><td class=lu></td><td class=up></td><td class=ru></td></tr>
<TR>
<TD class=lt></TD>
<TD class=main align=center><font style='color:red;font-weight:bold'>Ошибка: <%=r%></font></TD>
<TD class=rt></TD>
</TR>
<tr><td class=ld></td><td class=dn></td><td class=rd></td></tr>
</TABLE>
<%end if%>
<div style="display:none"> <iframe border= 0 width= 1 height= 1 name=forfile ></iframe></div>
</td></table>
</body>
</HTML>
<%end if
end if
%>
|
|
|
