save_link_admin.asp

来自「个人网站模板」· ASP 代码 · 共 49 行

ASP
49 行
字号 
<!--#include file="../admin/check_admin.asp"-->
<!-- #include file="link_conn.asp"-->
<title></title>
<body scroll="no" marginwidth="0" leftmargin="0" topmargin="0">
<%
       dim sql
	   id=Request.QueryString("id")
       Set sql = Server.CreateObject("ADODB.Command")
       Set rs = Server.CreateObject("ADODB.Recordset")
       sql.CommandText = "SELECT * FROM link where id="&id
       sql.CommandType = 1
       Set sql.ActiveConnection = conn
       	rs.Open sql, , 1, 3
		if Request.form("user")<>"" then
      	rs("user") =Request.form("user")
		end if
		if Request.form("tel")<>"" then
       	rs("tel") =Request.form("tel")
		end if
		if Request.form("email")<>"" then
		rs("email") =Request.form("email")
		end if
		if Request.form("site_name")<>"" then
		rs("site_name") =Request.form("site_name")
		end if
		if Request.form("link_class")<>"" then
		rs("link_class") =Request.form("link_class")
		end if
		if Request.form("logo")<>"" then
		rs("logo") =Request.form("logo")
		end if
		if Request.form("url")<>"" then
		rs("url") =Request.form("url")
		end if
		rs("listid") =Request.form("listid")
       rs.Update
%>
<script language=Javascript>
<!--
alert("修改成功");
window.location.href="admin_link.asp";
-->
</script>
<%
       rs.close
	   conn.close
       set rs=nothing
       set conn=nothing
%>

save_link_admin.asp - 源码说明

本页面展示了「个人网站模板」中的 save_link_admin.asp 源码文件，采用 ASP 编程语言编写，共 49 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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