<%@ Page Language="VB" %>
<script language="VB" runat="server">
Sub Upload_Click(ByVal sender As Object, ByVal e As EventArgs)
Забиваем Сайты В ТОП КУВАЛДОЙ - Уникальные возможности от SeoHammer
Каждая ссылка анализируется по трем пакетам оценки: SEO, Трафик и SMM.
SeoHammer делает продвижение сайта прозрачным и простым занятием.
Ссылки, вечные ссылки, статьи, упоминания, пресс-релизы - используйте по максимуму потенциал SeoHammer для продвижения вашего сайта.
Что умеет делать SeoHammer
— Продвижение в один клик, интеллектуальный подбор запросов, покупка самых лучших ссылок с высокой степенью качества у лучших бирж ссылок.
— Регулярная проверка качества ссылок по более чем 100 показателям и ежедневный пересчет показателей качества проекта.
— Все известные форматы ссылок: арендные ссылки, вечные ссылки, публикации (упоминания, мнения, отзывы, статьи, пресс-релизы).
— SeoHammer покажет, где рост или падение, а также запросы, на которые нужно обратить внимание.
SeoHammer еще предоставляет технологию Буст, она ускоряет продвижение в десятки раз,
а первые результаты появляются уже в течение первых 7 дней.
Зарегистрироваться и Начать продвижение
Dim strFileName, strRootUpload , strUniqueName As String
Dim index As Integer
strRootUpload = Server.MapPath("./upload")
lblMessage.Text = ""
If Not (fileInp.PostedFile Is Nothing) Then
Try
strFileName = fileInp.PostedFile.FileName
If strFileName <> "" Then
strFileName = strFileName.Replace("/", "\")
index = strFileName.LastIndexOf("\")
strFileName = strFileName.Substring(index + 1)
strUniqueName = System.Guid.NewGuid().ToString() + "_" + strFileName
fileInp.PostedFile.SaveAs(strRootUpload & "\" & strUniqueName)
lblMessage.Text = "Файлуспешнозагруженсименем " & strUniqueName & "<p>"
End if
Catch ex As Exception
lblMessage.Text = ex.Message & "<p>"
End Try
End If
End Sub
</script>
<HTML>
<HEAD>
<Title>Unique Upload</Title>
</HEAD>
<BODY>
<form enctype="multipart/form-data" runat="server">
<asp:Label id="lblMessage" runat="server" />
Файл:<br>
<input id="fileInp" type="file" runat="server"><br>
<asp:button text="Загрузить" OnClick="Upload_Click" runat="server" />
</form>
</BODY>
</HTML>
|
