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

ybjhyr 2003-10-09 04:25:19
求pchome论坛,即帖子的内容是以html形式的
...全文
58 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
tomelir 2003-10-09
  • 打赏
  • 举报
回复
在你在显示 html 的地方
加上<xmp></xmp>标签
yllaji 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
  • 打赏
  • 举报
回复
网上查找,很多的。

28,390

社区成员

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

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