add_linka.asp

来自「一个企业网站的php源代码」· ASP 代码 · 共 49 行

ASP
49
字号
<!--#include file="Open.asp" -->
<!--#include file="checkadmin.asp" -->
<%
on Error resume next
response.buffer=true
title=request.Form("title")
addurl=request.Form("addurl")
SQL="insert into link(title,addurl)Values('"&title&"','"&addurl&"')"
con.Execute SQL
		if err.number<>0 then
		Response.Write(err.Description)
		else
		Response.Redirect("link_list.asp")
end if
%>
 
<script language="JScript" runat="server">
function radm()
{
	return Math.round(Math.random()*100)
}
</script>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<style type="text/css">
<!--
body,td,th {
	font-size: 12px;
	color: #000000;
}
a {
	font-size: 12px;
}
a:visited {
	color: #000000;
}
-->
</style></head>

<body>

</body>
</html>
<!--#include file="close.asp" -->


⌨️ 快捷键说明

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