admindepartmentsaveedit.asp

来自「一套在线考试系统」· ASP 代码 · 共 18 行

<!--#include virtual="/inc/conn.inc"-->
<%
Dim department
Dim i
Dim j
department=request("department")
department=split(department,",")
i=ubound(department)
sql="select * from department"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
for j=0 to i
rs("department")=trim(department(j))
rs.update
rs.movenext
next
response.redirect "admindepartment.asp"
%>