domodsubclass1.asp

来自「asp图书馆管理系统的一个源代码」· ASP 代码 · 共 16 行

<!--#include file="globe/DataConnect.asp"-->
<%
Dim ClassName,ClassName1,sql,sql1,sql2
ClassName=trim(request.form("ClassName"))
ClassName1=trim(request.form("ClassName1"))
		sql = "UPDATE SubClass SET SubName = '"&ClassName1&"' WHERE SubName='"&ClassName&"'"
        Cnn.Execute sql
        sql1 = "UPDATE Book SET SubName = '"&ClassName1&"' WHERE SubName='"&ClassName&"'"
        Cnn.Execute sql1
        sql2 = "UPDATE Website SET SubName = '"&ClassName1&"' WHERE SubName='"&ClassName&"'"
	    Cnn.Execute sql2
	    response.redirect "ModSubClass.asp?error=<--同学，恭喜您！您的操作已经成功了，请点击刷新！-->"
%>
<!--#include file="globe/DataClose.asp"-->