cx_ks_type.asp

是一个电子商务网站的功能介绍

               if rs1("category")=7 then
   sql_fen="SELECT   top "&rstm("datano")&" userdata.fen  FROM  userdata,tbtk  where username='"&username&"' and userdata.tmid=tbtk.tmid   and tbtk.kcid="&kcid&"  and paperno="&paperno&"  and category=7 and kao=1 order by tbtk.tmid"
   set rs_fen=server.createobject("adodb.recordset")
   rs_fen.open sql_fen,conn,3,2

  ls_fen=0
  do while not rs_fen.eof
   ls_fen=rs_fen("fen")+ls_fen 
   rs_fen.movenext
 
    loop

    response.write  ls_fen&"分"
    end if
    
    
    
    if rs1("category")=8 then
 

    response.write  yued_fen&"分"
    end if
    
    
    %>
    </td>
    <td   width="49" height="29">
    <p align="center"><%
     if rs1("category")=8 then
    response.write  "共"&rstm("datavalue")*xiaotino&"分"
     else
    response.write  "共"&rstm("datano")*rstm("datavalue")&"分"
     end if
    
    %>    
    </td>
    <td   width="61" height="29">
    <p align="center"><% 
          if rs1("category")=1 then
     %>
    <a href="cx_ks_mc.asp?paperno=<%=paperno%>&kcid=<%=rs1("kcid")%>&category=<%=rs1("category")%>">
    
    <%end if%>
    
        <% 
          if rs1("category")=2 then
     %>
    <a href="cx_ks_tk.asp?paperno=<%=paperno%>&kcid=<%=rs1("kcid")%>&category=<%=rs1("category")%>">
    
    <%end if%>
        <% 
          if rs1("category")=3 then
     %>
    <a href="cx_ks_pd.asp?paperno=<%=paperno%>&kcid=<%=rs1("kcid")%>&category=<%=rs1("category")%>">
    
    <%end if%>
        <% 
          if rs1("category")=4 then
     %>
    <a href="cx_ks_danx.asp?paperno=<%=paperno%>&kcid=<%=rs1("kcid")%>&category=<%=rs1("category")%>">
    
    <%end if%>
        <% 
          if rs1("category")=5 then
     %>
    <a href="cx_ks_duox.asp?paperno=<%=paperno%>&kcid=<%=rs1("kcid")%>&category=<%=rs1("category")%>">
    
    <%end if%>
        <% 
          if rs1("category")=6 then
     %>
    <a href="cx_ks_wd.asp?paperno=<%=paperno%>&kcid=<%=rs1("kcid")%>&category=<%=rs1("category")%>">
    
    <%end if%>
            <% 
          if rs1("category")=7 then
     %>
    <a href="cx_ks_ls.asp?paperno=<%=paperno%>&kcid=<%=rs1("kcid")%>&category=<%=rs1("category")%>">
    
    <%end if%>   
    <% 
          if rs1("category")=8 then
     %>
    <a href="cx_ks_yued.asp?paperno=<%=paperno%>&kcid=<%=rs1("kcid")%>&category=<%=rs1("category")%>">
    
    <%end if%>显示成绩</a></td>
  </tr>
  <%



rs1.movenext
i=i+1
loop



%>
</table>
 
<br>
<h3>您的<%=rs3("info")%>（<%=kcm%>）考试成绩是：<font color=red><% 

'-----------------
sqltm1="SELECT  *  FROM tbkcconfig  where kcid="&kcid&" and category=1 and paperno="&paperno
set rstm1=server.createobject("adodb.recordset")
rstm1.open sqltm1,conn,3,2      

if not rstm1.eof then
tmno1=rstm1("datano")
else
tmno1=0
end if

sqltm2="SELECT  *  FROM tbkcconfig  where kcid="&kcid&" and category=2 and paperno="&paperno
set rstm2=server.createobject("adodb.recordset")
rstm2.open sqltm2,conn,3,2      

if not rstm2.eof then
tmno2=rstm2("datano")
else
tmno2=0
end if

sqltm3="SELECT  *  FROM tbkcconfig  where kcid="&kcid&" and category=3 and paperno="&paperno
set rstm3=server.createobject("adodb.recordset")
rstm3.open sqltm3,conn,3,2      

if not rstm3.eof then
tmno3=rstm3("datano")
else
tmno3=0
end if

sqltm4="SELECT  *  FROM tbkcconfig  where kcid="&kcid&" and category=4 and paperno="&paperno
set rstm4=server.createobject("adodb.recordset")
rstm4.open sqltm4,conn,3,2      

if not rstm4.eof then
tmno4=rstm4("datano")
else
tmno4=0
end if

sqltm5="SELECT  *  FROM tbkcconfig  where kcid="&kcid&" and category=5 and paperno="&paperno
set rstm5=server.createobject("adodb.recordset")
rstm5.open sqltm5,conn,3,2      

if not rstm5.eof then
tmno5=rstm5("datano")
else
tmno5=0
end if

sqltm6="SELECT  *  FROM tbkcconfig  where kcid="&kcid&" and category=6 and paperno="&paperno
set rstm6=server.createobject("adodb.recordset")
rstm6.open sqltm6,conn,3,2      

if not rstm6.eof then
tmno6=rstm6("datano")
else
tmno6=0
end if


sqltm7="SELECT  *  FROM tbkcconfig  where kcid="&kcid&" and category=7 and paperno="&paperno
set rstm7=server.createobject("adodb.recordset")
rstm7.open sqltm7,conn,3,2      

if not rstm7.eof then
tmno7=rstm7("datano")
else
tmno7=0
end if

sqltm8="SELECT  *  FROM tbkcconfig  where kcid="&kcid&" and category=8 and paperno="&paperno
set rstm8=server.createobject("adodb.recordset")
rstm8.open sqltm8,conn,3,2      

if not rstm8.eof then
tmno8=rstm8("datano")
else
tmno8=0
end if
'----------------
zong=0
set rs_zong=server.createobject("adodb.recordset")
if tmno1<>0 then
zong_fen="SELECT   top "&tmno1&"  userdata.fen  FROM  userdata,tbtk  where username='"&username&"' and userdata.tmid=tbtk.tmid   and tbtk.kcid="&kcid&" and userdata.paperno="&paperno&"    and category=1 and kao=1 order by tbtk.tmid"

rs_zong.open zong_fen,conn,3,2

do while not rs_zong.eof
zong=rs_zong("fen")+zong
rs_zong.movenext
loop
rs_zong.close
end if

if tmno2<>0 then
zong_fen="SELECT   top "&tmno2&"  userdata.fen  FROM  userdata,tbtk  where username='"&username&"' and userdata.tmid=tbtk.tmid   and tbtk.kcid="&kcid&"    and userdata.paperno="&paperno&"  and category=2 and kao=1 order by tbtk.tmid"
rs_zong.open zong_fen,conn,3,2
do while not rs_zong.eof
zong=rs_zong("fen")+zong
rs_zong.movenext
loop
rs_zong.close
end if
   
if tmno3<>0 then   
zong_fen="SELECT   top "&tmno3&"  userdata.fen  FROM  userdata,tbtk  where username='"&username&"' and userdata.tmid=tbtk.tmid   and tbtk.kcid="&kcid&"   and userdata.paperno="&paperno&"   and category=3 and kao=1 order by tbtk.tmid"
rs_zong.open zong_fen,conn,3,2
do while not rs_zong.eof
zong=rs_zong("fen")+zong
rs_zong.movenext
loop
rs_zong.close
end if

if tmno4<>0 then
zong_fen="SELECT   top "&tmno4&"  userdata.fen  FROM  userdata,tbtk  where username='"&username&"' and userdata.tmid=tbtk.tmid   and tbtk.kcid="&kcid&"   and userdata.paperno="&paperno&"   and category=4 and kao=1 order by tbtk.tmid"
rs_zong.open zong_fen,conn,3,2
do while not rs_zong.eof
zong=rs_zong("fen")+zong
rs_zong.movenext
loop
rs_zong.close
end if

if tmno5<>0 then
zong_fen="SELECT   top "&tmno5&"  userdata.fen  FROM  userdata,tbtk  where username='"&username&"' and userdata.tmid=tbtk.tmid   and tbtk.kcid="&kcid&"   and userdata.paperno="&paperno&"   and category=5 and kao=1 order by tbtk.tmid"
rs_zong.open zong_fen,conn,3,2
do while not rs_zong.eof
zong=rs_zong("fen")+zong
rs_zong.movenext
loop
rs_zong.close
end if

if tmno6<>0 then
zong_fen="SELECT   top "&tmno6&"  userdata.fen  FROM  userdata,tbtk  where username='"&username&"' and userdata.tmid=tbtk.tmid   and tbtk.kcid="&kcid&"  and userdata.paperno="&paperno&"    and category=6 and kao=1 order by tbtk.tmid"
rs_zong.open zong_fen,conn,3,2
do while not rs_zong.eof
zong=rs_zong("fen")+zong
rs_zong.movenext
loop
rs_zong.close
end if

if tmno7<>0 then
zong_fen="SELECT   top "&tmno7&"  userdata.fen  FROM  userdata,tbtk  where username='"&username&"' and userdata.tmid=tbtk.tmid   and tbtk.kcid="&kcid&"   and userdata.paperno="&paperno&"   and category=7 and kao=1 order by tbtk.tmid"
rs_zong.open zong_fen,conn,3,2
do while not rs_zong.eof
zong=rs_zong("fen")+zong
rs_zong.movenext
loop
rs_zong.close
end if 

if tmno8<>0 then
zong_fen="SELECT   top "&tmno8&"  userdata.fen,userdata.tmid,userdata.dataid  FROM  userdata,tbtk  where username='"&username&"' and userdata.tmid=tbtk.tmid   and tbtk.kcid="&kcid&"   and userdata.paperno="&paperno&"   and category=8 and kao=1 order by tbtk.tmid"
rs_zong.open zong_fen,conn,3,2
do while not rs_zong.eof
 
    zong_fen1="SELECT   *  FROM  userdataread  where username='"&username&"'  and dataid="&rs_zong("dataid")&"  and  tmid="&rs_zong("tmid")&"   and  paperno="&paperno&""
    set rs_zong1=server.createobject("adodb.recordset")
    rs_zong1.open zong_fen1,conn,3,2
    
    do while not rs_zong1.eof
       zong=rs_zong1("fen")+zong
     rs_zong1.movenext
    loop

rs_zong.movenext
loop
rs_zong.close
end if 

response.write  zong
    
    
 '----------------------- 把成绩加入数据库
sql2="select * from tbscore where username='"&username&"' and paperno="&paperno&"  and kcid="&kcid&""
set rs2=server.createobject("adodb.recordset")
rs2.open sql2,conn,3,2   
  

  rs2("score")=zong
  rs2.update
    
    
%></font>分</h3>
</center><%
end if

end if %><p align="center"><a href="cx_subject.asp?kcid=<%=kcid%>"><img border="0" id="img2" src="images/button3E.gif" height="22" width="70" alt="返 回" onmouseover="FP_swapImg(1,0,/*id*/'img2',/*url*/'images/button40.gif')" onmouseout="FP_swapImg(1,0,/*id*/'img2',/*url*/'images/button3E.gif')" onmousedown="FP_swapImg(1,0,/*id*/'img2',/*url*/'images/button42.gif')" onmouseup="FP_swapImg(1,0,/*id*/'img2',/*url*/'images/button40.gif')" fp-style="fp-btn: Metal Rectangle 1; fp-font: 宋体; fp-font-style: Bold; fp-font-size: 11; fp-transparent: 1; fp-proportional: 0; fp-orig: 0" fp-title="返 回"></a></p>

</body>

</html>