add_intro.asp

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

ASP
57 行
字号 
<% 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=request.querystring("lesson_id")

	SQL="SELECT intro 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%">
		</caption>
		<Tr align="center">
			<TD height="250" valign="middle">
			<%if not rs.bof and not rs.eof then%>
				<textarea cols=80 rows=12 name="intro"  ><%=rs("intro")%></textarea>
			<%else%>
				<textarea cols=80 rows=12 name="intro" >该课程主要...</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("intro")<>"" then
		sql = "update lesson set intro='"& myReplace(Request("intro")) & "' where lesson_id='" & lesson_id & "'"
		db.Execute(Sql)
		db.close
		set db=nothing
		response.redirect "index.asp?lesson_id=" &lesson_id
	end if
	%>
	
</BODY>
</HTML>

add_intro.asp - 源码说明

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

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

⌨️ 快捷键说明

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