不知道谁可以提供啊
在这里写个
我这里有一个生成HTML的,但没有分页,不知道,哪位高手,帮忙解决下.
<!--#Include File="conn.asp" -->
<!--#Include File="inc/inc.asp" -->
<!--#Include File="inc/public.asp" -->
<!--#Include File="inc/cls_editor.asp" -->
<!--#Include File="inc/cls_template.asp" -->
<%
admin_title()
%>
<%dim pagesql,pagers,ntitle
Call Chk_IsMaster
If Not Chk_Power(Admin_Power,"61") Then
ErrMsg="对不起您没有此权限！"
Errshow(1)
response.end
End If
Server.ScriptTimeout=9999999

Dim Action
dim SystemFolder
SystemFolder="../html/"
Action=Request.QueryString ("Action")

Select Case LCase(Action)
Case "mark"
dim ea_temp
Response.Clear
Response.Flush
Set EA_Temp=New cls_Template
Call MarkView
Case Else
Call Main
End Select

Sub Main
Dim Level,Temp,i
%>
<table width="100%" cellpadding="0" cellspacing="0" align="center" class=TableBorder>
<tr height="22" valign="middle">
<td width="50%" class=forumRow align="left">&nbsp;<B><a href="javascript:switch_helpcontent()">操作说明</a></B></td>
<td width="50%" class=forumRow align="right">·<a href=# onclick=history.go(-1)><b><%=str_Comm_Back%></b></a>&nbsp;<a href=# onclick=history.go(1)><b><%=str_Comm_Next%></b></a>·&nbsp;</td>
</tr>
<tr style="display:none" id="info_content">
<td colspan="2" bgcolor="ffffff" height="25"><table width="99%" align=center>
<tr>
<td><%=str_Master_Help%></td>
</tr>
</table></td>
</tr>
</table>
<br>
<script src="inc/jsdate.js"></script>
<table width="100%" align="center" cellpadding="1" cellspacing="1" style="border: 1 solid #808080">
<form action="?Action=mark" method=post id=form1 name=form1>
<tr height=22 align="left">
<th>&nbsp;按ID生成
<input type=hidden name="tag" value="1"></th>
</tr>
<tr valign="middle">
<td height="22" bgcolor="ffffff" align="left">&nbsp;&nbsp;开始ID<input type="text" name="sid" size="5" onKeypress="if (event.keyCode < 45 || event.keyCode > 57) event.returnValue = false;"></td>
</tr>
<tr valign="middle">
<td height="22" bgcolor="ffffff" align="left">&nbsp;&nbsp;结束ID<input type="text" name="eid" size="5" onKeypress="if (event.keyCode < 45 || event.keyCode > 57) event.returnValue = false;"></td>
</tr>
<tr height=22>
<td bgcolor="ffffff">&nbsp;&nbsp;<input type="submit" name="Submit" value="确定"></td>
</tr>
</form>
</table>
<br>
<table width="100%" align="center" cellpadding="1" cellspacing="1" style="border: 1 solid #808080">
<form action="?Action=mark" method=post id=form2 name=form2>
<tr height=22 align="left">
<th>&nbsp;按日期生成
<input type=hidden name="tag" value="2"></th>
</tr>
<tr valign="middle">
<td height="22" bgcolor="ffffff" align="left">&nbsp;&nbsp;开始时间
<input type="text" name="date1" size="10" readonly>&nbsp;<a href="#SelectDate" onclick="SD(this,'document.form2.date1')"><img border="0" src="images/date_picker.gif" width="30" height="19"></a>&nbsp;</td>
</tr>
<tr valign="middle">
<td height="22" bgcolor="ffffff" align="left">&nbsp;&nbsp;结果时间
<input type="text" name="date2" size="10" readonly>&nbsp;<a href="#SelectDate" onclick="SD(this,'document.form2.date2')"><img border="0" src="images/date_picker.gif" width="30" height="19"></a>&nbsp;</td>
</tr>
<tr height=22>
<td bgcolor="ffffff">&nbsp;&nbsp;<input type="submit" name="Submit" value="确定"></td>
</tr>
</form>
</table>
<br>
<table width="100%" align="center" cellpadding="1" cellspacing="1" style="border: 1 solid #808080">
<form action="?Action=mark" method=post id=form3 name=form3>
<tr height=22>
<th align="left">&nbsp;按栏目生成
<input type=hidden name="tag" value="3"></th>
</tr>
<tr>
<td class=forumRowHighlight> <%
dim srtClassList
'response.write SafeRequest(1,"classid",0,0,0)
srtClassList = ClassJumpList
srtClassList = Replace(srtClassList, "{ClassID=" &SafeRequest(1,"classid",0,0,0) & "}", "selected")
Response.Write srtClassList
%>
</td></tr>
<tr height=22>
<td bgcolor="ffffff">&nbsp;&nbsp;<input type="submit" name="Submit" value="确定"></td>
</tr>
</form>
</table>
<%
End Sub

