📄 update.asp
字号:
<% response.buffer=true%>
<!--#INCLUDE FILE="../../../system/odbc_connection.asp"-->
<HTML>
<HEAD>
<TITLE> 修改重要公告 </TITLE>
<link rel="stylesheet" href="../../../system/all.css">
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<h2 align="center">修改重要公告</h2>
<%
dim sql,rs
sql="SELECT * FROM news where id="& Request.querystring("id")
SET rs=db.EXECUTE(sql)
%>
<CENTER>
<form name=form1 method=post action="">
<TABLE border="0" width="80%" >
<Tr bgcolor="#e9e9e9">
<TD width=20%>标题</TD>
<TD width=80%><input name="title" type=text value=<%=rs("title") %> size="40"></TD>
</Tr>
<Tr bgcolor="#e9e9e9">
<TD>内容</TD>
<TD>
<textarea name="body" cols=40 rows=6><%=rs("body") %> </textarea>
</TD>
</Tr>
</TABLE>
<p align=center><input type=submit name=submit value=" 确 定 ">  <input type=submit name=submit value=" 取 消 ">
</form>
</CENTER>
<%
If request("submit")=" 取 消 " Then
response.redirect "index.asp"
End If
if trim(Request("title"))<>"" then
dim lesson_id
'lesson_id=request.querystring("lesson_id")
sql = "update news set "
If Request("title") <> "" Then
sql = sql & "title='"& Request("title")&"'"
'sValues = sValues & Request("title") & ",'"
End If
If Request("body") <> "" Then
Sql = Sql & ",body='"& Request("body")&"'"
'sValues = sValues & "," & "'" & Request("body") & "'"
End If
Sql = Sql & ",type='TZ'"
'sValues = sValues & "," & "'TZ'"
Sql = Sql & ",submit_date="& date
Sql=Sql & " where id=" & Request.querystring("id")
'sValues = sValues & "," & "'" & date &"'"
'Sql = Sql & ") " & sValues & ")"
'response.write sql
db.Execute(Sql)
'*******直接发信模块
On error resume next
'获取email服务器名称
Dim email_server,web_name
sql="select email_server,web_name from config"
set rs=db.execute(sql)
email_server=rs("email_server")
web_name=rs("web_name")
'开始发信
Dim Jmail
Set Jmail = Server.CreateObject("Jmail.Message")
'获取信件内容
sql="select email from teacher where user_id='" & session("user_id") & "'"
set rs=db.execute(sql)
Jmail.From = rs("email") '发件人
Jmail.Subject = web_name & "通知:" & request("title") '主题
ttt=request("body")
Jmail.Body = ttt '内容
'现在开始收件人
sql2="select teacher.email from teacher,user_lesson"
sql2=sql2 & " where teacher.user_id=user_lesson.user_id"
set rs2=db.execute(sql2)
do while not rs2.eof
Jmail.AddRecipient rs2("email")
rs2.movenext
loop
sql2="select student.email from student,user_lesson"
sql2=sql2 & " where student.user_id=user_lesson.user_id"
set rs2=db.execute(sql2)
do while not rs2.eof
Jmail.AddRecipient rs2("email")
rs2.movenext
loop
'执行发送,请换成你的发信服务器
Jmail.send(email_server)
Jmail.Close '关闭对象
'********发信模块结束
response.redirect "index.asp"
end if
%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -