chengjisavenews.asp

来自「设计学校管理系统的成绩模块」· ASP 代码 · 共 51 行

ASP
51 行
字号 
<%@ 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>继续添加新的学员数据？&nbsp;&nbsp; <a href="chengjiluru.asp">继续</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<a href="main.asp">退出</a></p>
</P>
</BODY>
</HTML>

chengjisavenews.asp - 源码说明

本页面展示了「设计学校管理系统的成绩模块」中的 chengjisavenews.asp 源码文件，采用 ASP 编程语言编写，共 51 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与学校管理系统相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?