＋设为首页 ＋添加到收藏夹
有代码如下
<% import all relevant namespaces %>
<%@ import namespace="System" %>
<%@ import namespace="System.Drawing" %>
<%@ import namespace="System.Drawing.Imaging" %>
<%@ import namespace="System.IO" %>
<script runat="server">
Sub sendFile()
dim g as System.Drawing.Image = System.Drawing.Image.FromFile(server.mappath(request("src")))
dim thisFormat=g.rawformat
dim imgOutput as New Bitmap(g, cint(request("width")), cint(request("height")))
if thisformat.equals(system.drawing.imaging.imageformat.Gif) then
response.contenttype="image/gif"
else
response.contenttype="image/jpeg"
end if
imgOutput.save(response.outputstream, thisformat)
g.dispose()
imgOutput.dispose()
end sub
</script>
<%
response.clear
response.write("试一试")
call sendFile()
response.end
%>
如果把response.contenttype="image/jpeg" 换成text/html则显示乱码
如果要正常显示图形又要注释掉 response.write("试一试")
有没有办法在一页里又显示图形又显示文字？
来个drawstring或者你response多点东西，把图片放到img里
要么就drawstring把文字写在图像上，当成图片
要么就多做个程序专门来输出图像，调用时用<img src=display.aspx?id=XXXX>
