cjgk2.asp

来自「原代码学生信息管理系统(原代码)不够的的话我给原程序 QQ3810091」· ASP 代码 · 共 52 行

ASP
52
字号
<%

  if Session.Contents("gws")<>true then
 %>
<!--#include file="gly.asp"-->
<%  
else
%>
<!--#include file="conn.asp"-->
<%
 dim rs
 dim sql
  set rs=server.createobject("adodb.recordset")
 sql="select * from cjgk  where bh=3"
 rs.open sql,conn,3,3

%>
<html>
 <head>
  <title>修改留言权限</title>
 </head>
 <body topmargin=0 leftmargin=0 rightmargin=0 bgcolor="#fef4d9">
    <center>
  <font face="华文行楷" size="6" color="#FF0000"><b>准不准学生留言及查看留言</b></font></center>
 <form action=cjxg2.asp method=post>
 <center>

    <%
   cjgk=rs("cjgk")
       if cjgk="是" then
    %>
       <input type=radio name="cjgk" value="是" checked>准学生留言及查看留言<p>
       <input type=radio name="cjgk" value="否"><font color="#FF0000">不</font>准学生留言(可查看留言)
                  <%   
    else
    %>
       <input type=radio name="cjgk" value="是">准学生留言及查看留言<p>
       <input type=radio name="cjgk" value="否" checked><font color="#FF0000">不</font>准学生留言(可查看留言)
         <%
    end if
    %>
           
  
   
    <p><input type=submit value="提交">&nbsp;&nbsp;&nbsp; <input type=reset value="还原"></p>
  </form> </center>
  <p>
 </body>
</html>
<%
end if
%>

⌨️ 快捷键说明

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