Подключить скрипт на ASP.Net

Тема в разделе ".NET", создана пользователем BlackvsEvgen, 19 окт 2010.

  1. BlackvsEvgen

    BlackvsEvgen Постоялец

    Регистр.:
    13 янв 2009
    Сообщения:
    104
    Симпатии:
    3
    Добрый день, подскажите как подключить скрипт, чтоб он выполнялся на сайте. Вообще не понимаю, скрипт динамической диаграммы, вот код скрипта:
    PHP:
    <%@ Page Language="VB" ContentType="image/jpeg" %> 
    <%@ 
    Import Namespace="System.Drawing" %> 
    <%@ 
    Import Namespace="System.Drawing.Imaging" %> 
    <%@ 
    Import Namespace="System.Drawing.Drawing2D" %> 

    <% 
    Response.Clear() 
    Dim height As Integer 200 
    Dim width 
    As Integer 320 
    Dim x 
    As Integer 
    Dim i 
    As Integer 
    Dim start_angle 
    As Integer 
    Dim pie_size 
    As Integer 
    Dim sub_total 
    As Integer 
    Dim offset 
    As Integer 
    Dim diameter 
    As Integer 
    Dim arrData
    () As Integer = {7545191055' значения 
    Dim arrProcent(4) As Integer 
    Dim total As Integer 
    Dim arrColor() As Object = {Color.Salmon, Color.SeaGreen, Color.Gold, Color.Maroon, Color.Orchid} 
    Dim arrTitle() As String = {"Значение 1", "Значение 2", "Значение 3", "Значение 4", "Значение 5"} 
    Dim rect As Object 
    sub_total = 0 
    start_angle = 0 
    offset = 20 
    diameter = 170 
    total = 0 

    Dim bmp As New Bitmap(width, height, PixelFormat.Format32bppArgb) 
    Dim g as Graphics = Graphics.FromImage(bmp) 

    Dim fnt As New Font("Arial", 8) 
    Dim sb As New SolidBrush(Color.Blue) 

    g.Clear(Color.White) 
    g.SmoothingMode = SmoothingMode.HighQuality 

    сумма значений в массиве 
    For 0 To arrData.GetUpperBound(0
    total total arrData(i
    Next 

    ' проценты 
    For i = 0 To arrData.GetUpperBound(0) 
    arrProcent(i) = Math.Round((arrData(i)/total)*100) 
    Next 

    For i = 0 To arrProcent.GetUpperBound(0) 
    sub_total = sub_total + arrProcent(i) 
    pie_size = sub_total*360 / 100 - start_angle 

    g.FillPie(New SolidBrush(arrColor(i)), offset, offset, diameter, diameter, start_angle, pie_size) 
    start_angle = start_angle + pie_size 
    rect = New Rectangle(offset + diameter + 10, offset + i*20, 15, 15) 

    g.FillRectangle(New SolidBrush(arrColor(i)), rect) 
    g.DrawString(arrTitle(i) & " - [" & arrProcent(i) & "%]", fnt, sb, offset + diameter + 10 + 20, offset + i*20) 
    Next 

    bmp.Save(Response.OutputStream, ImageFormat.Jpeg) 
    g.Dispose() 
    bmp.Dispose() 
    Response.End() 
    %>
     
  2. Paroxizm

    Paroxizm Создатель

    Регистр.:
    30 июл 2009
    Сообщения:
    30
    Симпатии:
    11
    скрипт выдаёт сформированную картинку, поэтому можно его просто указать в качестве источника картинки в теге img

    <img src="<здесь_путь_к_скрипту_можно_с_параметрами>" />
     
  3. BlackvsEvgen

    BlackvsEvgen Постоялец

    Регистр.:
    13 янв 2009
    Сообщения:
    104
    Симпатии:
    3
    Спасибо, сейчас попробую.

    Добавлено через 7 минут
    Paroxizm попробывал, как вы написали. Указал путь к скрипту правдо без параметров и ничего не работает. Подскажите плиз, как запустить его :)
     
  4. Paroxizm

    Paroxizm Создатель

    Регистр.:
    30 июл 2009
    Сообщения:
    30
    Симпатии:
    11
    А просто вызвать скрипт можешь? по прямому адресу. Если скрипт работоспособный и сервер может его обработать - появится картинка.

    Если картинки нет - значит либо скрипт с ошибкой (я его не компилил), либо сервер его не распознаёт как исполняемый.

    И посмотри логи сервера, может быть там уже вывалилась ошибка.
     
  5. narusagava

    narusagava Писатель

    Регистр.:
    21 май 2012
    Сообщения:
    3
    Симпатии:
    0
    Response.Clear()
    Dim height As Integer = 200
    Dim width As Integer = 320
    Dim x As Integer
    Dim i As Integer
    Dim start_angle As Integer
    Dim pie_size As Integer
    Dim sub_total As Integer
    Dim offset As Integer
    Dim diameter As Integer

    тут вроде где то ошибка