自己对VBSCRIPT生成WORD的整合.....

最新推荐文章于 2013-10-31 17:38:33 发布

yxtyxt3311

最新推荐文章于 2013-10-31 17:38:33 发布

阅读量2.1k

点赞数

分类专栏： VB ASP HTML 文章标签： vbscript stylesheet processing function javascript button

本文链接：https://blog.csdn.net/yxtyxt3311/article/details/596242

版权

这段代码展示了如何使用VBScript结合JavaScript创建一个Word文档，包含现场勘验检查笔录的相关信息，如日期、时间、地点等，并用表格展示详细数据。

摘要由CSDN通过智能技术生成

<HTML>
<HEAD>
<meta HTTP-EQUIV="Content-Type" content="text/html; charset=gb_2312-80">
<link rel="stylesheet" type="text/css" href="edit.css">
<title>保存为Word文档</title>
</HEAD>
<script language="javascript">
window.returnValue=0
</script>
<BODY>
<font color="#000080"><strong><div id="strHint" align="center">数据处理中,请等待...<br>
Data processing, please wait...</div></strong></font><font color="#0080C0">

<%
set objcn = server.CreateObject("gdcom.database")
set rs = server.CreateObject("ADODB.Recordset")
set rs1 = server.CreateObject("ADODB.Recordset")
kch=trans(request.QueryString("kch"))
kch="5200000100002006020001"
strsql="select a.*,b.unitname as idTBDWBH,c.detail as idab1,d.detail as idtq,e.detail as idgx,f.detail as idfx,"
strsql=strsql&"g.detail as idXZSJ,h.detail as idXZCS,i.detail as idXZBW,j.detail as idXZDX,k.detail as idZAGJ,l.detail as idSDTD,m.username as idlrr,n.detail as idajxz "
strsql=strsql&"from xckcbc a,(select unitid,unitname from tblunit) b,"
strsql=strsql&"(select code,detail from zdb where kind='24') c,(select code,detail from zdb where kind='61') d,"
strsql=strsql&"(select code,detail from zdb where kind='91') e,(select code,detail from zdb where kind='90') f,"
strsql=strsql&"(select code,detail from zdb where kind='29') g,(select code,detail from zdb where kind='30') h,"
strsql=strsql&"(select code,detail from zdb where kind='30' and code like '23%') i,(select code,detail from zdb where kind='31') j,(select code,detail from zdb where kind='44') n,"
strsql=strsql&"(select code,detail from zdb where kind='33') k,(select code,detail from zdb where kind='35') l,(select userid,username from tbluser) m "
strsql=strsql&"where kch='"&kch&"' and a.tbdwbh=b.unitid(+) and a.ab1=c.code(+) and a.tq=d.code(+) "
strsql=strsql&"and a.gx=e.code(+) and a.fx=f.code(+) and a.XZSJ=g.code(+) and a.XZCS=h.code(+) and a.XZBW=i.code(+) "
strsql=strsql&"and a.XZDX=j.code(+) and a.ZAGJ=k.code(+) and a.SDTD=l.code(+) and a.lrr=m.userid(+) and a.ajxz=n.code(+)"

'strSQL="select unitname from tblunit where unitid='"&session("unitid")&"'"
set rs = objcn.RunSQLReturnRS(strSQL)
nian=left(right(rs("kch"),10),4)
xh=right(rs("kch"),6)
xxsj=cdate(rs("Sjtime"))
xxnian=year(xxsj)
xxyue=month(xxsj)
xxtian=day(xxsj)
xxshi=hour(xxsj)
xxfen=minute(xxsj)
KCSJ1=cdate(rs("KCSJ1"))
KCSJ1nian=year(KCSJ1)
KCSJ1yue=month(KCSJ1)
KCSJ1tian=day(KCSJ1)
KCSJ1shi=hour(KCSJ1)
KCSJ1fen=minute(KCSJ1)
KCSJ2=cdate(rs("KCSJ2"))
KCSJ2nian=year(KCSJ2)
KCSJ2yue=month(KCSJ2)
KCSJ2tian=day(KCSJ2)
KCSJ2shi=hour(KCSJ2)
KCSJ2fen=minute(KCSJ2)
kcjcqc=replace(rs("XCMS"),"<br>","""&chr(10)&""　　")
kcjcqc=replace(kcjcqc," "," ")
kcxcfx=replace(rs("kcxcfx"),"<br>","""&chr(10)&""　　")
kcxcfx=replace(kcxcfx," "," ")
kcshmbjss=replace(rs("kcshmbjss"),"<br>","""&chr(10)&""　　")
kcshmbjss=replace(kcshmbjss," "," ")
zagc=replace(rs("ZAGCMSJYJ"),"<br>","""&chr(10)&""　　")
zagc=replace(zagc," "," ")
zartd=replace(rs("kczartd"),"<br>","。""&chr(10)&""　　")
zartd=replace(zartd," "," ")
kccbyjygj=replace(rs("kccbyjygj"),"<br>","""&chr(10)&""　　")
kccbyjygj=replace(kccbyjygj," "," ")
VCHDESC=replace(rs("VCHDESC"),"<br>","""&chr(10)&""　　")
VCHDESC=replace(VCHDESC," "," ")
FASJCZ=cdate(rs("FASJCZ"))
FASJCZnian=year(FASJCZ)
FASJCZyue=month(FASJCZ)
FASJCZtian=day(FASJCZ)
FASJCZshi=hour(FASJCZ)
FASJCZfen=minute(FASJCZ)
FASJZZ=cdate(rs("FASJZZ"))
FASJZZnian=year(FASJZZ)
FASJZZyue=month(FASJZZ)
FASJZZtian=day(FASJZZ)
FASJZZshi=hour(FASJZZ)
FASJZZfen=minute(FASJZZ)
zasj=FASJCZnian&"年"&FASJCZyue&"月"&FASJCZtian&"日"&FASJCZshi&"时"&FASJCZfen&"分至"
zasj=zasj&FASJzZnian&"年"&FASJzZyue&"月"&FASJzZtian&"日"&FASJzZshi&"时"&FASJzZfen&"分"

knxmtemp=rs("KCXM")&","&rs("fyxm")
knzwtemp=rs("KCzw")&","&rs("fyzw")
if trim(knxmtemp)<>"," then
knxm=split(knxmtemp,",")
knzw=split(knzwtemp,",")
execute "dim kndw("&ubound(knxm)&")"
for k=0 to ubound(knxm)
if trim(knxm(k))<>&