[注意] 神奇的图片~~~大家来看看~~ - ASP技术论坛

问题点数：0 回复次数：4

[注意] 神奇的图片~~~大家来看看~~

这张神奇的图片能显示你当前系统的一些相关信息，和当地的前期情况，还能在左上角显示不同的文字，根据时间（不过这时间好象是服务器端的时间，更改本地时间再刷新不会变化）分时问候，真是太神奇了！

可是哪为兄弟知道这是怎么回事啊，不知道的总想弄明白，哪位知道教教我啊！

搜索更多相关主题的帖子: 服务器　神奇　兄弟　系统　左上角　

第 2 楼

得分:0

呵呵，谢谢大家，我试试！！哦

专注于WEB前端交互平台开发：[url=http://blog./]blog.[/url]（富客户端技术（RIA）交流平台）

第 3 楼

得分:0

以下是引用w462156在2005-11-18 13:52:00的发言：
一直在自学.net感觉难.

估计还没入门.

asp.net和asp的运行环境是否有什么区别？.net 的功能比asp强，好象是种趋势了，以后准备学，先了解一下！

专注于WEB前端交互平台开发：[url=http://blog./]blog.[/url]（富客户端技术（RIA）交流平台）

第 4 楼

得分:0

以下是引用hxfly在2005-11-18 13:29:00的发言：
<%@ Page Language="VB" ContentType ="image/jpeg" %>
<%@ Import Namespace =Namespace ="System.Drawing" %>
<%@ Import Namespace =Namespace ="System.Drawing.Imaging" %>
<%@ Import Namespace =Namespace ="System.Drawing.Drawing2D" %>
<%
Dim StrIP As String, StrName As String
Dim address As System.Net.IPAddress

StrIP = Request.ServerVariables("REMOTE_ADDR")
address = System.Net.IPAddress.Parse(StrIP)

Response.Clear()
Dim height As Integer = 30
Dim width As Integer = 210

Dim bmp As New Bitmap(width, height, PixelFormat.Format24bppRgb)
Dim g As Graphics = Graphics.FromImage(bmp)
g.SmoothingMode = SmoothingMode.AntiAlias
g.Clear(Color.LightGray)
g.DrawRectangle(Pens.White, 1, 1, width - 3, height - 3)
g.DrawString("你電腦的IP是：" + StrIP, New Font("Arial", 10, FontStyle.Bold), SystemBrushes.WindowText, New PointF(10, 8))
bmp.Save(Response.OutputStream, ImageFormat.Jpeg)
g.Dispose()
bmp.Dispose()
Response.End()
%>

大体原理是当你访问这个页面的时候
服务器记录你的信息
然后从数据库里读出相应的信息
然后生成图片并反馈

我试了,我将你的那段代码存为ASP格式，再用<img>输出，每法显示，单独运行保存的ASP文件，提示以下错误：

Active Server Pages 错误 'ASP 0221'

无效 @ Command 原语

/weather/img.asp，行1

指定的 'Page Language="VB" ContentType ="image/jpeg" ' 选项未知或无效。

专注于WEB前端交互平台开发：[url=http://blog./]blog.[/url]（富客户端技术（RIA）交流平台）

第 5 楼

得分:0

弄了半天是ASP.NET代码，有没有ASP的啊！

专注于WEB前端交互平台开发：[url=http://blog./]blog.[/url]（富客户端技术（RIA）交流平台）