📄 add.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% response.buffer=false %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>信息添加</title>
<link rel="stylesheet" href="../../Css/Style.css">
<% names=request.QueryString("name") %>
</head>
<!-- #include file="../../Conn/conn.asp" -->
<%
sql="insert into tb_Log(Name,Content,IssueDate) values('"&session("Admin")&_
"','进行链接信息添加','"&Now()&"')"
rs.open sql,conn
set rs=nothing
conn.close
set conn=nothing
If request.Form("pictrue")<>"" Then
%>
<!-- #include file="../../Conn/conn.asp" -->
<%
sql="select * from tb_Link where Pictrue='"&request.Form("pictrue")&_
"' or Name='"&request.Form("names")&"' or Address='"&request.Form("address")&"'"
rs.open sql,conn
If not rs.Eof And not rs.Bof Then
Set rs=nothing
conn.close
Set conn=nothing
%>
<script language="javascript">
alert("类似信息已经存在");
history.back();
</script>
<%
Else
Set rs=nothing
conn.close
Set conn=nothing
%>
<!-- #include file="../../Conn/conn.asp" -->
<%
sql="insert into tb_Link(Pictrue,Name,Address,IssueDate) values('"&_
request.Form("pictrue")&"','"&request.Form("names")&"','"&_
request.Form("address")&"','"&Date()&"')"
rs.open sql,conn
Set rs=nothing
conn.close
Set conn=nothing
%>
<!-- #include file="../../Conn/conn.asp" -->
<%
sql="insert into tb_Log(Name,Content,IssueDate) values('"&_
session("Admin")&"','链接信息"&request.Form("names")&"添加成功','"&Now()&"')"
rs.open sql,conn
Set rs=nothing
conn.close
set conn=nothing
%>
<script language="javascript">
alert("链接信息添加完毕");
opener.location.reload();
window.close();
</script>
<%
End if
End if
%>
<script language="javascript">
function add(){
var pic=form1.pictrue.value;
var names=form1.names.value;
var address=form1.address.value;
if(pic==""){
alert("请输入具体的图片信息");
}else if(names==""){
alert("请输入您添加链接的网站名称");
}else if(address==""){
alert("请添加具体的网站地址");
}else{
form1.submit();
}
}
</script>
<body topmargin="0" leftmargin="0">
<form name="form1" method="post" action="Add.asp">
<table width="419" height="107" border="0" cellpadding="0" cellspacing="0" bgcolor="#f9f9f9" class="wenbenkuang">
<tr bgcolor="#214994">
<td height="20" colspan="2"><div align="center"><font color="#ffffff">链接信息添加</font></div></td>
</tr>
<tr>
<td width="100" height="40"><div align="right"><font color="#214994">链接图片信息：</font></div></td>
<td width="317" height="40"><input name="pictrue" type="text" class="wenbenkuang" id="pictrue" size="25">
<font color="#214994">（图片的名称和扩展名）</font></td>
</tr>
<tr>
<td height="40"><div align="right" class="style7"><font color="#214994">链接站点名称：</font></div></td>
<td height="40"><input name="names" type="text" class="wenbenkuang" id="name" size="40"> </td>
</tr>
<tr>
<td height="40"><div align="right"><font color="#214994">链接地址：</font></div></td>
<td height="40"><input name="address" type="text" class="wenbenkuang" id="address" size="40"> </td>
</tr>
<tr>
<td height="40" colspan="2"><div align="center">
<input name="Submit2" type="button" class="go-wenbenkuang3" value="添加" onClick="add()">
<input name="Submit" type="button" class="go-wenbenkuang3" value="返回" onClick="javascript:window.close()">
</div></td>
</tr>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -