additem1.asp

这是用asp做的一个网上考试题库系统

<!--#include file="../db.asp"-->
 
<%
  objConn.Open strConnection
  Set objRS = Server.CreateObject ("ADODB.Recordset")
  Set rs= Server.CreateObject ("ADODB.Recordset")
  tx=Session("sjtx")
  if request.QueryString("mod")<>"" then
    PaperItemID=Session("PaperItemArray")
    FF=1
    do while FF<=50 and PaperItemID(tx,FF)<>-1
	  FF=FF+1
    loop
     KK=FF
     for i=1 to Request("xx").Count
        news="select * from Paper_Item where ItemID="&request("xx")(i)&" and PaperID="&Request.QueryString ("mod")
        objRS.open news,objConn
        if not objRS.EOF then
           mm=1
        else
           mm=0
        end if
        objRS.Close
        if mm=0 then    
          
          PaperItemID(tx,KK)=Request("xx")(i)
	      KK=KK+1
        end if
	  
     next 
     Session("PaperItemArray")=PaperItemID
    response.redirect "ModPaper1.asp?PaperID="&request.QueryString("mod")
  else
    PaperItemID=Session("PaperItemArray")
 
  FF=1
  while FF<=50 and PaperItemID(tx,FF)<>-1
	FF=FF+1
  wend 
 K=FF

   for i=1 to Request("xx").Count
        FF=1
		have=false
		Do while FF<=50 and PaperItemID(tx,FF)<>-1
			if Clng(PaperItemID(tx,FF))=Clng(Request("xx")(i)) then
				have=true
				exit do
			end if
			FF=FF+1
		loop
		
		if have<>true then
		   PaperItemID(tx,K)=Request("xx")(i)
		 
           K=K+1
		end if
 next
Session("PaperItemArray")=PaperItemID
Response.redirect("gdsjStep2.asp?time=2")
end if
%>