adminsubjectsaveedit.asp

一个较完备的交互式网络教学系统 开发语言为 asp

<!--#include file="Check.asp"-->
<!--#include file="Conn.asp"-->
<!--#include file="Config.asp"-->
<!--#include file="Functions.asp"-->
<%
TestSubject=Trim(request("TestSubject"))
about_result=request("about_result")
TestSubject=split(TestSubject,",")
about_result=split(about_result,",")
del=Trim(Request.form("delme"))
save=Trim(Request.form("save"))
If save<>"" Then'保存更改
	i=ubound(TestSubject)
	f=ubound(about_result)
	Response.Write "i:"&i&"<br>f:"&f
	'Response.end
	sql="select * from TestSubject"
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,3,2
	for j=0 to i
		old_subject=rs("TestSubject")
		rs("TestSubject")=trim(TestSubject(j))
		'about_result=trim(about_result(j))
		'about_result=Replace(about_result,vbcrlf,"<br>")
		rs("about_result")=trim(about_result(j))
		rs.update

		  sql_0="update TestName     set subject='"&Trim(TestSubject(j))&"' where subject='"&old_subject&"'"
		  Response.Write Sql_0&"<br>"
		  conn.execute(sql_0)

		  Sql_1="update TestTopic set subject='"&Trim(TestSubject(j))&"' where subject='"&old_subject&"'"
		  Response.Write sql_1&"<br>"
		  conn.execute(sql_1)

		rs.movenext
	next
End If

If del<>"" Then
	dim i
	dim j
	id=request("id")
	'response.write id
	id=split(id,",")
	i=ubound(id)
	'response.write i
	for j=0 to i
	  sql="select * from TestSubject where id="& cint(id(j))
	  set rs=server.createobject("adodb.recordset")
	  rs.open sql,conn,3,2
	  if not rs.eof then
	  subject=rs("TestSubject")
	  rs.delete'删除主类别
	  rs.update
	  '删除子目录下的所有相关资料
		sql_0="Select * from TestName where subject='"&trim(subject)&"'"
		Set oRs=Server.CreateObject("Adodb.RecordSet")
		oRs.Open Sql_0,Conn,3,3
		While Not oRs.Eof
			TestID=Trim(oRs("TestID"))

			Sql_x="delete from AboutResult where TestID="&TestID
			Conn.Execute(Sql_x)'删除分数说明

			oRs.Delete'删除自测卷
			oRs.Update
		oRs.MoveNext
		Wend
		oRs.Close()
		Set oRs=Nothing

    Sql_1="Select * from TestTopic  where subject='"&trim(subject)&"'"'删除试题
	Set oRs=Server.CreateObject("Adodb.RecordSet")
		oRs.Open Sql_1,Conn,3,3
		PicList=Trim(oRs("PicList"))
		If PicList<>"" Then
			P=Split(PicList,",")
			For i=0 To Ubound(P)-1
				Call DelFile(Trim(P(i)))
			Next
		End If
		oRs.Delete
		oRs.UpDate
		oRs.Close()
		Set oRs=Nothing
  rs.close
  end if
next
End If

'Response.Write del&save&"<br>"

response.redirect "adminsubject.asp"
%>