复制代码代码如下:
<!-#includefile = "conn.asp"->
<styleType = "text/css">
ร่างกาย, td, th {
สี:#000000;
ขนาดตัวอักษร: 14px;
พื้นหลังสี:#d6dff7;
-
</style>
-
หรี่แสง
setRs = server.createObject ("adodb.recordset"))
ifrequest ("type") = "วันที่" แล้ว
yearstr = คำขอ ("selyear")
monstr = คำขอ ("selmonth")
Daystr = คำขอ ("selday")
ifdaystr <> "" แล้ว
พวกเขา = ปี & "-" & monstr & "-" & daystr
SQL = "SelectIdFromNewherEdateTimelike '" & พวกเขา & "%' orderbyDatetimedesc"
อื่น
พวกเขา = ปี & "-" & monstr & "-"
SQL = "SelectIdFromNewherEdateTimelike '" & พวกเขา & "%' orderbyDatetimedesc"
endif
elseifrequest ("type") = "ใหม่" แล้ว
topNew = คำขอ ("newCount")
iftopnew <> "" แล้ว
TOPNEW = CINT (TOPNEW)
sql = "selecttop" & topnew & "idfromnewsorderbydatetimedesc"
endif
elseifrequest ("type") = "nosh" แล้ว
SQL = "SelectIdFromNewhereshengcheng = 0"
elseifrequest ("type") = "ทั้งหมด" แล้ว
SQL = "SelectIdFromNewSorderByIdDesc"
endif
ifsql <> "" แล้ว
Response.writesql
Response.write "<center> <b> <fontcolor =" "#ff0000" "> 正在生成文章内容页的 html 页, 请等待 ...... </font> </b> <spanid = showimport> </span> </enter> <ie: downloadid =" "adownload"
ifrequest ("p") <> "" แล้ว
p = cint (คำขอ ("p"))
อื่น
p = 1
endif
MaxPerpage = 100
Rs.opensql, Conn, 1,1
ifnotrs.eofthen
rs.pagesize = maxperpage '得到每页数
mpage = rs.pagecount '得到总页数
Allshu = Rs.RecordCount '得到总数
Rs.Move (P-1)*MaxPerpage
dowhilenotrs.eof
i = i+1
callmakehtml ()
ifi> = maxperpagethenexitdo
Rs.Movenext
วง
endif
Rs.close
sshu = maxperpage*p-maxperpage+1 '当前已经生成的数量
tshu = sshu+i-1 '已生成生成的
ifallshu <sshuthen
setrs = ไม่มีอะไร
conn.close
setConn = ไม่มีอะไร
response.redirect "makehtmlall.asp? type = ok" & "& shu =" & คำขอ ("shu") & "& d =" & d & "& p =" & p+1
Response.end
อื่น
-
<metahttp-equiv = "Refresh" content = "0; url = makehtmlall.asp? type = <%= คำขอ (" type ")%> & newCount = <%= คำขอ (" newCount ")%> & selyear = <%= คำขอ ("selyear")%> & selmonth = <%= คำขอ ("selmonth")%> & selday = <%= คำขอ ("selday")%> & shu = <%= tshu%> & d = <%= d%> & p = <%= p+1%> ">"> ">">