new_submit.asp

来自「一套设计精美的学校网站全站系统」· ASP 代码 · 共 86 行

ASP

86 行

<%@ Language=VBScript %>
<!--#include file=conn.asp -->
<!--#include file=../include/config.asp --><!--#include file="char.inc"--><!--#include file="chkuser.asp" -->

<%
IF request.cookies("KEY")<>"super" THEN
response.redirect "index_face.asp"
response.end
else
usernamecookie=CheckStr(request.cookies("UserName"))
passwdcookie=replace(trim(Request.cookies("passwd")),"'","''")
KEYcookie=replace(trim(request.cookies("KEY")),"'","''")
if usernamecookie="" or passwdcookie="" then
response.redirect "login.asp"
response.end
else
'判断用户的合法性
  set rs=server.createobject("adodb.recordset")
  sql="select * from admin where username='"&usernamecookie&"'"
  rs.open sql,conn,1,1
  if rs.eof and rs.bof then
             response.redirect "login.asp"
            response.end
         end if
  IF passwdcookie<>rs("passwd") THEN
          response.redirect "login.asp"
           response.end
      END IF
   '下面判断用户级别实际在有用户级别是都应该判断
   if KEYcookie<>rs("OSKEY") then
      response.redirect "index_face.asp"
      response.end
    end if
           rs.close
           set rs=nothing
END IF
END IF
%>
<%
if init="1" or request.cookies("purview")="99999" then

SpecialID=Request.Form("SpecialID")
button_value=trim(Request.Form("alert_button"))
if button_value="是" then
conn.execute("delete from BigClass")
conn.execute("delete from SmallClass")
conn.execute("delete from Special")
conn.execute("delete from News")
conn.execute("delete from review")
conn.execute("delete from vote")
conn.execute("delete from link")
conn.execute("delete from type")
conn.execute("delete from dep")
conn.execute("delete from board")
conn.execute("delete from attach")
conn.execute("delete from newsfile")
conn.execute("delete from uploadpic")
conn.execute("delete from admin where purview<>99999")
else
Response.Redirect "typemanage.asp"
end if
end if
%>
<html>

<head>
<meta http-equiv="refresh" content="1;url=depmanage.asp">
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href=site.css rel=stylesheet>
<title><%=copyright%><%=version%>&nbsp;<%=ver%> - 系统初始化完成</title>
</head>

<body topmargin="0"><!--#include file=top.asp-->
<table border="1" width="750" cellspacing="0" cellpadding="0" style="border-collapse: collapse" bordercolor="<%=border%>" align=center>
  <tr> 
    <td width="100%" bgcolor="#FFFFFF" align="center"> 
      <p>　</p>
      <p><b>系统已经被初始化。</b></p>
      <p>　</p>
    </td>
  </tr>
</table>
</body>

</html>

new_submit.asp - 源码说明

本页面展示了「一套设计精美的学校网站全站系统」中的 new_submit.asp 源码文件，采用 ASP 编程语言编写，共 86 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与美的相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?