add_date.asp

来自「与asp相关的技术　如数据库和网页设计 很有用的哦」· ASP 代码 · 共 59 行

ASP
59 行
字号 
<% response.buffer=true%>
<!--#INCLUDE FILE="../../../system/odbc_connection.asp"-->
<!--#INCLUDE FILE="../../../system/function.asp"-->
<%	if session("user_type")<>"T" then
		response.redirect "../../../index.asp"
	end if
%>
<HTML>
<HEAD>
<TITLE> 教学大纲 </TITLE>
	<link rel="stylesheet" href="../../../system/all.css">
</HEAD>

<BODY >
	<h2 align="center">输入或修改地点和时间</h2>
	<%
	dim lesson_id
	lesson_id=session("lesson_id")

	SQL="SELECT date_classroom FROM lesson"
	SQL=SQL + " WHERE lesson_id = '" & lesson_id & "'" 
	SET RS=db.EXECUTE(SQL)
	%>
	<CENTER>
	<form name=form1 method=post action="">
	<TABLE border="0"  width="90%">
		<Tr bgcolor=#E9E9E9 align="center">
			<TD bgcolor=#E9E9E9 height="100" valign="middle">
			<%if not rs.bof and not rs.eof then%>
				<textarea cols=80 rows=3 name="date_classroom"  ><%=rs("date_classroom")%></textarea>
			<%else%>
				<textarea cols=80 rows=3 name="date_classroom" >系里教务通知</textarea>
			<%end if%>
			</TD>
		</Tr>

	</TABLE>
		<p><input type=submit name=submit value="  确  定  ">&nbsp&nbsp<input type=submit name=submit value="  取  消  ">
	</form>
	</CENTER>
	<%
		If request("submit")="  取  消  " Then
			response.redirect "index.asp?lesson_id=" &lesson_id
		End If
		if request("date_classroom")<>"" then
			sql = "update lesson set date_classroom='" &  myReplace(Request("date_classroom")) & "'"
			sql =sql & " where lesson_id='" & session("lesson_id") & "'"
			db.Execute(Sql)
			db.close
			set db=nothing
			response.redirect "index.asp?lesson_id=" &lesson_id
		end if
	%>
	
	<p>
	
</BODY>
</HTML>

add_date.asp - 源码说明

本页面展示了「与asp相关的技术　如数据库和网页设计 很有用的哦」中的 add_date.asp 源码文件，采用 ASP 编程语言编写，共 59 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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