jiesuan.asp

来自「学校勤工助学管理网站 功能可管理 考勤计算工资并进行等级评估。」· ASP 代码 · 共 43 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#INCLUDE FILE="../database/conn.asp"-->
 <% 
  dim data(4,3)
for i= 1 to 3
for j= 1 to 4
mydata="data"+cstr(i)+cstr(j)
data(j,i)=request.form(mydata)
next
next
%>

<%
rem 输出表单输入的值
for i= 1 to 4
for j= 1 to 3
response.write data(i,j)
next
response.write""
next
'response.end
%>
<% 
for i= 1 to 4
rem 循环批量入库

Set rs=SERVER.CreateObject("ADODB.Recordset")
 		    sql="select * from kaoqin "           
	        rs.open sql,conn,3,3   
rs.AddNew
rs("jiesuan")=data(i,3)
rs("dengji")=data(i,2)
' rs("student_no")=data(i,1)
rs.Update
rs.close
set rs=nothing
response.write"ok"
next
'重定向
Response.write("<script type='text/javascript'>alert('OK！');location.href='xinchou.asp';</script>")

   %>