📄 user_subject.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="user_chkpass.asp"-->
<!--#include file="inc/usercode.asp"-->
<!--#include file="inc/function.asp"-->
<%
if CheckUserLogined()=False then
response.Redirect "user_login.asp"
end if
call uporder()
%>
<link href="Admin_STYLE.CSS" rel="stylesheet" type="text/css">
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0" class="bgcolor">
<%
dim action
action=request.QueryString("action")
select case action
case "addclass"
call addclass()
case "del"
call delclass()
case "modify"
call modifyclass()
case "savemodi"
call savemodify()
case "order"
call order()
case else
call main
end select
sub addclass()
call uporder()
dim subjectname,rs,ordernum
subjectname=Trim(Request.Form("subjectname"))
If subjectname="" Then
Response.Write("<script language=javascript>alert('名称不能为空！');window.location.replace('user_subject.asp')</script>")
Response.End()
End If
if Instr(subjectname,"=")>0 or Instr(subjectname,"%")>0 or Instr(subjectname,chr(32))>0 or Instr(subjectname,"?")>0 or Instr(subjectname,"&")>0 or Instr(subjectname,";")>0 or Instr(subjectname,",")>0 or Instr(subjectname,"'")>0 or Instr(subjectname,",")>0 or Instr(subjectname,chr(34))>0 or Instr(subjectname,chr(9))>0 or Instr(subjectname,"⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -