⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 lys1.asp

📁 原代码学生信息管理系统(原代码)不够的的话我给原程序 QQ3810091
💻 ASP
字号:
<!--#include file="conn.asp"-->

<%
 bh=request("bh")
zybj=request("zybj")
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="#fef4d9">

  
  

  
<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="#fef4d9">
  
   <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><%=zybj%>  <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" height="100" style="border-collapse: collapse">
        <tr>
          <td width="100%"> 
        
     <font face="宋体" size="3" color="#ff55aa">
   
     <%=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 + -