大家帮我看看，问题出在哪里？？？

starpan 2005-01-24 03:55:47
大家好，请帮我看看下面的代码哪里出错了，谢谢
文件名称：rotate.aspx
源代码如下：
<%@ Page Language="VB" %>
<script runat="server">

' Insert page code here
<%@ Page Language="vb" Debug="True" %>
<%@ import namespace="system.drawing" %>
<%@ import namespace="system.drawing.imaging" %>
<%@ import namespace="system.drawing.drawing2d" %>
<%
dim strFilename as string
dim i as System.Drawing.Image
strFilename = server.mappath("./PICT0032.JPG")

i = System.Drawing.Image.FromFile(strFilename)

dim b as New system.drawing.bitmap(i.width, i.height, pixelformat.format24bpprgb)
dim g as graphics = graphics.fromimage(b)

g.clear(color.blue)

'旋转图片
i.RotateFlip(System.Drawing.RotateFlipType.Rotate90FlipX)
g.drawimage(i,New point(0,0))
i.RotateFlip(System.Drawing.RotateFlipType.Rotate270FlipY)

g.RotateTransform(10)
g.drawimage(i,New point(0,0))
g.RotateTransform(10)
g.drawimage(i,New point(20,20))
g.RotateTransform(10)
g.drawimage(i,New point(40,40))
g.RotateTransform(10)
g.drawimage(i,New point(40,40))
g.RotateTransform(-40)
g.RotateTransform(90)
g.drawimage(i,New rectangle(100,-400,100,50),New rectangle(20,20,i.width-20,i.height-20),GraphicsUnit.Pixel)
g.RotateTransform(-90)


' 拉伸图片
g.drawimage(i,New rectangle(10,10,50,50),New rectangle(20,20,i.width-20,i.height-20),GraphicsUnit.Pixel)
g.drawimage(i,New rectangle(50,10,90,50),New rectangle(20,20,i.width-20,i.height-20),GraphicsUnit.Pixel)
g.drawimage(i,New rectangle(110,10,150,50),New rectangle(20,20,i.width-20,i.height-20),GraphicsUnit.Pixel)


'切割图片
g.drawimage(i,50,100,New rectangle(180,80,60,110),GraphicsUnit.Pixel)
g.drawimage(i,140,100,New rectangle(180,80,60,110),GraphicsUnit.Pixel)

'旋转图片
i.RotateFlip(System.Drawing.RotateFlipType.Rotate180FlipX)
g.drawimage(i,230,100,New rectangle(180,110,60,110),GraphicsUnit.Pixel)

response.contenttype="image/jpeg"

b.save(response.outputstream, imageformat.jpeg)

b.dispose()

%>

</script>
错误类型：
E:\Arc_album\rotate\rotate.aspx(5) : error BC30037: 字符无效。

<%@ Page Language="vb" Debug="True" %>
~
...全文
154 16 打赏 收藏 转发到动态 举报
写回复
用AI写文章
16 条回复
切换为时间正序
请发表友善的回复…
发表回复
starpan 2005-01-25
  • 打赏
  • 举报
 回复
个位高手帮我看一下，小的很着急，在线等
starpan 2005-01-24
  • 打赏
  • 举报
 回复
有没有高手在呀？？
starpan 2005-01-24
  • 打赏
  • 举报
 回复
楼上的高手：
你就帮我看一下我的那段程序要怎么改吧。先谢谢您了！！！
seesea125 2005-01-24
  • 打赏
  • 举报
 回复
你以后还是用代码后置把，这种方式不好的，再者你的页面就是逻辑不清楚才搞的这样的，随便找了一个这样的例子，看看人家代码怎么布置的把

<%@ Page Language="VB" debug="true" %>
<html>
<head>
<script language="VB" runat="server">

Public Class Authors

Private _name As String
Private _initials As String

Public Sub New(name As String, initials As String)

_name = name
_initials = initials

End Sub

Public ReadOnly Property Name As String
Get
Return _name
End Get
End Property

