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

ybjhyr 2003-10-09 04:25:19

...全文

93 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

tomelir 2003-10-09

打赏
举报

在你在显示 html 的地方
加上<xmp></xmp>标签

冰蓝2099 2003-10-09

打赏
举报

你研究研究射月新闻系统

希望对你有研究

萝卜波 2003-10-09

打赏
举报

csdn 阿
xml+数据库

不老书生 2003-10-09

打赏
举报

怎么又来一遍啊！

还没解决吗？

<%

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 & " "
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

%>

lihua9666 2003-10-09