admindatabase.asp

一个很不错的CRM系统

    </tr>

</table>
<%

 

response.write "<br><center>"+request("success")+"</center>"

if subjectview="" then 
subjectview=   rs3("kcid")
end if 

mykey=request("mykey")

if typeadd="--题型--" or typeadd="" then
  typeadd="1"
end if
if mykey= "--关键字--" or mykey="" then
  mykey=""
end if

sql="select tbtk.tmid,tbtk.title,tbkc.kcm,tbtk.category,tbtk.chapter,tbtk.kao,tbtk.level  from tbtk,tbkc  where tbtk.kcid=tbkc.kcid  and  tbkc.kcid = "& subjectview &" and category="&typeadd &" order by tbtk.chapter,category,tbtk.tmid desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
on error resume next
rs.PageSize = 10
Page = CLng(Request("Page"))
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
i=page+(page-1)*9
rs.AbsolutePage = Page

%><% 


if rs.eof then


sql1="select * from tbkc  where kcid = "& subjectview &" "
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2 

%><p>
<br><br>

</p>

<center>

<h4><%=rs1("kcm")%>——<% 
          if typeadd="1" then
    response.write "名词解释"
    end if
          if typeadd="2" then
    response.write "填空题"
    end if
          if typeadd="3" then
    response.write "判断题"
    end if
    
    if typeadd="4" then
    response.write "单项选择题"
    end if
    
      if typeadd="5" then
    response.write "多项选择题"
    end if

      if typeadd="6" then
    response.write "简答题"
    end if
          if typeadd="7" then
    response.write "论述题"
    end if
    if typeadd="8" then
    response.write "阅读理解"
    end if

    %>——没有试题</h4></center>

<%
else%><br><center><b>
<%=rs("kcm")%>——<% 
          if rs("category")=1 then
    response.write "名词解释"
    end if
          if rs("category")=2 then
    response.write "填空题"
    end if
          if rs("category")=3 then
    response.write "判断题"
    end if
    
    if rs("category")=4 then
    response.write "单项选择题"
    end if
    
      if rs("category")=5 then
    response.write "多项选择题"
    end if

      if rs("category")=6 then
    response.write "简答题"
    end if
          if rs("category")=7 then
    response.write "论述题"
    end if
       if rs("category")=8 then
    response.write "阅读理解"
    end if
    %>&nbsp;&nbsp;(共<%=rs.recordcount%>题) </b></center>
 <br>
<center>
<table border="1" cellspacing="1" style="border-collapse: collapse" bordercolor="#799AE1" width="100%" id="AutoNumber1">
  <tr class="trh">
    <td width="44" align="center"  height="20" style="background-color: #799AE1">
 <input type="submit" value="删除" name="del" onclick="delit(viewaddform)"   class="s02"></td>
    <td width="46" align="center" style="background-color: #799AE1"  ><font color="#FFFFFF"><b>序号</b></font></td>
    <td align="left"  width="105" style="background-color: #799AE1">
    <p align="center"><font color="#FFFFFF"><b>科目名称</b></font></td>
        <td align="left" width="67" style="background-color: #799AE1">
    <p align="center"><font color="#FFFFFF"><b>章</b></font></td>
    <td align="left"  width="74" style="background-color: #799AE1">
    <p align="center"><font color="#FFFFFF"><b>题型</b></font></td>

    <td align="left"   width="230" style="background-color: #799AE1">
    <p align="center"><font color="#FFFFFF"><b>题目内容</b></font></td>

    <td align="left"   width="57" style="background-color: #799AE1">
    <p align="center"><font color="#FFFFFF"><b>类型</b></font></td>

    <td align="left"  width="47" style="background-color: #799AE1">
    <p align="center"><font color="#FFFFFF"><b>难度</b></font></td>
    <td align="left"   width="49" style="background-color: #799AE1">
    <p align="center"><font color="#FFFFFF"><b>操作</b></font></td>
  </tr>