Public ReadOnly Property Initials As String
Get
Return _initials
End Get
End Property

End Class

Public Sub Page_Load(Source As Object, E As EventArgs)

Dim viewCount As Integer

If ViewState("viewCount").ToString() = "" Then
viewCount = 1
Else
viewCount = CType(ViewState("viewCount"), Integer) + 1
End If


labelViews.Text = "Times page has been viewed: " & viewCount.ToString()

ViewState("viewCount") = viewCount

If Not IsPostBack Then
Dim values As New ArrayList()

values.Add(New Authors("Alex Homer", "AH"))
values.Add(New Authors("Dave Sussman", "DS"))
values.Add(New Authors("Rich Anderson", "RA"))
values.Add(New Authors("Rob Howard", "RH"))
values.Add(New Authors("Brian Francis", "BF"))

MyRepeater.DataSource = values
MyRepeater.DataBind()

End If

End Sub

Sub MyRepeater_ItemCommand(Sender As Object, e As RepeaterCommandEventArgs)

ClickInfo.Text = "You selected the " & CType(e.CommandSource, Button).Text & " button <br>"

End Sub

</script>
</head>
<body>
<h3><font face="Verdana">Event Bubbling Example with ViewState</font></h3>
<asp:Label id=labelViews font-name="Verdana" font-size="14pt" runat="server"/>
<form runat="server">
<asp:Repeater id="MyRepeater" OnItemCommand="MyRepeater_ItemCommand" runat="server">
<HeaderTemplate>
<table border="0" cellspacing="5">
<tr>
<td><b>Author</b></td>
<td><b>Initials</b></td>
</tr>
</HeaderTemplate>
<ItemTemplate>
<tr>
<td> <%# DataBinder.Eval(Container.DataItem, "Name") %> </td>
<td> <ASP:Button Text='<%# DataBinder.Eval(Container.DataItem, "Initials") %>' runat="server" /></td>
</tr>
</ItemTemplate>
<FooterTemplate>
</table>
</FooterTemplate>
</asp:Repeater>
<p>
<asp:Label id="ClickInfo" font-name="Verdana" font-size="12pt" runat="server"/>
</form>
</body>
</html>
starpan 2005-01-24
  • 打赏
  • 举报
 回复
楼上的高手：
我按照你说的改完运行出现下面的错误：
“
源错误:

[没有相关的源行]
源文件: vbc : 行: 0
”
seesea125 2005-01-24
  • 打赏
  • 举报
 回复
dim strFilename as string
strFilename = server.mappath("./PICT0032.JPG")
也样也提示没有声明啊？
看你的代码，怎么连Public Sub Page_Load(Source As Object, E As EventArgs)都没有？
Public Sub Page_Load(Source As Object, E As EventArgs)
If Not IsPostBack Then
//放代码
dim strFilename as string
strFilename = server.mappath("./PICT0032.JPG")

End If
End Sub
starpan 2005-01-24
  • 打赏
  • 举报
 回复
大家帮帮忙呀！！！！
starpan 2005-01-24
  • 打赏
  • 举报
 回复
改了也还是一样的错误：
strFilename = server.mappath("./PICT0032.JPG") : error BC30188: 需要声明strFilename 。
starpan 2005-01-24
  • 打赏
  • 举报
 回复
什么？
seesea125 2005-01-24
  • 打赏
  • 举报
 回复
<%@ Page Language="VB" debug="true" %>
<script runat="server">改成<script language="VB" runat="server">
噯卟釋手 2005-01-24
  • 打赏
  • 举报
 回复
gz
starpan 2005-01-24
  • 打赏
  • 举报
 回复
thooy(雨天) ：
你好！
我现在按照你说的那个改了，但是出现下面的错误，请指教：
我理解的意思是好象这两个
dim strFilename as string
dim i as System.Drawing.Image
定义变量没用了

E:\Arc_album\rotate\rotate.aspx(11) : error BC30188: 需要声明。

