📄 kechengsavenews.asp
字号:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD><!-- #include virtual="/admin/include/title.html"-->
<BODY>
<%
dim a,b
dim conn,connstr
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../dbf/课程.mdb")
conn.Open connstr
dim sql,Rest,Res
sql="select * from kecheng where sClass='"&Request("sClass")&"+"&Request("sban")&"'and sSchool='"&Request("sSchool")&"'"
set Rest=server.createobject("adodb.recordset")
Rest.open sql,conn,1,3
if not Rest.eof then
response.write"已经存在是否要更改!"%>
<form method="post" name="savenews1" action="xueshen.asp" >
<input name="submit" type="submit" value="确定并返回">
<%response.End()
end if%>
<%
sql="select * from kecheng"
set Res=server.createobject("adodb.recordset")
Res.open sql,conn,1,3
Res.AddNew
Res("kid")=Res("id")
Res("sClass")=Request("sClass")+Request("sban")
Res("sSchool")=Request("sFenxiao")
Res("Mon1")=Request("Mon1")
Res("Mon2")=Request("Mon2")
Res("Mon3")=Request("Mon3")
Res("Mon4")=Request("Mon4")
Res("Mon5")=Request("Mon5")
Res("Tue1")=Request("Tue1")
Res("Tue2")=Request("Tue2")
Res("Tue3")=Request("Tue3")
Res("Tue4")=Request("Tue4")
Res("Tue5")=Request("Tue5")
Res("Wen1")=Request("Wen1")
Res("Wen2")=Request("Wen2")
Res("Wen3")=Request("Wen3")
Res("Wen4")=Request("Wen4")
Res("Wen5")=Request("Wen5")
Res("Thu1")=Request("Thu1")
Res("Thu2")=Request("Thu2")
Res("Thu3")=Request("Thu3")
Res("Thu4")=Request("Thu4")
Res("Thu5")=Request("Thu5")
Res("Fri1")=Request("Fri1")
Res("Fri2")=Request("Fri2")
Res("Fri3")=Request("Fri3")
Res("Fri4")=Request("Fri4")
Res("Fri5")=Request("Fri5")
Res("Sat1")=Request("Sat1")
Res("Sat2")=Request("Sat2")
Res("Sat3")=Request("Sat3")
Res("Sat4")=Request("Sat4")
Res("Sat5")=Request("Sat5")
Res("Sun1")=Request("Sun1")
Res("Sun2")=Request("Sun2")
Res("Sun3")=Request("Sun3")
Res("Sun4")=Request("Sun4")
Res("Sun5")=Request("Sun5")
Res.Update
%>
<P> </P>
</P> 您的信息已经成功提交！
<p> </p>
<p>继续添加新的课程数据？ <a href="kecheng.asp">继续</a>
<a href="main.asp">退出</a></p>
</P>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -