| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1194 人关注过本帖
标题:ASP程序生成静态网页路径出错
只看楼主 加入收藏
jobds
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2009-10-11
结帖率:80%
收藏
已结贴  问题点数:15 回复次数:10 
ASP程序生成静态网页路径出错
程序1生成的网页路径是对的,格式为www.
程序2生成的网页路径错误,格式为www.
新人就15分了,全部拿出来求答案,提前感谢先。
程序1
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="co.asp"-->
<%
yusername=Request.Cookies("adminname888")
'response.Write yname
'response.end()
if yusername="" then
response.redirect("index.asp")
end if
%>
<%'容错处理
On Error Resume Next
%>
<%
a=request.QueryString("id")
set rs=server.CreateObject("ADODB.recordset")
sql="SELECT *  FROM xw where id="&a&" Order by uid desc "
rs.open sql,connstr,3,3
cc=rs.recordcount

%>

<%
aa3=rs("bt")
aa4=rs("txt")
aa5=rs("data")
wjm=rs("url")
%>
<%
set rsxw=server.CreateObject("ADODB.recordset")
sqlxw="SELECT *  FROM xw  Order by dj desc"
rsxw.open sqlxw,connstr,3,3

xwhot=""
xwhot=xwhot&"<table width=210 border=0 cellspacing=0 cellpadding=0>"
dim n
n=1
do while not rsxw.eof and n<=12
xwhot=xwhot&"<tr valign=top>"
xwhot=xwhot&"<td width=210 height=28> ·<a href="&rsxw("id")&".html class=style3>"&left(rsxw("bt"),14)&"</a></td>"
xwhot=xwhot&"</tr>"
rsxw.movenext
n=n+1
loop
xwhot=xwhot&"</table>"

%>


<%
set rsxw1=server.CreateObject("ADODB.recordset")
sqlxw1="SELECT *  FROM xw Order by id desc"
rsxw1.open sqlxw1,connstr,3,3

xwhot1=""
xwhot1=xwhot1&"<table width=210 border=0 cellspacing=0 cellpadding=0>"
dim n1
n1=1
do while not rsxw1.eof and n1<=12
xwhot1=xwhot1&"<tr valign=top>"
xwhot1=xwhot1&"<td width=210 height=28> ·<a href="&rsxw1("id")&".html class=style3>"&left(rsxw1("bt"),14)&"</a></td>"
xwhot1=xwhot1&"</tr>"
rsxw1.movenext
n1=n1+1
loop
xwhot1=xwhot1&"</table>"

%>
<%

'打开模板代码,并将其中特殊代码转变为接受值


set rs1=server.CreateObject("ADODB.recordset")
sql1="SELECT *  FROM mb where id=1"
rs1.open sql1,connstr,1,1


'sql1="select m_id,m_html from c_moban where m_id=2"
'set rs1=Server.CreateObject("adodb.recordset")
'rs1.open sql1,conn,1,1
mb_code=rs1("mb")

mb_code=replace(mb_code,"$$bt$$",aa3)
mb_code=replace(mb_code,"$$txt$$",aa4)
mb_code=replace(mb_code,"$$data$$",aa5)
mb_code=replace(mb_code,"$$id$$",a)
mb_code=replace(mb_code,"$$xwhot$$",xwhot)
mb_code=replace(mb_code,"$$xwhot1$$",xwhot1)

'生成HTML页面
Dim fso,f
Dim strTitle,strContent,strOut
'创建文件系统对象
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set f=fso.CreateTextFile(Server.MapPath("../"&wjm),true)

'写入网页内容
f.WriteLine mb_code
f.close
aa="正在生成第"&n&"个文件——"&rs("id")&"—"&rs("url")&"<br>"
response.Write aa
'response.end()
%>

<html>
<head>
<title>k</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../style/basic.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body,td,th {
    font-size: 12px;
}
.style2 {color: #000000}
.style3 {
    font-size: 18px;
    font-weight: bold;
}
.style4 {
    color: #FFFFFF;
    font-weight: bold;
}
-->
</style></head>
<body>
<div align="center">
  <br>
  <br>
  <br>
  <br>
  </div>
</body>
</html>

程序2
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="co.asp"-->
<%
yusername=Request.Cookies("adminname888")
'response.Write yname
'response.end()
if yusername="" then
response.redirect("index.asp")
end if
%>
<%
sql="select * from xw  Order by uid desc"
set rs=server.createObject("ADODB.Recordset")
rs.open sql,conn,1,1
%>
<%
rs.pagesize=25
totalpage=rs.pagecount
rs.close
set rs=nothing

for j=1 to totalpage


sql="select * from xw Order by uid desc"
set rs=server.createObject("ADODB.Recordset")
rs.open sql,conn,1,1

whichpage=j
rs.pagesize=25
totalpage=rs.pagecount
rs.absolutepage=whichpage
howmanyrecs=0
tatalrecord=rs.recordcount
nowpage=request("page")
tatalpages=rs.pagecount
%>

<%
set rsxw=server.CreateObject("ADODB.recordset")
sqlxw="SELECT *  FROM xw  Order by dj desc"
rsxw.open sqlxw,connstr,3,3
%>
<%
set rsxw1=server.CreateObject("ADODB.recordset")
sqlxw1="SELECT *  FROM xw  Order by id desc"
rsxw1.open sqlxw1,connstr,3,3
%>

<%
dj=""
dj=dj&"<table width=210 border=0 cellspacing=0 cellpadding=0>"
dim n
n=1
do while not rsxw.eof and n<=12
dj=dj&"<tr valign=middle>"
dj=dj&"<td width=27 height=26><img src=sz/"&n&".gif width=22 height=14> </td>"
dj=dj&"<td width=183><a href="&rsxw("id")&".html class=style7>"&left(rsxw("bt"),15)&"</a></td>"
dj=dj&"</tr>"

rsxw.movenext
n=n+1
loop
dj=dj&"</table>"
%>
<%
dj1=""
dj1=dj1&"<table width=210 border=0 cellspacing=0 cellpadding=0>"
dim n1
n1=1
do while not rsxw1.eof and n1<=12
dj1=dj1&"<tr valign=middle>"
dj1=dj1&"<td width=27 height=26><img src=sz/"&n1&".gif width=22 height=14> </td>"
dj1=dj1&"<td width=183><a href="&rsxw1("id")&".html class=style7>"&left(rsxw1("bt"),15)&"</a></td>"
dj1=dj1&"</tr>"
rsxw1.movenext
n1=n1+1
loop
dj1=dj1&"</table>"

%>


<%

str0=""
str0=str0&"<table width=713 height=22 border=0 cellpadding=0 cellspacing=0>"
dim n41
n41=1
do while not rs.eof and n41<=rs.pagesize
str0=str0&"<tr>"
str0=str0&"<td width=18 height=28 align=center valign=middle>·</td>"               
str0=str0&"<td width=559 align=left valign=middle class=style7><a href="&rs("url")&" class=style7>"&rs("bt")&"</a></td>"
str0=str0&"<td width=136 align=left valign=middle>"&rs("data")&"</td>"
str0=str0&"</tr>"
rs.movenext
n41=n41+1
loop
str0=str0&"</table>"
%>

            



<%

'分页部分
ref=""
ref=ref&"<br>"
ref=ref&"<table width=690 border=0 align=right cellpadding=0 cellspacing=0> "
ref=ref&"<tr align=right>"
ref=ref&"<td> "
ref=ref&"第"&j&"页&nbsp;共"&totalpage&"页&nbsp;"&tatalrecord&"记录"
ref=ref&"&nbsp;<a href=xw1.html"&" class=txt7>首页</a> "
   if whichpage=1 then
   ref=ref&"&nbsp;上一页 "
   else
   ref=ref&"&nbsp;<a href=xw"&j-1&".html"&" class=txt7>上一页</a> "
   end if
   
   if (whichpage>totalpage or whichpage=totalpage) then
   ref=ref&"&nbsp;下一页 "
   else
   ref=ref&"&nbsp;<a href=xw"&j+1&".html"&" class=txt7>下一页</a> "
   end if
   ref=ref&"&nbsp;<a href=xw"&totalpage&".html"&" class=txt7>末页</a> "
  ref=ref&"</td>"
   
   ref=ref&"<td width=50 align=center>"
   ref=ref&"<select name=leckmenu1leck onChange=leckMM_jumpMenu('parent',this,0)leck>"

for k=1 to tatalpages
if k<>nowpaga then
ref=ref&"<option value=leckxw"&k&".htmlleck"
au=chr(34)
ref=replace(ref,"leck",au)
if k=j then
ref=ref&"selected"
end if
ref=ref&">"&k&"</option>"
else
k
end if
next
ref=ref&"</select>"
   
   
   ref=ref&"</td>"
   
   ref=ref&"<td align=left width=30>页"
   ref=ref&"</td>"
   
   ref=ref&"</tr>"
   ref=ref&"</table> "
aa2=str0&ref


'打开模板代码,并将其中特殊代码转变为接受值


set rs1=server.CreateObject("ADODB.recordset")
sql1="SELECT *  FROM mb where id=14"
rs1.open sql1,connstr,1,1


'sql1="select m_id,m_html from c_moban where m_id=2"
'set rs1=Server.CreateObject("adodb.recordset")
'rs1.open sql1,conn,1,1
mb_code=rs1("mb")

mb_code=replace(mb_code,"$$txt$$",aa2)
mb_code=replace(mb_code,"$$dj$$",dj)
mb_code=replace(mb_code,"$$dj1$$",dj1)


   
Dim fso,f
Dim strTitle,strContent,strOut
'创建文件系统对象
Set fso=Server.CreateObject("Scripting.FileSystemObject")
Set f=fso.CreateTextFile(Server.MapPath("../xw"&j&".html"),true)

'写入网页内容
f.WriteLine mb_code
f.close
response.write "正在生成第"&j&"个页面!<br>"
%>





<%
next
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<body>

</body>
</html>
搜索更多相关主题的帖子: 静态 ASP 路径 网页 
2009-10-16 10:01
aspic
Rank: 17Rank: 17Rank: 17Rank: 17Rank: 17
等 级:贵宾
威 望:51
帖 子:2258
专家分:8050
注 册:2008-2-18
收藏
得分:15 
如果你程序1和程序2在同一个目录下 那么可能是因为程序1读取出来的wjm=rs("url") 是这样的格式 ../xx
2009-10-16 10:51
jobds
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2009-10-11
收藏
得分:0 
ASPIC高人,程序1和程序2在同一个文件夹内,怎样能让程序2生成和程序1一样的正确路径呢?
2009-10-16 11:58
aspic
Rank: 17Rank: 17Rank: 17Rank: 17Rank: 17
等 级:贵宾
威 望:51
帖 子:2258
专家分:8050
注 册:2008-2-18
收藏
得分:0 
Set f=fso.CreateTextFile(Server.MapPath("../xw"&j&".html"),true)
这个地方 你用同一种方法写就可以了呗
2009-10-16 12:02
jobds
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2009-10-11
收藏
得分:0 
楼上的好像升级了哈,恭喜一下先
高手指出的语句应该是对的,但俺试着改了二次,都没改对(俺不会编程哈:)
直接用程序1的相关语句替代程序2的相关语句,生成网页时,程序报错,提示没有权限
后仔细看了一下程序1,发现其中对WJM有过这样一条命令:wjm=rs("url")
俺把这条加在了前面的百分号里面,生成网页时,程序不报错,但没有生成新的网页
俺就试着改Set f=fso.CreateTextFile(Server.MapPath("../"&wjm),true)中的路径
改了几次,生成网页时,程序都报该语句错误
帮人帮到底,麻烦高手再次指点迷津哈
感谢。
2009-10-16 17:08
aspic
Rank: 17Rank: 17Rank: 17Rank: 17Rank: 17
等 级:贵宾
威 望:51
帖 子:2258
专家分:8050
注 册:2008-2-18
收藏
得分:0 
你的程序2看着应该是列表页 列表应该也就是取某个类别
可以用你的类别id作为生成静态页的文件夹名称 这样就可以统一目录了
程序1里面也读取文章所在类别的类别id作为目录名称 这样应该就ok了
2009-10-16 17:31
xpowoow
Rank: 2
等 级:论坛游民
威 望:1
帖 子:63
专家分:22
注 册:2007-10-3
收藏
得分:0 
用时间来作文件夹的名。。。
2009-10-16 23:38
jobds
Rank: 1
等 级:新手上路
帖 子:18
专家分:0
注 册:2009-10-11
收藏
得分:0 
严重感谢ASPIC的解答,XPOWOOW说得对,是用时间来做文件夹的名
Set f=fso.CreateTextFile(Server.MapPath("../xw"&j&".html"),true)
这句是关键,数据库中有一项URL,就是生成网页的正确路径,想把URL加在这句的路径里,怎样加哈?
2009-10-19 10:26
aspic
Rank: 17Rank: 17Rank: 17Rank: 17Rank: 17
等 级:贵宾
威 望:51
帖 子:2258
专家分:8050
注 册:2008-2-18
收藏
得分:0 
Set f=fso.CreateTextFile(Server.MapPath("/"&Date()&"/xw"&j&".html"),true)
2009-10-19 11:17
aspic
Rank: 17Rank: 17Rank: 17Rank: 17Rank: 17
等 级:贵宾
威 望:51
帖 子:2258
专家分:8050
注 册:2008-2-18
收藏
得分:0 
应该是
Set f=fso.CreateTextFile(Server.MapPath("/你的静态页目录/"&Date()&"/xw"&j&".html"),true)
2009-10-19 11:37
快速回复:ASP程序生成静态网页路径出错
数据加载中...
 
   



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

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