Форум по информационной безопасности: обсуждение продуктов Смарт-Софт

User

11.02.2007 20:08:00

Вобщем тут на выходных занялся написание этого скрипта, написал практически всё тобишь Пользователь заходит на эту страничку Вводит нужную сумму и нажимает взять Кредит, после этого создаёться фаил в директории Кредит с его именем туда вводиться Имя и сумму которую он взял, если пользователь решит обмануть и взять ещё кредит то система ему скажет Ай Ай Ай так делать не льзя

, А оплата кредита сводиться к активации карточки платежа, с проверкой а брал ли пользователь кредит.... Но вот у мя загвозка как вписать функцию в скрипт которая удалит файл в котором находиться его данные о кредите. Как не прискорбно не знаю как зделать Хелп плз напишите полную функцию.....

BETEP User	#2 0 11.02.2007 20:21:00 ну или отчистку этого файла =)

Dendj User	#3 0 11.02.2007 20:28:00 а можно посмотреть на этот скрипт?

BETEP

User

25.04.2024 10:56:15

Фаил скрипта который осушествляет контроль и осуществление Кредита, много лишьних параметров так что не обессутьте =)

<job id="default">
<script language="VBScript" src="..\cb_conf.vbs"/>
<script language="VBScript">

SetLocale("ru")
set Serv = WScript.CreateObject("TrafInsp.TrafInspAdmin")
set objArgs = WScript.Arguments.Named

Serv.APILogon(objArgs.Item("_APIPassword_"))
UserID = objArgs.Item("_UserID_")

UserBill = Serv.APIGetBillProp(3, UserID)
UserState = Serv.APIGetUserState(UserID)

set Dom = WScript.CreateObject("Msxml2.DOMDocument.4.0")
Dom.Load objArgs.Item("_RootDir_") & "common.xml"
if Dom.parseError.errorCode <> 0 then
Err.Raise 51, "LoadXml", Dom.parseError.reason
end if
set Root = Dom.documentElement
with Root.appendChild(Dom.createElement("PageCommonData"))
.setAttribute "PageTitle", "Активация кредита для """ & objArgs.Item("_UserName_") & ""
.setAttribute "ServerTime", FormatDateTime(Now, 3)
.setAttribute "PageName", "Test"
end with

with Root.appendChild(Dom.createElement("Client"))
.text = objArgs.Item("_UserName_")
end with

with Root.appendChild(Dom.createElement("Ball"))
.text = FormatNumber(UserState(19), 4) & " " & UserState(28)
end with

userfromID = objArgs.Item("_UserID_")

userstate = Serv.APIGetUserState(userfromID)
balans=FormatNumber(UserState(19), 4)

usernameto = objArgs.Item("_username_")
summa = objArgs.Item("summa")

' get All User List
ListUsers = Serv.APIGetBillProp(3, "")
poisk=0

if usernameto <> "" then

If IsNumeric(summa) Then
if summa < 13 then
if summa > 0 then
If IsArray(ListUsers(0)) Then

