| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 599 人关注过本帖
标题:[求助]ASP生成HTML问题,请大家指点一下修改方法!
只看楼主 加入收藏
cqboy
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2006-10-13
收藏
 问题点数:0 回复次数:1 
[求助]ASP生成HTML问题,请大家指点一下修改方法!

问题是这样的,在执行以下这段代码生成HTML文件的时候,如果不添加下面代码中红色标出部分的话,程序能够正常执行,因为那里要显示多条信息,所以需要加入LOOP这个参数,但是我不明白的是,加了这个参数后,程序出现了一个非常严重的问题,就是在执行本代码的时候,就不能够完全正常执行,系统CPU资源一直都是100%。我程序是错在什么地方了,怎么修改,谢谢!
请各位大大一定要帮我!在线等待中... ...

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>生成产品所有内容页</title>
</head>
<body>
<!--#include file="../../../conn/conn.asp"-->
<!--#include file="../../../inc/safe.asp"-->
<%
'读取模板
set rs=server.createobject("adodb.recordset")
rs.open ("select productshow_type from worldec_Temp"),conn,1,1
pencat=rs("productshow_type")
rs.close
'读取要生成的条数
if request("page")<>"" then
if cint(request("page"))<1 then
currentPage=1
else
currentPage=cint(request("page"))
end if
else
currentPage=1
end if

if request("TopNew")>"" then
if Chkrequest(request("TopNew")) then
TopNew=request("TopNew")
elsewo
Response.Redirect ("/login/chklogin.asp?login=4")
end if
end if
'************** 读取条数 ***************
MaxPerPage=1
if request("all")="all" then
set rs=server.createobject("adodb.recordset")
rs.open ("select * from kjinfo order by date_time asc"),conn,1,1
end if
if not rs.eof then
rs.pagesize=MaxPerPage
mpage=rs.pagecount '得到总条数
if TopNew>"" then
currentPage=mpage-TopNew
end if
rs.move (currentPage-1)*MaxPerPage
if mpage>=currentPage then
typeid=rs("typeid")
ttid=rs("id")
sortid=rs("sortid")
showname=rs("kj_name")
kj_pingtai=rs("kj_pingtai")
kj_type=rs("kj_type")
kj_moshi=rs("kj_moshi")
end if
end if
rs.close


sorttype="select class_2.*,class_1.* from class_2,class_1 where class_2.typeid="&typeid&" and class_1.sortid=class_2.sortid"
set rssorttype=conn.execute(sorttype)
L_SORT=L_SORT&"<a href='/tradeinfo/trade/"&rssorttype("sortid")&".html'>"&rssorttype("sort")&"</a>"
L_SORT=L_SORT&" <small>></small> "
L_TYPE=L_TYPE&"<a href='/list_show_gn.asp?typeid="&typeid&"'>"&rssorttype("typename")&"</a>"
rssorttype.close

set rs=server.createobject("adodb.recordset")
rs.open ("select kjinfo.* from kjinfo where kjinfo.id="&ttid&" and kjinfo.kj_name="&showname&""),conn,1,1
company=rs("company")
'标志此条信息为已经生存HTML
conn.execute("update productshow set html_pass=1 where id="&ttid&"")

KJ_NAME=KJ_NAME&""&showname&""&VbCrLf

KJ_COPY=KJ_COPY&""&rs("kj_copy")&""&VbCrLf

if rs("kj_img")<>"nopicture.gif" then
TR_PIC=TR_PIC&"<IMG src="&rs("kj_img")&" border=0>" &VbCrLf
else
TR_PIC=TR_PIC&"<FONT class=C color=#cecfce>无控件截图</FONT>" &VbCrLf
end if

c="select * from gsjbxx where gsid="&company&""
set rsc=conn.execute(c)
TR_CORNAME=TR_COPNAME&"<A href=http://"&rsc("gsdz")&" target=_blank title="&rsc("gsmc")&">"&rsc("gsmc")&"</A>" &VbCrLf
c.close
set rsc=nothing

