<%
Dim limitNum
Set DataConn = Server.CreateObject("ADODB.Connection")
DataConn.Open "Driver=Microsoft Access Driver (*.mdb);DBQ=" & _
Request.ServerVariables("APPL_PHYSICAL_PATH") & "db\faq.mdb"
'response.write Request.ServerVariables("APPL_PHYSICAL_PATH") & "db\faq.mdb"
if request("cid") <> "" then
sql = "SELECT * FROM faqcate INNER JOIN lang ON faqcate.langid = lang.langid WHERE lang.langid=2 AND faqcate.faqcateid=" & request("cid")
limitNum = -1
else
sql = "SELECT * FROM faqcate INNER JOIN lang ON faqcate.langid = lang.langid WHERE lang.langid=2 ORDER BY faqcate.sortid"
limitNum = 3
end if
'sql = "SELECT * FROM faqcate WHERE faqcate.langid=2"
set rs = DataConn.Execute(sql)
Do while Not rs.EOF
%>
 |
::<%=rs("faqcate")%> |
<%
sql = "SELECT Count(*) as counter FROM faqcate INNER JOIN faq ON faqcate.faqcateid = faq.faqcateid WHERE faq.enable=-1 AND faq.faqcateid=" & rs("faqcateid")
set rs1 = DataConn.Execute(sql)
sql = "SELECT * FROM faqcate INNER JOIN faq ON faqcate.faqcateid = faq.faqcateid WHERE faq.enable=-1 AND faq.faqcateid=" & rs("faqcateid") & " ORDER BY faq.datetime DESC"
set rs2 = DataConn.Execute(sql)
a=0
Do while Not rs2.EOF
a=a+1
if limitNum > -1 and rs1("counter") > limitNum and a > limitNum then
Exit Do
end if
%>
 |
"><%=rs2("faqtitle")%> |
[<% Response.Write year(rs2("datetime")) & "-" & month(rs2("datetime")) & "-" & day(rs2("datetime")) %>] |
<%
rs2.MoveNext
Loop
rs1.close
rs2.close
%>
<% if limitNum > -1 then %>
|
|
">更多訊息 |
<% else %>
|
|
返回上一頁 |
<% end if %>
|
<%
rs.MoveNext
Loop
rs.close
%>
|
 |
 |
 |
紐約大學植牙專科
多倫多大學矯正專科
加拿大皇家牙醫學院 |
|
 |
|
|
 |
|
 |
|