📄 change.asp

📁 本系统采用ASP作为开发环境
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!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">
</head>
<% 
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")&"') and ID<>"&cint(request.QueryString("id"))
	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="update tb_Link set Pictrue='"&request.Form("pictrue")&"',Name='"&_
		 request.Form("names")&"',Address='"&request.Form("address")&_
		 "' where ID="&request.querystring("id")
		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")&"','链接信息修改成功','"&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 change(){
	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>
<% id=request.querystring("id")%>
<!-- #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
%>
<body topmargin="0" leftmargin="0">
<form name="form1" method="post"  action="Change.asp?id=<%=id%>">
<!-- #include file="../../Conn/conn.asp" -->
<%
sql="select * from tb_Link where ID="&id
rs.open sql,conn
if not rs.eof then 
%>	
<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" value="<%=rs("Pictrue")%>" size="25"> 
      <span class="style1">（图片的名称和扩展名）</span></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" value="<%=rs("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" value="<%=rs("Address")%>" size="40"> </td>
  </tr>
  <tr>
    <td height="40" colspan="2"><div align="center">
        <input name="Submit2" type="button" class="go-wenbenkuang3" value="修改" onClick="change()">
        <input name="Submit" type="button" class="go-wenbenkuang3" value="返回" onClick="javascript:window.close()">        
      </div>
   </td>
  </tr>
</table> 
</form>
<% end if 
set rs=nothing
conn.close
set conn=nothing
%>
</body>
</html>
⌨️ 快捷键说明

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