求pchome论坛，即帖子的内容是以html形式的-CSDN论坛

⋅binlog为什么没有记录一些insert操作呢 ⋅firefox下在iframe里提交表单出现问题，高手帮看看！ ⋅360浏览器窗口关闭事件 更多帖子 关注空间博客 不老书生 本版专家分：3279: 0 2003-10-09 16:48:21

引用・举报・ #2 得分：0

怎么又来一遍啊！

还没解决吗？

<%

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 & "资金拨付申请表"
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'>资金拨付申请表</td>"
'strLine=strLine & "</tr>"
strLine=strLine & "<tr>"
strLine=strLine & "<td rowspan='12' width='12'>申 "
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 & "项目费用情况(人民币)  "
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 & "申请单位法人代表签字：                   "
strLine=strLine & "单位盖章："
 strLine=strLine & "　"
strLine=strLine & "　"
strLine=strLine & "                                        &nbsp"
strLine=strLine & "年   月   日"
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'>承 办单位填写</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 & "　"
strLine=strLine & "　"
strLine=strLine & "                    "
strLine=strLine & "年   月   日</td>"
strLine=strLine & "<td height='135' valign='top' colspan='2'>外经贸部门意见并盖章:"
strLine=strLine & "　"
strLine=strLine & "　"
strLine=strLine & "              "
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

%>

求pchome论坛，即帖子的内容是以html形式的 [问题点数：0分]