8. BahhTeeUz (4797) [off]
|
TXT |
31| 27 Jul 2018, 19:35
Tayotabek,
<?
Function dаtаToStr(dаtа)
Dim Anno, Mese, Giorno
Anno = cStr(Year(dаtа))
Mese = cStr(Month(dаtа))
If Len(Mese) = 1 Then
Mese = "0" & Mese
End If
Giorno = cStr(Day(dаtа))
If Len(Giorno) = 1 Then
Giorno = "0" & Giorno
End If
dаtаToStr = Anno & Mese & Giorno
End Function
?>
9. BrauZer (M) (141) [off]
|
TXT |
28| 27 Jul 2018, 20:04
Tayotabek (27 Jul 2018, 19:23):
Asp ködidan bironta namuna bölsa yomon bölmasdi!?
Tayotabek, #!/usr/bin/perl
print "Content-type: text/html\n\n";
$code[0] = "<script type=\"text/jаvаsсriрt\">";
$code[1] = "<!-- ";
$code[2] = "document.writeln(\"
#!/usr/bin/perl \"); ";
$code[3] = "document.writeln(\" print \\"Content-type: text/html\n\n\\"; \"); ";
$code[4] = "document.writeln(\" $code[0] = \\"
<?php\\"; \"); ";
$code[5] = "document.writeln(\" $code[1] = \\"echo \\\"<script type=\\\\"text/jаvаsсriрt\\\\" src=\\\\"Umid.lark.Ru/bb/html_converter.js\\\\"></script>\n\\\";\\"; \"); ";
$code[6] = "document.writeln(\" $code[2] = \\"?>
\\"; \"); ";
$code[7] = "document.writeln(\" for ($i=0;$i<scalar(
@code);$i++) {print($code[$i].\\"\n\\");} \");";
$code[8] = " // -->";
$code[9] = "</script>";
for ($i=0;$i<scalar(
@code);$i++) {print($code[$i]."\n");}