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

ybjhyr 2003-10-09 04:25:19
求pchome论坛，即帖子的内容是以html形式的
...全文
121 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 & "<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

%>
lihua9666 2003-10-09
  • 打赏
  • 举报
 回复
网上查找，很多的。
async-profiler-4.5-linux-x64.tar.gz
async-profiler-4.5-linux-x64.tar.gz
实用代码脚本易语言源码通用界面扩展
实用代码脚本易语言源码通用界面扩展
高校技术转移办公室人员如何借助科创大脑推动科技成果精准转化？.docx
科易网基于40亿+科创知识图谱数据库，深度探索AI技术在技术转移、成果转化、技术经纪、知识产权、产业创新、科技招商等垂直领域的多样化应用场景，研究科技创新领域的AI+数智化解决方案，推动科技创新与产业创新智能化发展。
使用机器学习的简约VAR模型评估中国的宏观金融联系.pdf
使用机器学习的简约VAR模型评估中国的宏观金融联系.pdf
ASP

28,404

社区成员

356,942

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章