<% dim con dim constr dim zzz dim zzzz dim jjj dim jjjj dim tn tn=0 if Request.Form("a")="" or Request.Form("b")="" then zzz="1" jjj="1" else zzz=Request.Form("a") jjj=Request.Form("b") end if if int(zzz)<10 then zzzz="00"&zzz else if int(zzz)<100 then zzzz="0"&zzz else zzzz=zzz end if end if if int(jjj)<10 then jjjj="00"&jjj else if int(jjj)<100 then jjjj="0"&jjj else jjjj=jjj end if end if %> 古兰经中、阿、语音查询系统

古兰经中、阿、诵读查询

现为:<%=zzz%>章<%=jjj%>节
<% constr="DBQ="+server.mappath("../quran/quran.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" set con=server.createobject("ADODB.CONNECTION") con.open constr set rs=server.createobject("adodb.recordset") sql="select * from scontent where c_surah_no="&int(zzz)&" order by -ayat_no Desc" rs.open sql,con,1,3 do until rs("ayat_no")=int(jjj) or rs.eof rs.movenext loop if int(jjj)=1 and int(zzz)<>1 then%>
奉至仁至慈的真主之名
<% end if for ii=int(jjj) to int(jjj)+6 %>
<%=ii%>、<%=rs("content")%>
<% 'tn1=tn1+1 tn=tn+len(rs("content")) rs.movenext if rs.eof or tn>140 then exit for rs.close con.close end if next %>

     
点击嗽叭收听本节古兰经诵读收听本节古兰诵读

 

<% rs.close con.close %>