if rs("kj_type")<>"" then
iii=split(rs("kj_type"),",")
for i=0 to ubound(iii)
t="select * from kjtype where lxid="&iii(i)&""
set rst=conn.execute(t)
TR_LIANXI=TR_LIANXI&"<A href=/list_show_lx.asp?kj_type="&rst("lxid")&">"&rst("lxmc")&"</A>"&VbCrLf
if ubound(iii)>i then
TR_LIANXI=TR_LIANXI&"&nbsp;|&nbsp;"&VbCrLf
end if
t.close
set rsc=nothing
next
end if

if rs("kj_moshi")<>"" then
ii=split(rs("kj_moshi"),",")
for i=0 to ubound(ii)
m="select * from kjmoshi where kjmsid="&ii(i)&""
set rsm=conn.execute(m)
TR_MOSHI=TR_MOSHI&"<A href=/list_show_ms.asp?kj_moshi="&rsm("kjmsid")&">"&rsm("kjmsmc")&"</A>"&VbCrLf
if ubound(ii)>i then
TR_MOSHI=TR_MOSHI&"&nbsp;|&nbsp;"&VbCrLf
end if
m.close
set rsc=nothing
next
end if

if rs("kj_pingtai")<>"" then
pii=split(rs("kj_pingtai"),",")
for i=0 to ubound(pii)
p="select * from kjpt where ptid="&pii(i)&""
set rsp=conn.execute(p)
TR_PT=TR_PT&"<A href=/list_show_pt.asp?kj_pingtai="&rsp("ptid")&">"&rsp("ptmc")&"</A>"&VbCrLf
if ubound(pii)>i then
TR_PT=TR_PT&"&nbsp;|&nbsp;"&VbCrLf
end if
p.close
set rsc=nothing
next
end if

NL_P=NL_P&"<A class=a5 href=/info/products/"&sortid&"-"&typeid&"-"&ttid&".html>产品介绍</A>"&VbCrLf
NL_J=NL_J&"<A class=a5 href=/info/price/"&sortid&"-"&typeid&"-"&ttid&".html>产品价格</A>"&VbCrLf
NL_D=NL_D&"<A class=a5 href=/info/updata/"&sortid&"-"&typeid&"-"&ttid&".html>产品更新</A>"&VbCrLf
NL_Z=NL_Z&"<A class=a5 href=/service.asp>技术支持</A>"&VbCrLf

L_BODY=L_BODY&"<table width=90% border=0 align=center cellpadding=0 cellspacing=0>"&VbCrLf
L_BODY=L_BODY&"<tr><td>"&VbCrLf
set rsxz=server.createobject("adodb.recordset")
sqlxz="select * from kjdown where kj_id="&ttid&""
rsxz.open sqlxz,conn,1,3
do while not rsxz.eof
L_BODY=L_BODY&"<tr>"&VbCrLf
L_BODY=L_BODY&"<td height=25 >"&VbCrLf
L_BODY=L_BODY&"<a href=../downsoft.asp?xzid="&rsxz("xz_id")&">"&rsxz("xz_mc")&"</a>"&VbCrLf
L_BODY=L_BODY&"</td>"&VbCrLf
L_BODY=L_BODY&"<td height=25 >"&VbCrLf
L_BODY=L_BODY&"已下载"&rsxz("xz_cs")&"次"&VbCrLf
L_BODY=L_BODY&"</td>"&VbCrLf
L_BODY=L_BODY&"</tr>"&VbCrLf
rsxz.movenext
loop
L_BODY=L_BODY&"</table>"&VbCrLf
rs.close

response.write "<br><b>已生成/要生成的页面条数:<font color=#FF0000>"&currentPage-1&"</font>/<font color=#FF0000><b>"&mpage&"</b></font>个"
if mpage<currentPage then
response.write ",完成时间"&Now()&"</b> "
else
'************** 生成HTML页 开始 ***************

