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

ybjhyr 2003-10-09 04:25:19
求pchome论坛，即帖子的内容是以html形式的
...全文
100 5 打赏 收藏 转发到动态 举报
AI 作业
写回复
用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
  • 打赏
  • 举报
 回复
网上查找，很多的。
Atom-pchome24h-feed,生成24小时的feed.pchome.com.tw。为GSLIN/PCHome提供24小时服务.zip
结合"Atom"标签，我们可以推测这个压缩包内的内容可能是用Atom编辑器编写的一个脚本或应用，用于定期抓取和处理PCHome的24小时动态数据，比如价格变动、新品上架等，以便进行数据分析、自动化报告或者其他特定目的。...
PChome手机软件下载html5大图标触屏版手机wap下载网站模板.zip
该压缩包文件“PChome手机软件下载html5大图标触屏版手机wap下载网站模板.zip”提供了一个专为手机用户设计的触屏版网站模板，适用于创建自适应的WAP（无线应用协议）企业网站。这个模板采用了HTML5技术，以确保在...
PChome手机软件下载html5大图标触屏版手机wap下载网站模板_HTML手机电脑网站_网页源码移动端前端_H5模.zip
这个模板是PChome网站风格的，旨在提供简洁、高效的用户界面，便于用户查找和下载手机应用。下面将详细解析这个模板中的关键技术和知识点： 1. HTML5：HTML5是现代网页开发的基础，它引入了许多新特性，如语义化...
前端学生作业毕设实训素材-PChome手机软件下载html5大图标触屏版手机wap下载网站模板.rar
这个压缩包文件“PChome手机软件下载html5大图标触屏版手机wap下载网站模板.rar”是一个完整的前端应用源码，适用于前端学生进行毕业设计和论文研究。它包含了一个功能完善的HTML5移动网站模板，专门针对触屏设备...
1st_JavaScript_Editor_Pro_PChome下载
标题中的“1st_JavaScript_Editor_Pro_PChome下载”指的是一个专为JavaScript开发者设计的集成开发环境（IDE），该IDE可能由PChome网络提供，并被命名为“1st JavaScript Editor Pro”。这款编辑器专注于JavaScript...
ASP

28,409

社区成员

356,968

社区内容

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

加载中

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

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

+ 用AI写文章