strFilename = server.mappath("./PICT0032.JPG")
yaterman2 2005-01-24
  • 打赏
  • 举报
 回复
pp
liulxmooo 2005-01-24
  • 打赏
  • 举报
 回复
up
thooy 2005-01-24
  • 打赏
  • 举报
 回复
<%@ Page Language="VB" %>
<script runat="server">

' Insert page code here
<%@ Page Language="vb" Debug="True" %>
<%@ import namespace="system.drawing" %>
<%@ import namespace="system.drawing.imaging" %>
<%@ import namespace="system.drawing.drawing2d" %>
<%
改为::

<%@ Page Language="vb" Debug="True" %>
<%@ import namespace="system.drawing" %>
<%@ import namespace="system.drawing.imaging" %>
<%@ import namespace="system.drawing.drawing2d" %>
<script runat="server">
dim strFilename as string
....
</script>
你一个页面中怎么会用两个@page呢
lllaopo 2005-01-24
  • 打赏
  • 举报
 回复
试试把<%@ Page Language="vb" Debug="True" %>
<%@ import namespace="system.drawing" %>
<%@ import namespace="system.drawing.imaging" %>
<%@ import namespace="system.drawing.drawing2d" %>
写在<script>外面
python按键脚本会被检测到吗_我用前台脚本会被游戏检测到？大家进来帮我看看原因...
这段时间在玩大话西游2免费版写了个前台脚本自动在战斗的时候点自动，这个脚本的目的是用来做重复战斗的任务的时候拿来挂机的结果用了10来天左右被封了！！后来在网上看到一些人说前台脚本不能老重复一个做标于是又加了随机数进去，结果过了几天又封了！！！我无语了，不是说用前台脚本玩游戏不会被封号的吗？这是什么情况？实在想不明白，还是说没用神盾的缘故？如果用神盾有用的话用哪个编号的比较好？希望知道的解答一下，一...
教给大家怎么跟好友一起看视频？亲测可用
教给大家怎么跟好友一起看视频？亲测可用。 薯片APP 哈喽，大家好。最近很多朋友在后台留言咨询薯片小姐姐怎么跟好友一起看视频，相信大家在日常生活中都会遇到这样的问题，想找可用邀请好友一起同步观看视频的APP或软件。那今天薯片小姐姐就跟大家安利一款可用跟好友一起看视频的APP，APP名字叫做“薯片”，苹果手机用户可以在APP STORE直接搜索“薯片”，第一个就是，直接下载就可以了。 安卓手机用...
Caused by: java.lang.NullPointerException大家帮我看下，这是怎么回事？
============问题描述============ 第1次调试安卓程序，大家帮我看看根据Logcat的提示，问题是不是131行，大家帮我分析下。在线等。。。。。 ============解决方...
程序员你会修电脑吗？
这是我迄今为止见过的最好的关于程序员会不会修电脑的解答。推荐大家看一下。 程序员和会不会修电脑到底有几毛钱关系？ Q：“我电脑好像有点问题，你帮我看看哪里出问题了帮我修一下行不？” A：“。。。看看可以，但其实我也不太会修电脑” Q：“什么呀，你不是程序员吗，怎么可能不会修电脑~” 额...工作或者学习中总会有人找身边的程序员修电脑，加
面试官问我：什么是消息队列？什么场景需要他？用了会出现什么问题？
什么是消息队列你了解过么?
.NET社区

62,266

社区成员

668,981

社区内容

发帖
与我相关
我的任务
社区描述
.NET技术交流专区
javascript云原生 企业社区
社区管理员
  • ASP.NET
  • .Net开发者社区
  • R小R
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告

.NET 社区是一个围绕开源 .NET 的开放、热情、创新、包容的技术社区。社区致力于为广大 .NET 爱好者提供一个良好的知识共享、协同互助的 .NET 技术交流环境。我们尊重不同意见，支持健康理性的辩论和互动，反对歧视和攻击。

希望和大家一起共同营造一个活跃、友好的社区氛围。

试试用AI创作助手写篇文章吧

+ 用AI写文章