L_WORLDECNEME=L_WORLDNEME&""&webname&"" '网站名称
L_WORLDECURL=L_WORLDECURL&""&weburl&"" '网址
L_TRADEINFO=L_TRADEINFO&""&showname&"" '页面标题
L_TRADINFOID=TRADINFOID&""&ttid&"" '当前页面ID
L_TRADESEAR=L_TRADESEAR&""&search&"" '搜索关键字
L_SYSTEMTEL=L_SYSTEMTEL&""&Systemtel&"" '服务热线
pencat=replace(pencat,"L_WORLDECNEME",L_WORLDECNEME)
pencat=replace(pencat,"L_WORLDECURL",L_WORLDECURL)
pencat=replace(pencat,"L_SYSTEMTEL",L_SYSTEMTEL)
pencat=replace(pencat,"L_TRADEINFO",L_TRADEINFO)
pencat=replace(pencat,"L_TRADINFOID",L_TRADINFOID)
pencat=replace(pencat,"L_TRADESEAR",L_TRADESEAR)
pencat=replace(pencat,"L_BODY",L_BODY)
pencat=replace(pencat,"TR_PT",TR_PT)
pencat=replace(pencat,"TR_MOSHI",TR_MOSHI)
pencat=replace(pencat,"TR_LIANXI",TR_LIANXI)
pencat=replace(pencat,"TR_CORNAME",TR_CORNAME)
pencat=replace(pencat,"TR_PIC",TR_PIC)
pencat=replace(pencat,"KJ_NAME",KJ_NAME)
pencat=replace(pencat,"L_SORT",L_SORT)
pencat=replace(pencat,"L_TYPE",L_TYPE)
pencat=replace(pencat,"KJ_COPY",KJ_COPY)
pencat=replace(pencat,"NL_Z",NL_Z)
pencat=replace(pencat,"NL_P",NL_P)
pencat=replace(pencat,"NL_J",NL_J)
pencat=replace(pencat,"NL_D",NL_D)

Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set sort_save = fso.CreateTextFile(server.mappath("/info/updown/"&sortid&"-"&typeid&"-"&ttid&".html"))
sort_save.Write pencat
sort_save.close
response.write "<meta http-equiv=Refresh content='0; URL=makedupdown.asp?all="&request("all")&"&full="&request("full")&"&page="&currentPage+1&"'>"
end if
'************** 生成HTML页 结束 ***************
set rs=nothing
conn.close
set conn=nothing
%>

搜索更多相关主题的帖子: ASP HTML quot CPU 
2006-10-13 00:57
tjj
Rank: 1
等 级:新手上路
帖 子:9
专家分:0
注 册:2007-4-3
收藏
得分:0 

&"<table width=90% border=0 align=center cellpadding=0 cellspacing=0>"&VbCrLf
L_BODY=L_BODY&"<tr><td>"&VbCrLf
set rsxz=server.createobject("adodb.recordset")
sqlxz="select * from kjdown where kj_id="&ttid&""
rsxz.open sqlxz,conn,1,3
do while not rsxz.eof
L_BODY=L_BODY&"<tr>"&VbCrLf
L_BODY=L_BODY&"<td height=25 >"&VbCrLf
L_BODY=L_BODY&"<a href=../downsoft.asp?xzid="&rsxz("xz_id")&">"&rsxz("xz_mc")&"</a>"&VbCrLf
L_BODY=L_BODY&"</td>"&VbCrLf
L_BODY=L_BODY&"<td height=25 >"&VbCrLf
L_BODY=L_BODY&"已下载"&rsxz("xz_cs")&"次"&VbCrLf
L_BODY=L_BODY&"</td>"&VbCrLf
L_BODY=L_BODY&"</tr>"&VbCrLf
rsxz.movenext
loop
L_BODY=L_BODY&"</table>"&VbCrLf


你这嵌套的也不对着呢。<table>后<tr><td>他的末尾标签呢</td></tr>呢


2007-05-10 13:19
快速回复:[求助]ASP生成HTML问题,请大家指点一下修改方法!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.032168 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved