📄 chengjisavenews.asp
字号:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<!-- #include virtual="/admin/include/title.html"-->
<%
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 chengji where sId='"&Request("sId")&"'"
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="chengjiluru.asp" >
<input name="submit" type="submit" value="确定并返回">
<%response.End()
end if%>
<%
sql="select * from chengji"
set Res=server.createobject("adodb.recordset")
Res.open sql,conn,1,3
Res.AddNew
Res("sId")=Request("sId")
Res("sName")=Request("sName")
Res("sFenxiao")=Request("dSchool")
Res("sClass")=Request.Form("sClass")+Request.Form("sban")
Res("sRemark1")=Request("sRemark1")
Res("sRemark2")=Request("sRemark2")
Res("sRemark3")=Request("sRemark3")
Res("sRemark4")=Request("sRemark4")
Res("sRemark5")=Request("sRemark5")
Res("sRemark6")=Request("sRemark6")
Res.Update
%>
<P> </P>
</P> 您的信息已经成功提交！
<p> </p>
<p>继续添加新的学员数据？ <a href="chengjiluru.asp">继续</a>
<a href="main.asp">退出</a></p>
</P>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -