代码如下:(问题是只能显示英文,不能显示中文,请问怎么解决)
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
Dim strFontName As String = Request.QueryString("fontname").ToString
Dim intFontSize As Integer = Convert.ToInt16(Request.QueryString("fontsize")) Dim strShowName As String = Request.QueryString("str").ToString Dim objBitmap As Bitmap
Dim g As Graphics Dim stringFont As Font = New Font(strFontName, intFontSize, FontStyle.Bold)
Dim stringFormat As StringFormat = New StringFormat
stringFormat.FormatFlags = StringFormatFlags.NoWrap Try objBitmap = New Bitmap(1, 1)
g = Graphics.FromImage(objBitmap)
Dim stringSize As SizeF = g.MeasureString(strShowName, stringFont)
Dim nWidth As Integer = CType(stringSize.Width, Integer)
Dim nHeight As Integer = CType(stringSize.Height, Integer)
g.Dispose()
objBitmap.Dispose() objBitmap = New Bitmap(nWidth, nHeight)
g = Graphics.FromImage(objBitmap)
g.FillRectangle(New SolidBrush(Color.White), New Rectangle(0, 0, nWidth, nHeight))
g.TextRenderingHint = Text.TextRenderingHint.AntiAlias
g.DrawString(strShowName, stringFont, New SolidBrush(Color.Black), New PointF(0, 0), stringFormat)
objBitmap.Save(Response.OutputStream, Imaging.ImageFormat.Gif)
Catch ex As Exception Response.Write(ex.ToString) Finally g.Dispose()
objBitmap.Dispose() End Try
End Sub
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码
Dim strFontName As String = Request.QueryString("fontname").ToString
Dim intFontSize As Integer = Convert.ToInt16(Request.QueryString("fontsize")) Dim strShowName As String = Request.QueryString("str").ToString Dim objBitmap As Bitmap
Dim g As Graphics Dim stringFont As Font = New Font(strFontName, intFontSize, FontStyle.Bold)
Dim stringFormat As StringFormat = New StringFormat
stringFormat.FormatFlags = StringFormatFlags.NoWrap Try objBitmap = New Bitmap(1, 1)
g = Graphics.FromImage(objBitmap)
Dim stringSize As SizeF = g.MeasureString(strShowName, stringFont)
Dim nWidth As Integer = CType(stringSize.Width, Integer)
Dim nHeight As Integer = CType(stringSize.Height, Integer)
g.Dispose()
objBitmap.Dispose() objBitmap = New Bitmap(nWidth, nHeight)
g = Graphics.FromImage(objBitmap)
g.FillRectangle(New SolidBrush(Color.White), New Rectangle(0, 0, nWidth, nHeight))
g.TextRenderingHint = Text.TextRenderingHint.AntiAlias
g.DrawString(strShowName, stringFont, New SolidBrush(Color.Black), New PointF(0, 0), stringFormat)
objBitmap.Save(Response.OutputStream, Imaging.ImageFormat.Gif)
Catch ex As Exception Response.Write(ex.ToString) Finally g.Dispose()
objBitmap.Dispose() End Try
End Sub
<globalization
requestEncoding="utf-8"
responseEncoding="utf-8"
/>
改成:
<globalization
requestEncoding="GB2312"
responseEncoding="GB2312"
/>
requestEncoding="GB2312"
responseEncoding="GB2312"
/>