Zeile 1: #ExternalChecksum("E:\ftp\asp\pano\mirror\details-max.aspx","{ff1816ec-aa5e-4d10-87f7-6f4963833460}","775C884109AAF5019992C3F245019E7EF4EDF4EA")
Zeile 2: '------------------------------------------------------------------------------
Zeile 3: ' <auto-generated>
Zeile 4: ' Dieser Code wurde von einem Tool generiert.
Zeile 5: ' Laufzeitversion:4.0.30319.42000
Zeile 6: '
Zeile 7: ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
Zeile 8: ' der Code erneut generiert wird.
Zeile 9: ' </auto-generated>
Zeile 10: '------------------------------------------------------------------------------
Zeile 11:
Zeile 12: Option Strict Off
Zeile 13: Option Explicit On
Zeile 14:
Zeile 15: Imports Microsoft.VisualBasic
Zeile 16: Imports System
Zeile 17: Imports System.Collections
Zeile 18: Imports System.Collections.Generic
Zeile 19: Imports System.Collections.Specialized
Zeile 20: Imports System.ComponentModel.DataAnnotations
Zeile 21: Imports System.Configuration
Zeile 22: Imports System.Drawing
Zeile 23: Imports System.Drawing.Imaging
Zeile 24: Imports System.Linq
Zeile 25: Imports System.Text
Zeile 26: Imports System.Text.RegularExpressions
Zeile 27: Imports System.Web
Zeile 28: Imports System.Web.Caching
Zeile 29: Imports System.Web.DynamicData
Zeile 30: Imports System.Web.Profile
Zeile 31: Imports System.Web.Security
Zeile 32: Imports System.Web.SessionState
Zeile 33: Imports System.Web.UI
Zeile 34: Imports System.Web.UI.HtmlControls
Zeile 35: Imports System.Web.UI.WebControls
Zeile 36: Imports System.Web.UI.WebControls.Expressions
Zeile 37: Imports System.Web.UI.WebControls.WebParts
Zeile 38: Imports System.Xml.Linq
Zeile 39:
Zeile 40: Namespace ASP
Zeile 41:
Zeile 42: <System.Runtime.CompilerServices.CompilerGlobalScopeAttribute()> _
Zeile 43: Public Class pano_mirror_details_max_aspx
Zeile 44: Inherits Global.System.Web.UI.Page
Zeile 45: Implements System.Web.SessionState.IRequiresSessionState, System.Web.IHttpHandler
Zeile 46:
Zeile 47:
Zeile 48: #ExternalSource("E:\ftp\asp\pano\mirror\details-max.aspx",86)
Zeile 49: Protected WithEvents Image1 As Global.System.Web.UI.WebControls.Image
Zeile 50:
Zeile 51: #End ExternalSource
Zeile 52:
Zeile 53:
Zeile 54: #ExternalSource("E:\ftp\asp\pano\mirror\details-max.aspx",89)
Zeile 55: Protected WithEvents Label1 As Global.System.Web.UI.WebControls.Label
Zeile 56:
Zeile 57: #End ExternalSource
Zeile 58:
Zeile 59: Private Shared __initialized As Boolean
Zeile 60:
Zeile 61: Private Shared __fileDependencies As Object
Zeile 62:
Zeile 63:
Zeile 64: #ExternalSource("E:\ftp\asp\pano\mirror\details-max.aspx",4)
Zeile 65:
Zeile 66:
Zeile 67: sub Page_Load()
Zeile 68: 'on error resume next
Zeile 69:
Zeile 70: dim para1=Request.Params.get(0)
Zeile 71:
Zeile 72:
Zeile 73: 'para1=replace(para1,"%20"," ")
Zeile 74:
Zeile 75: dim photoWidth,photoHeight
Zeile 76: dim percentageDifference = 0
Zeile 77: dim inputimage="temp.jpg"
Zeile 78: dim filename= para1
Zeile 79: dim w=1024*2+200
Zeile 80: dim h=768*2+200
Zeile 81: dim heHasAccess = false
Zeile 82: dim datei="d:\ftp\asp\privat\fotos\123.jpg"
Zeile 83:
Zeile 84: label1.text=para1
Zeile 85:
Zeile 86:
Zeile 87: if w > 0 then
Zeile 88: heHasAccess=true
Zeile 89: else
Zeile 90: heHasAccess = false
Zeile 91: end if
Zeile 92:
Zeile 93: inputImage = System.Drawing.Image.FromFile(Server.MapPath(filename))
Zeile 94:
Zeile 95:
Zeile 96:
Zeile 97: if heHasAccess = false then
Zeile 98: photoHeight = 768*2+200
Zeile 99: else
Zeile 100: photoHeight = int(h) 'inputImage.Width
Zeile 101: end if
Zeile 102:
Zeile 103: 'define size for new image
Zeile 104: percentageDifference = inputImage.height / photoHeight
Zeile 105: photoWidth = inputImage.width / percentageDifference
Zeile 106:
Zeile 107:
Zeile 108: if inputImage.Width < inputImage.height then
Zeile 109: dim rotFlipType As RotateFlipType
Zeile 110: rotFlipType=RotateFlipType.Rotate90FlipNone
Zeile 111: inputImage.RotateFlip(rotFlipType)
Zeile 112: photoWidth=1024*2+200
Zeile 113: photoHeight=768*2+200
Zeile 114: end if
Zeile 115:
Zeile 116: dim ww=inputimage.width
Zeile 117: dim hh=inputimage.height
Zeile 118:
Zeile 119: 'output new image with different size
Zeile 120: dim Bitmap as new Bitmap(inputImage,Convert.ToInt32(ww),Convert.ToInt32(hh))
Zeile 121: Response.ContentType = "image/jpeg"
Zeile 122: 'BitMap.Save(datei, ImageFormat.Jpeg)
Zeile 123:
Zeile 124:
Zeile 125: 'if w=-1 then
Zeile 126: BitMap.Save(Response.OutputStream, ImageFormat.Jpeg) 'bei rückgabe des Bildes im Browser verwenden.
Zeile 127: 'else
Zeile 128: 'if system.IO.File.Exists ("123.jpg") then kill("123.jpg")
Zeile 129: 'image1.imageurl=""
Zeile 130: 'image1.imageurl="123.jpg"
Zeile 131: 'end if
Zeile 132:
Zeile 133: BitMap.dispose()
Zeile 134:
Zeile 135: system.gc.collect()
Zeile 136:
Zeile 137: Response.Flush()
Zeile 138:
Zeile 139: end sub
Zeile 140:
Zeile 141:
Zeile 142: #End ExternalSource
Zeile 143:
Zeile 144:
Zeile 145: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Zeile 146: Public Sub New()
Zeile 147: MyBase.New
Zeile 148: Dim dependencies() As String
Zeile 149: CType(Me,Global.System.Web.UI.Page).AppRelativeVirtualPath = "~/pano/mirror/details-max.aspx"
Zeile 150: If (Global.ASP.pano_mirror_details_max_aspx.__initialized = false) Then
Zeile 151: dependencies = New String(0) {}
Zeile 152: dependencies(0) = "~/pano/mirror/details-max.aspx"
Zeile 153: Global.ASP.pano_mirror_details_max_aspx.__fileDependencies = Me.GetWrappedFileDependencies(dependencies)
Zeile 154: Global.ASP.pano_mirror_details_max_aspx.__initialized = true
Zeile 155: End If
Zeile 156: Me.Server.ScriptTimeout = 30000000
Zeile 157: End Sub
Zeile 158:
Zeile 159: Protected ReadOnly Property Profile() As System.Web.Profile.DefaultProfile
Zeile 160: Get
Zeile 161: Return CType(Me.Context.Profile,System.Web.Profile.DefaultProfile)
Zeile 162: End Get
Zeile 163: End Property
Zeile 164:
Zeile 165: Protected ReadOnly Property ApplicationInstance() As ASP.global_asax
Zeile 166: Get
Zeile 167: Return CType(Me.Context.ApplicationInstance,ASP.global_asax)
Zeile 168: End Get
Zeile 169: End Property
Zeile 170:
Zeile 171: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Zeile 172: Private Function __BuildControlImage1() As Global.System.Web.UI.WebControls.Image
Zeile 173: Dim __ctrl As Global.System.Web.UI.WebControls.Image
Zeile 174:
Zeile 175: #ExternalSource("E:\ftp\asp\pano\mirror\details-max.aspx",86)
Zeile 176: __ctrl = New Global.System.Web.UI.WebControls.Image()
Zeile 177:
Zeile 178: #End ExternalSource
Zeile 179: Me.Image1 = __ctrl
Zeile 180: __ctrl.ApplyStyleSheetSkin(Me)
Zeile 181:
Zeile 182: #ExternalSource("E:\ftp\asp\pano\mirror\details-max.aspx",86)
Zeile 183: __ctrl.ID = "Image1"
Zeile 184:
Zeile 185: #End ExternalSource
Zeile 186: Return __ctrl
Zeile 187: End Function
Zeile 188:
Zeile 189: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Zeile 190: Private Function __BuildControlLabel1() As Global.System.Web.UI.WebControls.Label
Zeile 191: Dim __ctrl As Global.System.Web.UI.WebControls.Label
Zeile 192:
Zeile 193: #ExternalSource("E:\ftp\asp\pano\mirror\details-max.aspx",89)
Zeile 194: __ctrl = New Global.System.Web.UI.WebControls.Label()
Zeile 195:
Zeile 196: #End ExternalSource
Zeile 197: Me.Label1 = __ctrl
Zeile 198: __ctrl.ApplyStyleSheetSkin(Me)
Zeile 199:
Zeile 200: #ExternalSource("E:\ftp\asp\pano\mirror\details-max.aspx",89)
Zeile 201: __ctrl.ID = "Label1"
Zeile 202:
Zeile 203: #End ExternalSource
Zeile 204:
Zeile 205: #ExternalSource("E:\ftp\asp\pano\mirror\details-max.aspx",89)
Zeile 206: __ctrl.Text = "Label"
Zeile 207:
Zeile 208: #End ExternalSource
Zeile 209:
Zeile 210: #ExternalSource("E:\ftp\asp\pano\mirror\details-max.aspx",89)
Zeile 211: __ctrl.Width = New System.Web.UI.WebControls.Unit(722R, Global.System.Web.UI.WebControls.UnitType.Pixel)
Zeile 212:
Zeile 213: #End ExternalSource
Zeile 214: Return __ctrl
Zeile 215: End Function
Zeile 216:
Zeile 217: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Zeile 218: Private Sub __BuildControlTree(ByVal __ctrl As pano_mirror_details_max_aspx)
Zeile 219:
Zeile 220: #ExternalSource("E:\ftp\asp\pano\mirror\details-max.aspx",1)
Zeile 221: __ctrl.EnableViewStateMac = false
Zeile 222:
Zeile 223: #End ExternalSource
Zeile 224:
Zeile 225: #ExternalSource("E:\ftp\asp\pano\mirror\details-max.aspx",1)
Zeile 226: Me.InitializeCulture
Zeile 227:
Zeile 228: #End ExternalSource
Zeile 229: Dim __parser As System.Web.UI.IParserAccessor = CType(__ctrl,System.Web.UI.IParserAccessor)
Zeile 230:
Zeile 231: #ExternalSource("E:\ftp\asp\pano\mirror\details-max.aspx",1)
Zeile 232: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<html>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<head>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</head>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"<body>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Zeile 233:
Zeile 234: #End ExternalSource
Zeile 235: Dim __ctrl1 As Global.System.Web.UI.WebControls.Image
Zeile 236:
Zeile 237: #ExternalSource("E:\ftp\asp\pano\mirror\details-max.aspx",1)
Zeile 238: __ctrl1 = Me.__BuildControlImage1
Zeile 239:
Zeile 240: #End ExternalSource
Zeile 241:
Zeile 242: #ExternalSource("E:\ftp\asp\pano\mirror\details-max.aspx",1)
Zeile 243: __parser.AddParsedSubObject(__ctrl1)
Zeile 244:
Zeile 245: #End ExternalSource
Zeile 246:
Zeile 247: #ExternalSource("E:\ftp\asp\pano\mirror\details-max.aspx",1)
Zeile 248: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" <p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "))
Zeile 249:
Zeile 250: #End ExternalSource
Zeile 251: Dim __ctrl2 As Global.System.Web.UI.WebControls.Label
Zeile 252:
Zeile 253: #ExternalSource("E:\ftp\asp\pano\mirror\details-max.aspx",1)
Zeile 254: __ctrl2 = Me.__BuildControlLabel1
Zeile 255:
Zeile 256: #End ExternalSource
Zeile 257:
Zeile 258: #ExternalSource("E:\ftp\asp\pano\mirror\details-max.aspx",1)
Zeile 259: __parser.AddParsedSubObject(__ctrl2)
Zeile 260:
Zeile 261: #End ExternalSource
Zeile 262:
Zeile 263: #ExternalSource("E:\ftp\asp\pano\mirror\details-max.aspx",1)
Zeile 264: __parser.AddParsedSubObject(New System.Web.UI.LiteralControl(""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" </p>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</body>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"</html>"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)))
Zeile 265:
Zeile 266: #End ExternalSource
Zeile 267: End Sub
Zeile 268:
Zeile 269: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Zeile 270: Protected Overrides Sub FrameworkInitialize()
Zeile 271: MyBase.FrameworkInitialize
Zeile 272: Me.__BuildControlTree(Me)
Zeile 273: Me.AddWrappedFileDependencies(Global.ASP.pano_mirror_details_max_aspx.__fileDependencies)
Zeile 274: End Sub
Zeile 275:
Zeile 276: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Zeile 277: Public Overrides Function GetTypeHashCode() As Integer
Zeile 278: Return -2145687217
Zeile 279: End Function
Zeile 280:
Zeile 281: <System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Zeile 282: Public Overrides Sub ProcessRequest(ByVal context As System.Web.HttpContext)
Zeile 283: MyBase.ProcessRequest(context)
Zeile 284: End Sub
Zeile 285: End Class
Zeile 286: End Namespace
Zeile 287:
|