| 您现在的位置：首页 -> 多媒体制作-> 多媒体课件 |
| 项 目 | 价 格 | 备 注 | 脚本设计 | 5000-8000元 | | 文字 | 500元 | 若客户提供电子文件，该费用忽略不计 | 图片处理 | 10元/幅 | 扫图、修图 | 视频 | 300元/秒500元/秒(加特技) | | 声频 | 背景音乐1000-1500元 | | 配音 视播音员等级而定 | | 过场动画 | 800 元/秒 | | 编程 | 25000---30000元 | 若有多张光盘则每张碟的编程费用递减40% | 界面设计 | 主页1500元 | | 主题页500元 | | 次主题页30元 | | 测试 | 5000元 | |
|
|
<%
For Each objItem in Application.Contents
If IsObject(Application.Contents(objItem)) Then
Response.Write "Object reference: '" & objItem & "'
"
ElseIf IsArray(Application.Contents(objItem)) Then
Response.Write "Array: '" & objItem & "' contents are:
"
VarArray = Application.Contents(objItem)
'Note: the following only works with a one-dimensional array
For intLoop = 0 To UBound(varArray)
Response.Write " Index(" & intLoop & ") = " & _
VarArray(intLoop) & "
"
Next
Else
Response.Write "Variable: '" & objItem & "' = " _
& Application.Contents(objItem) & "
"
End If
Next
%> |
|
|
|
|
|
