日期:2014-05-16  浏览次数:21543 次

在windows2003IIS6.0环境多人同时提交ASP表单变慢?
我单位对老师做评价,二十左右人时比较快,大约四十多学生同时提交评价结果时,服务器反应很慢,提交数据后过大约一两分钟才显示数据提交成功,不知道是ASP程序代码有问题还是windows2003系统设置有问题。服务器是IBMX3550.

下面是程序代码:
下面是teacher.asp
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>程序</title>
<link rel=stylesheet href="style.css" type="text/css">
</head>

<body topmargin="0">
<!--#include file="top.asp"-->
<div align="center">
  <center>
  <table border="0" width="700" cellspacing="0" cellpadding="0">
    <tr>
      
  <td width="100%"> <form method="POST" action="teacher1.asp"> <table width="85%" border="1" align="center" cellpadding="3" cellspacing="3" bordercolorlight="#008080" bordercolordark="#FFFFFF">
      <tr> 
        <td width="25%"><div align="center"><font color="#0000FF" size="5"><strong>初一学年</strong></font></div></td>
        <td width="55%"> <div align="center"><font color="#FF0000" size="3"><strong>请选择本班任课教师逐项打分后提交→</strong></font></div></td>
        <center>
          <td width="20%"><font color="#0000FF" size="3">
            <select size="1" name="b_teacher">
              <option value="赵" selected>赵兴利-语文</option>
              <option value="李">李芹-数学</option>
              <option value="陈">陈-生物 </option>
              <option value="肖">肖-英语</option>
                         </select>
            </font></td>
        </center>
      </tr>

----------------------------------------------------
下面是teacher1.asp


<!--#include file="conn.asp"-->

<%
set rs=server.createobject("adodb.recordset")
sql="select * from teacher"
rs.open sql,conn,1,3

rs.addnew
rs("b_study")=cint(request("b_study"))
rs("b_work")=cint(request("b_work"))
rs("b_zj")=cint(request("b_zj"))
rs("b_fl")=cint(request("b_fl"))
rs("b_xt")=cint(request("b_xt"))
rs("b_teacher")=trim(request("b_teacher"))
rs("b_tatol")=cint(request("b_study"))+cint(request("b_work"))+cint(request("b_zj"))+cint(request("b_fl"))+cint(request("b_xt"))
rs.update
rs.close
set rs=nothing
Response.Write "<script language='javascript'>window.confi