Set Image = Server.CreateObject(\"AspImage.Image\")
rem Set various font parameters Image.FontColor = vbBlack Image.Italic = True Image.Bold = True Image.FontName = \"Arial\" Image.FontSize = 12 Image.PadSize = 10
rem Calculate how big our text info is and set the image to this size rem This has to be done since we want to fill the area with a gradient strMessage = \"Welcome to\" Image.MaxX = Image.TextWidth (strMessage) Image.MaxY = Image.TextHeight (strMessage)
rem Create a one way gradient Image.GradientOneWay vbRed, vbWhite, 0
rem Print our string to the image Image.TextOut strMessage, Image.X, Image.Y, false
rem Set the filename and save Image.FileName = \"d:\\inetpub\\wwwroot\\images\\msg1.jpg\" if Image.SaveImage then rem The image was saved so write the <img src> tag out for the browser to pick up Response.Write \"<img src=\"\"/images/msg1.jpg\"\"><br>\" else rem Something happened and we couldn\'t save the image so just use an HTML header rem We need to debug the script and find out what went wrong. See Image.Error for details Response.Write \"<h2>Welcome to</h2>\" end if
food2u.dk> har sku da lige givet dig noget kode du kan bruge
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.