| 发表于：2008-01-21 18:13:11 楼主 |
我用asp+vbscript调用vba做了个试卷生成系统,但是图片无法插入,迷茫中!!!
代码如下
<!--#include file="../conn2.asp"-->
<%
'randomize
subject=request.form（"test_subject")
'response.write（subject)
tx1=request.form（"t1")
tx2=request.form（"t2")
tx3=request.form（"t3")
tx4=request.form（"t4")
' response.write（tx1)
' response.write（tx2)
' response.write（tx3)
' response.write（tx4)
mark1=cint（request.form（"m1"))
'response.write（mark1)
mark2=cint（request.form（"m2"))
mark3=cint（request.form（"m3"))
mark4=cint（request.form（"m4"))
num1=cint（request.form（"num1"))
num2=cint（request.form（"num2"))
num3=cint（request.form（"num3"))
num4=cint（request.form（"num4"))
paper_nm=request.form（"paper_name")
sql="select * from exam_database where exam_subject='"&subject&"' and type='"&tx1&"'"
'response.write（paper_nm)
%>
<script language="vbscript">
function btndy_onclick（)
set objwrd=createobject（"word.document")
objwrd.application.visible=true
set arange=objwrd.paragraphs（1).range
with arange
.bold=true
.paragraphformat.alignment = 1
.font.name = "arial"
.font.size = 12
end with
tx11=" <%=subject%> "
arange.insertbefore（tx11&chr（13))
set pinfo=objwrd.paragraphs（2).range
with pinfo
.paragraphformat.alignment = 1
end with
pinfo.insertbefore（"学号:" & "姓名: "&"班级:"&"成绩:"&chr（13))
set ctab=objwrd.paragraphs（3).range
set tabcurrent = objwrd.application.activedocument.tables.add（ctab,2,4)
with ctab
.paragraphformat.alignment = 1
.bold=false
end with
objwrd.application.activedocument.tables（1).rows（1).cells（1).range.insertafter "第一大题"
objwrd.application.activedocument.tables（1).rows（1).cells（2).range.insertafter "第二大题"
objwrd.application.activedocument.tables（1).rows（1).cells（3).range.insertafter "第三大题"
objwrd.application.activedocument.tables（1).rows（1).cells（4).range.insertafter "总分"
ctab.insertafter（chr（13))
objwrd.paragraphs.last.alignment=0
objwrd.paragraphs.last.linespacingrule=wdlinespaceatleast
objwrd.paragraphs.last.linespacing=24
set arange1=objwrd.content
set arange2=objwrd.content
str1=" <%=tx1%> "
zs1="（每小题"&" <%=mark1%> "&"分,"&"共"&" <%=num1%> "&"题)"
str=str1&zs1
if tx11 <> "选择科目" then
<%
set rs=server.createobject（"adodb.recordset")
rs.open sql,conn,2,3
%>
if str1 <> "题型" then
arange1.insertafter（str&chr（13))
if str1="单选题" or str1="多选题" then
<%
i=0
tn=1
do while not rs.eof and tn <=num1
i=i+1
tm=rs（"question")
an1="a"&rs（"text1")
an2="b"&rs（"text2")
an3="c"&rs（"text3")
an4="d"&rs（"text4")
%>
tm1=replace（" <%=tm%> "," <br> ",chr（13))
nw=" <%=i%> " & "," &tm1& chr（13)
na=" <%=an1%> " & "," & " <%=an2%> " & "," & " <%=an3%> " & "," & " <%=an4%> " & chr（13)
arange1.insertafter（nw)
arange1.insertafter（na)
<%
tn=tn+1
rs.movenext
loop
'set rs=nothing
%>
else
<%
i=0
tn=1
do while not rs.eof and tn <=num1
i=i+1
path=rs（"chart")
tm=rs（"question")
%>
tm1=replace（" <%=tm%> "," <br> ",chr（13))
nw=" <%=i%> " & "," &tm1& chr（13)
arange2.insertafter（nw)
if strlen（" <%=path%> ")> 0 then //判断是否有图片
<%
bt=server.mappath（".")
bt=bt&"\"&"teacher\exercise\chart\"&path
%>
pic=" <%=bt%> "
objwrd.inlineshapes.addpicture pic,true,true,arange2
end if
msgbox pic,vbokcancel,"warming"
<%
tn=tn+1
rs.movenext
loop
%>
end if //最里层
end if //控制题型
end if //选择科目
set objword=nothing
end function
</script>
<body>
<table width="100%" border="0">
<tr>
<td height="67"> <div align="center"> 信息收集完毕,点击生成按钮生成 </div> </td>
</tr>
<tr>
<td height="45"> <div align="center">
<label>
<input name="b1" type="button" onclick="btndy_onclick（)" value="生成" />
</label>
</div> </td>
</tr>
</table>
</body>
</html> |
|
|
|
|