Sub MarkView
Call Chk_Post

Dim TopicList,i,j
Dim Tag
Dim StartBorder,EndBorder
Dim WSQL

Tag=SafeRequest(2,"tag",0,0,0)

Select Case Tag
Case 1
StartBorder=SafeRequest(2,"sid",0,0,0)
EndBorder=SafeRequest(2,"eid",0,0,0)

WSQL=" And a.[id] between "&StartBorder&" and "&EndBorder
Case 2
StartBorder=SafeRequest(2,"date1",2,"",0)&" 00:00:00"
EndBorder=SafeRequest(2,"date2",2,"",0)&" 23:59:59"

WSQL=" And AddDate between '"&StartBorder&"' and '"&EndBorder&"'"
Case 3
dim classid
if trim(Request.Form("Classid"))<>"" then
startborder = Split(Trim(Request.Form("Classid")), ",")
if isarray(startborder) then
classid= startborder(1)
if classid<>0 then WSQL=" And a.classId="&classid
end if
end if
End Select

'0=classid,1=Title,2=Summary,3=Content,4=ViewNum,5=AuthorId,6=Author,7=CommentNum,8=IsOut
'9=OutUrl,10=[KeyWord],11=AddDate,12=CutArticle,13=Source,14=SourceUrl,15=TColor,16=Img,17=IsTop,18=ListPower
'19=[Id],20=TrueTime
SQL="Select a.classId,a.Title,Summary,Content,a.ViewNum,AuthorId,Author,CommentNum,a.IsOut"
SQL=SQL&",a.OutUrl,[KeyWord],AddDate,CutArticle,Source,SourceUrl,TColor,Img,a.IsTop,a.[Id],TrueTime,b.classname,a.rootid,a.ushow,a.topic"
SQL=SQL&" FROM P_Content AS a left JOIN P_Class AS b ON a.classId=b.classId Where IsPass=1 And IsDel=0 "&WSQL&" Order By a.classId"
'response.write sql
'response.End()
Set Rs=Conn.Execute(SQL)
If Not rs.eof And Not rs.bof Then
TopicList=Rs.GetRows()
%>
<table cellpadding="1" cellspacing="1" style="border: 1 solid #808080" width="500">
<tr>
<td bgcolor=ffffff>&nbsp;<%=Ubound(TopicList,2)+1%>&nbsp;页面，页面&nbsp;<span id=column_complete name=column_complete></span>&nbsp;页面</td>
</tr>
<tr>
<td bgcolor=ffffff height=9>&nbsp;<img src="images/bar1.gif" width=1 height=16 id=img1 name=img1 align=absmiddle></td>
</tr>
<tr>
<td bgcolor=ffffff height="22" align="right"><span id=make_msg name=make_msg></span>&nbsp;</td>
</tr>
<tr>
<td bgcolor=ffffff height="0" style="display:none"><div id=task_div></div></td>
</tr>
</table>
<%
Dim CurrentTemplateId,adddate
Dim IsReplace
Dim PageContent,ArticleContent,PageKeyword,PageDesc
Dim TempStr,TempArray
Dim Folder,sHTMLFilePath
Dim FirstArticle,NextArticle
dim keywords,topnum
dim keynum,tpurl,keyword,sqlkun,topic

j=0
'response.write Ubound(TopicList,2)
For i=0 To Ubound(TopicList,2)
'response.Write(topiclist(18,i))
IsReplace=True

sHTMLFilePath=Cov_ArticlePath(TopicList(18,i),TopicList(19,i),"0")
'response.write sHTMLFilePath
'判断文件夹是否存在
If Folder<>systemfolder&left(FormatNumber(topiclist(19,i),0,-1,-1,0),6) Then
Folder=systemfolder&left(FormatNumber(topiclist(19,i),0,-1,-1,0),6)
If Not(CheckDir(Folder)) Then MakeNewsDir Folder
End If

