📄 note.asp
字号:
<!--#include file="user_err.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="char.asp"-->
<HTML><HEAD><TITLE>汕头育新学校 - 注册页面</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK
href="images/style.css" type=text/css rel=stylesheet>
<STYLE type=text/css>.pinkstar {
COLOR: #ed5460
}
<STYLE type=text/css>BODY {
FONT-SIZE: 12px; COLOR: #000080; LINE-HEIGHT: 12pt
}
INPUT {
FONT-SIZE: 12px; COLOR: #000080
}
SELECT {
FONT-SIZE: 12px; COLOR: #000080
}
TH {
FONT-SIZE: 12px; COLOR: #000080
}
TD {
FONT-SIZE: 12px; COLOR: #000080; LINE-HEIGHT: 12pt
}
A:link {
FONT-SIZE: 12px; COLOR: #0000e0; TEXT-DECORATION: none
}
A:visited {
FONT-SIZE: 12px; COLOR: #0000e0; TEXT-DECORATION: none
}
A:active {
FONT-SIZE: 12px; COLOR: #0000ff; TEXT-DECORATION: none
}
A:hover {
FONT-SIZE: 12px; COLOR: #ff0000; TEXT-DECORATION: underline
}
</STYLE>
<META content="Microsoft FrontPage 4.0" name=GENERATOR></HEAD>
<BODY>
<!--#include file="up.inc"-->
<%Dim Action,Ipaddr
Action=Request.QueryString("Action")
%>
<%
Select Case Action
Case "Wrong"
'''''''''''''''报错影片''''''''''''
IF Request.QueryString("Del")="All" Then Conn.Execute "update download set del=True where del=False And lookurl>0"
IF Request.QueryString("DelID")>0 Then Conn.Execute "update download set del=True where unid="&Request.QueryString("DelId")
Response.Write "<a href='Admin.asp?Action=Wrong&Del=All'><font color=ff0000>点这里删除所有影片</font></a>"
Response.Write "<table width=90% border=0 cellspacing=0 cellpadding=3><tr><td style='line-height: 15pt'>"
Set Rs=Server.CreateObject("ADODB.Recordset")
Rs.Open "select unid,title,users,lookurl from download where del=False And lookurl>0 order by unid desc",conn,1,1
While Not Rs.Eof
Response.Write "电影:"&Rs("title")&" 连接维护:"&Rs("users")&" 报错次数:"&Rs("lookurl")&" [<a href=Admin.asp?Action=Wrong&DelID="&Rs("unid")&">删除</a>] [<a href=editsoft.asp?Unid="&Rs("unid")&" title='修改'>修改</a>]<br>"
Rs.MoveNext
Wend
Rs.Close
Set Rs=Nothing
Response.Write "</td></tr></table>"
Case "student"
''''''''''''''管理评语''''''''
s_id=request("s_id")
sql="select * from student where s_id="&s_id
set rs=conn.execute(sql)
s_id=rs("s_id")
s_name=rs("s_name")
s_title=rs("s_title")
s_note=rs("s_note")
if rs.eof and rs.bof then
response.write "<script>alert(""出现异常错误"");window.close();</script>"
End if
If Request.Form("Submit")="添 加" Then
s_id=Request.Form("s_id")
s_title=Request.Form("s_title")
s_note=Request.Form("s_note")
Ipaddr=Request.ServerVariables("REMOTE_ADDR")
Dim Result1
Result1="错误:"
If s_title="" Then Response.write "<script>alert(""标题没有填写！"");history.back();</script>"
If s_note="" Then Response.write "<script>alert(""内容没有填写！"");history.back();</script>"
If Len(s_note)<10 Then Result=Result&"内容不能少于5个字！"
IF Result1="错误:" Then
Dim sql1
sql1="update student set s_title='"&s_title&"',s_note='"&s_note&"',s_ip='"&Ipaddr&"',s_now='"&Now&"' where s_id="&s_id
Conn.Execute sql1
Response.write "<script>alert('修改成功！');location.href('user_display.asp');</script>"
Else
Response.write "<script>alert("""&Result1&""");history.back();</script>"
end if
end if
%>
<!--#include file="upuser.inc"-->
<TABLE cellSpacing=0 cellPadding=0 width=750 align=center border=0>
<TBODY>
<TR>
<TD vAlign=top width=200>
<DIV align=center><IFRAME id=hotarea border=0
marginWidth=0 frameSpacing=0 marginHeight=0
src="hotsite.htm" frameBorder=0 width=200 scrolling=no
height=250></IFRAME>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD height=15></TD></TR></TBODY></TABLE></DIV></TD>
<TD width=20> </TD>
<TD vAlign=top width=530>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD class=tdTit_p>汕头育新学校学生留言添加</TD></TR>
<TR>
<TD class=tdBor_p>
<DIV align=center>
<TABLE cellSpacing=4 cellPadding=0 width=521 align=center bgColor=#fff7f7
border=0><form action="note.asp?Action=student" method="POST">
<TBODY>
<TR>
<TD width=521>
<DIV align=center>
<TABLE cellSpacing=0 cellPadding=0 width=400 border=0>
<TBODY>
<TR bgColor=#ffe8e8>
<TD class=p14 colSpan=4 height=23>
<DIV align=center><STRONG>学生留言</STRONG></DIV></TD></TR>
<TR>
<TD class=p12 vAlign=top height=23> 姓 名</TD>
<TD colSpan=3><SPAN
class=pinkstar><input name="s_id" type="hidden" id="s_id" value="<%=s_id%>"><%=s_name%></SPAN></TD></TR>
<TR>
<TD class=p12 vAlign=top height=23> 留言标题</TD>
<TD colSpan=3><SPAN
class=pinkstar><input name="s_title" id="s_title" ></SPAN> <SPAN
class=pinkstar>＊</SPAN></TD></TR>
<TR>
<TD class=p12 vAlign=top height=69> 留言内容</TD>
<TD colSpan=3><textarea rows=4 id=s_note name=s_note cols=40></textarea> <SPAN
class=pinkstar>＊</SPAN></TD></TR>
<TR>
<TD height=10></TD>
<TD colSpan=3></TD></TR>
<TR vAlign=top>
<TD colSpan=4 height=26>
<DIV align=center><INPUT class=Button_p type=submit name=Submit value="添 加">
<INPUT class=Button_p type=reset value="重 置"> <INPUT type=hidden
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -