?? 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 + -