📄 add_4.asp
字号:
<%response.buffer=true%>
<!--#INCLUDE FILE="../../system/odbc_connection.asp"-->
<html>
<head>
<title>开课第四步</title>
<link rel="stylesheet" href="../../system/all.css">
</head>
<body>
<h2 align=center>第四步:课程访问设置</h2>
<p align="center" class="zhushi">注意：仔细考虑，以后可修改</p>
<center>
<form name="form1" method="POST" action="">
<table border='0' width='80%' >
<tr align=center>
<td >你允许过客访问你的课程吗</td>
</tr>
<tr align=center>
<td >
<input type="radio" name="open_flag" value="1" >允许
  <input type="radio" name="open_flag" value="0" checked>不允许
</td>
</tr>
</table>
<p align="center"><input type="submit" value=" 确 定 " name="submit">
</tr>
</form>
</center>
<%
'各项验证正确无误，则可继续注册，否则返回
if request("open_flag")<>"" then
'先允许过客访问
sql="update lesson set open_flag=" & cInt(request("open_flag"))
db.execute(sql)
Dim guest_flag
guest_flag=cInt(request("open_flag"))
'先删除有关信息
sql="delete from student where user_id='guest'"
db.execute(sql)
sql="delete from user_lesson where user_id='guest'"
db.execute(sql)
'如果允许过客可以再添加
If guest_flag=1 Then
sql="insert into student(user_id,user_name,password) values('guest','过客','guest')"
db.execute(sql)
sql="insert into user_lesson(user_id,lesson_id,user_type,permit) values('guest','1001','G',1)"
db.execute(sql)
else
sql="insert into student(user_id,user_name,password) values('guest','过客','guest')"
db.execute(sql)
sql="insert into user_lesson(user_id,lesson_id,user_type,permit) values('guest','1001','G',0)"
db.execute(sql)
End If
db.close
set db=nothing
response.redirect "add_5.asp"
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -