resavehtm.asp

与asp相关的技术 如数据库和网页设计 很有用的哦

<%Option Explicit%>
<%response.buffer=true%>
<!--#INCLUDE FILE="../../../system/odbc_connection.asp"-->
<%
if session("user_type")<>"T" then
	response.redirect "../../../index.asp"
end if
%>	
<%
'获取有关数据，保存到数据库中
Dim title,body
title=Request.Form("title")
If title="" Then title=" "     '防止插入空字符串""
body=Request.Form("body")
If body="" Then  body=" " '防止插入空字符串""
'将有关数据更新
Dim sql
sql = "update course set title='" & title & "',body='" & body & "' Where id=" & Request.QueryString("id")
db.Execute(Sql)

response.write "<script language='Jscript'> top.frames['bottom'].frames['left'].location.reload(); </script>"
'重定向回首页
response.write "<script language='Jscript'> top.frames['bottom'].frames['main'].location.replace('index.asp');</script>"
%>