这句话怎么改写成VBscript?

Lersh 2001-09-22 10:50:09
想把这段代码用VBScript来实现:
face_1 = document.form1.Career.value;
face_2 = document.form1.Sex.value;
face_3 = document.form1.Face.value;
face = face_1+"-"+face_2+"-"+face_3+".gif";
show_file = '<img src='+face+'>';
document.all.show.innerHTML=show_file;
我该怎么写
...全文
116 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
KiteGirl 2002-02-01
  • 打赏
  • 举报
回复
最接近Java的语法是:
face_1 = document.form1.Career.value
face_2 = document.form1.Sex.value
face_3 = document.form1.Face.value
face = face_1+"-"+face_2+"-"+face_3+".gif"
show_file = "<img src=" + face + ">"
document.all.show.innerHTML=show_file

VBScript特色语法是:
face_1 = document.form1.Career.value
face_2 = document.form1.Sex.value
face_3 = document.form1.Face.value
face = face_1 & "-" & face_2 & "-" & face_3 & ".gif"
show_file = "<img src=" & face & ">"
document.all.show.innerHTML=show_file

另外,需要把<script>元素做如下改动。(以下script元素中的代码是我改写的你的程序,完成相同目的。下面的办法是我做相同事情的习惯做法,供你参考。)
<script language="VBScript" type="text/VBScript">
Set tSourObject=document.form1
Set tDestObject=document.all.show
Sub SetFormValue(pSourObject,pDestObject)
'pSourObject Form元素对象。
'pDestObject 图片容器
tFace_1 = CStr(pObject.Career.value)
tFace_2 = CStr(pObject.Sex.value)
tFace_3 = CStr(pObject.Face.value)
tFaceSrc = face_1 & "-" & face_2 & "-" & face_3 & ".gif"
Set NewElement=document.createElement("IMG")
NewElement.src=tFaceSrc
pDestObject.insertAdjacentElement("beforeEnd",NewElement)
End Sub
</script>
lihaitaoami 2002-01-31
  • 打赏
  • 举报
回复
把分号去掉就OK了。单引号改为双引号。
wilddragon 2001-09-24
  • 打赏
  • 举报
回复
支持一把
wilddragon 2001-09-24
  • 打赏
  • 举报
回复
期待答案
AiNet 2001-09-23
  • 打赏
  • 举报
回复
把所有的连字符 "+" 改成 "&" 就ok了
去掉结束符 ";"

face = face_1+"-"+face_2+"-"+face_3+".gif";
show_file = '<img src='+face+'>';

->

face = face_1 & "-" & face_2 & "-" & face_3 & ".gif";
show_file = '<img src=' & face & '>';
AiNet 2001-09-23
  • 打赏
  • 举报
回复
哦!
对!
忘了
还有
单引号 -> 双引号
karma 2001-09-23
  • 打赏
  • 举报
回复
the statements shown above is invalid:
1. ";" at tht end of line is invalid in VBScript
2. 's in VBScript are comments, you need to put them in ""

face_1 = document.form1.Career.value
face_2 = document.form1.Sex.value
face_3 = document.form1.Face.value
face = face_1 & "-" & face_2 & "-" & face_3 & ".gif"
show_file = "<img src='" & face & "'>"
document.all.show.innerHTML=show_file

87,910

社区成员

发帖
与我相关
我的任务
社区描述
Web 开发 JavaScript
社区管理员
  • JavaScript
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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