'check is out
If TopicList(8,0) And IsReplace Then
IsReplace=False
TempStr="<meta http-equiv=""refresh"" content=""0;URL="&TopicList(9,i)&""">"
End If
adddate=topiclist(11,i)

'load template
'If CurrentTemplateId<>TopicList(21,i) And IsReplace Then
'CurrentTemplateId=TopicList(21,i)
'PageContent=EA_Temp.Load_Template(CurrentTemplateId,"view")
'End If

If Not IsReplace Then
'not replace template tag
Call Save_HtmlFile(sHTMLFilePath,TempStr)
Else
dim strtitle,strbody
TempStr=PageContent


'html头
strtitle="<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.01 Transitional//EN"">"&vbcrlf
strtitle=strtitle&"<Html>"&vbcrlf
strtitle=strtitle&"<Head>"&vbcrlf&"<STYLE>"&vbcrlf&"#ncontent {font-family: ""新宋体"", ""宋体"";MARGIN: 6px auto; OVERFLOW: hidden; LINE-HEIGHT: 150%; TEXT-ALIGN: leftvertical-align: bottom;height: auto;width: 100%;}</STYLE>"&vbcrlf
strtitle=strtitle&"<script language=javascript>"&vbcrlf& _
"function SetFont(size){"&vbcrlf& _
"document.getElementById('ncontent').style.fontSize=size"&vbcrlf& _
"}</script><title>"&TopicList(1,i)&"_"&TopicList(20,i)&"_中国陶瓷网"&"</title>"&vbcrlf
strtitle=strtitle&"<meta content=""All"" name=""Robots"" />"&vbcrlf
strtitle=strtitle&"<meta name=""Generator"" content=""Notepad"" />"&vbcrlf
strtitle=strtitle&"<meta name=""Description"" content="""&TopicList(1,i)&","&TopicList(20,i)&","&TopicList(10,i)&",陶瓷,陶瓷资讯,中国陶瓷,陶瓷建筑,,陶瓷协会,陶瓷专利,陶瓷名家,陶瓷人才,陶瓷行业,陶瓷商务,陶瓷技术,陶瓷文库,陶瓷机械,陶瓷窑炉""/>"&vbcrlf
strtitle=strtitle&"<meta name=""Keywords"" content="""&TopicList(1,i)&","&TopicList(20,i)&","&TopicList(10,i)&",陶瓷,陶瓷资讯,中国陶瓷,陶瓷建筑,,陶瓷协会,陶瓷专利,陶瓷名家,陶瓷人才,陶瓷行业,陶瓷商务,陶瓷技术,陶瓷文库,陶瓷机械,陶瓷窑炉"" />"&vbcrlf
strtitle=strtitle&"<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"&vbcrlf
strtitle=strtitle&"<meta name='hzccn' content='saved by 中国陶瓷网"&now()&"'>"&vbcrlf
strtitle=strtitle&"<SCRIPT src=""""></SCRIPT>"&vbcrlf
strtitle=strtitle&"<LINK href=""/inc/style.css"" rel=stylesheet type=text/css>"&vbcrlf
strtitle=strtitle&"<body leftmargin=""0"" topmargin=""0"">"&vbcrlf
strtitle=strtitle&"<script src=/top.js></script>"
strtitle=strtitle&"<iframe src=""/html/midd.asp"" scrolling=""no"" frameborder=""0"" width=""760"" height=""40"" hspace=""0"" marginheight=""0"" marginwidth=""0"" scrolling=""no"" vspace=""0"" align=""center""></iframe>"
strtitle=strtitle&"<table width=""760"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" id=""xn"">"&vbcrlf
strtitle=strtitle&"<tr>"&vbcrlf
strtitle=strtitle&"<td>"&vbcrlf
strtitle=strtitle&"<table width=""98%"" border=""0"" cellspacing=""0"" cellpadding=""0"">"&vbcrlf
strtitle=strtitle&"<tr>"&vbcrlf
strtitle=strtitle&"<td height=""25"">&nbsp;</td>"&vbcrlf
strtitle=strtitle&"</tr>"&vbcrlf
strtitle=strtitle&"</table>"&vbcrlf
strtitle=strtitle&"<table width=""98%"" border=""0"" cellspacing=""0"" cellpadding=""20"">"&vbcrlf
strtitle=strtitle&"<tr>"&vbcrlf
strtitle=strtitle&"<td height=""352"" valign=""top"" id=fontzoom style=""WORD-BREAK: break-all"" class=""bb""><div align=""center""><strong>"&TopicList(1,i)&"</strong></div><br>"
strtitle=strtitle&"<hr size=""1"" noshade><br>"
strtitle=strtitle&"<div align=""center""> 中国陶瓷网 "
strtitle=strtitle&year(Adddate)&"年"&month(Adddate)&"月"&day(Adddate)&"日"&vbcrlf
strtitle=strtitle&" 信息来源："&TopicList(13,i)&"&nbsp;&nbsp;　<a href=""javascript:window.external.addFavorite(document.location.href,document.title);"">收藏本页</a>　　<a href=""javascript:window.print();"">打印本页</a></div>"
strtitle=strtitle&"<div id='ncontent'>"&TopicList(3,i)&"</div>"

strtitle=strtitle&" </td></tr>"



strtitle=strtitle&"<tr><td align='center'>"
set pagers=server.createobject("adodb.recordset")
pagesql="select top 1 a.id,a.title,a.outurl,a.adddate,a.ushow,a.truetime,a.img from P_Content AS a where a.IsPass=1 and a.isdel=0 and a.adddate<='"&now()&"' and id<"&TopicList(18,i)&" order by a.id desc "
pagers.open pagesql,conn,1,1
if not pagers.eof and not pagers.bof then
ntitle=""
if pagers("outurl")<>"" then
if left(pagers("outurl"),7)="http://" then
ntitle=ntitle&(pagers("outurl"))
else
ntitle=ntitle&("http://"&pagers("outurl"))
end if
else
if pagers("ushow")=false then
ntitle=ntitle&"/Html/"&left(formatnumber(pagers("truetime"),0,-1,-1,0),6)&"/T"&left(formatnumber(pagers("truetime"),0,-1,-1,0),15)&".html"
else
ntitle=ntitle& ("/html/info_view.asp?id="&pagers("id"))
end if
end if
strtitle=strtitle&"<a href='"&ntitle&"' target='_blank' title='上一条信息："&server.HTMLEncode(pagers("title"))&"'>"&leftx(pagers("title"),40)&"</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
else
strtitle=strtitle&"没有上一条信息了"
end if
pagers.close
ntitle=""
pagesql="select top 1 a.id,a.title,a.outurl,a.adddate,a.ushow,a.truetime,a.img from P_Content AS a where a.IsPass=1 and a.isdel=0 and a.adddate<='"&now()&"' and id>"&TopicList(18,i)&" order by a.id "
pagers.open pagesql,conn,1,1
if not pagers.eof and not pagers.bof then
ntitle=""
if pagers("outurl")<>"" then
if left(pagers("outurl"),7)="http://" then
ntitle=ntitle&(pagers("outurl"))
else
ntitle=ntitle&("http://"&pagers("outurl"))
end if
else
if pagers("ushow")=false then
ntitle=ntitle&"/Html/"&left(formatnumber(pagers("truetime"),0,-1,-1,0),6)&"/T"&left(formatnumber(pagers("truetime"),0,-1,-1,0),15)&".html"
else
ntitle=ntitle& ("/html/info_view.asp?id="&pagers("id"))
end if
end if
strtitle=strtitle&"<a href='"&ntitle&"' target='_blank' title='下一条信息："&server.HTMLEncode(pagers("title"))&"'>"&leftx(pagers("title"),40)&"</a>&nbsp;&nbsp;&nbsp;&nbsp;"
else
strtitle=strtitle&"没有下一条信息了"
end if
pagers.close
set pagers=nothing
'strtitle=strtitle&"<table width=""100%""><tr><td align=""right""><a href=""javascript:d=document;t=d.selection?(d.selection.type!='None'?d.selection.createRange().text:''):(d.getSelection?d.getSelection():'');void(netsunkey=window.open('http://www.netsun.com/bin/store.cgi?info=本站为您提供的增值服务（由生意宝提供技术支持）；一旦注册成为生意宝会员，您只需要右键轻轻一点，就能实现商机资讯保存管理等功能，轻松拥有自己的生意门户，全新的个人创业以及企业互联网营销模式体验就此开始，更多信息请查阅帮助中心！&title='+escape(d.title)+'&url='+escape(d.location.href)+'&excerpt='+escape(t),'netsunkey','location=yes,toolbar=yes,menubar=yes,status=yes,resizable=yes,scrollbars=yes,width=748,height=520,left=80,top=80'));netsunkey.focus();"" title=""生意人使用生意宝,生意越来越旺盛!""><img src=""http://www.netsun.com/popup/coop1.gif"" border='0' alt=""生意人使用生意宝,生意越来越旺盛!""></a><br><br>【<a href=""javascript:window.external.addFavorite(document.location.href,document.title);"">收藏此页</a>】【<A href=""#"" onClick=""fontzoom.style.fontSize='16px'"">大</a> <A href=""#"" onClick=""fontzoom.style.fontSize='16px'"">中</a> <A href=""#"" onClick=""fontzoom.style.fontSize='12px'"">小</a>】【<A href=""javascript:window.close()"">关闭</a>】</td></tr></table>"
strtitle=strtitle&"</td></tr></table>"&vbcrlf

strtitle=strtitle&"<table width=""98%"" border=""0"" cellspacing=""1"" cellpadding=""5"">"&vbcrlf '相关新闻
strtitle=strtitle&" <tr>"
strtitle=strtitle&"<td valign=""top"">"
%>

<%
'strtitle=strtitle&tpurl
strtitle=strtitle&"<iframe src=""/news/picnews.asp?id="&TopicList(18,i)&""" name=""correnews"" width=""99%"" height=""490"" scrolling=""no"" allowtransparency=""true"" frameborder=""0"" >图片新闻跟最新新闻</iframe></td>"

strtitle=strtitle&"</tr></table>"

strtitle=strtitle&"</td>"
strtitle=strtitle&"<td width=""180"" valign=""top"">"
strtitle=strtitle&"<iframe src=""/html/right.asp"" scrolling=""no"" frameborder=""0"" width=""180"" height=""200"" hspace=""0"" marginheight=""0"" marginwidth=""0"" scrolling=""no"" vspace=""0"" align=""center""></iframe>"
strtitle=strtitle&"<table width=""100%""><tr><td align=""center""><a href=""javascript:d=document;t=d.selection?(d.selection.type!='None'?d.selection.createRange().text:''):(d.getSelection?d.getSelection():'');void(netsunkey=window.open('http://www.netsun.com/bin/store.cgi?info=本站为您提供的增值服务（由生意宝提供技术支持）；一旦注册成为生意宝会员，您只需要右键轻轻一点，就能实现商机资讯保存管理等功能，轻松拥有自己的生意门户，全新的个人创业以及企业互联网营销模式体验就此开始，更多信息请查阅帮助中心！&title='+escape(d.title)+'&url='+escape(d.location.href)+'&excerpt='+escape(t),'netsunkey','location=yes,toolbar=yes,menubar=yes,status=yes,resizable=yes,scrollbars=yes,width=748,height=520,left=80,top=80'));netsunkey.focus();"" title=""生意人使用生意宝,生意越来越旺盛!""><img src=""http://www.netsun.com/popup/coop1.gif"" border='0' alt=""生意人使用生意宝,生意越来越旺盛!""></a></td></tr><tr><td align='center'>【<A href=""javascript:SetFont('16px')"" >大</a> <A href=""javascript:SetFont('14px')"" >中</a> <A href=""javascript:SetFont('12px')"" >小</a>】【<A href=""javascript:window.close()"">关闭</a>】</td></tr></table>"
strtitle=strtitle&"<table width='100%' border='0' cellspacing='0' cellpadding='0'><tr>"
strtitle=strtitle&"<td width='10'><img src='/pic/bar_begin.gif' width='10' height='26'></td>"
strtitle=strtitle&"<td width='92%' background='/pic/bar_bg.gif'>　<span class='nav'><strong>周新闻点击排行榜</strong></span></td>"
strtitle=strtitle&"<td width='10'><img src='/pic/bar_end.gif' width='10' height='26'></td></tr></table>"
strtitle=strtitle&"<script src=""/html/7_15.js"" language=""javascript""></script>"

strtitle=strtitle&"<table width='100%' border='0' cellspacing='0' cellpadding='0'><tr>"
strtitle=strtitle&"<td width='10'><img src='/pic/bar_begin.gif' width='10' height='26'></td>"
strtitle=strtitle&"<td width='92%' background='/pic/bar_bg.gif'>　<span class='nav'><strong>月新闻点击排行榜</strong></span></td>"
strtitle=strtitle&"<td width='10'><img src='/pic/bar_end.gif' width='10' height='26'></td></tr></table>"
strtitle=strtitle&"<script src=""/html/31_15.js"" language=""javascript""></script>"

strtitle=strtitle&"<table width='100%' border='0' cellspacing='0' cellpadding='0'><tr>"
strtitle=strtitle&"<td width='10'><img src='/pic/bar_begin.gif' width='10' height='26'></td>"
strtitle=strtitle&"<td width='92%' background='/pic/bar_bg.gif'>　<span class='nav'><strong>年新闻点击排行榜</strong></span></td>"
strtitle=strtitle&"<td width='10'><img src='/pic/bar_end.gif' width='10' height='26'></td></tr></table>"
strtitle=strtitle&"<script src=""/html/365_15.js"" language=""javascript""></script>"

strtitle=strtitle&"</td>"
strtitle=strtitle&"</tr></table>"

