?? 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 + -