admin_htmlfeedback.asp

官方最新的南方数据v12生成静态商业版。全站生成静态。

<!--#include file="conn.asp"-->
<!--#include file="admin.asp"-->
<!--#include file="../inc/Const.asp" -->
<!--#include file="../inc/config.asp" -->
<!--#include file="Admin_htmlconfig.asp"-->
<link rel="stylesheet" href="Image/Admin_style.css">
<%
if ISHTML = 0 then
  response.Write "<script language='javascript'>alert('请先在【系统参数配置】中将静态HTML设置为开启！');history.go(-1);</script>"
  response.End
end If
%>
<br />
<table width="98%" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr>
    <td width="300"><table width="100%" border="0" cellspacing="0" cellpadding="1">
        <tr>
          <td style="border-bottom: #ccc 1px solid; border-top: #ccc 1px solid; border-left: #ccc 1px solid; border-right: #ccc 1px solid"><img src="Image/Survey_1.gif" width="0" height="16" id="bar_img" name="bar_img" align="absmiddle"></td>
        </tr>
      </table></td>
    <td><span id="bar_txt2" name="bar_txt2" style="font-size:12px; color:red;"></span><span id="bar_txt1" name="bar_txt1" style="font-size:12px">0</span><span style="font-size:12px">%</span></td>
  </tr>
</table>
<%
totalrec=Conn.Execute("Select count(*) from 0791idc_Feedback")(0)
totalpage=int(totalrec/OtherInfo)
If (totalpage * OtherInfo)<totalrec Then
totalpage=totalpage+1
End If
if totalpage<=1 then
call htmll("","",""&FeedbackName&""&Separated&"1."&HTMLName&"","FeedbackView.asp","Page=",1,"","")
else
for i=1 to totalpage
call htmll("","",""&FeedbackName&""&Separated&""&i&"."&HTMLName&"","FeedbackView.asp","Page=",i,"","")
Response.Write "<script>bar_img.width="&Fix((i/totalpage)*300)&";"
Response.Write "bar_txt1.innerHTML=""成功生成"&i&"个分类的HTML静态页面。完成比例：" & formatnumber(i/totalpage*100) & """;</script>"
Response.Flush
next
end if
conn.close
set conn=Nothing
Response.Write "<script>bar_img.width=300;bar_txt2.innerHTML='';bar_txt1.innerHTML=""成功生成相关静态文件。完成比例：100"";</script>"
Response.end
%>