strtitle=strtitle&"<table width=""760"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" id=""xn"">"&vbcrlf
strtitle=strtitle&"<tr>"
strtitle=strtitle&"<td>"
strtitle=strtitle&"</td>"
strtitle=strtitle&"</tr></table>"
strtitle=strtitle&"<script src=/end.js></script>"
strtitle=strtitle&strbody&""&vbcrlf
strtitle=strtitle&"</body>"&vbcrlf
strtitle=strtitle&"</Html>"&vbcrlf

tempstr=strtitle
Call Save_HtmlFile(sHTMLFilePath,TempStr)
End If

j=j+1

If Ubound(TopicList,2)=0 Then
Response.Write "<script>img1.width=400;" & VbCrLf
Else
Response.Write "<script>img1.width=" & Fix((j/Ubound(TopicList,2)) * 400) & ";" & VbCrLf
End If
Response.Write "column_complete.innerHTML=""<font color=green>"&i+1&"</font>"";</script>" & VbCrLf
Response.Flush
Next
Response.Write "<script>img1.width=400;"& VbCrLf
Response.Write "make_msg.innerHTML=""所有任务已完成"";</script>" & VbCrLf

else
response.write "无记录更新"
End If
End Sub

Sub CorrList(Keyword,ColumnId,ArticleId,ByRef PageContent)
'相关文章
Dim TempArray,i,TempStr,SearchKeyWord
Dim ConfigParameterArray

If Keyword<>"" Then
TempArray=Split(Keyword,",")

For i=0 To UBound(TempArray)
Select Case iDataBaseType
Case 0
SearchKeyWord=SearchKeyWord&" InStr(','+keyword+',',',"&TempArray(i)&",')>0 or "
Case 1
SearchKeyWord=SearchKeyWord&" CharIndex(',"&TempArray(i)&",',','+keyword+',')>0 or "
End Select
Next
End If

TempArray=EA_DBO.Get_Article_CorrList(SearchKeyWord,ArticleId,ColumnId)
If IsArray(TempArray) Then
ConfigParameterArray=EA_Temp.Find_TemplateTagValues("CorrList",PageContent)
If Not IsArray(ConfigParameterArray) Then ConfigParameterArray=Split("1,1,1,1,0,0,1,1",",")

TempStr=EA_Temp.Text_List(TempArray,CInt(ConfigParameterArray(0)),CInt(ConfigParameterArray(1)),CInt(ConfigParameterArray(2)),CInt(ConfigParameterArray(3)),CInt(ConfigParameterArray(4)),CInt(ConfigParameterArray(5)),CInt(ConfigParameterArray(6)),CInt(ConfigParameterArray(7)))
End If

Call EA_Temp.Find_TemplateTagByInput("CorrList",TempStr,PageContent)
End Sub

