|
|
|
|
|
|
|
网上查找，很多的。
|
|
|
|
怎么又来一遍啊！
还没解决吗？ <% dim sql,filename,fs,myfile,x,link Set fs = server.CreateObject("scripting.filesystemobject") filename = "E:\htmfiles\"&left(strbianhao,4)&"\b" & strbianhao & ".htm" if fs.FileExists(filename) then fs.DeleteFile(filename) end if set myfile = fs.CreateTextFile(filename,true) dim strLine,responsestr strLine=strLine & "<html>" strLine=strLine & "<head>" strLine=strLine & "<title></title>" strLine=strLine & "</head>" strLine=strLine & "<body>" strLine=strLine & "<p align='center'><font size='4'><b>资金拨付申请表</b></font><p>" strLine=strLine & "<table border='1' cellspacing='0' cellpadding='3' bordercolordark='#FFFFFF' bordercolorlight='#000000' class='z12' width='600'align='center' >" 'strLine=strLine & "<tr align='middle'>" 'strLine=strLine & "<td colspan='5'><font size='3'>资金拨付申请表</font></td>" 'strLine=strLine & "</tr>" strLine=strLine & "<tr>" strLine=strLine & "<td rowspan='12' width='12'>申<br>" strLine=strLine & "请单位填写</td>" strLine=strLine & "<td width='139'>申请项目</td>" strLine=strLine & "<td colspan='3'> " & strname & "</td>" strLine=strLine & "</tr>" strLine=strLine & "<tr> " strLine=strLine & "<td width='139'>申请单位</td>" strLine=strLine & "<td colspan='3'> " & strcompanyname & "</td>" strLine=strLine & "</tr>" strLine=strLine & "<tr>" strLine=strLine & "<td rowspan='3' width='139'>申请单位财务事项</td>" strLine=strLine & "<td colspan='3'>开户行: " & strbank & "</td>" strLine=strLine & "</tr>" strLine=strLine & "<tr>" strLine=strLine & "<td colspan='3'>帐 号: " & straccount & "</td>" strLine=strLine & "</tr>" strLine=strLine & "<tr>" strLine=strLine & "<td colspan='3'>户 名: " & strusername & "</td>" strLine=strLine & "</tr>" strLine=strLine & "<tr>" strLine=strLine & "<td colspan='4'>" strLine=strLine & "<P align=center>项目费用情况(人民币) </P>" strLine=strLine & "</td>" strLine=strLine & "</tr>" strLine=strLine & "<tr>" strLine=strLine & "<td width='139'>批准支持内容</td>" strLine=strLine & "<td width='113'>批准支持比例</td>" strLine=strLine & "<td width='105'>批准支持金额</td>" strLine=strLine & "<td width='109'>实际发生金额</td>" strLine=strLine & "</tr>" strLine=strLine & "<tr>" strLine=strLine & "<td width='139'> " & strzcnr1 & "</td>" strLine=strLine & "<td width='113'> " & strzcbl1 & "</td>" strLine=strLine & "<td width='105'> " & Request.Form("zcje1") & "</td>" strLine=strLine & "<td width='109'> " & Request.Form("sjje1") & "</td>" strLine=strLine & "</tr>" strLine=strLine & "<tr>" strLine=strLine & "<td width='139'> " & strzcnr2 & "</td>" strLine=strLine & "<td width='113'> " & strzcbl2 & "</td>" strLine=strLine & "<td width='105'> " & Request.Form("zcje2") & "</td>" strLine=strLine & "<td width='109'> " & Request.Form("sjje2") & "</td>" strLine=strLine & "</tr>" strLine=strLine & "<tr>" strLine=strLine & "<td width='139'> " & strzcnr3 & "</td>" strLine=strLine & "<td width='113'> " & strzcbl3 & "</td>" strLine=strLine & "<td width='105'> " & Request.Form("zcje3") & "</td>" strLine=strLine & "<td width='109'> " & Request.Form("sjje3") & "</td>" strLine=strLine & "</tr>" strLine=strLine & "<tr>" strLine=strLine & "<td width='139'> " & strzcnr4 & "</td>" strLine=strLine & "<td width='113'> " & strzcbl4 & "</td>" strLine=strLine & "<td width='105'> " & Request.Form("zcje4") & "</td>" strLine=strLine & "<td width='109'> " & Request.Form("sjje4") & "</td>" strLine=strLine & "</tr>" strLine=strLine & "<tr>" strLine=strLine & "<td colspan='4'>审核支持金额合计（大写人民币：元） " & strsumtotal & "</td>" strLine=strLine & "</tr>" strLine=strLine & "<tr >" strLine=strLine & "<td height='135' valign='top' colspan='5'>" strLine=strLine & "<p>申请单位法人代表签字： " strLine=strLine & "单位盖章：</p>" strLine=strLine & "<p> </p>" strLine=strLine & "<p> </p>" strLine=strLine & "<p>  " strLine=strLine & "年 月 日</p>" strLine=strLine & "</td>" strLine=strLine & "</tr>" 'strLine=strLine & "<tr>" 'strLine=strLine & "<td colspan='5'> </td>" 'strLine=strLine & "</tr>" strLine=strLine & "<tr>" strLine=strLine & "<td rowspan='7' width='12'>承<br>办单位填写</td>" strLine=strLine & "<td colspan='4' align='center' >承办单位对资金拨付的意见</td>" strLine=strLine & "</tr>" strLine=strLine & "<tr>" strLine=strLine & "<td colspan='2'>支持内容</td>" strLine=strLine & "<td width='105'>支持比例</td>" strLine=strLine & "<td width='109'>支持金额</td>" strLine=strLine & "</tr>" strLine=strLine & "<tr>" strLine=strLine & "<td colspan='2'> </td>" strLine=strLine & "<td width='105'> </td>" strLine=strLine & "<td width='109'> </td>" strLine=strLine & "</tr>" strLine=strLine & "<tr>" strLine=strLine & "<td colspan='2'> </td>" strLine=strLine & "<td width='105'> </td>" strLine=strLine & "<td width='109'> </td>" strLine=strLine & "</tr>" strLine=strLine & "<tr>" strLine=strLine & "<td colspan='2'> </td>" strLine=strLine & "<td width='105'> </td>" strLine=strLine & "<td width='109'> </td>" strLine=strLine & "</tr>" strLine=strLine & "<tr>" strLine=strLine & "<td colspan='2'> </td>" strLine=strLine & "<td width='105'> </td>" strLine=strLine & "<td width='109'> </td>" strLine=strLine & "</tr>" strLine=strLine & "<tr>" strLine=strLine & "<td colspan='5'>支持金额合计（大写人民币：元）</td>" strLine=strLine & "</tr>" strLine=strLine & "<tr>" strLine=strLine & "<td height='135' valign='top' colspan='3' >承办单位意见并盖章:" strLine=strLine & "<p> </p>" strLine=strLine & "<p> </p>" strLine=strLine & "<p> " strLine=strLine & "年 月 日</td>" strLine=strLine & "<td height='135' valign='top' colspan='2'>外经贸部门意见并盖章:" strLine=strLine & "<p> </p>" strLine=strLine & "<p> </p>" strLine=strLine & "<p> " strLine=strLine & "年 月 日</td>" strLine=strLine & "</tr>" strLine=strLine & "</table>" strLine=strLine & "</body>" strLine=strLine & "</html>" response.write strLine myfile.writeline strLine set myfile = nothing Set fs=Nothing %> |
|
|
|
csdn 阿
xml+数据库 |
|
|
|
你研究研究 射月新闻 系统
希望对你有研究 |
|
|
|
在你在显示 html 的地方
加上<xmp></xmp>标签 |
|
|
关闭