大家好，请帮我看看这个应该如何改啊
<%dim connstrItem
dim dbItem
dim connItem
dbItem="../data/db.mdb" '采集数据库文件的位置
'On Error Resume Next
Set connItem = Server.CreateObject("ADODB.Connection")
connstrItem="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbItem)
connItem.Open connstrItem
If Err Then
err.Clear
Set ConnItem = Nothing
Response.Write "采集数据库连接出错，请检查连接字串。"
Response.End
End If
Sub CloseConnItem()
On Error Resume Next
ConnItem.close
Set ConnItem=nothing
End sub
'过滤超链接
Function ReplaceUrl2(HTMLstr)
Dim n,str1,str2,str3,str4
HTMLstr = Lcase(HTMLstr)
For n=1 to Ubound(Split(HTMLstr,"<a"))
str1 = Instr(HTMLstr,"<a")
str2 = Instr(str1,HTMLstr,">")
HTMLstr = left(HTMLstr,str1-1)&right(HTMLstr,len(HTMLstr)-len(left(HTMLstr,str2)))
HTMLstr = replace (HTMLstr,"</a>","")
ReplaceUrl2 = HTMLstr
Next
End Function
function searcheck(title)
myArray = Array("多汗","皮肤","肤色","毛周角化")
arraynum = ubound(myArray)
forvar = len(title)
title1 = title
array1 = 0
if forvar<=0 then
forvar = ""
end if
for i = 1 to forvar
for length = 1 to 4
strtitle = mid(title,i,length)
for array1 = 0 to arraynum
if strComp(strtitle,myArray(array1))=0 then
searcheck = myArray(array1)
end if
next
title1 = strtitle
next
next
end function
function make_html(id,num)
On Error Resume Next
Pid = trim(id)
if pid = "" then response.End()
'response.Write pid
'response.End()
'Send = Trim(Request.Form("Send"))
'Call IsEn(Pid,"Pid值只能是数字",1)
Set Ceb_Rs = Conn.Execute("Select * From iHelp_Problem Where F_HelpId = " & Pid)
If not Ceb_Rs.Eof Then'Call Info("没有该问题",2,"./")
'response.End()
F_HelpId = Ceb_Rs("F_HelpId")
F_HelpTitle = Ceb_Rs("F_HelpTitle")
F_HelpContent = Ceb_Rs("F_HelpContent")
F_HelpComplement = Ceb_Rs("F_HelpComplement")
F_HelpEnclosure = Ceb_Rs("F_HelpEnclosure")
F_HelpiClsId = Ceb_Rs("F_HelpiClsId")
F_HelpeClsId = Ceb_Rs("F_HelpeClsId")
F_HelpsClsId = Ceb_Rs("F_HelpsClsId")
F_HelpuClsId = Ceb_Rs("F_HelpuClsId")
F_HelpCent = Ceb_Rs("F_HelpCent")
F_HelpUserId = Ceb_Rs("F_HelpUserId")
F_HelpDate = "发布时间："& Ceb_Rs("F_HelpDate")
F_HelpBrowseNum = Ceb_Rs("F_HelpBrowseNum")
F_HelpAnswerNum = Ceb_Rs("F_HelpAnswerNum")
F_HelpCommentNum = Ceb_Rs("F_HelpCommentNum")
F_HelpRecommendationNum=Ceb_Rs("F_HelpRecommendationNum")
F_HelpSolve = Ceb_Rs("F_HelpSolve")
F_HelpValid = Ceb_Rs("F_HelpValid")
F_HelpVote = Ceb_Rs("F_HelpVote")
F_HelpVoteus = Ceb_Rs("F_HelpVoteus")
F_HelpVoteNum = Ceb_Rs("F_HelpVoteNum")
F_HelpCancel = Ceb_Rs("F_HelpCancel")
F_HelpCebCent = Ceb_Rs("F_HelpCebCent")
this_log_tags=Ceb_Rs("log_tags")
Set Ceb_Rs = Nothing
''======================调出该问题的所有信息
'If F_HelpCancel = 1 Then Call Info("该问题已被撤消",2,"./")
'If F_HelpSolve = 2 Then Call Info("该问题已结束",2,"./")
Conn.Execute("Update iHelp_Problem Set F_HelpBrowseNum = " & F_HelpBrowseNum + 1 & " Where F_HelpId = " & F_HelpId)
'=======================更新浏览量
Set Ceb_Rs = Conn.Execute("Select * From iHelp_Class Where F_ClsId = " & F_HelpiClsId)
iCebMyNav = " <a href='"& URL_ask &"ClsList.asp?Cid=" & F_HelpiClsId & "'>" & Ceb_Rs("F_ClsName") & "</a>"
Set Ceb_Rs = Nothing
Set Ceb_Rs = Conn.Execute("Select * From iHelp_Class Where F_ClsId = " & F_HelpeClsId)
iCebMyNav = iCebMyNav & " > <a href='"& URL_ask &"ClsList.asp?RowGo=isc&Isc=Solve&Cid=" & F_HelpeClsId & "'>" & Ceb_Rs("F_ClsName") & "</a>"
F_ClsName = Ceb_Rs("F_ClsName")
Set Ceb_Rs = Nothing
If F_HelpsClsId <> 0 Then
Set Ceb_Rs = Conn.Execute("Select * From iHelp_Class Where F_ClsId = " & F_HelpsClsId)
iCebMyNav = iCebMyNav & " > <a href='"& URL_ask &"ClsList.asp?RowGo=isc&Isc=Solve&Cid=" & F_HelpsClsId & "' class=a05>" & Ceb_Rs("F_ClsName") & "</a>"
Set Ceb_Rs = Nothing
If F_HelpuClsId <> 0 Then
Set Ceb_Rs = Conn.Execute("Select * From iHelp_Class Where F_ClsId = " & F_HelpuClsId)
iCebMyNav = iCebMyNav & " > <a href='"& URL_ask &"ClsList.asp?RowGo=isc&Isc=Solve&Cid=" & F_HelpuClsId & "' class=a05>" & Ceb_Rs("F_ClsName") & "</a>"
Set Ceb_Rs = Nothing
End If
End If
'====================================tags
iCebMyNavtags="<a href=../search.asp?key="&escape(this_log_tags)&">"&this_log_tags&"</a> > "&iCebMyNav&""
'=====================================分类显示
If F_HelpCommentNum <> 0 Then iCommentNum = "[" & F_HelpCommentNum & "]"
Set Ceb_Rs = Conn.Execute("Select * From iHelp_User Where F_HelpUserId = " & F_HelpUserId)
F_HelpUserName = Ceb_Rs("F_HelpUserName")
F_HelpUserSex = Ceb_Rs("F_HelpUserSex")
F_HelpUserScore = Ceb_Rs("F_HelpUserScore")
Set Ceb_Rs = Nothing
'=====================================评论数量
If F_HelpUserScore < 0 Then iUserScore = 0 Else iUserScore = F_HelpUserScore
Set Ceb_Rs = Conn.Execute("Select Top 1 * From iHelp_Grade Where F_HelpGradeCent <= " & iUserScore & " Order By F_HelpGradeId Desc")
If Ceb_Rs("F_HelpGradeCeb") = 1 Then
UserGrades = Split(Ceb_Rs("F_HelpGradeName"),",")(Clng(F_HelpUserSex)-1)
Else
UserGrades = Ceb_Rs("F_HelpGradeName")
End If
Set Ceb_Rs = Nothing
'====================================积分等级
Set Ceb_Rs = Conn.Execute("Select * From iHelp_Comment Where F_HelpProblemId = " & F_HelpId & " Order By F_HelpCommentId Desc")
If Not Ceb_Rs.Eof Then
Do While Not Ceb_Rs.Eof
Set Ceb_Rss = Conn.Execute("Select * From iHelp_User Where F_HelpUserId = " & Ceb_Rs("F_HelpCommentUserId"))
oF_HelpUserNames = Ceb_Rss("F_HelpUserName")
Set Ceb_Rss = Nothing
CommentAsk = CommentAsk & "<table border='0' width='98%' align='center' cellpadding='0' cellspacing='0' style='table-layout:fixed;word-wrap:break-word;'><tr valign='top' style='padding:5px 0px 0px 5px;'><td width='140' class='f12 c9 lh13' nowrap>评论：<a href='"& URL_ask &"User.asp?Uid=" & Ceb_Rs("F_HelpCommentUserId") & "' target='_blank' class='a05'>" & oF_HelpUserNames & "</a><br><span class='hdsj'>" & Ceb_Rs("F_HelpCommentDate") & "</span></td><td class='fs13 lh15' style='padding-right:35px;word-break:break-all;'>" & Ceb_Rs("F_HelpCommentCountent") & "</td></tr><tr><td colspan='2' align='right' class='f12 c6' style='border-bottom:1px dashed #ccc;'> </td></tr></table>"
Ceb_Rs.Movenext
Loop
End If
Set Ceb_Rs = Nothing
'===================================显示评论
If F_HelpSolve = 0 Then
DateValid = F_HelpValid *86400
TimeValid = DateDiff("s",F_HelpDate,Now())
AuctionDate = DateValid-TimeValid
If AuctionDate < 0 Then AuctionDate = 0
Else
AuctionDate = 0
AskSolve = 3
AnswerAsk = 2
MyAsk = 2
YnVote = 2
Report = 2
End If
If iCebLoginUserId = F_HelpUserId Then
MyAsk = 1
iMyAsks = 1
NoMyAsks = 2
AnswerAsk = 2
Report = 2
If F_HelpSolve = 1 Then
Complementy = 2
iSolves = 2
Else
Complementy = 1
iSolves = 1
End If
MyAskOperation = 1
Else
MyAsk = 2
iMyAsks = 2
NoMyAsks = 1
Complementy = 2
MyAskOperation = 2
iSolves = 2
End If
Solvess = 1
If F_HelpAnswerNum = 0 Then
iAnswer = 1
YesAnswers = 2
Ask_answertxt="<div class='askinfo infobg1'>抱歉，该问题暂时还没有人回答！</div>"
Else
iAnswer = 2
YesAnswers = 1
Set Ceb_Rs = Conn.Execute("Select * From iHelp_Answer Where F_HelpAnswerAdopt = 1 And F_HelpAnswerWrong = 0 And F_HelpProblemId = " & F_HelpId)
If Not Ceb_Rs.Eof Then
iF_HelpUserIds = Ceb_Rs("F_HelpAnswerUserId")
iF_HelpAnswerCommentNum = Ceb_Rs("F_HelpAnswerCommentNum")
Set Ceb_Rss = Conn.Execute("Select * From iHelp_User Where F_HelpUserId = " & iF_HelpUserIds)
iF_HelpUserNames = Ceb_Rss("F_HelpUserName")
iF_HelpUserSexs = Ceb_Rss("F_HelpUserSex")
iF_HelpUserScores = Ceb_Rss("F_HelpUserScore")
Set Ceb_Rss = Nothing
If iF_HelpUserScores < 0 Then iUserScore = 0 Else iUserScore = iF_HelpUserScores
Set Ceb_Rss = Conn.Execute("Select Top 1 * From iHelp_Grade Where F_HelpGradeCent <= " & iUserScore & " Order By F_HelpGradeId Desc")
If Ceb_Rss("F_HelpGradeCeb") = 1 Then
iUserGradess = Split(Ceb_Rss("F_HelpGradeName"),",")(Clng(iF_HelpUserSexs)-1)
Else
iUserGradess = Ceb_Rss("F_HelpGradeName")
End If
Set Ceb_Rss = Nothing
If iF_HelpAnswerCommentNum <> 0 Then eCommentNum = "[" & iF_HelpAnswerCommentNum & "]"
iF_HelpAnswerDate = Ceb_Rs("F_HelpAnswerDate")
iF_HelpAnswerContent = Ceb_Rs("F_HelpAnswerContent")
iF_HelpAnswerId = Ceb_Rs("F_HelpAnswerId")
iF_HelpAnswerEvaluate = Ceb_Rs("F_HelpAnswerEvaluate")
iF_HelpAnswer3Q = Ceb_Rs("F_HelpAnswer3Q")
zc=Ceb_Rs("F_zc")
fd=Ceb_Rs("F_fd")
Exactitudess = 1
Exactitudes = 1
MyAskOperation = 2
If iF_HelpUserIds = iCebLoginUserId Then Solvess = 2
Set Ceb_Rss = Conn.Execute("Select * From iHelp_Comment Where F_HelpAnswerId = " & iF_HelpAnswerId & " Order By F_HelpCommentId Desc")
If Not Ceb_Rss.Eof Then
Do While Not Ceb_Rss.Eof
Set Ceb_Rsss = Conn.Execute("Select * From iHelp_User Where F_HelpUserId = " & Ceb_Rss("F_HelpCommentUserId"))
oF_HelpUserNames = Ceb_Rsss("F_HelpUserName")
Set Ceb_Rsss = Nothing
eCommentAsk = eCommentAsk & "<table border='0' width='98%' align='center' cellpadding='0' cellspacing='0' style='table-layout:fixed;word-wrap:break-word;'><tr valign='top' style='padding:5px 0px 0px 5px;'><td width='140' class='f12 c9 lh13' nowrap>评论：<a href='"& URL_ask &"User.asp?Uid=" & Ceb_Rss("F_HelpCommentUserId") & "' target='_blank' class='a05'>" & oF_HelpUserNames & "</a><br><span class='hdsj'>" & Ceb_Rss("F_HelpCommentDate") & "</span></td><td class='fs13 lh15' style='padding-right:35px;word-break:break-all;'>" & Ceb_Rss("F_HelpCommentCountent")& "</td></tr><tr><td colspan='2' align='right' class='f12 c6' style='border-bottom:1px dashed #ccc;'> </td></tr></table>"
Ceb_Rss.Movenext
Loop
End If
Set Ceb_Rss = Nothing
End If
Set Ceb_Rs = Nothing
'======================================回答的问题
Set Ceb_Rs = Conn.Execute("Select * From iHelp_Answer Where F_HelpAnswerAdopt = 0 And F_HelpAnswerWrong = 0 And answer_ischeck = 1 And F_HelpAnswerVote = 0 And F_HelpProblemId = " & F_HelpId & " Order By F_HelpAnswerId")
if Ceb_Rs.EOF and Ceb_Rs.BOF then
Ask_answertxt="<div class='askinfo infobg1'>抱歉，该问题暂时还没有人回答！</div>"
else
Do While Not Ceb_Rs.Eof
F_HelpAnswerUserId = Ceb_Rs("F_HelpAnswerUserId")
F_HelpAnswerCommentNum = Ceb_Rs("F_HelpAnswerCommentNum")
if F_HelpAnswerUserId = 0 then
F_HelpUserNames="匿名"
F_HelpUserSexs="匿名"
F_HelpUserScores=0
F_zc = Ceb_Rs("F_zc")
F_fd = Ceb_Rs("F_fd")
else
Set Ceb_Rss = Conn.Execute("Select * From iHelp_User Where F_HelpUserId = " & F_HelpAnswerUserId)
F_HelpUserNames = Ceb_Rss("F_HelpUserName")
F_HelpUserSexs = Ceb_Rss("F_HelpUserSex")
F_HelpUserScores = Ceb_Rss("F_HelpUserScore")
F_zc = Ceb_Rs("F_zc")
F_fd = Ceb_Rs("F_fd")
Set Ceb_Rss = Nothing
end if
If F_HelpUserScores < 0 Then iUserScore = 0 Else iUserScore = F_HelpUserScores
Set Ceb_Rss = Conn.Execute("Select Top 1 * From iHelp_Grade Where F_HelpGradeCent <= " & iUserScore & " Order By F_HelpGradeId Desc")
If Ceb_Rss("F_HelpGradeCeb") = 1 Then
UserGradess = Split(Ceb_Rss("F_HelpGradeName"),",")(Clng(F_HelpUserSexs)-1)
Else
UserGradess = Ceb_Rss("F_HelpGradeName")
End If
Set Ceb_Rss = Nothing
iUserScore = F_HelpUserScores
Set Ceb_Rss = Conn.Execute("Select Top 1 * From iHelp_Grade Where F_HelpGradeCent <= " & iUserScore & " Order By F_HelpGradeId Desc")
UserGradess = Ceb_Rss("F_HelpGradeName")
Set Ceb_Rss = Nothing
Ask_UserName = "<a href='"& URL_ask &"User.asp?uId=" & F_HelpAnswerUserId & "'>" & F_HelpUserNames & "</a>"
Ask_Gradess = UserGradess
Ask_Date = Ceb_Rs("F_HelpAnswerDate")
Ask_Content = ReplaceUrl2(htmlcode(Ceb_Rs("F_HelpAnswerContent"),2)) '正文部分
if Ask_Content="" then Ask_Content = htmlcode(Ceb_Rs("F_HelpAnswerContent"),2)
'Ask_Content = htmlcode(Ceb_Rs("F_HelpAnswerContent"),2)
'Ask_Content = htmlcode(Ceb_Rs("F_HelpAnswerContent"),2)
Ask_answertxt = Ask_answertxt & "<div class='askinfo infobg'><dl style='float:left'><dt>回答："&Ask_UserName&"</dt><dd>级别：专家</dd></dl><dl class='answer'><dt></dt><dd><p class='intro'>"&Ask_Content&"</p></dd><dd><span class='kfzx'>温馨提示：您可以在这里免费向医生在线咨询，<a target=_blank href=../../url.asp?url=http://dlt.点击这里向医生咨询</a></span></dd><dd>回复时间："&Ask_Date&"</dd></dl></div>"
Ceb_Rs.Movenext
Loop
End If
Set Ceb_Rs = Nothing
End If
'===================================问题排行榜
'strtitle = searcheck(F_HelpTitle)
'Condition = "F_HelpTitle Like '%" & strtitle & "%'"
Set Ceb_Rs = Conn.Execute("Select Top 10 * From iHelp_Problem Where F_HelpTitle like '%"&this_log_tags&"%' and F_HelpId<>"&Pid&" Order By F_HelpId Desc")
If Ceb_Rs.Eof And Ceb_Rs.Bof Then
YiJieJuTop = YiJieJuTop & "<li>暂无相关问题</li>"
Else
Do While Not Ceb_Rs.Eof
I = I + 1
YiJieJuTop = YiJieJuTop & "<li><a title="""&Ceb_Rs("F_HelpTitle")&""" href='" & URL_html & Ceb_Rs("F_HelpId") & ".html'>"
YiJieJuTop = YiJieJuTop & left(Ceb_Rs("F_HelpTitle"),12) & "</a></li>"
Ceb_Rs.Movenext
Loop
End If
'最新10篇文章
Set Ceb_clas = Conn.Execute("Select Top 10 * From iHelp_Problem where F_HelpId<"&Pid+5&" Order By F_HelpId Desc")
If Ceb_clas.Eof And Ceb_clas.Bof Then
classname = classname & "<li></li>"
Else
Do While Not Ceb_clas.Eof
I = I + 1
classname = classname & "<li>·<a title="""&Ceb_clas("F_HelpTitle")&""" href='" & URL_html &Ceb_clas("F_HelpId") & ".html'>"
classname = classname & left(Ceb_clas("F_HelpTitle"),16) & "</a></li>"
Ceb_clas.Movenext
Loop
End If
Set Ceb_Rs = Nothing
'上一篇
Set Ceb_up = Conn.Execute("Select Top 1 * From iHelp_Problem where F_HelpId >"& Pid &" Order By F_HelpId asc")
If Ceb_up.Eof And Ceb_up.Bof Then
uptitle ="没有了"
Else
Do While Not Ceb_up.Eof
I = I + 1
uptitle = uptitle & "<a title="""&Ceb_up("F_HelpTitle")&""" href='" & URL_html &Ceb_up("F_HelpId") & ".html'>"
uptitle = uptitle & Ceb_up("F_HelpTitle") & "</a>"
Ceb_up.Movenext
Loop
End If
Set Ceb_up = Nothing
'下一篇
Set Ceb_down = Conn.Execute("Select Top 1 * From iHelp_Problem where F_HelpId <"& Pid &" Order By F_HelpId desc")
If Ceb_down.Eof And Ceb_down.Bof Then
downtitle ="没有了"
Else
Do While Not Ceb_down.Eof
I = I + 1
downtitle = downtitle & "<a title="""&Ceb_down("F_HelpTitle")&""" href='" & URL_html &Ceb_down("F_HelpId") & ".html'>"
downtitle = downtitle & Ceb_down("F_HelpTitle") & "</a>"
Ceb_down.Movenext
Loop
End If
Set Ceb_down = Nothing
'最新文章
Set Ceb_article = Connitem.Execute("Select Top 10 * From log_news where log_title like '%"&this_log_tags&"%' and log_html=1 and log_yz=1 Order By log_hot desc,id desc")
If Ceb_article.Eof And Ceb_article.Bof Then
article =""
Else
Do While Not Ceb_article.Eof
I = I + 1
log_file=Ceb_article("log_file")
select case log_file
case "1"
log_file="html"
case "2"
log_file="item"
case else
log_file="article"
end select
article = article & "<li>·<a title="""&Ceb_article("log_title")&""" href='http://www.("id") & ".html'>"
article = article & left(Ceb_article("log_title"),16) & "</a></li>"
Ceb_article.Movenext
Loop
End If
Set Ceb_article = Nothing
islogin_html="<script src=""../login_js.asp""></script>"
SiteTitle = F_HelpTitle
Template = Templates("Template/moban_Top.Html") & Templates("Template/moban_ask.Html") & Templates("Template/moban_Bottom.Html")
Template = Replace(Template,"{$Ask@SiteTitle}",SiteTitle)
Template = Replace(Template,"{$Ask@titleclassname}",F_ClsName)
Template = Replace(Template,"{$ask@Description}",F_HelpCebCent)
Template = Replace(Template,"{$ask@keywords}",SiteTitle)
Template = Replace(Template,"{$Ask@WebSite}",WebSite)
Template = Replace(Template,"{$Ask@Body}",iBody)
Template = Replace(Template,"{$Ask@iCebMyNav}",iCebMyNav)
Template = Replace(Template,"{$Ask@iCebMyNavtags}",iCebMyNavtags)
Template = Replace(Template,"{$Ask@ProblemId}",Pid)
Template = Replace(Template,"{$Ask@UserId}",F_HelpUserId)
Template = Replace(Template,"{$Ask@UserName}",F_HelpUserName)
Template = Replace(Template,"{$Ask@UserGrades}",UserGrades)
Template = Replace(Template,"{$Ask@AskCent}",F_HelpCent)
Template = Replace(Template,"{$Ask@AnswerNum}",F_HelpAnswerNum)
Template = Replace(Template,"{$Ask@AskSolve}",AskSolve)
Template = Replace(Template,"{$Ask@AskTitle}",F_HelpTitle)
Template = Replace(Template,"{$Ask@AskContent}",HtmlCode(F_HelpContent,2))
Template = Replace(Template,"{$Ask@AuctionDate}",AuctionDate)
Template = Replace(Template,"{$Ask@CommentAsk}",CommentAsk)
Template = Replace(Template,"{$Ask@eCommentAsk}",eCommentAsk)
Template = Replace(Template,"{$Ask@SessionC}",Session("AnswerContent" & Pid))
Template = Replace(Template,"{$Ask@SessionR}",Session("AnswerReferto" & Pid))
Template = Replace(Template,"{$Ask@AnswerAsk}",AnswerAsk)
Template = Replace(Template,"{$Ask@MyAsk}",MyAsk)
Template = Replace(Template,"{$Ask@Solves}",iSolves)
Template = Replace(Template,"{$Ask@Complementy}",Complementy)
Template = Replace(Template,"{$Ask@Complements}",Complements)
Template = Replace(Template,"{$Ask@Complementss}",Complementss)
Template = Replace(Template,"{$Ask@Enclosure}",Enclosure)
Template = Replace(Template,"{$Ask@Enclosures}",Enclosures)
Template = Replace(Template,"{$Ask@iEnclosure}",iEnclosure)
Template = Replace(Template,"{$Ask@AskDate}",F_HelpDate)
Template = Replace(Template,"{$Ask@Solvess}",Solvess)
Template = Replace(Template,"{$Ask@YnVote}",YnVote)
Template = Replace(Template,"{$Ask@iAnswer}",iAnswer)
Template = Replace(Template,"{$Ask@Report}",Report)
Template = Replace(Template,"{$Ask@iMyAsks}",iMyAsks)
Template = Replace(Template,"{$Ask@NoMyAsks}",NoMyAsks)
Template = Replace(Template,"{$Ask@YesAnswers}",YesAnswers)
Template = Replace(Template,"{Ask@Ask_answertxt}",Ask_answertxt)
Template = Replace(Template,"{$Ask@MyAskOperation}",MyAskOperation)
Template = Replace(Template,"{$Ask@iF_HelpUserIds}",iF_HelpUserIds)
Template = Replace(Template,"{$Ask@iF_HelpUserNames}",iF_HelpUserNames)
Template = Replace(Template,"{$Ask@iUserGradess}",iUserGradess)
Template = Replace(Template,"{$Ask@iF_HelpAnswerDate}",iF_HelpAnswerDate)
Template = Replace(Template,"{$Ask@iF_HelpAnswerContent}",iF_HelpAnswerContent)
Template = Replace(Template,"{$Ask@iF_HelpAnswerId}",iF_HelpAnswerId)
Template = Replace(Template,"{$Ask@Evaluate}",iF_HelpAnswerEvaluate)
Template = Replace(Template,"{$Ask@iF_HelpAnswer3Q}",iF_HelpAnswer3Q)
Template = Replace(Template,"{$Ask@Exactitude}",Exactitudes)
Template = Replace(Template,"{$Ask@Exactitudess}",Exactitudess)
Template = Replace(Template,"{$Ask@iCebpl}",iCebpl)
Template = Replace(Template,"{$Ask@UserScore}",iCebLoginUserScore)
Template = Replace(Template,"{$Ask@UserGrade}",iCebLoginUserGrade)
Template = Replace(Template,"{$Ask@YiJieJuTop}",YiJieJuTop)
Template = Replace(Template,"{$Ask@classname}",classname)
Template = Replace(Template,"{$Ask@iCommentNum}",iCommentNum)
Template = Replace(Template,"{$Ask@eCommentNum}",eCommentNum)
Template = Replace(Template,"{$ask@tuijian}",F_HelpRecommendationNum)
Template = Replace(Template,"{$ask@islogin}",islogin_html)
Template = Replace(Template,"{$Ask@F_zc}",zc)
Template = Replace(Template,"{$Ask@F_fd}",fd)
Template = Replace(Template,"{$Ask@uptitle}",uptitle)
Template = Replace(Template,"{$Ask@downtitle}",downtitle)
Template = Replace(Template,"{$Ask@article}",article)
HtmlNL=Template
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath("html/"&pid&".html"))
fout.Write HtmlNL
fout.close
set fso = nothing
if num = 1 then
response.Write "<script>alert('操作成功');location='/html/"&pid&".html';</script>"
end if
'Response.Write "失败"
response.flush
Response.Clear
end if
end function
%>
其中红色部分是查询出最新的文章的代码，可是不管怎样修改sql语句，查出的总是以IE地址栏里面的http://localhost/ask/html/A.html最后面的A.html为基准，其中A为文章在数据库里面的F_HelpId，比如A=7606，那么查询出的10篇文章F_HelpId就是7608，7607，7606，7605，7604，7603，7602，7601，7600，7599，如果A=1606，那么查询出的10篇文章的F_HelpId就是1610，1609，1608，1607，1606，1605，1604，1603，1602，1601，现在实际上最大的ID是7620，我想查询出的10篇文章ID是7620，7619，7618，7617，7616，7615，7614，7613，7612，7611，请问这个要怎样改代码呢？在线等回答啊