Function Cov_ArticlePath(ArticleId,ArticleTime,PathType)
If PathType=1 Then
'Cov_ArticlePath=SystemFolder&"article.asp?articleid="&ArticleId
Else
'Cov_ArticlePath=systemfolder&left(FormatNumber(ArticleTime,0,-1,-1,0),6)&"/t"&&".html"
'response.write ArticleTime
Cov_ArticlePath=systemfolder&left(FormatNumber(ArticleTime,0,-1,-1,0),6)&"/T"&left(FormatNumber(ArticleTime,0,-1,-1,0),15)&".html"
'response.write Cov_ArticlePath
'response.End()
'Cov_ArticlePath=systemfolder&year(ArticleTime)&month(ArticleTime)&"/s"&year(ArticleTime)&month(ArticleTime)&day(ArticleTime)&ArticleId&".html"
End If
End Function

Function ClassJumpList()
Dim CacheJumpList, SQL, Rs1, i
'If Not IsObject(Conn) Then ConnectionDatabase
'Name = "ClassJumpList"
'If ObjIsEmpty() Then
CacheJumpList = "<select name=""classid"" size=""1"">" & vbCrLf
Set Rs1 = Server.CreateObject("Adodb.recordset")
SQL = "select * from p_Class order by rootid,orders"
Rs1.Open SQL, Conn, 1, 1
'SqlQueryNum = SqlQueryNum + 1
Do While Not Rs1.EOF
If Rs1("depth") = 0 Then
CacheJumpList = CacheJumpList & "<option value="""" "
Else
CacheJumpList = CacheJumpList & "<option value=""" & Rs1("RootID") & "," & Rs1("classid") & "," & Rs1("ClassName") & """ {ClassID=" & Rs1("classid") & "}"
End If
CacheJumpList = CacheJumpList & ">"
If Rs1("depth") = 1 Then CacheJumpList = CacheJumpList & "　├ "
If Rs1("depth") > 1 Then
For i = 2 To Rs1("depth")
CacheJumpList = CacheJumpList & "　"
Next
CacheJumpList = CacheJumpList & "　├ "
End If
CacheJumpList = CacheJumpList & Rs1("ClassName") & "</option>" & vbCrLf
Rs1.movenext
Loop
Rs1.Close
Set Rs1 = Nothing
CacheJumpList = CacheJumpList & "</select>"
'CacheJumpList
'End If
ClassJumpList =CacheJumpList
End Function

Sub strbody1
dim strbody
strbody="<div align=""center"">"&vbcrlf
strbody=strbody&"<!--#include file=""../include/top.html"" -->"&vbcrlf
strbody=strbody&"<!--#include file=""top00.html""-->"&vbcrlf
strbody=strbody&"</div>"

end sub
Sub strbody2
dim strbody
strbody="<div align=""center"">"&vbcrlf
strbody=strbody&"<!--#include file=""../include/top.html"" -->"&vbcrlf

strbody=strbody&"<!--#include file=""top00.html""-->"&vbcrlf
strbody=strbody&"</div>"

end sub
Sub strbody3
dim strbody
strbody="<div align=""center"">"&vbcrlf
strbody=strbody&"<!--#include file=""../include/top.html"" -->"&vbcrlf
strbody=strbody&"<!--#include file=""top00.html""-->"&vbcrlf
strbody=strbody&"</div>"

end sub

sub strurl2(strnum) '陶瓷网
dim strnum2
strnum2=strnum
response.write ("<a href='")
if pagers("outurl")<>"" then
if left(pagers("outurl"),7)="http://" then
response.Write(pagers("outurl"))
else
response.Write("http://"&pagers("outurl"))
end if
else
if pagers("ushow")=false then
tempurl=left(formatnumber(pagers("truetime"),0,-1,-1,0),6)&"/T"&left(formatnumber(pagers("truetime"),0,-1,-1,0),15)&".html"
response.write ("/Html/"&tempurl)
'response.end
'response.write ("/windows/newscontent.asp?id="&pagers("id"))
else
response.write ("/html/info_view.asp?id="&pagers("id"))
end if
end if
response.Write("' target='_blank' class=a4>")
response.write leftx(pagers("title"),strnum2)
response.Write("</a>")
end sub
function leftX(byval uStr,byval uLen)
dim i,j,uTestStr,theStr
leftX = ""
j = 0
for i = 1 to len(uStr)
uTestStr= mid(uStr,i,1)
theStr = theStr & uTestStr
if asc(uTestStr) < 0 then
j = j + 2
else
j = j + 1
end if
if j >= uLen then exit for
next
leftX = theStr
end function

%>