'Процедура поиска пользователя на наличие взятия Кредита
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("C:\Program Files\TrafInsp\Kredit\" &

BETEP

User

11.02.2007 20:39:00

Форма скрипта

<?xml version="1.0" encoding="windows-1251"?>
<xsl:stylesheet version="1.0" xmlns:xsl="https://www.w3.org/1999/XSL/Transform" xmlns:fo="https://www.w3.org/1999/XSL/Format">
<xsl:output version="4.0" encoding="windows-1251" indent="no" doctype-public="text/html" method="html" omit-xml-declaration="no"/>
<xsl:include href="common.xsl"/>
<xsl:template match="Root">

<table
style="width: 500px; height: 140px; text-align: left; margin-left: auto; margin-right: auto; background-color: #559933;"
border="0" cellpadding="0" cellspacing="0">
    <tbody>
      <tr>
        <td>Пользователь:</td>
        <td><b><xsl:value-of select="//Client"/></b></td>
      </tr>
      <tr>
        <td>Балланс:</td>
       <td><b><xsl:value-of select="//Ball"/></b> </td>
      </tr>

   <tr>
        <td>Сумма кредита:<b><div id="Userto2"></div></b></td>

<td>

      </tr>

    </tbody>
</table>
<table>
<script language="javascript" type="text/javascript">
function otk(){ document.getElementById('OTKL').disabled=1;}
</script>

<tr>
<td align="center"><input id='OTKL' type="submit" value="Взять ..."/></td>
</tr>
<xsl:if test="//Result">
<tr>
<td style="color:blue" align="center"><xsl:value-of select="//Result"/></td>
</tr>
<script language="javascript" type="text/javascript">
i=100;
ww=setInterval("if(i--==1){clearInterval(ww);location.href=' plat.tisp';}"+"document.getElementById('OTKL').value='заверш ение операции '+i+'';",120);
otk();
</script>
</xsl:if>

<xsl:if test="//Error">
<tr>
<td style="color:#FFCC55" align="center"><xsl:value-of select="//Error"/></td>
</tr>
</xsl:if>
</table>

<div style="margin-left:6px; text-align:left">
<b>Примечания.</b><br/>
<UL style="margin-top:3px">
<li>Кредит предаставляеться 1 раз, и действие его не ограниценно, Погашение кредита происходит автоматически при активации карты платежа</li>
<li>Кредит доступен только если у вас отрицательный балланс и его размер не больше 12руб.</li>

</UL>

</div>
<UL style="margin-top:3px ;color:#FFCC55">
<b><li>ВНИМАНИЕ!!! ЗА использование кредитом взымаеться плата в размере 10% от взятой суммы</li></b>

</UL>

</form>
</div>
</xsl:template>
</xsl:stylesheet>

BETEP39124.8965972222

BETEP

User

25.04.2024 10:56:15

Скрипт пополнения платежа по карте с проверкой на взятие кредита

Serv.APILogon(objArgs.Item("_APIPassword_"))
UserID = objArgs.Item("_UserID_")

SName = objArgs.Item("_ServerName_")
if not IsEmpty(SName) then
Root.selectSingleNode("//Common").setAttribute "ServerName", SName
end if

with Root.appendChild(Dom.createElement("PageCommonData"))
.setAttribute "PageTitle", "Ввод оплаты по карточке - """ & objArgs.Item("_UserName_") & """"
.setAttribute "ServerTime", FormatDateTime(Now, 4)
.setAttribute "PageName", "Card"
end with

with Root.appendChild(Dom.createElement("Client"))
.text = objArgs.Item("_UserName_")
end with
username = objArgs.Item("_UserName_")
CardNumber = objArgs.Item("CardNumber")
if CardNumber <> "" then
CardCode = CardNumber
logr = False 'Признак формирования записи в log-файле logFN1

If Len(Trim(CardCode)) <> 20 Then
  logr = True
  MesText = "Код карточки введен неправильно!"
  With Root.appendChild(Dom.createElement("CardError"))
   .text = MesText
  End With
Else
  NumSeries = Left(CardCode,4)
  NSeries = CInt(NumSeries)
  NumCard = Mid(CardCode,5,4)
  NCard = CInt(NumCard )
  PINCode = Right(CardCode,12)

  StateData = Serv.ApiGetUserState(UserID)

  ' Open a connection using the Microsoft Jet provider
  Set Cnxn = CreateObject("ADODB.Connection")

  Cnxn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
  "Data Source=" & BDPuth & ";" '& _
  '"User ID=;Password=;"
  Cnxn.Open

  Set rst = CreateObject("ADODB.Recordset")
  Set rs = CreateObject("ADODB.Recordset")

  'Проверка существования карточки с заданными параметрами в базе
  sSQL = "SELECT Number_S, Number_C, PIN_C, State_C, ActDate_C " & _
    "FROM Cards " & _
    "WHERE Number_S = " & NSeries & " "& _
    "AND Number_C = " & NCard & " "& _
    "ORDER BY Number_C"        &am p;nb sp;
  Set rst = Cnxn.Execute(sSQL)
  If rst.EOF Then
   logr = True
   MesText = "Не существует карточки с заданным номером!"
   With Root.appendChild(Dom.createElement("CardError"))
    .text = MesText
   End With
  Else

poisk = 0
dolg = 0
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("C:\Program Files\TrafInsp\Kredit\" &

BETEP User	#7 0 11.02.2007 20:42:00 На счёт того потянет ли он на другой форме хз ибо Форму сайта ТИ переписал от начала и доканца... =) BETEP39124.8747800926

Dendj User	#8 0 11.02.2007 20:42:00 ок, сейчас попробуем

BETEP User	#9 0 11.02.2007 21:03:00 ну что как успехи скрипт запустился?

Dendj User	#10 0 11.02.2007 21:14:00 скрипт запустился, завтра займусь им...

Форум компании Смарт-Софт