<%


For iPage = 1 To rs.PageSize
%>
  <tr class="trh1">
    <td align="center"   width="44">
    <input type="checkbox" name='selAnnounce' value="<%=rs("tmid")%>"></td>
    <td align="center" width="46"><%=i%>　</td>
    <td align="center" width="105"><%=rs("kcm")%>　</td>
        <td align="center" width="67">第<%=rs("chapter")%>章</td>
    <td align="center" width="74"><% 
          if rs("category")=1 then
    response.write "名词解释"
    end if
          if rs("category")=2 then
    response.write "填空题"
    end if
          if rs("category")=3 then
    response.write "判断题"
    end if
    
    if rs("category")=4 then
    response.write "单选题"
    end if
    
      if rs("category")=5 then
    response.write "多选题"
    end if

      if rs("category")=6 then
    response.write "简答题"
    end if
          if rs("category")=7 then
    response.write "论述题"
    end if
             if rs("category")=8 then
    response.write "阅读理解"
    end if
    %>　</td>

    <td align="left" width="230"><a href="javascript:editit(<%=rs("tmid")%>)"><%=cuter(rs("title"),12)%></a>　</td>

    <td align="center" width="57"><% 
          if rs("kao")=1 then
    response.write "<font color=#0000FF>考试</font>"
else
    response.write "练习"
    end if

    
    %>　</td>

    <td align="center" width="47"><% 
          if rs("level")="1" then
    response.write "容易" 
    end if
          if rs("level")="2" then
    response.write "中等" 
    end if
              if rs("level")="3" then
    response.write "较难" 
    end if
              if rs("level")="4" then
    response.write "最难" 
    end if
    
    %>　</td>
    <td align="left" width="49">
    <p align="center"><a href="javascript:editit(<%=rs("tmid")%>)">
    <img border="0" src="images/edit.gif" alt="查看/编辑"></a></td>
  </tr>
  <% 
rs.MoveNext
If rs.EOF Then Exit For
i=i+1
Next





%>
  <caption></caption>
</table>
</center>

  </form>

 
<div ALIGN="right">
  <table>
    <form ACTION="<%=Myself%>?subjectview=<%=subjectview%>&typeadd=<%=typeadd%>&mykey=<%=mykey%>" METHOD="GET">
      <tr>
        <td>
        <p ALIGN="right">  <input type=checkbox name=del_all1 value=1 onclick=FanAll(viewaddform)>全选<span lang="en-us"> </span>
        &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<%If Page <> 1 Then ' 如果不是位于第一页%>
        <a href="<%=Myself%>?Page=1&subjectview=<%=subjectview%>&typeadd=<%=typeadd%>&mykey=<%=mykey%>">
        第一页</a>
        <a HREF="<%=Myself%>?Page=<%=(Page-1)%>&subjectview=<%=subjectview%>&typeadd=<%=typeadd%>&mykey=<%=mykey%>">
        上一页</a>
        <%                                      
End If   
                              
If Page <> rs.PageCount Then ' 如果不是位于最后一页                                         
%> <a HREF="<%=Myself%>?Page=<%=(Page+1)%>&subjectview=<%=subjectview%>&typeadd=<%=typeadd%>&mykey=<%=mykey%>">
        下一页</a>
        <a HREF="<%=Myself%>?Page=<%=rs.PageCount%>&subjectview=<%=subjectview%>&typeadd=<%=typeadd%>&mykey=<%=mykey%>">
        最后一页</a> <% End If %> <font SIZE="2">输入页次:</font><input NAME="Page" SIZE="3" CLASS="s01">
        <font SIZE="2">页次:</font><font COLOR="Red" SIZE="2"><%=Page%>/<%=rs.PageCount%></font></p>
        <p>　</td>
      </tr>
    </form>
  </table>
  
  <%end if        
  
 
  
  %></div>
</div>
</td>
</tr>
</table>

</body>

</html>