📄 lys1.asp

📁 学生成绩管理是学校管理的重要组成部分。成绩不仅关系到学生成绩升迁
💻 ASP
字号:
<!--#include file="conn.asp"-->

<%
 bh=request("bh")
fnb=request("fnb")
xm=request("xm")
xb=request("xb")
sj=request("sj")
 dim rs
 dim sql
  set rs=server.createobject("adodb.recordset")
 sql="SELECT * from ly where bh='" + bh + "'" 
rs.open sql,conn,3,3


if rs.eof then	
		
%>
     
<SCRIPT language="JavaScript">
  
function closeclk() {
close();
}
  </script>
  
  
 <body topmargin=0 leftmargin=0 rightmargin=0 bgcolor="#FFFFFF" background="BG01.gif">

  
  

  
<center>

(^-^)<p>


本条留言刚才已被你删除！
 <form> 
<INPUT TYPE="BUTTON" NAME="close" value="关闭这个窗口" onClick="closeclk()">
</FORM>
</center>

 
 


<%




else







nr=rs("nr")


function DvbbsHtmlAn(fweing)
if not isnull(fweing) then
	fweing = replace(fweing, ">", "&gt;")
	fweing = replace(fweing, "<", "&lt;")
	fweing = Replace(fweing, CHR(32), " ")
	fweing = Replace(fweing, CHR(9), "&nbsp;")
	fweing = Replace(fweing, CHR(34), "&quot;")
	fweing = Replace(fweing, CHR(39), "&#39;")
	fweing = Replace(fweing, CHR(13), "")
	fweing = Replace(fweing, CHR(10), "<BR> ")

	fweing=ChkBadWords(fweing)
	DvbbsHtmlAn = fweing
end if
end function

function ChkBadWords(fweing)
    dim bwords
    if not(isnull(BadWords) or isnull(fweing)) then
    bwords = split(BadWords, "|")
    for i = 0 to ubound(bwords)
        fweing = Replace(fweing, bwords(i), weing(len(bwords(i)),"*")) 
    next
    ChkBadWords = fweing
    end if
end function

nr=DvbbsHtmlAn(nr)





%>



<html>
 <head>
  <title>查看留言【龚文生设计】</title>
  
  
     
<SCRIPT language="JavaScript">
  
function closeclk() {
close();
}
  </script>

  
  
  
 </head>
 <body topmargin=0 leftmargin=0 rightmargin=0 bgcolor="#FFFFFF" background="BG01.gif">
  
   <div align=center><font face="华文行楷" size="5" color="#FF00FF">查看留言</font></div> 
     <font face="宋体" size="2">

     <center>

    
       <td align=center><a href=sc5.asp?bh=<%=bh%>><font color="red">点击删除</font></a></td><br>

    
  
       <font color="#008080">类别：</font><%=fnb%>　　<font color="#008080">姓名：</font><%=xm%>　　<font color="#008080">性别：</font><%=xb%>
    </font>

     </center>
    
      <div align="center">
        <center>
    
      <table border="4" cellpadding="0" cellspacing="0" bordercolor="#FF9900" width="390" id="AutoNumber1" bgcolor="#FEF4D9" background="BG01.gif" height="100" style="border-collapse: collapse">
        <tr>
          <td width="100%">　
        
     <font face="宋体" size="3" bgcolor="#FEF4D9" background="BG01.gif">
   
     <%=nr%>
     
     
     
     
           <br>
           <center>
           
           <%=sj%><br>
            

 </center>
</font>
 </table>
 
  
  
        </center>
   </div>
 
  
  
<center>

 <form> 
<INPUT TYPE="BUTTON" NAME="close" value="关闭这个窗口" onClick="closeclk()">
</FORM>
</center>

 
 
 </body>
</html>

<%

end if
%>
⌨️ 快捷键说明

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