<% 'On Error Resume Next page_Num = 12 '每頁的數目 'prepare_URL = "http://www.amtb.tw/" prepare_URL = "../" '//-- 測試用 '程式前頭 Myself = Request.ServerVariables("PATH_INFO") '抓出檔案名稱 Myself = split(Myself , "/") my_file = Myself(Ubound(Myself)) loadfile = "./wallcard/wallcardloadpic.asp?data_index=" SET CONN=SERVER.CREATEOBJECT("ADODB.CONNECTION") CONN.OPEN "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../cgi-bin/amtb_web_db.mdb") myTypeChoice = "" '---------------------------------------------------------------------------- IF Request.QueryString("type_choice") <> "" then myTypeChoice = Request.QueryString("type_choice") ElseIF Request.Form("type_choice") <> "" then myTypeChoice = Request.Form("type_choice") End IF if Not isNumeric(myTypeChoice) then myTypeChoice = 0 end if IF myTypeChoice <> "" then SQL = "SELECT * FROM wallcard_type where amtb_index = " & myTypeChoice & " order by list_index,amtb_index" Else SQL = "SELECT * FROM wallcard_type order by list_index desc,amtb_index desc" End IF Set RS1 = Conn.Execute(SQL) IF Err.Number<>0 then Response.Write "
" & SQL & "
" & Err.description END IF %> 佛教桌布智慧法語卡片
" & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write "
" & vbCRLF Response.Write "" & vbCRLF else Response.Write "" & vbCRLF END IF End IF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write "
" & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write "
<% SQL = "SELECT * FROM wallcard_type order by list_index,amtb_index" Set RS5 = Conn.Execute(SQL) IF Err.Number<>0 then Response.Write "
" & SQL & "
" & Err.description else IF NOT RS5.EOF THEN Do While Not RS5.EOF Response.Write "" RS5.MoveNext Loop END IF END IF SET RS5=Nothing %>
首頁" & vbCRLF Response.Write "" & RS5("title") & "  
<% IF NOT RS1.EOF THEN Do While Not RS1.EOF Response.Write "" & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF SQL = "SELECT * FROM wallcard_main where rel_type = " & RS1("amtb_index") & " order by list_index,amtb_index desc" Set RS = Conn.Execute(SQL) IF Err.Number<>0 then Response.Write "
" & SQL & "
" & Err.description else IF NOT RS.EOF THEN tmp_content_index = 1 Do While Not RS.EOF RS_small_pic = replace(RS("small_pic"),"e_card/","wallcard/") IF tmp_content_index = 1 Then 'Response.Write "111" Response.Write "" & vbCRLF Response.Write "" & vbCRLF End IF Else RS.MoveNext End IF tmp_content_index = tmp_content_index + 1 Loop 'Response.Write " debug:" & tmp_content_index '//-- 補Table " & vbCRLF Next Else 'Response.Write " debug2:" & tmp_content_index & " " Response.Write " " & vbCRLF End IF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write "
" & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write "
" & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF '/-- 單項detail模式 ------------------------------------------------- IF myTypeChoice <> "" then Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write "
 
" & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write "
" & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF End IF IF (RS1("row_number")-tmp_content_index) >= 0 Then 'Response.Write "222" Response.Write " " & vbCRLF End IF IF (RS1("row_number")-tmp_content_index) = 0 Then RS.MoveNext IF Not RS.EOF Then 'Response.Write "333" '//-- 單項detail模式 tmp_content_index = 0 Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write "
" & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write "
" IF myTypeChoice = "8" then Response.Write "
" & vbCRLF Else Response.Write "
" & vbCRLF End IF Response.Write " " & RS("title") & "
" & vbCRLF Response.Write " " & RS("sub_title") & "" & " 下載人數:" & RS("count") & "" & vbCRLF Response.Write "
IF tmp_content_index > 1 and (RS1("row_number")-tmp_content_index) >= 0 Then For i = 0 to (RS1("row_number")-tmp_content_index) 'Response.Write " debug:" & i & "-" & tmp_content_index & " " Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write "

" & vbCRLF Response.Write "
" & vbCRLF Response.Write " " & vbCRLF Response.Write "
" & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write "

" & vbCRLF Response.Write "
" & vbCRLF Response.Write " " & vbCRLF Response.Write "
尚無資料!
 " & vbCRLF '//-- 整頁模式 --------------------------------------------- Else Response.Write " .................................................................................................................更多
" & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write "
" & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF SQL = "SELECT * FROM wallcard_main where rel_type = " & RS1("amtb_index") & " order by list_index,amtb_index desc" Set RS = Conn.Execute(SQL) IF Err.Number<>0 then Response.Write "
" & SQL & "
" & Err.description else IF NOT RS.EOF THEN tmp_content_index = 1 Do While Not RS.EOF RS_small_pic = replace(RS("small_pic"),"e_card/","wallcard/") IF (RS1("row_number")-tmp_content_index) >= 0 Then '//-- 整頁大綱模式 Response.Write " " & vbCRLF Else Exit Do End IF tmp_content_index = tmp_content_index + 1 RS.MoveNext Loop else Response.Write "" & vbCRLF END IF End IF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write "
" & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write "
" IF RS1("amtb_index") = "8" then Response.Write "" Else Response.Write "" End IF Response.Write "
" & RS("title") & "
尚無資料!
" & vbCRLF Response.Write " " & vbCRLF Response.Write " " & vbCRLF Response.Write "" & vbCRLF End IF RS1.MoveNext Loop END IF %>

淨空老法師專集網站 e-mail: amtb@amtb.tw 建站日:1995.12.1

 

<% SET RS1=Nothing SET RS=Nothing CONN.Close SET CONN=Nothing %>