📄 admregsta3.asp

📁 该系统可对信息系统尽行有效的分类管理
💻 ASP
字号:
<%Option Explicit%>
<%
if Request.TotalBytes > 3000 then
    Response.Write("提交数据不能多于 3 K")
    Response.End
end if
%>

<%
dim objRS,sql
dim title,url,comments,name,lang,email,logo,regsitename,regsiteabout,regsitearea
dim sortid
dim pathname

sortid        = Request.Form("sortid")
pathname      = Request.Form("pathname")
title         = Request.Form("title")
url           = Request.Form("url")
lang          = Request.Form("lang")
comments      = Request.Form("comments")
name          = Request.Form("name")
email         = Request.Form("email")
logo          = Request.Form("logo")
regsitename   = Request.Form("regsitename")
regsiteabout  = Request.Form("regsiteabout")
regsitearea   = Request.Form("regsitearea")

pathname    = Request.Form("pathname")

if Trim(title) = "" or Trim(url) = "" or Trim(comments) = "" then
    Response.Write("<script language=""JavaScript"">alert(""还没填完呢！~*~！"");history.go(-1);</script>")
    Response.End
elseif title <> Server.HTMLEncode(title) or comments <> Server.HTMLEncode(comments) or name <> Server.HTMLEncode(name) then
    Response.Write("含HTML标记")
    Response.End
end if
%>
<!--#include file="adoconn.asp"-->
<%
Set objRS = Server.CreateObject("ADODB.RecordSet")
sql = "stationinfo"
objRS.Open sql, objConn, 3, 3
objRS.AddNew
    objRS("stationname") = title
    objRS("stationurl")  = url
    objRS("stationlang") = lang
    objRS("description") = comments
	objRS("logo")        = logo
	objRS("sitename")    = regsitename
	objRS("siteabout")   = regsiteabout
	objRS("sitearea")    = regsitearea
    if name <> "" then objRS("whopost")     = name
    if email <> "" then objRS("email")      = email
    objRS("thisdate")    = now()
    objRS("parentid")    = sortid
    objRS("ispass")      = TRUE
objRS.Update()
objRS.Close()
sql = "select * from sort where id = " & sortid
objRS.Open sql, objConn, 3, 3
    objRS("totalispass").value = objRS("totalispass").value + 1
objRS.Update()

objConn.Close()
Set objRS = nothing
Set objConn = nothing
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>网站登录成功！</title>
<style>
<!--
body         { font-size: 11pt }
-->
</style>
</head>

<body bgcolor="#FFFFFF">
<!--#include file="top.htm"-->
<table border="1" width="100%" height="103" bordercolorlight="#C0C0C0" cellspacing="0" bordercolordark="#FFFFFF">
  <tr>
    <td width="100%" height="23">
      <p align="center"><b>登 录 成 功！</b></p>
    </td>
  </tr>
  <tr>
    <td width="100%" height="68">
      <p align="center">
      <input type="button" value=" 返回 " onclick="JavaScript: location.replace('admclass.asp?sortid=<%=sortid%>')">&nbsp;&nbsp;
      <input type="button" value="继续登录" onclick="JavaScript: location.replace('admregsta1.asp?sortid=<%=sortid%>')">
    </td>
  </tr>
</table>

<center>
</body>
</html>
⌨️ 快捷键说明

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